startup:
  ON ERROR GOTO ooops
  DIM capacity AS STRING * 1, gil3 AS STRING * 1, gil1 AS STRING * 1
  DIM gil2 AS STRING * 1, item11 AS STRING * 1, item12 AS STRING * 1
  DIM item21 AS STRING * 1, item22 AS STRING * 1, item31 AS STRING * 1
  DIM item32 AS STRING * 1, item41 AS STRING * 1, item42 AS STRING * 1
  DIM item51 AS STRING * 1, item52 AS STRING * 1, item61 AS STRING * 1
  DIM item62 AS STRING * 1, item71 AS STRING * 1, item72 AS STRING * 1
  DIM item81 AS STRING * 1, item82 AS STRING * 1, item91 AS STRING * 1
  DIM item92 AS STRING * 1, item101 AS STRING * 1, item102 AS STRING * 1
  DIM item111 AS STRING * 1, item112 AS STRING * 1, item121 AS STRING * 1
  DIM item122 AS STRING * 1, item131 AS STRING * 1, item132 AS STRING * 1
  DIM item141 AS STRING * 1, item142 AS STRING * 1, item151 AS STRING * 1
  DIM item152 AS STRING * 1, item161 AS STRING * 1, item162 AS STRING * 1
  DIM item171 AS STRING * 1, item172 AS STRING * 1, item181 AS STRING * 1
  DIM item182 AS STRING * 1, item191 AS STRING * 1, item192 AS STRING * 1
  DIM item201 AS STRING * 1, item202 AS STRING * 1, item211 AS STRING * 1
  DIM item212 AS STRING * 1, item221 AS STRING * 1, item222 AS STRING * 1
  DIM item231 AS STRING * 1, item232 AS STRING * 1, item241 AS STRING * 1
  DIM item242 AS STRING * 1, item251 AS STRING * 1, item252 AS STRING * 1
  DIM item261 AS STRING * 1, item262 AS STRING * 1, item271 AS STRING * 1
  DIM item272 AS STRING * 1, item281 AS STRING * 1, item282 AS STRING * 1
  DIM item291 AS STRING * 1, item292 AS STRING * 1, item301 AS STRING * 1
  DIM item302 AS STRING * 1, item311 AS STRING * 1, item312 AS STRING * 1
  DIM item321 AS STRING * 1, item322 AS STRING * 1, char1job AS STRING * 1
  DIM char2job AS STRING * 1, char3job AS STRING * 1, char4job AS STRING * 1
  DIM char1level AS STRING * 1, char2level AS STRING * 1, char3level AS STRING * 1
  DIM char4level AS STRING * 1, char1xp1 AS STRING * 1, char1xp2 AS STRING * 1
  DIM char1xp3 AS STRING * 1, char2xp1 AS STRING * 1, char2xp2 AS STRING * 1
  DIM char2xp3 AS STRING * 1, char3xp1 AS STRING * 1, char3xp2 AS STRING * 1
  DIM char3xp3 AS STRING * 1, char4xp1 AS STRING * 1, char4xp2 AS STRING * 1
  DIM char4xp3 AS STRING * 1, char1hp3 AS STRING * 1, char1hp4 AS STRING * 1
  DIM char2hp3 AS STRING * 1, char2hp4 AS STRING * 1, char3hp3 AS STRING * 1
  DIM char3hp4 AS STRING * 1, char4hp3 AS STRING * 1, char4hp4 AS STRING * 1
  DIM char1str AS STRING * 1, char2str AS STRING * 1, char3str AS STRING * 1
  DIM char4str AS STRING * 1, char1agi AS STRING * 1, char2agi AS STRING * 1
  DIM char3agi AS STRING * 1, char4agi AS STRING * 1, char1vit AS STRING * 1
  DIM char2vit AS STRING * 1, char3vit AS STRING * 1, char4vit AS STRING * 1
  DIM char1int AS STRING * 1, char2int AS STRING * 1, char3int AS STRING * 1
  DIM char4int AS STRING * 1, char1spi AS STRING * 1, char2spi AS STRING * 1
  DIM char3spi AS STRING * 1, char4spi AS STRING * 1, char1mag2 AS STRING * 1
  DIM char1mag4 AS STRING * 1, char1mag6 AS STRING * 1, char1mag8 AS STRING * 1
  DIM char1mag10 AS STRING * 1, char1mag12 AS STRING * 1, char1mag14 AS STRING * 1
  DIM char1mag16 AS STRING * 1, char2mag2 AS STRING * 1, char2mag4 AS STRING * 1
  DIM char2mag6 AS STRING * 1, char2mag8 AS STRING * 1, char2mag10 AS STRING * 1
  DIM char2mag12 AS STRING * 1, char2mag14 AS STRING * 1, char2mag16 AS STRING * 1
  DIM char3mag2 AS STRING * 1, char3mag4 AS STRING * 1, char3mag6 AS STRING * 1
  DIM char3mag8 AS STRING * 1, char3mag10 AS STRING * 1, char3mag12 AS STRING * 1
  DIM char3mag14 AS STRING * 1, char3mag16 AS STRING * 1, char4mag2 AS STRING * 1
  DIM char4mag4 AS STRING * 1, char4mag6 AS STRING * 1, char4mag8 AS STRING * 1
  DIM char4mag10 AS STRING * 1, char4mag12 AS STRING * 1, char4mag14 AS STRING * 1
  DIM char4mag16 AS STRING * 1, char1head AS STRING * 1, char1body AS STRING * 1
  DIM char1hand AS STRING * 1, char1lfthand AS STRING * 1, char1lfthand2 AS STRING * 1
  DIM char1rgthand AS STRING * 1, char1rgthand2 AS STRING * 1, char1row AS STRING * 1
  DIM char2head AS STRING * 1, char2body AS STRING * 1, char2hand AS STRING * 1
  DIM char2lfthand AS STRING * 1, char2lfthand2 AS STRING * 1, char2rgthand AS STRING * 1
  DIM char2rgthand2 AS STRING * 1, char2row AS STRING * 1, char3head AS STRING * 1
  DIM char3body AS STRING * 1, char3hand AS STRING * 1, char3lfthand AS STRING * 1
  DIM char3lfthand2 AS STRING * 1, char3rgthand AS STRING * 1, char3rgthand2 AS STRING * 1
  DIM char3row AS STRING * 1, char4head AS STRING * 1, char4body AS STRING * 1
  DIM char4hand AS STRING * 1, char4lfthand AS STRING * 1, char4lfthand2 AS STRING * 1
  DIM char4rgthand AS STRING * 1, char4rgthand2 AS STRING * 1, char4row AS STRING * 1
  DIM char1mag1 AS STRING * 1, char1mag3 AS STRING * 1, char1mag5 AS STRING * 1
  DIM char1mag7 AS STRING * 1, char1mag9 AS STRING * 1, char1mag11 AS STRING * 1
  DIM char1mag13 AS STRING * 1, char1mag15 AS STRING * 1
  DIM char2mag1 AS STRING * 1, char2mag3 AS STRING * 1, char2mag5 AS STRING * 1
  DIM char2mag7 AS STRING * 1, char2mag9 AS STRING * 1, char2mag11 AS STRING * 1
  DIM char2mag13 AS STRING * 1, char2mag15 AS STRING * 1
  DIM char3mag1 AS STRING * 1, char3mag3 AS STRING * 1, char3mag5 AS STRING * 1
  DIM char3mag7 AS STRING * 1, char3mag9 AS STRING * 1, char3mag11 AS STRING * 1
  DIM char3mag13 AS STRING * 1, char3mag15 AS STRING * 1
  DIM char4mag1 AS STRING * 1, char4mag3 AS STRING * 1, char4mag5 AS STRING * 1
  DIM char4mag7 AS STRING * 1, char4mag9 AS STRING * 1, char4mag11 AS STRING * 1
  DIM char4mag13 AS STRING * 1, char4mag15 AS STRING * 1
  DIM char1hp1 AS STRING * 1, char1hp2 AS STRING * 1, char2hp1 AS STRING * 1
  DIM char2hp2 AS STRING * 1, char3hp1 AS STRING * 1, char3hp2 AS STRING * 1
  DIM char4hp1 AS STRING * 1, char4hp2 AS STRING * 1

  CLS
  PRINT "Welcome to the Final Fantasy 3j savestate editor. "
  PRINT
  PRINT "By SquareHead => SquareHead01@aol.com"
  PRINT "                 ICQ# 53321342      "
  PRINT
  PRINT "NOTE: Make sure you back up your savestate before"
  PRINT
  PRINT "using this utility. I am not responsible for any "
  PRINT
  PRINT "damage caused by the loss of your information or"
  PRINT
  PRINT "time. Please send bug reports to the above address. "
  PRINT
  PRINT "Enjoy."
  PRINT
  PRINT "Revision Beta 5"
  PRINT
  PRINT "Press any key to continue"
  file = 0
  GOTO keyprompt

keyprompt:
  prompt$ = INKEY$: IF prompt$ = "" THEN GOTO keyprompt
  GOTO mainmenu

mainmenu:
  CLS
  PRINT
  PRINT TAB(15); "(1) Load Savestate"
  PRINT
  PRINT TAB(15); "(2) Edit savestate"
  PRINT
  PRINT TAB(15); "(3) Save Changes"
  PRINT
  PRINT TAB(15); "(4) Quit"
  PRINT
  PRINT TAB(15); "======================="
  PRINT
  PRINT TAB(15); "Input menu choice :";
  INPUT choice
  IF choice = 1 AND file = 0 THEN GOTO fileselect
  IF choice = 2 AND file = 1 THEN GOTO fileedit
  IF choice = 3 AND file = 1 THEN GOTO filesave
  IF choice = 1 AND file = 1 THEN GOTO filereplace
  IF choice = 2 AND file = 0 THEN GOTO nofile
  IF choice = 3 AND file = 0 THEN GOTO nofile
  IF choice = 4 THEN END
  GOTO mainmenu

fileselect:
CLS
  PRINT "Please type the directory and filename of your savestate."
  PRINT "ex. C:\nes\saves\ff3j.sta"
  PRINT

fileinput:
  INPUT file$
  IF file$ = "" THEN GOTO fileinput
  GOTO fileload

nofile:
  CLS
  PRINT "Error:: No file loaded."
  PRINT "Press any key to go to main menu"

key2:
  prompt$ = INKEY$: IF prompt$ = "" THEN GOTO key2
  GOTO mainmenu

filereplace:
  CLS
  PRINT "You already have a file loaded, do you want to close"
  PRINT
  PRINT "this file and load another? (Y|N)"
  PRINT

key3:
  prompt$ = INKEY$
  IF prompt$ = "" THEN GOTO key3
  IF prompt$ = "y" THEN GOTO yesfile
  IF prompt$ = "n" THEN GOTO noofile
  GOTO key3

yesfile:
  PRINT "File cleared press any key to continue"
  GOTO key4

key4:
  prompt$ = INKEY$
  IF prompt$ = "" THEN GOTO key4
  GOTO mainmenu

noofile:
  PRINT "File still in memory press any key to continue."
  GOTO key5

key5:
  prompt$ = INKEY$
  IF prompt$ = "" THEN GOTO key5
  GOTO mainmenu
 
fileload:
  CLS
  OPEN file$ FOR BINARY AS #1
  GET #1, &H1C, capacity
  GET #1, &H1F, gil3
  GET #1, &H1E, gil2
  GET #1, &H1D, gil1
  GET #1, &HC1, item11
  GET #1, &HE1, item12
  GET #1, &HC2, item21
  GET #1, &HE2, item22
  GET #1, &HC3, item31
  GET #1, &HE3, item32
  GET #1, &HC4, item41
  GET #1, &HE4, item42
  GET #1, &HC5, item51
  GET #1, &HE5, item52
  GET #1, &HC6, item61
  GET #1, &HE6, item62
  GET #1, &HC7, item71
  GET #1, &HE7, item72
  GET #1, &HC8, item81
  GET #1, &HE8, item82
  GET #1, &HC9, item91
  GET #1, &HE9, item92
  GET #1, &HCA, item101
  GET #1, &HEA, item102
  GET #1, &HCB, item111
  GET #1, &HEB, item112
  GET #1, &HCC, item121
  GET #1, &HEC, item122
  GET #1, &HCD, item131
  GET #1, &HED, item132
  GET #1, &HCE, item141
  GET #1, &HEE, item142
  GET #1, &HCF, item151
  GET #1, &HEF, item152
  GET #1, &HD0, item161
  GET #1, &HF0, item162
  GET #1, &HD1, item171
  GET #1, &HF1, item172
  GET #1, &HD2, item181
  GET #1, &HF2, item182
  GET #1, &HD3, item191
  GET #1, &HF3, item192
  GET #1, &HD4, item201
  GET #1, &HF4, item201
  GET #1, &HD5, item211
  GET #1, &HF5, item212
  GET #1, &HD6, item221
  GET #1, &HF6, item222
  GET #1, &HD7, item231
  GET #1, &HF7, item232
  GET #1, &HD8, item241
  GET #1, &HF8, item242
  GET #1, &HD9, item251
  GET #1, &HF9, item252
  GET #1, &HDA, item261
  GET #1, &HFA, item262
  GET #1, &HDB, item271
  GET #1, &HFB, item272
  GET #1, &HDC, item281
  GET #1, &HFC, item282
  GET #1, &HDD, item291
  GET #1, &HFD, item292
  GET #1, &HDE, item301
  GET #1, &HFE, item302
  GET #1, &HDF, item311
  GET #1, &HFF, item312
  GET #1, &HF0, item321
  GET #1, &H100, item322
  GET #1, &H101, char1job
  GET #1, &H141, char2job
  GET #1, &H181, char3job
  GET #1, &H1C1, char4job
  GET #1, &H102, char1level
  GET #1, &H142, char2level
  GET #1, &H182, char3level
  GET #1, &H1C2, char4level
  GET #1, &H103, char1status
  GET #1, &H143, char2status
  GET #1, &H183, char3status
  GET #1, &H1C3, char4status
  GET #1, &H104, char1xp1
  GET #1, &H105, char1xp2
  GET #1, &H106, char1xp3
  GET #1, &H144, char2xp1
  GET #1, &H145, char2xp2
  GET #1, &H146, char2xp3
  GET #1, &H184, char3xp1
  GET #1, &H185, char3xp2
  GET #1, &H186, char3xp3
  GET #1, &H1D4, char4xp1
  GET #1, &H1C5, char4xp2
  GET #1, &H1C6, char4xp3
  GET #1, &H10D, char1hp1
  GET #1, &H10E, char1hp2
  GET #1, &H10F, char1hp3
  GET #1, &H110, char1hp4
  GET #1, &H14D, char2hp1
  GET #1, &H14E, char2hp2
  GET #1, &H14F, char2hp3
  GET #1, &H150, char2hp4
  GET #1, &H18D, char3hp1
  GET #1, &H18E, char3hp2
  GET #1, &H18F, char3hp3
  GET #1, &H190, char3hp4
  GET #1, &H1CD, char4hp1
  GET #1, &H1CE, char4hp2
  GET #1, &H1CF, char4hp3
  GET #1, &H1D0, char4hp4
  GET #1, &H111, char1skill
  GET #1, &H151, char2skill
  GET #1, &H191, char3skill
  GET #1, &H1D1, char4skill
  GET #1, &H113, char1str
  GET #1, &H153, char2str
  GET #1, &H193, char3str
  GET #1, &H1D3, char4str
  GET #1, &H114, char1agi
  GET #1, &H154, char2agi
  GET #1, &H194, char3agi
  GET #1, &H1D4, char4agi
  GET #1, &H115, char1vit
  GET #1, &H155, char2vit
  GET #1, &H195, char3vit
  GET #1, &H1D5, char4vit
  GET #1, &H116, char1int
  GET #1, &H156, char2int
  GET #1, &H196, char3int
  GET #1, &H1D6, char4int
  GET #1, &H117, char1spi
  GET #1, &H157, char2spi
  GET #1, &H197, char3spi
  GET #1, &H1D7, char4spi
  GET #1, &H131, char1mag1
  GET #1, &H132, char1mag2
  GET #1, &H133, char1mag3
  GET #1, &H134, char1mag4
  GET #1, &H135, char1mag5
  GET #1, &H136, char1mag6
  GET #1, &H137, char1mag7
  GET #1, &H138, char1mag8
  GET #1, &H139, char1mag9
  GET #1, &H13A, char1mag10
  GET #1, &H13B, char1mag11
  GET #1, &H13C, char1mag12
  GET #1, &H13D, char1mag13
  GET #1, &H13E, char1mag14
  GET #1, &H13F, char1mag15
  GET #1, &H140, char1mag16
  GET #1, &H171, char2mag1
  GET #1, &H172, char2mag2
  GET #1, &H173, char2mag3
  GET #1, &H174, char2mag4
  GET #1, &H175, char2mag5
  GET #1, &H176, char2mag6
  GET #1, &H177, char2mag7
  GET #1, &H178, char2mag8
  GET #1, &H179, char2mag9
  GET #1, &H17A, char2mag10
  GET #1, &H17B, char2mag11
  GET #1, &H17C, char2mag12
  GET #1, &H17D, char2mag13
  GET #1, &H17E, char2mag14
  GET #1, &H17F, char2mag15
  GET #1, &H180, char2mag16
  GET #1, &H1B1, char3mag1
  GET #1, &H1B2, char3mag2
  GET #1, &H1B3, char3mag3
  GET #1, &H1B4, char3mag4
  GET #1, &H1B5, char3mag5
  GET #1, &H1B6, char3mag6
  GET #1, &H1B7, char3mag7
  GET #1, &H1B8, char3mag8
  GET #1, &H1B9, char3mag9
  GET #1, &H1BA, char3mag10
  GET #1, &H1BB, char3mag11
  GET #1, &H1BC, char3mag12
  GET #1, &H1BD, char3mag13
  GET #1, &H1BE, char3mag14
  GET #1, &H1BF, char3mag15
  GET #1, &H1C0, char3mag16
  GET #1, &H1F1, char4mag1
  GET #1, &H1F2, char4mag2
  GET #1, &H1F3, char4mag3
  GET #1, &H1F4, char4mag4
  GET #1, &H1F5, char4mag5
  GET #1, &H1F6, char4mag6
  GET #1, &H1F7, char4mag7
  GET #1, &H1F8, char4mag8
  GET #1, &H1F9, char4mag9
  GET #1, &H1FA, char4mag10
  GET #1, &H1FB, char4mag11
  GET #1, &H1FC, char4mag12
  GET #1, &H1FD, char4mag13
  GET #1, &H1FE, char4mag14
  GET #1, &H1FF, char4mag15
  GET #1, &H200, char4mag16
  GET #1, &H201, char1head
  GET #1, &H202, char1body
  GET #1, &H203, char1hands
  GET #1, &H204, char1rgthand
  GET #1, &H205, char1rgthand2
  GET #1, &H206, char1lfthand
  GET #1, &H207, char1lfthand2
  GET #1, &H208, char1maglev1
  GET #1, &H209, char1maglev2
  GET #1, &H20A, char1maglev3
  GET #1, &H20B, char1maglev4
  GET #1, &H20C, char1maglev5
  GET #1, &H20D, char1maglev6
  GET #1, &H20E, char1maglev7
  GET #1, &H20F, char1maglev8
  GET #1, &H210, char1row
  GET #1, &H241, char2head
  GET #1, &H242, char2body
  GET #1, &H243, char2hands
  GET #1, &H244, char2rgthand
  GET #1, &H245, char2rgthand2
  GET #1, &H246, char2lfthand
  GET #1, &H247, char2lfthand2
  GET #1, &H248, char2maglev1
  GET #1, &H249, char2maglev2
  GET #1, &H24A, char2maglev3
  GET #1, &H24B, char2maglev4
  GET #1, &H24C, char2maglev5
  GET #1, &H24D, char2maglev6
  GET #1, &H24E, char2maglev7
  GET #1, &H24F, char2maglev8
  GET #1, &H250, char2row
  GET #1, &H281, char3head
  GET #1, &H282, char3body
  GET #1, &H283, char3hands
  GET #1, &H284, char3rgthand
  GET #1, &H285, char3rgthand2
  GET #1, &H286, char3lfthand
  GET #1, &H287, char3lfthand2
  GET #1, &H288, char3maglev1
  GET #1, &H289, char3maglev2
  GET #1, &H28A, char3maglev3
  GET #1, &H28B, char3maglev4
  GET #1, &H28C, char3maglev5
  GET #1, &H28D, char3maglev6
  GET #1, &H28E, char3maglev7
  GET #1, &H28F, char3maglev8
  GET #1, &H290, char3row
  GET #1, &H2C1, char41head
  GET #1, &H2C2, char4body
  GET #1, &H2C3, char4hands
  GET #1, &H2C4, char4rgthand
  GET #1, &H2C5, char4rgthand2
  GET #1, &H2C6, char4lfthand
  GET #1, &H2C7, char4lfthand2
  GET #1, &H2C8, char4maglev1
  GET #1, &H2C9, char4maglev2
  GET #1, &H2CA, char4maglev3
  GET #1, &H2CB, char4maglev4
  GET #1, &H2CC, char4maglev5
  GET #1, &H2CD, char4maglev6
  GET #1, &H2CE, char4maglev7
  GET #1, &H2CF, char4maglev8
  GET #1, &H2D0, char4row
  CLOSE #1
  file = 1
  PRINT "File loaded. "
  PRINT "Press any key to continue"
  GOTO key6

key6:
  prompt$ = INKEY$
  IF prompt$ = "" THEN GOTO key6
  GOTO mainmenu

fileedit:
  CLS
  PRINT "Do you want to edit "
  PRINT "(1) Party Stats"
  PRINT "(2) Inventory"
  PRINT "(3) Characters"
  PRINT "(4) Back to main menu"
  INPUT "Which "; choice
  IF choice = 1 THEN GOTO partystuff
  IF choice = 2 THEN GOTO inventory
  IF choice = 3 THEN GOTO chared
  IF choice = 4 THEN GOTO mainmenu
  GOTO fileedit

partystuff:
  CLS
  PRINT "Do you want to edit"
  PRINT "(1) Capacity"
  PRINT "(2) Gil"
  PRINT "(3) Back"
  INPUT "Choice?"; choice
  IF choice = 1 THEN GOTO capacity
  IF choice = 2 THEN GOTO gil
  IF choice = 3 THEN GOTO fileedit
GOTO partystuff

capacity:
  CLS
  PRINT "You have "; ASC(capacity); " Capacity"
  INPUT "New value for capacity MAX=255 "; temp
  IF temp > 255 THEN GOTO capacity
  IF temp < 0 THEN GOTO capacity
  IF INT(temp) <> temp THEN GOTO capacity
  temp$ = HEX$(temp)
  capacity = CHR$(VAL("&H" + temp$))
  PRINT "Your new value of Capacity is "; capacity
  GOTO key7

key7:
PRINT "Press Any key to continue"
key8:
  prompt$ = INKEY$
  IF prompt$ = "" THEN GOTO key8
  GOTO partystuff

gil:
INPUT "New gill max=9999999 "; gil
gil$ = HEX$(gil)
newgil$ = MID$(gil$, 1, 2)
newgil2$ = MID$(gil$, 3, 2)
newgil3$ = MID$(gil$, 5, 2)
IF newgil$ = "" THEN newgil$ = "00"
IF newgil2$ = "" THEN newgil2$ = "00"
IF newgil3$ = "" THEN newgil3$ = "00"
gil1 = CHR$(VAL("&H" + newgil3$))
gil2 = CHR$(VAL("&H" + newgil2$))
gil3 = CHR$(VAL("&H" + newgil$))
GOTO key7

filesave:
    CLS
  OPEN file$ FOR BINARY AS #1
  PUT #1, &H1C, capacity
  PUT #1, &H1F, gil3
  PUT #1, &H1E, gil2
  PUT #1, &H1D, gil1
  PUT #1, &HC1, item11
  PUT #1, &HE1, item12
  PUT #1, &HC2, item21
  PUT #1, &HE2, item22
  PUT #1, &HC3, item31
  PUT #1, &HE3, item32
  PUT #1, &HC4, item41
  PUT #1, &HE4, item42
  PUT #1, &HC5, item51
  PUT #1, &HE5, item52
  PUT #1, &HC6, item61
  PUT #1, &HE6, item62
  PUT #1, &HC7, item71
  PUT #1, &HE7, item72
  PUT #1, &HC8, item81
  PUT #1, &HE8, item82
  PUT #1, &HC9, item91
  PUT #1, &HE9, item92
  PUT #1, &HCA, item101
  PUT #1, &HEA, item102
  PUT #1, &HCB, item111
  PUT #1, &HEB, item112
  PUT #1, &HCC, item121
  PUT #1, &HEC, item122
  PUT #1, &HCD, item131
  PUT #1, &HED, item132
  PUT #1, &HCE, item141
  PUT #1, &HEE, item142
  PUT #1, &HCF, item151
  PUT #1, &HEF, item152
  PUT #1, &HD0, item161
  PUT #1, &HF0, item162
  PUT #1, &HD1, item171
  PUT #1, &HF1, item172
  PUT #1, &HD2, item181
  PUT #1, &HF2, item182
  PUT #1, &HD3, item191
  PUT #1, &HF3, item192
  PUT #1, &HD4, item201
  PUT #1, &HF4, item201
  PUT #1, &HD5, item211
  PUT #1, &HF5, item212
  PUT #1, &HD6, item221
  PUT #1, &HF6, item222
  PUT #1, &HD7, item231
  PUT #1, &HF7, item232
  PUT #1, &HD8, item241
  PUT #1, &HF8, item242
  PUT #1, &HD9, item251
  PUT #1, &HF9, item252
  PUT #1, &HDA, item261
  PUT #1, &HFA, item262
  PUT #1, &HDB, item271
  PUT #1, &HFB, item272
  PUT #1, &HDC, item281
  PUT #1, &HFC, item282
  PUT #1, &HDD, item291
  PUT #1, &HFD, item292
  PUT #1, &HDE, item301
  PUT #1, &HFE, item302
  PUT #1, &HDF, item311
  PUT #1, &HFF, item312
  PUT #1, &HF0, item321
  PUT #1, &H100, item322
  PUT #1, &H101, char1job
  PUT #1, &H141, char2job
  PUT #1, &H181, char3job
  PUT #1, &H1C1, char4job
  PUT #1, &H102, char1level
  PUT #1, &H142, char2level
  PUT #1, &H182, char3level
  PUT #1, &H1C2, char4level
  PUT #1, &H103, char1status
  PUT #1, &H143, char2status
  PUT #1, &H183, char3status
  PUT #1, &H1C3, char4status
  PUT #1, &H104, char1xp1
  PUT #1, &H105, char1xp2
  PUT #1, &H106, char1xp3
  PUT #1, &H144, char2xp1
  PUT #1, &H145, char2xp2
  PUT #1, &H146, char2xp3
  PUT #1, &H184, char3xp1
  PUT #1, &H185, char3xp2
  PUT #1, &H186, char3xp3
  PUT #1, &H1C4, char4xp1
  PUT #1, &H1C5, char4xp2
  PUT #1, &H1C6, char4xp3
  PUT #1, &H10D, char1hp1
  PUT #1, &H10E, char1hp2
  PUT #1, &H10F, char1hp3
  PUT #1, &H110, char1hp4
  PUT #1, &H14D, char2hp1
  PUT #1, &H14E, char2hp2
  PUT #1, &H14F, char2hp3
  PUT #1, &H150, char2hp4
  PUT #1, &H18D, char3hp1
  PUT #1, &H18E, char3hp2
  PUT #1, &H18F, char3hp3
  PUT #1, &H190, char3hp4
  PUT #1, &H1CD, char4hp1
  PUT #1, &H1CE, char4hp2
  PUT #1, &H1CF, char4hp3
  PUT #1, &H1D0, char4hp4
  PUT #1, &H111, char1skill
  PUT #1, &H151, char2skill
  PUT #1, &H191, char3skill
  PUT #1, &H1D1, char4skill
  PUT #1, &H113, char1str
  PUT #1, &H153, char2str
  PUT #1, &H193, char3str
  PUT #1, &H1D3, char4str
  PUT #1, &H114, char1agi
  PUT #1, &H154, char2agi
  PUT #1, &H194, char3agi
  PUT #1, &H1D4, char4agi
  PUT #1, &H115, char1vit
  PUT #1, &H155, char2vit
  PUT #1, &H195, char3vit
  PUT #1, &H1D5, char4vit
  PUT #1, &H116, char1int
  PUT #1, &H156, char2int
  PUT #1, &H196, char3int
  PUT #1, &H1D6, char4int
  PUT #1, &H117, char1spi
  PUT #1, &H157, char2spi
  PUT #1, &H197, char3spi
  PUT #1, &H1D7, char4spi
  PUT #1, &H131, char1mag1
  PUT #1, &H132, char1mag2
  PUT #1, &H133, char1mag3
  PUT #1, &H134, char1mag4
  PUT #1, &H135, char1mag5
  PUT #1, &H136, char1mag6
  PUT #1, &H137, char1mag7
  PUT #1, &H138, char1mag8
  PUT #1, &H139, char1mag9
  PUT #1, &H13A, char1mag10
  PUT #1, &H13B, char1mag11
  PUT #1, &H13C, char1mag12
  PUT #1, &H13D, char1mag13
  PUT #1, &H13E, char1mag14
  PUT #1, &H13F, char1mag15
  PUT #1, &H140, char1mag16
  PUT #1, &H171, char2mag1
  PUT #1, &H172, char2mag2
  PUT #1, &H173, char2mag3
  PUT #1, &H174, char2mag4
  PUT #1, &H175, char2mag5
  PUT #1, &H176, char2mag6
  PUT #1, &H177, char2mag7
  PUT #1, &H178, char2mag8
  PUT #1, &H179, char2mag9
  PUT #1, &H17A, char2mag10
  PUT #1, &H17B, char2mag11
  PUT #1, &H17C, char2mag12
  PUT #1, &H17D, char2mag13
  PUT #1, &H17E, char2mag14
  PUT #1, &H17F, char2mag15
  PUT #1, &H180, char2mag16
  PUT #1, &H1B1, char3mag1
  PUT #1, &H1B2, char3mag2
  PUT #1, &H1B3, char3mag3
  PUT #1, &H1B4, char3mag4
  PUT #1, &H1B5, char3mag5
  PUT #1, &H1B6, char3mag6
  PUT #1, &H1B7, char3mag7
  PUT #1, &H1B8, char3mag8
  PUT #1, &H1B9, char3mag9
  PUT #1, &H1BA, char3mag10
  PUT #1, &H1BB, char3mag11
  PUT #1, &H1BC, char3mag12
  PUT #1, &H1BD, char3mag13
  PUT #1, &H1BE, char3mag14
  PUT #1, &H1BF, char3mag15
  PUT #1, &H1C0, char3mag16
  PUT #1, &H1F1, char4mag1
  PUT #1, &H1F2, char4mag2
  PUT #1, &H1F3, char4mag3
  PUT #1, &H1F4, char4mag4
  PUT #1, &H1F5, char4mag5
  PUT #1, &H1F6, char4mag6
  PUT #1, &H1F7, char4mag7
  PUT #1, &H1F8, char4mag8
  PUT #1, &H1F9, char4mag9
  PUT #1, &H1FA, char4mag10
  PUT #1, &H1FB, char4mag11
  PUT #1, &H1FC, char4mag12
  PUT #1, &H1FD, char4mag13
  PUT #1, &H1FE, char4mag14
  PUT #1, &H1FF, char4mag15
  PUT #1, &H200, char4mag16
  PUT #1, &H201, char1head
  PUT #1, &H202, char1body
  PUT #1, &H203, char1hands
  PUT #1, &H204, char1rgthand
  PUT #1, &H205, char1rgthand2
  PUT #1, &H206, char1lfthand
  PUT #1, &H207, char1lfthand2
  PUT #1, &H208, char1maglev1
  PUT #1, &H209, char1maglev2
  PUT #1, &H20A, char1maglev3
  PUT #1, &H20B, char1maglev4
  PUT #1, &H20C, char1maglev5
  PUT #1, &H20D, char1maglev6
  PUT #1, &H20E, char1maglev7
  PUT #1, &H20F, char1maglev8
  PUT #1, &H210, char1row
  PUT #1, &H241, char2head
  PUT #1, &H242, char2body
  PUT #1, &H243, char2hands
  PUT #1, &H244, char2rgthand
  PUT #1, &H245, char2rgthand2
  PUT #1, &H246, char2lfthand
  PUT #1, &H247, char2lfthand2
  PUT #1, &H248, char2maglev1
  PUT #1, &H249, char2maglev2
  PUT #1, &H24A, char2maglev3
  PUT #1, &H24B, char2maglev4
  PUT #1, &H24C, char2maglev5
  PUT #1, &H24D, char2maglev6
  PUT #1, &H24E, char2maglev7
  PUT #1, &H24F, char2maglev8
  PUT #1, &H250, char2row
  PUT #1, &H281, char3head
  PUT #1, &H282, char3body
  PUT #1, &H283, char3hands
  PUT #1, &H284, char3rgthand
  PUT #1, &H285, char3rgthand2
  PUT #1, &H286, char3lfthand
  PUT #1, &H287, char3lfthand2
  PUT #1, &H288, char3maglev1
  PUT #1, &H289, char3maglev2
  PUT #1, &H28A, char3maglev3
  PUT #1, &H28B, char3maglev4
  PUT #1, &H28C, char3maglev5
  PUT #1, &H28D, char3maglev6
  PUT #1, &H28E, char3maglev7
  PUT #1, &H28F, char3maglev8
  PUT #1, &H290, char3row
  PUT #1, &H2C1, char41head
  PUT #1, &H2C2, char4body
  PUT #1, &H2C3, char4hands
  PUT #1, &H2C4, char4rgthand
  PUT #1, &H2C5, char4rgthand2
  PUT #1, &H2C6, char4lfthand
  PUT #1, &H2C7, char4lfthand2
  PUT #1, &H2C8, char4maglev1
  PUT #1, &H2C9, char4maglev2
  PUT #1, &H2CA, char4maglev3
  PUT #1, &H2CB, char4maglev4
  PUT #1, &H2CC, char4maglev5
  PUT #1, &H2CD, char4maglev6
  PUT #1, &H2CE, char4maglev7
  PUT #1, &H2CF, char4maglev8
  PUT #1, &H2D0, char4row
  CLOSE #1
  PRINT "File saved. "
  PRINT "Press any key to continue"
  GOTO keyprompt

inventory:
CLS
INPUT "Item slot number (0 to exit) (1-52) "; slot
IF slot = 0 THEN GOTO fileedit
INPUT "Item number (refer to lists) "; item
INPUT "Quantity 99=max "; quantity
item$ = HEX$(item)
quan$ = HEX$(quantity)
IF slot = 1 THEN item11 = CHR$(VAL("&H" + item$))
IF slot = 1 THEN item12 = CHR$(VAL("&H" + quan$))
IF slot = 2 THEN item21 = CHR$(VAL("&H" + item$))
IF slot = 2 THEN item22 = CHR$(VAL("&H" + quan$))
IF slot = 3 THEN item31 = CHR$(VAL("&H" + item$))
IF slot = 3 THEN item32 = CHR$(VAL("&H" + quan$))
IF slot = 4 THEN item41 = CHR$(VAL("&H" + item$))
IF slot = 4 THEN item42 = CHR$(VAL("&H" + quan$))
IF slot = 5 THEN item51 = CHR$(VAL("&H" + item$))
IF slot = 5 THEN item52 = CHR$(VAL("&H" + quan$))
IF slot = 6 THEN item61 = CHR$(VAL("&H" + item$))
IF slot = 6 THEN item62 = CHR$(VAL("&H" + quan$))
IF slot = 7 THEN item71 = CHR$(VAL("&H" + item$))
IF slot = 7 THEN item72 = CHR$(VAL("&H" + quan$))
IF slot = 8 THEN item81 = CHR$(VAL("&H" + item$))
IF slot = 8 THEN item82 = CHR$(VAL("&H" + quan$))
IF slot = 9 THEN item91 = CHR$(VAL("&H" + item$))
IF slot = 9 THEN item92 = CHR$(VAL("&H" + quan$))
IF slot = 10 THEN item101 = CHR$(VAL("&H" + item$))
IF slot = 10 THEN item102 = CHR$(VAL("&H" + quan$))
IF slot = 11 THEN item111 = CHR$(VAL("&H" + item$))
IF slot = 11 THEN item112 = CHR$(VAL("&H" + quan$))
IF slot = 12 THEN item121 = CHR$(VAL("&H" + item$))
IF slot = 12 THEN item122 = CHR$(VAL("&H" + quan$))
IF slot = 13 THEN item131 = CHR$(VAL("&H" + item$))
IF slot = 13 THEN item132 = CHR$(VAL("&H" + quan$))
IF slot = 14 THEN item141 = CHR$(VAL("&H" + item$))
IF slot = 14 THEN item142 = CHR$(VAL("&H" + quan$))
IF slot = 15 THEN item151 = CHR$(VAL("&H" + item$))
IF slot = 15 THEN item152 = CHR$(VAL("&H" + quan$))
IF slot = 16 THEN item161 = CHR$(VAL("&H" + item$))
IF slot = 16 THEN item162 = CHR$(VAL("&H" + quan$))
IF slot = 17 THEN item171 = CHR$(VAL("&H" + item$))
IF slot = 17 THEN item172 = CHR$(VAL("&H" + quan$))
IF slot = 18 THEN item181 = CHR$(VAL("&H" + item$))
IF slot = 18 THEN item182 = CHR$(VAL("&H" + quan$))
IF slot = 19 THEN item191 = CHR$(VAL("&H" + item$))
IF slot = 19 THEN item192 = CHR$(VAL("&H" + quan$))
IF slot = 20 THEN item201 = CHR$(VAL("&H" + item$))
IF slot = 20 THEN item202 = CHR$(VAL("&H" + quan$))
IF slot = 21 THEN item211 = CHR$(VAL("&H" + item$))
IF slot = 21 THEN item212 = CHR$(VAL("&H" + quan$))
IF slot = 22 THEN item221 = CHR$(VAL("&H" + item$))
IF slot = 22 THEN item222 = CHR$(VAL("&H" + quan$))
IF slot = 23 THEN item231 = CHR$(VAL("&H" + item$))
IF slot = 23 THEN item232 = CHR$(VAL("&H" + quan$))
IF slot = 24 THEN item241 = CHR$(VAL("&H" + item$))
IF slot = 24 THEN item242 = CHR$(VAL("&H" + quan$))
IF slot = 25 THEN item251 = CHR$(VAL("&H" + item$))
IF slot = 25 THEN item252 = CHR$(VAL("&H" + quan$))
IF slot = 26 THEN item261 = CHR$(VAL("&H" + item$))
IF slot = 26 THEN item262 = CHR$(VAL("&H" + quan$))
IF slot = 27 THEN item271 = CHR$(VAL("&H" + item$))
IF slot = 27 THEN item272 = CHR$(VAL("&H" + quan$))
IF slot = 28 THEN item281 = CHR$(VAL("&H" + item$))
IF slot = 28 THEN item282 = CHR$(VAL("&H" + quan$))
IF slot = 29 THEN item291 = CHR$(VAL("&H" + item$))
IF slot = 29 THEN item292 = CHR$(VAL("&H" + quan$))
IF slot = 30 THEN item301 = CHR$(VAL("&H" + item$))
IF slot = 30 THEN item302 = CHR$(VAL("&H" + quan$))
IF slot = 31 THEN item311 = CHR$(VAL("&H" + item$))
IF slot = 31 THEN item312 = CHR$(VAL("&H" + quan$))
IF slot = 32 THEN item321 = CHR$(VAL("&H" + item$))
IF slot = 32 THEN item322 = CHR$(VAL("&H" + quan$))
IF slot = 33 THEN char1head = CHR$(VAL("&H" + item$))
IF slot = 34 THEN char1body = CHR$(VAL("&H" + item$))
IF slot = 35 THEN char1hand = CHR$(VAL("&H" + item$))
IF slot = 36 THEN char1lfthand = CHR$(VAL("&H" + item$))
IF slot = 36 THEN char1lfthand2 = CHR$(VAL("&H" + "01"))
IF slot = 37 THEN char1rgthand = CHR$(VAL("&H" + item$))
IF slot = 37 THEN char1rgthand2 = CHR$(VAL("&H" + "01"))
IF slot = 38 THEN char2head = CHR$(VAL("&H" + item$))
IF slot = 39 THEN char2body = CHR$(VAL("&H" + item$))
IF slot = 40 THEN char2hand = CHR$(VAL("&H" + item$))
IF slot = 41 THEN char2lfthand = CHR$(VAL("&H" + item$))
IF slot = 41 THEN char2lfthand2 = CHR$(VAL("&H" + "01"))
IF slot = 42 THEN char2rgthand = CHR$(VAL("&H" + item$))
IF slot = 42 THEN char2rgthand2 = CHR$(VAL("&H" + "01"))
IF slot = 43 THEN char3head = CHR$(VAL("&H" + item$))
IF slot = 44 THEN char3body = CHR$(VAL("&H" + item$))
IF slot = 45 THEN char3hand = CHR$(VAL("&H" + item$))
IF slot = 46 THEN char3lfthand = CHR$(VAL("&H" + item$))
IF slot = 46 THEN char3lfthand2 = CHR$(VAL("&H" + "01"))
IF slot = 47 THEN char3rgthand = CHR$(VAL("&H" + item$))
IF slot = 47 THEN char3rgthand2 = CHR$(VAL("&H" + "01"))
IF slot = 48 THEN char4head = CHR$(VAL("&H" + item$))
IF slot = 49 THEN char4body = CHR$(VAL("&H" + item$))
IF slot = 50 THEN char4hand = CHR$(VAL("&H" + item$))
IF slot = 51 THEN char4lfthand = CHR$(VAL("&H" + item$))
IF slot = 51 THEN char4lfthand2 = CHR$(VAL("&H" + "01"))
IF slot = 52 THEN char4rgthand = CHR$(VAL("&H" + item$))
IF slot = 52 THEN char4rgthand2 = CHR$(VAL("&H" + "01"))
GOTO inventory

chared:
CLS
INPUT "Which character would you like to edit ? (1-4) 0=quit "; char
chartmp = char
IF char = 0 THEN GOTO fileedit
IF char = 1 THEN GOTO charedit
IF char = 2 THEN GOTO charedit
IF char = 3 THEN GOTO charedit
IF char = 4 THEN GOTO charedit
GOTO chared

charedit:
CLS
PRINT "Which would you like to edit? "
PRINT "(1) Experience"
PRINT "(2) Max HP"
PRINT "(3) Max MP"
PRINT "(4) Edit base stats "
PRINT "(5) Job / skill"
PRINT "(6) Back to previous menu"; ""
INPUT "Menu Choice"; choice
IF INT(choice) <> choice THEN GOTO charedit
IF choice > 6 THEN GOTO charedit
IF choice < 1 THEN GOTO charedit
IF choice = 1 THEN GOTO charexp
IF choice = 2 THEN GOTO charhp
IF choice = 3 THEN GOTO charmp
IF choice = 4 THEN GOTO charstats
IF choice = 5 THEN GOTO charjob
IF choice = 6 THEN GOTO chared
GOTO charedit

charexp:
CLS
INPUT "New exp max=9999999 "; exper
exper$ = HEX$(exper)
newexp$ = MID$(exper$, 1, 2)
newexp2$ = MID$(exper$, 3, 2)
newexp3$ = MID$(exper$, 5, 2)
IF newxp$ = "" THEN newxp$ = "00"
IF newxp2$ = "" THEN newxp2$ = "00"
IF newxp3$ = "" THEN newxp3$ = "00"
IF chartmp = 1 THEN char1xp1 = CHR$(VAL("&H" + newexp3$))
IF chartmp = 1 THEN char1xp2 = CHR$(VAL("&H" + newexp2$))
IF chartmp = 1 THEN char1xp3 = CHR$(VAL("&H" + newexp$))
IF chartmp = 2 THEN char2xp1 = CHR$(VAL("&H" + newexp3$))
IF chartmp = 2 THEN char2xp2 = CHR$(VAL("&H" + newexp2$))
IF chartmp = 2 THEN char2xp3 = CHR$(VAL("&H" + newexp$))
IF chartmp = 3 THEN char3xp1 = CHR$(VAL("&H" + newexp3$))
IF chartmp = 3 THEN char3xp2 = CHR$(VAL("&H" + newexp2$))
IF chartmp = 3 THEN char3xp3 = CHR$(VAL("&H" + newexp$))
IF chartmp = 4 THEN char4xp1 = CHR$(VAL("&H" + newexp3$))
IF chartmp = 4 THEN char4xp2 = CHR$(VAL("&H" + newexp2$))
IF chartmp = 4 THEN char4xp3 = CHR$(VAL("&H" + newexp$))
GOTO keyz


keyz:
PRINT "Change succuessfull press any key to continue"
keyx:
prompt$ = INKEY$
IF prompt$ = "" THEN GOTO keyx
GOTO charedit

charhp:
PRINT "Enter a new value for max HP (MAX=9999)"
INPUT charhp
IF charhp > 9999 THEN GOTO charhp
IF charhp < 0 THEN GOTO charhp
IF INT(charhp) <> charhp THEN GOTO charhp
charhp$ = HEX$(charhp)
hptemp2$ = MID$(charhp$, 1, 2)
hptemp3$ = MID$(charhp$, 3, 2)
IF chartmp = 1 THEN char1hp4 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 1 THEN char1hp3 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 2 THEN char2hp4 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 2 THEN char2hp3 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 3 THEN char3hp4 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 3 THEN char3hp3 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 4 THEN char4hp4 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 4 THEN char4hp3 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 1 THEN char1hp2 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 1 THEN char1hp1 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 2 THEN char2hp2 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 2 THEN char2hp1 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 3 THEN char3hp2 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 3 THEN char3hp1 = CHR$(VAL("&H" + hptemp3$))
IF chartmp = 4 THEN char4hp2 = CHR$(VAL("&H" + hptemp2$))
IF chartmp = 4 THEN char4hp1 = CHR$(VAL("&H" + hptemp3$))
GOTO keyz

charmp:
PRINT "Enter a new value for max MP for levs 1-8 (MAX=99)"
INPUT charmp
IF charmp > 99 THEN GOTO charmp
IF charmp < 0 THEN GOTO charmp
IF INT(charhp) <> charhp THEN GOTO charmp
charmp$ = HEX$(charmp)
IF chartmp = 1 THEN char1mag2 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag4 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag6 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag8 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag10 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag12 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag14 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag16 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag2 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag4 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag6 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag8 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag10 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag12 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag14 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag16 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag2 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag4 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag6 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag8 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag10 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag12 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag14 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag16 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag2 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag4 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag6 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag8 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag10 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag12 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag14 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag16 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag1 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag3 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag5 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag7 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag9 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag11 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag13 = CHR$(VAL("&H" + charmp$))
IF chartmp = 1 THEN char1mag15 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag1 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag3 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag5 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag7 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag9 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag11 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag13 = CHR$(VAL("&H" + charmp$))
IF chartmp = 2 THEN char2mag15 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag1 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag3 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag5 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag7 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag9 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag11 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag13 = CHR$(VAL("&H" + charmp$))
IF chartmp = 3 THEN char3mag15 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag1 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag3 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag5 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag7 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag9 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag11 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag13 = CHR$(VAL("&H" + charmp$))
IF chartmp = 4 THEN char4mag15 = CHR$(VAL("&H" + charmp$))

GOTO keyz

charstats:
CLS
PRINT "Character Stats"
PRINT "(1) Level"
PRINT "(2) Strength"
PRINT "(3) Agility"
PRINT "(4) Vitality"
PRINT "(5) Intellect"
PRINT "(6) Spirit"
PRINT "(7) Back to character menu"
INPUT "Menu Choice "; chstat
IF INT(chstat) <> chstat THEN GOTO charstats
IF chstat > 7 THEN GOTO charstats
IF chstat < 1 THEN GOTO charstats
IF chstat = 7 THEN GOTO charedit
GOTO charstats2

charstats2:
CLS
INPUT "What do you want to be the new value of this? Max=99 "; newtmp
IF newtmp > 99 THEN GOTO charstats2
IF INT(newtmp) <> newtmp THEN GOTO charstats2
IF newtmp < 1 THEN GOTO charstats2
newtmp$ = HEX$(newtmp)
IF chstat = 1 AND chartmp = 1 THEN char1level = CHR$(VAL("&H" + newtmp$))
IF chstat = 2 AND chartmp = 1 THEN char1str = CHR$(VAL("&H" + newtmp$))
IF chstat = 3 AND chartmp = 1 THEN char1agi = CHR$(VAL("&H" + newtmp$))
IF chstat = 4 AND chartmp = 1 THEN char1vit = CHR$(VAL("&H" + newtmp$))
IF chstat = 5 AND chartmp = 1 THEN char1int = CHR$(VAL("&H" + newtmp$))
IF chstat = 6 AND chartmp = 1 THEN char1spi = CHR$(VAL("&H" + newtmp$))
IF chstat = 1 AND chartmp = 2 THEN char2level = CHR$(VAL("&H" + newtmp$))
IF chstat = 2 AND chartmp = 2 THEN char2str = CHR$(VAL("&H" + newtmp$))
IF chstat = 3 AND chartmp = 2 THEN char2agi = CHR$(VAL("&H" + newtmp$))
IF chstat = 4 AND chartmp = 2 THEN char2vit = CHR$(VAL("&H" + newtmp$))
IF chstat = 5 AND chartmp = 2 THEN char2int = CHR$(VAL("&H" + newtmp$))
IF chstat = 6 AND chartmp = 2 THEN char2spi = CHR$(VAL("&H" + newtmp$))
IF chstat = 1 AND chartmp = 3 THEN char3level = CHR$(VAL("&H" + newtmp$))
IF chstat = 2 AND chartmp = 3 THEN char3str = CHR$(VAL("&H" + newtmp$))
IF chstat = 3 AND chartmp = 3 THEN char3agi = CHR$(VAL("&H" + newtmp$))
IF chstat = 4 AND chartmp = 3 THEN char3vit = CHR$(VAL("&H" + newtmp$))
IF chstat = 5 AND chartmp = 3 THEN char3int = CHR$(VAL("&H" + newtmp$))
IF chstat = 6 AND chartmp = 3 THEN char3spi = CHR$(VAL("&H" + newtmp$))
IF chstat = 1 AND chartmp = 4 THEN char4level = CHR$(VAL("&H" + newtmp$))
IF chstat = 2 AND chartmp = 4 THEN char4str = CHR$(VAL("&H" + newtmp$))
IF chstat = 3 AND chartmp = 4 THEN char4agi = CHR$(VAL("&H" + newtmp$))
IF chstat = 4 AND chartmp = 4 THEN char4vit = CHR$(VAL("&H" + newtmp$))
IF chstat = 5 AND chartmp = 4 THEN char4int = CHR$(VAL("&H" + newtmp$))
GOTO keyz

charjob:
CLS
PRINT "Jobs"
PRINT "(1) Onion Kid     (2) Fighter       (3) Monk"
PRINT "(4) White wiz.    (5) Black wiz.    (6) Red wiz."
PRINT "(7) Knight        (8) Thief         (9) Scholar"
PRINT "(10) Geomancer    (11) Dragoon      (12) Viking"
PRINT "(13) Karateka     (14) Magic Knight (15) Conjurer"
PRINT "(16) Bard         (17) Warlock      (18) Shaman"
PRINT "(19) Summoner     (20) Sage         (21) Ninja"
PRINT "(22) Hunter"
INPUT "Job "; job
IF job > 21 THEN GOTO charjob
IF job < 1 THEN GOTO charjob
IF INT(job) <> job THEN GOTO charjob
IF chartmp = 1 AND job = 1 THEN char1job = CHR$(VAL("&H" + "00"))
IF chartmp = 1 AND job = 2 THEN char1job = CHR$(VAL("&H" + "01"))
IF chartmp = 1 AND job = 3 THEN char1job = CHR$(VAL("&H" + "02"))
IF chartmp = 1 AND job = 4 THEN char1job = CHR$(VAL("&H" + "03"))
IF chartmp = 1 AND job = 5 THEN char1job = CHR$(VAL("&H" + "04"))
IF chartmp = 1 AND job = 6 THEN char1job = CHR$(VAL("&H" + "05"))
IF chartmp = 1 AND job = 7 THEN char1job = CHR$(VAL("&H" + "07"))
IF chartmp = 1 AND job = 8 THEN char1job = CHR$(VAL("&H" + "08"))
IF chartmp = 1 AND job = 9 THEN char1job = CHR$(VAL("&H" + "09"))
IF chartmp = 1 AND job = 10 THEN char1job = CHR$(VAL("&H" + "0A"))
IF chartmp = 1 AND job = 11 THEN char1job = CHR$(VAL("&H" + "0B"))
IF chartmp = 1 AND job = 12 THEN char1job = CHR$(VAL("&H" + "0C"))
IF chartmp = 1 AND job = 13 THEN char1job = CHR$(VAL("&H" + "0D"))
IF chartmp = 1 AND job = 14 THEN char1job = CHR$(VAL("&H" + "0E"))
IF chartmp = 1 AND job = 15 THEN char1job = CHR$(VAL("&H" + "0F"))
IF chartmp = 1 AND job = 16 THEN char1job = CHR$(VAL("&H" + "10"))
IF chartmp = 1 AND job = 17 THEN char1job = CHR$(VAL("&H" + "11"))
IF chartmp = 1 AND job = 18 THEN char1job = CHR$(VAL("&H" + "12"))
IF chartmp = 1 AND job = 19 THEN char1job = CHR$(VAL("&H" + "13"))
IF chartmp = 1 AND job = 20 THEN char1job = CHR$(VAL("&H" + "14"))
IF chartmp = 1 AND job = 21 THEN char1job = CHR$(VAL("&H" + "15"))
IF chartmp = 1 AND job = 22 THEN char1job = CHR$(VAL("&H" + "06"))
IF chartmp = 2 AND job = 1 THEN char2job = CHR$(VAL("&H" + "00"))
IF chartmp = 2 AND job = 2 THEN char2job = CHR$(VAL("&H" + "01"))
IF chartmp = 2 AND job = 3 THEN char2job = CHR$(VAL("&H" + "02"))
IF chartmp = 2 AND job = 4 THEN char2job = CHR$(VAL("&H" + "03"))
IF chartmp = 2 AND job = 5 THEN char2job = CHR$(VAL("&H" + "04"))
IF chartmp = 2 AND job = 6 THEN char2job = CHR$(VAL("&H" + "05"))
IF chartmp = 2 AND job = 7 THEN char2job = CHR$(VAL("&H" + "07"))
IF chartmp = 2 AND job = 8 THEN char2job = CHR$(VAL("&H" + "08"))
IF chartmp = 2 AND job = 9 THEN char2job = CHR$(VAL("&H" + "09"))
IF chartmp = 2 AND job = 10 THEN char2job = CHR$(VAL("&H" + "0A"))
IF chartmp = 2 AND job = 11 THEN char2job = CHR$(VAL("&H" + "0B"))
IF chartmp = 2 AND job = 12 THEN char2job = CHR$(VAL("&H" + "0C"))
IF chartmp = 2 AND job = 13 THEN char2job = CHR$(VAL("&H" + "0D"))
IF chartmp = 2 AND job = 14 THEN char2job = CHR$(VAL("&H" + "0E"))
IF chartmp = 2 AND job = 15 THEN char2job = CHR$(VAL("&H" + "0F"))
IF chartmp = 2 AND job = 16 THEN char2job = CHR$(VAL("&H" + "10"))
IF chartmp = 2 AND job = 17 THEN char2job = CHR$(VAL("&H" + "11"))
IF chartmp = 2 AND job = 18 THEN char2job = CHR$(VAL("&H" + "12"))
IF chartmp = 2 AND job = 19 THEN char2job = CHR$(VAL("&H" + "13"))
IF chartmp = 2 AND job = 20 THEN char2job = CHR$(VAL("&H" + "14"))
IF chartmp = 2 AND job = 21 THEN char2job = CHR$(VAL("&H" + "15"))
IF chartmp = 2 AND job = 22 THEN char2job = CHR$(VAL("&H" + "06"))
IF chartmp = 3 AND job = 1 THEN char3job = CHR$(VAL("&H" + "00"))
IF chartmp = 3 AND job = 2 THEN char3job = CHR$(VAL("&H" + "01"))
IF chartmp = 3 AND job = 3 THEN char3job = CHR$(VAL("&H" + "02"))
IF chartmp = 3 AND job = 4 THEN char3job = CHR$(VAL("&H" + "03"))
IF chartmp = 3 AND job = 5 THEN char3job = CHR$(VAL("&H" + "04"))
IF chartmp = 3 AND job = 6 THEN char3job = CHR$(VAL("&H" + "05"))
IF chartmp = 3 AND job = 7 THEN char3job = CHR$(VAL("&H" + "07"))
IF chartmp = 3 AND job = 8 THEN char3job = CHR$(VAL("&H" + "08"))
IF chartmp = 3 AND job = 9 THEN char3job = CHR$(VAL("&H" + "09"))
IF chartmp = 3 AND job = 10 THEN char3job = CHR$(VAL("&H" + "0A"))
IF chartmp = 3 AND job = 11 THEN char3job = CHR$(VAL("&H" + "0B"))
IF chartmp = 3 AND job = 12 THEN char3job = CHR$(VAL("&H" + "0C"))
IF chartmp = 3 AND job = 13 THEN char3job = CHR$(VAL("&H" + "0D"))
IF chartmp = 3 AND job = 14 THEN char3job = CHR$(VAL("&H" + "0E"))
IF chartmp = 3 AND job = 15 THEN char3job = CHR$(VAL("&H" + "0F"))
IF chartmp = 3 AND job = 16 THEN char3job = CHR$(VAL("&H" + "10"))
IF chartmp = 3 AND job = 17 THEN char3job = CHR$(VAL("&H" + "11"))
IF chartmp = 3 AND job = 18 THEN char3job = CHR$(VAL("&H" + "12"))
IF chartmp = 3 AND job = 19 THEN char3job = CHR$(VAL("&H" + "13"))
IF chartmp = 3 AND job = 20 THEN char3job = CHR$(VAL("&H" + "14"))
IF chartmp = 3 AND job = 21 THEN char3job = CHR$(VAL("&H" + "15"))
IF chartmp = 3 AND job = 22 THEN char3job = CHR$(VAL("&H" + "06"))
IF chartmp = 4 AND job = 1 THEN char4job = CHR$(VAL("&H" + "00"))
IF chartmp = 4 AND job = 2 THEN char4job = CHR$(VAL("&H" + "01"))
IF chartmp = 4 AND job = 3 THEN char4job = CHR$(VAL("&H" + "02"))
IF chartmp = 4 AND job = 4 THEN char4job = CHR$(VAL("&H" + "03"))
IF chartmp = 4 AND job = 5 THEN char4job = CHR$(VAL("&H" + "04"))
IF chartmp = 4 AND job = 6 THEN char4job = CHR$(VAL("&H" + "05"))
IF chartmp = 4 AND job = 7 THEN char4job = CHR$(VAL("&H" + "07"))
IF chartmp = 4 AND job = 8 THEN char4job = CHR$(VAL("&H" + "08"))
IF chartmp = 4 AND job = 9 THEN char4job = CHR$(VAL("&H" + "09"))
IF chartmp = 4 AND job = 10 THEN char4job = CHR$(VAL("&H" + "0A"))
IF chartmp = 4 AND job = 11 THEN char4job = CHR$(VAL("&H" + "0B"))
IF chartmp = 4 AND job = 12 THEN char4job = CHR$(VAL("&H" + "0C"))
IF chartmp = 4 AND job = 13 THEN char4job = CHR$(VAL("&H" + "0D"))
IF chartmp = 4 AND job = 14 THEN char4job = CHR$(VAL("&H" + "0E"))
IF chartmp = 4 AND job = 15 THEN char4job = CHR$(VAL("&H" + "0F"))
IF chartmp = 4 AND job = 16 THEN char4job = CHR$(VAL("&H" + "10"))
IF chartmp = 4 AND job = 17 THEN char4job = CHR$(VAL("&H" + "11"))
IF chartmp = 4 AND job = 18 THEN char4job = CHR$(VAL("&H" + "12"))
IF chartmp = 4 AND job = 19 THEN char4job = CHR$(VAL("&H" + "13"))
IF chartmp = 4 AND job = 20 THEN char4job = CHR$(VAL("&H" + "14"))
IF chartmp = 4 AND job = 21 THEN char4job = CHR$(VAL("&H" + "15"))
IF chartmp = 4 AND job = 22 THEN char4job = CHR$(VAL("&H" + "06"))
GOTO keyz


ooops:
PRINT "There was an unexpected error. Exiting."
END

