STARTUP:
ON ERROR GOTO OOOPS
DIM CHAR1HP1 AS STRING * 1, CHAR1HP2 AS STRING * 1, CHAR1HP3 AS STRING * 1
DIM CHAR1HP4 AS STRING * 1, CHAR2HP1 AS STRING * 1, CHAR2HP2 AS STRING * 1
DIM CHAR2HP3 AS STRING * 1, CHAR2HP4 AS STRING * 1, CHAR3HP1 AS STRING * 1
DIM CHAR3HP2 AS STRING * 1, CHAR3HP3 AS STRING * 1, CHAR3HP4 AS STRING * 1
DIM CHAR4HP1 AS STRING * 1, CHAR4HP2 AS STRING * 1, CHAR4HP3 AS STRING * 1
DIM CHAR4HP4 AS STRING * 1, CHAR1MP1 AS STRING * 1, CHAR1MP2 AS STRING * 1
DIM CHAR1MP3 AS STRING * 1, CHAR1MP4 AS STRING * 1, CHAR2MP1 AS STRING * 1
DIM CHAR2MP2 AS STRING * 1, CHAR2MP3 AS STRING * 1, CHAR2MP4 AS STRING * 1
DIM CHAR3MP1 AS STRING * 1, CHAR3MP2 AS STRING * 1, CHAR3MP3 AS STRING * 1
DIM CHAR3MP4 AS STRING * 1, CHAR4MP1 AS STRING * 1, CHAR4MP2 AS STRING * 1
DIM CHAR4MP3 AS STRING * 1, CHAR4MP4 AS STRING * 1, GIL1 AS STRING * 1
DIM GIL2 AS STRING * 1, GIL3 AS STRING * 1, CHAR1POW AS STRING * 1
DIM CHAR1AGI AS STRING * 1, CHAR1VIT AS STRING * 1, CHAR1INT AS STRING * 1
DIM CHAR1SOU AS STRING * 1, CHAR1MPOW AS STRING * 1, CHAR2POW AS STRING * 1
DIM CHAR2AGI AS STRING * 1, CHAR2VIT AS STRING * 1, CHAR2INT AS STRING * 1
DIM CHAR2SOU AS STRING * 1, CHAR2MPOW AS STRING * 1, CHAR3POW AS STRING * 1
DIM CHAR3AGI AS STRING * 1, CHAR3VIT AS STRING * 1, CHAR3INT AS STRING * 1
DIM CHAR3SOU AS STRING * 1, CHAR3MPOW AS STRING * 1, CHAR4POW AS STRING * 1
DIM CHAR4AGI AS STRING * 1, CHAR4VIT AS STRING * 1, CHAR4INT AS STRING * 1
DIM CHAR4SOU AS STRING * 1, CHAR4MPOW AS STRING * 1, ITEM1 AS STRING * 1
DIM ITEM2 AS STRING * 1, ITEM3 AS STRING * 1, ITEM4 AS STRING * 1
DIM ITEM5 AS STRING * 1, ITEM6 AS STRING * 1, ITEM7 AS STRING * 1
DIM ITEM8 AS STRING * 1, ITEM9 AS STRING * 1, ITEM10 AS STRING * 1
DIM ITEM11 AS STRING * 1, ITEM12 AS STRING * 1, ITEM13 AS STRING * 1
DIM ITEM14 AS STRING * 1, ITEM15 AS STRING * 1, ITEM16 AS STRING * 1
DIM ITEM17 AS STRING * 1, ITEM18 AS STRING * 1, ITEM19 AS STRING * 1
DIM ITEM20 AS STRING * 1, ITEM21 AS STRING * 1, ITEM22 AS STRING * 1
DIM ITEM23 AS STRING * 1, ITEM24 AS STRING * 1, ITEM25 AS STRING * 1
DIM ITEM26 AS STRING * 1, ITEM27 AS STRING * 1, ITEM28 AS STRING * 1
DIM ITEM29 AS STRING * 1, ITEM30 AS STRING * 1, ITEM31 AS STRING * 1
DIM ITEM32 AS STRING * 1, CHAR1HEAD AS STRING * 1, CHAR1BODY AS STRING * 1
DIM CHAR1WEP1 AS STRING * 1, CHAR1WEP2 AS STRING * 1, CHAR1WEP3 AS STRING * 1
DIM CHAR1WEP4 AS STRING * 1, CHAR1WEP5 AS STRING * 1, CHAR1WEP6 AS STRING * 1
DIM CHAR1WEP7 AS STRING * 1, CHAR1WEP8 AS STRING * 1, CHAR1WEP9 AS STRING * 1
DIM CHAR1WEP10 AS STRING * 1, CHAR1WEP11 AS STRING * 1, CHAR1WEP12 AS STRING * 1
DIM CHAR1WEP13 AS STRING * 1, CHAR1WEP14 AS STRING * 1, CHAR1WEP15 AS STRING * 1
DIM CHAR1WEP16 AS STRING * 1, CHAR3BODY AS STRING * 1, CHAR1ARMS AS STRING * 1
DIM CHAR2WEP1 AS STRING * 1, CHAR2WEP2 AS STRING * 1, CHAR2WEP3 AS STRING * 1
DIM CHAR2WEP4 AS STRING * 1, CHAR2WEP5 AS STRING * 1, CHAR2WEP6 AS STRING * 1
DIM CHAR2WEP7 AS STRING * 1, CHAR2WEP8 AS STRING * 1, CHAR2WEP9 AS STRING * 1
DIM CHAR2WEP10 AS STRING * 1, CHAR2WEP11 AS STRING * 1, CHAR2WEP12 AS STRING * 1
DIM CHAR2WEP13 AS STRING * 1, CHAR2WEP14 AS STRING * 1, CHAR2WEP15 AS STRING * 1
DIM CHAR2WEP16 AS STRING * 1, CHAR1LFTHND AS STRING * 1, CHAR1RGTHND AS STRING * 1
DIM CHAR3WEP1 AS STRING * 1, CHAR3WEP2 AS STRING * 1, CHAR3WEP3 AS STRING * 1
DIM CHAR3WEP4 AS STRING * 1, CHAR3WEP5 AS STRING * 1, CHAR3WEP6 AS STRING * 1
DIM CHAR3WEP7 AS STRING * 1, CHAR3WEP8 AS STRING * 1, CHAR3WEP9 AS STRING * 1
DIM CHAR3WEP10 AS STRING * 1, CHAR3WEP11 AS STRING * 1, CHAR3WEP12 AS STRING * 1
DIM CHAR3WEP13 AS STRING * 1, CHAR3WEP14 AS STRING * 1, CHAR3WEP15 AS STRING * 1
DIM CHAR3WEP16 AS STRING * 1, CHAR1ITEM1 AS STRING * 1, CHAR1ITEM2 AS STRING * 1
DIM CHAR4WEP1 AS STRING * 1, CHAR4WEP2 AS STRING * 1, CHAR4WEP3 AS STRING * 1
DIM CHAR4WEP4 AS STRING * 1, CHAR4WEP5 AS STRING * 1, CHAR4WEP6 AS STRING * 1
DIM CHAR4WEP7 AS STRING * 1, CHAR4WEP8 AS STRING * 1, CHAR4WEP9 AS STRING * 1
DIM CHAR4WEP10 AS STRING * 1, CHAR4WEP11 AS STRING * 1, CHAR4WEP12 AS STRING * 1
DIM CHAR4WEP13 AS STRING * 1, CHAR4WEP14 AS STRING * 1, CHAR4WEP15 AS STRING * 1
DIM CHAR4WEP16 AS STRING * 1, CHAR2HEAD AS STRING * 1, CHAR2BODY AS STRING * 1
DIM CHAR1MLEV1 AS STRING * 1, CHAR1MLEV2 AS STRING * 1, CHAR1MLEV3 AS STRING * 1
DIM CHAR1MLEV4 AS STRING * 1, CHAR1MLEV5 AS STRING * 1, CHAR1MLEV6 AS STRING * 1
DIM CHAR1MLEV7 AS STRING * 1, CHAR1MLEV8 AS STRING * 1, CHAR1MLEV9 AS STRING * 1
DIM CHAR1MLEV10 AS STRING * 1, CHAR1MLEV11 AS STRING * 1, CHAR1MLEV12 AS STRING * 1
DIM CHAR1MLEV13 AS STRING * 1, CHAR1MLEV14 AS STRING * 1, CHAR1MLEV15 AS STRING * 1
DIM CHAR1MLEV16 AS STRING * 1, CHAR2ARMS AS STRING * 1, CHAR2LFTHND AS STRING * 1
DIM CHAR1MLEV17 AS STRING * 1, CHAR1MLEV18 AS STRING * 1, CHAR1MLEV19 AS STRING * 1
DIM CHAR1MLEV20 AS STRING * 1, CHAR1MLEV21 AS STRING * 1, CHAR1MLEV22 AS STRING * 1
DIM CHAR1MLEV23 AS STRING * 1, CHAR1MLEV24 AS STRING * 1, CHAR1MLEV25 AS STRING * 1
DIM CHAR1MLEV26 AS STRING * 1, CHAR1MLEV27 AS STRING * 1, CHAR1MLEV28 AS STRING * 1
DIM CHAR1MLEV29 AS STRING * 1, CHAR1MLEV30 AS STRING * 1, CHAR1MLEV31 AS STRING * 1
DIM CHAR1MLEV32 AS STRING * 1, CHAR2RGTHND AS STRING * 1, CHAR2ITEM1 AS STRING * 1
DIM CHAR2MLEV1 AS STRING * 1, CHAR2MLEV2 AS STRING * 1, CHAR2MLEV3 AS STRING * 1
DIM CHAR2MLEV4 AS STRING * 1, CHAR2MLEV5 AS STRING * 1, CHAR2MLEV6 AS STRING * 1
DIM CHAR2MLEV7 AS STRING * 1, CHAR2MLEV8 AS STRING * 1, CHAR2MLEV9 AS STRING * 1
DIM CHAR2MLEV10 AS STRING * 1, CHAR2MLEV11 AS STRING * 1, CHAR2MLEV12 AS STRING * 1
DIM CHAR2MLEV13 AS STRING * 1, CHAR2MLEV14 AS STRING * 1, CHAR2MLEV15 AS STRING * 1
DIM CHAR2MLEV16 AS STRING * 1, CHAR2ITEM2 AS STRING * 1, CHAR3HEAD AS STRING * 1
DIM CHAR2MLEV17 AS STRING * 1, CHAR2MLEV18 AS STRING * 1, CHAR2MLEV19 AS STRING * 1
DIM CHAR2MLEV20 AS STRING * 1, CHAR2MLEV21 AS STRING * 1, CHAR2MLEV22 AS STRING * 1
DIM CHAR2MLEV23 AS STRING * 1, CHAR2MLEV24 AS STRING * 1, CHAR2MLEV25 AS STRING * 1
DIM CHAR2MLEV26 AS STRING * 1, CHAR2MLEV27 AS STRING * 1, CHAR2MLEV28 AS STRING * 1
DIM CHAR2MLEV29 AS STRING * 1, CHAR2MLEV30 AS STRING * 1, CHAR2MLEV31 AS STRING * 1
DIM CHAR2MLEV32 AS STRING * 1, CHAR3ARMS AS STRING * 1, CHAR3LFTHND AS STRING * 1
DIM CHAR3MLEV1 AS STRING * 1, CHAR3MLEV2 AS STRING * 1, CHAR3MLEV3 AS STRING * 1
DIM CHAR3MLEV4 AS STRING * 1, CHAR3MLEV5 AS STRING * 1, CHAR3MLEV6 AS STRING * 1
DIM CHAR3MLEV7 AS STRING * 1, CHAR3MLEV8 AS STRING * 1, CHAR3MLEV9 AS STRING * 1
DIM CHAR3MLEV10 AS STRING * 1, CHAR3MLEV11 AS STRING * 1, CHAR3MLEV12 AS STRING * 1
DIM CHAR3MLEV13 AS STRING * 1, CHAR3MLEV14 AS STRING * 1, CHAR3MLEV15 AS STRING * 1
DIM CHAR3MLEV16 AS STRING * 1, CHAR3RGTHND AS STRING * 1, CHAR3ITEM1 AS STRING * 1
DIM CHAR3MLEV17 AS STRING * 1, CHAR3MLEV18 AS STRING * 1, CHAR3MLEV19 AS STRING * 1
DIM CHAR3MLEV20 AS STRING * 1, CHAR3MLEV21 AS STRING * 1, CHAR3MLEV22 AS STRING * 1
DIM CHAR3MLEV23 AS STRING * 1, CHAR3MLEV24 AS STRING * 1, CHAR3MLEV25 AS STRING * 1
DIM CHAR3MLEV26 AS STRING * 1, CHAR3MLEV27 AS STRING * 1, CHAR3MLEV28 AS STRING * 1
DIM CHAR3MLEV29 AS STRING * 1, CHAR3MLEV30 AS STRING * 1, CHAR3MLEV31 AS STRING * 1
DIM CHAR3MLEV32 AS STRING * 1, CHAR3ITEM2 AS STRING * 1, CHAR4HEAD AS STRING * 1
DIM CHAR4MLEV1 AS STRING * 1, CHAR4MLEV2 AS STRING * 1, CHAR4MLEV3 AS STRING * 1
DIM CHAR4MLEV4 AS STRING * 1, CHAR4MLEV5 AS STRING * 1, CHAR4MLEV6 AS STRING * 1
DIM CHAR4MLEV7 AS STRING * 1, CHAR4MLEV8 AS STRING * 1, CHAR4MLEV9 AS STRING * 1
DIM CHAR4MLEV10 AS STRING * 1, CHAR4MLEV11 AS STRING * 1, CHAR4MLEV12 AS STRING * 1
DIM CHAR4MLEV13 AS STRING * 1, CHAR4MLEV14 AS STRING * 1, CHAR4MLEV15 AS STRING * 1
DIM CHAR4MLEV16 AS STRING * 1, CHAR4BODY AS STRING * 1, CHAR4ARMS AS STRING * 1
DIM CHAR4MLEV17 AS STRING * 1, CHAR4MLEV18 AS STRING * 1, CHAR4MLEV19 AS STRING * 1
DIM CHAR4MLEV20 AS STRING * 1, CHAR4MLEV21 AS STRING * 1, CHAR4MLEV22 AS STRING * 1
DIM CHAR4MLEV23 AS STRING * 1, CHAR4MLEV24 AS STRING * 1, CHAR4MLEV25 AS STRING * 1
DIM CHAR4MLEV26 AS STRING * 1, CHAR4MLEV27 AS STRING * 1, CHAR4MLEV28 AS STRING * 1
DIM CHAR4MLEV29 AS STRING * 1, CHAR4MLEV30 AS STRING * 1, CHAR4MLEV31 AS STRING * 1
DIM CHAR4MLEV32 AS STRING * 1, CHAR4LFTHND AS STRING * 1, CHAR4RGTHND AS STRING * 1
DIM CHAR4ITEM1 AS STRING * 1, CHAR4ITEM2 AS STRING * 1, CHAR4POW2 AS STRING * 1
DIM CHAR1POW2 AS STRING * 1, CHAR2POW2 AS STRING * 1, CHAR3POW2 AS STRING * 1
DIM CHAR1AGI2 AS STRING * 1, CHAR2AGI2 AS STRING * 1, CHAR3AGI2 AS STRING * 1
DIM CHAR4AGI2 AS STRING * 1, CHAR1VIT2 AS STRING * 1, CHAR2VIT2 AS STRING * 1
DIM CHAR3VIT2 AS STRING * 1, CHAR4VIT2 AS STRING * 1, CHAR1INT2 AS STRING * 1
DIM CHAR2INT2 AS STRING * 1, CHAR3INT2 AS STRING * 1, CHAR4INT2 AS STRING * 1
DIM CHAR1SOU2 AS STRING * 1, CHAR2SOU2 AS STRING * 1, CHAR3SOU2 AS STRING * 1
DIM CHAR4SOU2 AS STRING * 1, CHAR1MPOW2 AS STRING * 1, CHAR2MPOW2 AS STRING * 1
DIM CHAR3MPOW2 AS STRING * 1, CHAR4MPOW2 AS STRING * 1

CLS
  PRINT "Welcome to the Final Fantasy 2j 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 1"
  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\ff2j.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 KEY4

FILELOAD:
CLS
OPEN file$ FOR BINARY AS #1
GET #1, &H109, CHAR1HP1: GET #1, &H149, CHAR2HP1
GET #1, &H10A, CHAR1HP2: GET #1, &H14A, CHAR2HP2
GET #1, &H10B, CHAR1HP3: GET #1, &H14B, CHAR2HP3
GET #1, &H10C, CHAR1HP4: GET #1, &H14C, CHAR2HP4
GET #1, &H10D, CHAR1MP1: GET #1, &H14D, CHAR2MP1
GET #1, &H10E, CHAR1MP2: GET #1, &H14E, CHAR2MP2
GET #1, &H10F, CHAR1MP3: GET #1, &H14F, CHAR2MP3
GET #1, &H110, CHAR1MP4: GET #1, &H150, CHAR2MP3
GET #1, &H111, CHAR1POW: GET #1, &H151, CHAR2POW
GET #1, &H112, CHAR1AGI: GET #1, &H152, CHAR2AGI
GET #1, &H113, CHAR1VIT: GET #1, &H153, CHAR2VIT
GET #1, &H114, CHAR1INT: GET #1, &H154, CHAR2INT
GET #1, &H115, CHAR1SOU: GET #1, &H155, CHAR2SOU
GET #1, &H116, CHAR1MPOW: GET #1, &H156, CHAR2MPOW
GET #1, &H11A, CHAR1HEAD: GET #1, &H15A, CHAR2HEAD
GET #1, &H11B, CHAR1BODY: GET #1, &H15B, CHAR2BODY
GET #1, &H11C, CHAR1ARMS: GET #1, &H15C, CHAR2ARMS
GET #1, &H11D, CHAR1RGTHND: GET #1, &H15D, CHAR2RGTHND
GET #1, &H11E, CHAR1LFTHND: GET #1, &H15E, CHAR2LFTHND
GET #1, &H11F, CHAR1ITEM1: GET #1, &H15F, CHAR2ITEM1
GET #1, &H120, CHAR1ITEM2: GET #1, &H160, CHAR2ITEM2
GET #1, &H201, CHAR1WEP1: GET #1, &H241, CHAR2WEP1
GET #1, &H202, CHAR1WEP2: GET #1, &H242, CHAR2WEP2
GET #1, &H203, CHAR1WEP3: GET #1, &H243, CHAR2WEP3
GET #1, &H204, CHAR1WEP4: GET #1, &H244, CHAR2WEP4
GET #1, &H205, CHAR1WEP5: GET #1, &H245, CHAR2WEP5
GET #1, &H206, CHAR1WEP6: GET #1, &H246, CHAR2WEP6
GET #1, &H207, CHAR1WEP7: GET #1, &H247, CHAR2WEP7
GET #1, &H208, CHAR1WEP8: GET #1, &H248, CHAR2WEP8
GET #1, &H209, CHAR1WEP9: GET #1, &H249, CHAR2WEP9
GET #1, &H20A, CHAR1WEP10: GET #1, &H24A, CHAR2WEP10
GET #1, &H20B, CHAR1WEP11: GET #1, &H24B, CHAR2WEP11
GET #1, &H20C, CHAR1WEP12: GET #1, &H24C, CHAR2WEP12
GET #1, &H20D, CHAR1WEP13: GET #1, &H24D, CHAR2WEP13
GET #1, &H20E, CHAR1WEP14: GET #1, &H24E, CHAR2WEP14
GET #1, &H20F, CHAR1WEP15: GET #1, &H24F, CHAR2WEP15
GET #1, &H210, CHAR1WEP16: GET #1, &H250, CHAR2WEP16
GET #1, &H211, CHAR1MLEV1: GET #1, &H251, CHAR2MLEV1
GET #1, &H212, CHAR1MLEV2: GET #1, &H252, CHAR2MLEV2
GET #1, &H213, CHAR1MLEV3: GET #1, &H253, CHAR2MLEV3
GET #1, &H214, CHAR1MLEV4: GET #1, &H254, CHAR2MLEV4
GET #1, &H215, CHAR1MLEV5: GET #1, &H255, CHAR2MLEV5
GET #1, &H216, CHAR1MLEV6: GET #1, &H256, CHAR2MLEV6
GET #1, &H217, CHAR1MLEV7: GET #1, &H257, CHAR2MLEV7
GET #1, &H218, CHAR1MLEV8: GET #1, &H258, CHAR2MLEV8
GET #1, &H219, CHAR1MLEV9: GET #1, &H259, CHAR2MLEV9
GET #1, &H21A, CHAR1MLEV10: GET #1, &H25A, CHAR2MLEV10
GET #1, &H21B, CHAR1MLEV11: GET #1, &H25B, CHAR2MLEV11
GET #1, &H21C, CHAR1MLEV12: GET #1, &H25C, CHAR2MLEV12
GET #1, &H21D, CHAR1MLEV13: GET #1, &H25D, CHAR2MLEV13
GET #1, &H21E, CHAR1MLEV14: GET #1, &H25E, CHAR2MLEV14
GET #1, &H21F, CHAR1MLEV15: GET #1, &H25F, CHAR2MLEV15
GET #1, &H220, CHAR1MLEV16: GET #1, &H260, CHAR2MLEV16
GET #1, &H221, CHAR1MLEV17: GET #1, &H261, CHAR2MLEV17
GET #1, &H222, CHAR1MLEV18: GET #1, &H262, CHAR2MLEV18
GET #1, &H223, CHAR1MLEV19: GET #1, &H263, CHAR2MLEV19
GET #1, &H224, CHAR1MLEV20: GET #1, &H264, CHAR2MLEV20
GET #1, &H225, CHAR1MLEV21: GET #1, &H265, CHAR2MLEV21
GET #1, &H226, CHAR1MLEV22: GET #1, &H266, CHAR2MLEV22
GET #1, &H227, CHAR1MLEV23: GET #1, &H267, CHAR2MLEV23
GET #1, &H228, CHAR1MLEV24: GET #1, &H268, CHAR2MLEV24
GET #1, &H229, CHAR1MLEV25: GET #1, &H269, CHAR2MLEV25
GET #1, &H22A, CHAR1MLEV26: GET #1, &H26A, CHAR2MLEV26
GET #1, &H22B, CHAR1MLEV27: GET #1, &H26B, CHAR2MLEV27
GET #1, &H22C, CHAR1MLEV28: GET #1, &H26C, CHAR2MLEV28
GET #1, &H22D, CHAR1MLEV29: GET #1, &H26D, CHAR2MLEV29
GET #1, &H22E, CHAR1MLEV30: GET #1, &H26E, CHAR2MLEV30
GET #1, &H22F, CHAR1MLEV31: GET #1, &H26F, CHAR2MLEV31
GET #1, &H230, CHAR1MLEV32: GET #1, &H270, CHAR2MLEV32
GET #1, &H189, CHAR3HP1: GET #1, &H1C9, CHAR4HP1
GET #1, &H18A, CHAR3HP2: GET #1, &H1CA, CHAR4HP2
GET #1, &H18B, CHAR3HP3: GET #1, &H1CB, CHAR4HP3
GET #1, &H18C, CHAR3HP4: GET #1, &H1CC, CHAR4HP4
GET #1, &H18D, CHAR3MP1: GET #1, &H1CD, CHAR4MP1
GET #1, &H18E, CHAR3MP2: GET #1, &H1CE, CHAR4MP2
GET #1, &H18F, CHAR3MP3: GET #1, &H1CF, CHAR4MP3
GET #1, &H190, CHAR3MP4: GET #1, &H1D0, CHAR4MP3
GET #1, &H191, CHAR3POW: GET #1, &H1D1, CHAR4POW
GET #1, &H192, CHAR3AGI: GET #1, &H1D2, CHAR4AGI
GET #1, &H193, CHAR3VIT: GET #1, &H1D3, CHAR4VIT
GET #1, &H194, CHAR3INT: GET #1, &H1D4, CHAR4INT
GET #1, &H195, CHAR3SOU: GET #1, &H1D5, CHAR4SOU
GET #1, &H196, CHAR3MPOW: GET #1, &H1D6, CHAR4MPOW
GET #1, &H19A, CHAR3HEAD: GET #1, &H1DA, CHAR4HEAD
GET #1, &H19B, CHAR3BODY: GET #1, &H1DB, CHAR4BODY
GET #1, &H19C, CHAR3ARMS: GET #1, &H1DC, CHAR4ARMS
GET #1, &H19D, CHAR3RGTHND: GET #1, &H1DD, CHAR4RGTHND
GET #1, &H19E, CHAR3LFTHND: GET #1, &H1DE, CHAR4LFTHND
GET #1, &H19F, CHAR3ITEM1: GET #1, &H1DF, CHAR4ITEM1
GET #1, &H1A0, CHAR3ITEM2: GET #1, &H1E0, CHAR4ITEM2
GET #1, &H281, CHAR3WEP1: GET #1, &H2C1, CHAR4WEP1
GET #1, &H282, CHAR3WEP2: GET #1, &H2C2, CHAR4WEP2
GET #1, &H283, CHAR3WEP3: GET #1, &H2C3, CHAR4WEP3
GET #1, &H284, CHAR3WEP4: GET #1, &H2C4, CHAR4WEP4
GET #1, &H285, CHAR3WEP5: GET #1, &H2C5, CHAR4WEP5
GET #1, &H286, CHAR3WEP6: GET #1, &H2C6, CHAR4WEP6
GET #1, &H287, CHAR3WEP7: GET #1, &H2C7, CHAR4WEP7
GET #1, &H288, CHAR3WEP8: GET #1, &H2C8, CHAR4WEP8
GET #1, &H289, CHAR3WEP9: GET #1, &H2C9, CHAR4WEP9
GET #1, &H28A, CHAR3WEP10: GET #1, &H2CA, CHAR4WEP10
GET #1, &H28B, CHAR3WEP11: GET #1, &H2CB, CHAR4WEP11
GET #1, &H28C, CHAR3WEP12: GET #1, &H2CC, CHAR4WEP12
GET #1, &H28D, CHAR3WEP13: GET #1, &H2CD, CHAR4WEP13
GET #1, &H28E, CHAR3WEP14: GET #1, &H2CE, CHAR4WEP14
GET #1, &H28F, CHAR3WEP15: GET #1, &H2CF, CHAR4WEP15
GET #1, &H290, CHAR3WEP16: GET #1, &H2D0, CHAR4WEP16
GET #1, &H291, CHAR3MLEV1: GET #1, &H2D1, CHAR4MLEV1
GET #1, &H292, CHAR3MLEV2: GET #1, &H2D2, CHAR4MLEV2
GET #1, &H293, CHAR3MLEV3: GET #1, &H2D3, CHAR4MLEV3
GET #1, &H294, CHAR3MLEV4: GET #1, &H2D4, CHAR4MLEV4
GET #1, &H295, CHAR3MLEV5: GET #1, &H2D5, CHAR4MLEV5
GET #1, &H296, CHAR3MLEV6: GET #1, &H2D6, CHAR4MLEV6
GET #1, &H297, CHAR3MLEV7: GET #1, &H2D7, CHAR4MLEV7
GET #1, &H298, CHAR3MLEV8: GET #1, &H2D8, CHAR4MLEV8
GET #1, &H299, CHAR3MLEV9: GET #1, &H2D9, CHAR4MLEV9
GET #1, &H29A, CHAR3MLEV10: GET #1, &H2DA, CHAR4MLEV10
GET #1, &H29B, CHAR3MLEV11: GET #1, &H2DB, CHAR4MLEV11
GET #1, &H29C, CHAR3MLEV12: GET #1, &H2DC, CHAR4MLEV12
GET #1, &H29D, CHAR3MLEV13: GET #1, &H2DD, CHAR4MLEV13
GET #1, &H29E, CHAR3MLEV14: GET #1, &H2DE, CHAR4MLEV14
GET #1, &H29F, CHAR3MLEV15: GET #1, &H2DF, CHAR4MLEV15
GET #1, &H2A0, CHAR3MLEV16: GET #1, &H2E0, CHAR4MLEV16
GET #1, &H2A1, CHAR3MLEV17: GET #1, &H2E1, CHAR4MLEV17
GET #1, &H2A2, CHAR3MLEV18: GET #1, &H2E2, CHAR4MLEV18
GET #1, &H2A3, CHAR3MLEV19: GET #1, &H2E3, CHAR4MLEV19
GET #1, &H2A4, CHAR3MLEV20: GET #1, &H2E4, CHAR4MLEV20
GET #1, &H2A5, CHAR3MLEV21: GET #1, &H2E5, CHAR4MLEV21
GET #1, &H2A6, CHAR3MLEV22: GET #1, &H2E6, CHAR4MLEV22
GET #1, &H2A7, CHAR3MLEV23: GET #1, &H2E7, CHAR4MLEV23
GET #1, &H2A8, CHAR3MLEV24: GET #1, &H2E8, CHAR4MLEV24
GET #1, &H2A9, CHAR3MLEV25: GET #1, &H2E9, CHAR4MLEV25
GET #1, &H2AA, CHAR3MLEV26: GET #1, &H2EA, CHAR4MLEV26
GET #1, &H2AB, CHAR3MLEV27: GET #1, &H2EB, CHAR4MLEV27
GET #1, &H2AC, CHAR3MLEV28: GET #1, &H2EC, CHAR4MLEV28
GET #1, &H2AD, CHAR3MLEV29: GET #1, &H2ED, CHAR4MLEV29
GET #1, &H2AE, CHAR3MLEV30: GET #1, &H2EE, CHAR4MLEV30
GET #1, &H2AF, CHAR3MLEV31: GET #1, &H2EF, CHAR4MLEV31
GET #1, &H2B0, CHAR3MLEV32: GET #1, &H2F0, CHAR4MLEV32
GET #1, &H61, ITEM1: GET #1, &H62, ITEM2
GET #1, &H63, ITEM3: GET #1, &H64, ITEM4
GET #1, &H65, ITEM5: GET #1, &H66, ITEM6
GET #1, &H67, ITEM7: GET #1, &H68, ITEM8
GET #1, &H69, ITEM9: GET #1, &H6A, ITEM10
GET #1, &H6B, ITEM11: GET #1, &H6C, ITEM12
GET #1, &H6D, ITEM13: GET #1, &H6E, ITEM14
GET #1, &H6F, ITEM15: GET #1, &H70, ITEM16
GET #1, &H71, ITEM17: GET #1, &H72, ITEM18
GET #1, &H73, ITEM19: GET #1, &H74, ITEM20
GET #1, &H75, ITEM21: GET #1, &H76, ITEM22
GET #1, &H77, ITEM23: GET #1, &H78, ITEM24
GET #1, &H79, ITEM25: GET #1, &H7A, ITEM26
GET #1, &H7B, ITEM27: GET #1, &H7C, ITEM28
GET #1, &H7D, ITEM29: GET #1, &H7E, ITEM30
GET #1, &H7F, ITEM31: GET #1, &H80, ITEM32
GET #1, &H1D, GIL1: GET #1, &H1E, GIL2: GET #1, &H1F, GIL3
GET #1, &H121, CHAR1POW2: GET #1, &H161, CHAR2POW2
GET #1, &H1A1, CHAR3POW2: GET #1, &H1E1, CHAR4POW2
GET #1, &H122, CHAR1AGI2: GET #1, &H162, CHAR2AGI2
GET #1, &H1A2, CHAR3AGI2: GET #1, &H1E2, CHAR4AGI2
GET #1, &H123, CHAR1VIT2: GET #1, &H163, CHAR2VIT2
GET #1, &H1A3, CHAR3VIT2: GET #1, &H1E3, CHAR4VIT2
GET #1, &H124, CHAR1INT2: GET #1, &H164, CHAR2INT2
GET #1, &H1A4, CHAR3INT2: GET #1, &H1E4, CHAR4INT2
GET #1, &H125, CHAR1SOU2: GET #1, &H165, CHAR2SOU2
GET #1, &H1A5, CHAR3SOU2: GET #1, &H1E5, CHAR4SOU2
GET #1, &H126, CHAR1MPOW2: GET #1, &H166, CHAR2MPOW2
GET #1, &H1A6, CHAR3MPOW2: GET #1, &H1E6, CHAR4MPOW2
CLOSE #1
file = 1
PRINT "File loaded. "
PRINT "Press any key to continue"
GOTO KEY4

FILESAVE:
CLS
OPEN file$ FOR BINARY AS #1
PUT #1, &H109, CHAR1HP1: PUT #1, &H149, CHAR2HP1
PUT #1, &H10A, CHAR1HP2: PUT #1, &H14A, CHAR2HP2
PUT #1, &H10B, CHAR1HP3: PUT #1, &H14B, CHAR2HP3
PUT #1, &H10C, CHAR1HP4: PUT #1, &H14C, CHAR2HP4
PUT #1, &H10D, CHAR1MP1: PUT #1, &H14D, CHAR2MP1
PUT #1, &H10E, CHAR1MP2: PUT #1, &H14E, CHAR2MP2
PUT #1, &H10F, CHAR1MP3: PUT #1, &H14F, CHAR2MP3
PUT #1, &H110, CHAR1MP4: PUT #1, &H150, CHAR2MP3
PUT #1, &H111, CHAR1POW: PUT #1, &H151, CHAR2POW
PUT #1, &H112, CHAR1AGI: PUT #1, &H152, CHAR2AGI
PUT #1, &H113, CHAR1VIT: PUT #1, &H153, CHAR2VIT
PUT #1, &H114, CHAR1INT: PUT #1, &H154, CHAR2INT
PUT #1, &H115, CHAR1SOU: PUT #1, &H155, CHAR2SOU
PUT #1, &H116, CHAR1MPOW: PUT #1, &H156, CHAR2MPOW
PUT #1, &H11A, CHAR1HEAD: PUT #1, &H15A, CHAR2HEAD
PUT #1, &H11B, CHAR1BODY: PUT #1, &H15B, CHAR2BODY
PUT #1, &H11C, CHAR1ARMS: PUT #1, &H15C, CHAR2ARMS
PUT #1, &H11D, CHAR1RGTHND: PUT #1, &H15D, CHAR2RGTHND
PUT #1, &H11E, CHAR1LFTHND: PUT #1, &H15E, CHAR2LFTHND
PUT #1, &H11F, CHAR1ITEM1: PUT #1, &H15F, CHAR2ITEM1
PUT #1, &H120, CHAR1ITEM2: PUT #1, &H160, CHAR2ITEM2
PUT #1, &H201, CHAR1WEP1: PUT #1, &H241, CHAR2WEP1
PUT #1, &H202, CHAR1WEP2: PUT #1, &H242, CHAR2WEP2
PUT #1, &H203, CHAR1WEP3: PUT #1, &H243, CHAR2WEP3
PUT #1, &H204, CHAR1WEP4: PUT #1, &H244, CHAR2WEP4
PUT #1, &H205, CHAR1WEP5: PUT #1, &H245, CHAR2WEP5
PUT #1, &H206, CHAR1WEP6: PUT #1, &H246, CHAR2WEP6
PUT #1, &H207, CHAR1WEP7: PUT #1, &H247, CHAR2WEP7
PUT #1, &H208, CHAR1WEP8: PUT #1, &H248, CHAR2WEP8
PUT #1, &H209, CHAR1WEP9: PUT #1, &H249, CHAR2WEP9
PUT #1, &H20A, CHAR1WEP10: PUT #1, &H24A, CHAR2WEP10
PUT #1, &H20B, CHAR1WEP11: PUT #1, &H24B, CHAR2WEP11
PUT #1, &H20C, CHAR1WEP12: PUT #1, &H24C, CHAR2WEP12
PUT #1, &H20D, CHAR1WEP13: PUT #1, &H24D, CHAR2WEP13
PUT #1, &H20E, CHAR1WEP14: PUT #1, &H24E, CHAR2WEP14
PUT #1, &H20F, CHAR1WEP15: PUT #1, &H24F, CHAR2WEP15
PUT #1, &H210, CHAR1WEP16: PUT #1, &H250, CHAR2WEP16
PUT #1, &H211, CHAR1MLEV1: PUT #1, &H251, CHAR2MLEV1
PUT #1, &H212, CHAR1MLEV2: PUT #1, &H252, CHAR2MLEV2
PUT #1, &H213, CHAR1MLEV3: PUT #1, &H253, CHAR2MLEV3
PUT #1, &H214, CHAR1MLEV4: PUT #1, &H254, CHAR2MLEV4
PUT #1, &H215, CHAR1MLEV5: PUT #1, &H255, CHAR2MLEV5
PUT #1, &H216, CHAR1MLEV6: PUT #1, &H256, CHAR2MLEV6
PUT #1, &H217, CHAR1MLEV7: PUT #1, &H257, CHAR2MLEV7
PUT #1, &H218, CHAR1MLEV8: PUT #1, &H258, CHAR2MLEV8
PUT #1, &H219, CHAR1MLEV9: PUT #1, &H259, CHAR2MLEV9
PUT #1, &H21A, CHAR1MLEV10: PUT #1, &H25A, CHAR2MLEV10
PUT #1, &H21B, CHAR1MLEV11: PUT #1, &H25B, CHAR2MLEV11
PUT #1, &H21C, CHAR1MLEV12: PUT #1, &H25C, CHAR2MLEV12
PUT #1, &H21D, CHAR1MLEV13: PUT #1, &H25D, CHAR2MLEV13
PUT #1, &H21E, CHAR1MLEV14: PUT #1, &H25E, CHAR2MLEV14
PUT #1, &H21F, CHAR1MLEV15: PUT #1, &H25F, CHAR2MLEV15
PUT #1, &H220, CHAR1MLEV16: PUT #1, &H260, CHAR2MLEV16
PUT #1, &H221, CHAR1MLEV17: PUT #1, &H271, CHAR2MLEV17
PUT #1, &H222, CHAR1MLEV18: PUT #1, &H272, CHAR2MLEV18
PUT #1, &H223, CHAR1MLEV19: PUT #1, &H273, CHAR2MLEV19
PUT #1, &H224, CHAR1MLEV20: PUT #1, &H274, CHAR2MLEV20
PUT #1, &H225, CHAR1MLEV21: PUT #1, &H275, CHAR2MLEV21
PUT #1, &H226, CHAR1MLEV22: PUT #1, &H276, CHAR2MLEV22
PUT #1, &H227, CHAR1MLEV23: PUT #1, &H277, CHAR2MLEV23
PUT #1, &H228, CHAR1MLEV24: PUT #1, &H278, CHAR2MLEV24
PUT #1, &H229, CHAR1MLEV25: PUT #1, &H279, CHAR2MLEV25
PUT #1, &H22A, CHAR1MLEV26: PUT #1, &H27A, CHAR2MLEV26
PUT #1, &H22B, CHAR1MLEV27: PUT #1, &H27B, CHAR2MLEV27
PUT #1, &H22C, CHAR1MLEV28: PUT #1, &H27C, CHAR2MLEV28
PUT #1, &H22D, CHAR1MLEV29: PUT #1, &H27D, CHAR2MLEV29
PUT #1, &H22E, CHAR1MLEV30: PUT #1, &H27E, CHAR2MLEV30
PUT #1, &H22F, CHAR1MLEV31: PUT #1, &H27F, CHAR2MLEV31
PUT #1, &H230, CHAR1MLEV32: PUT #1, &H280, CHAR2MLEV32
PUT #1, &H189, CHAR3HP1: PUT #1, &H1C9, CHAR4HP1
PUT #1, &H18A, CHAR3HP2: PUT #1, &H1CA, CHAR4HP2
PUT #1, &H18B, CHAR3HP3: PUT #1, &H1CB, CHAR4HP3
PUT #1, &H18C, CHAR3HP4: PUT #1, &H1CC, CHAR4HP4
PUT #1, &H18D, CHAR3MP1: PUT #1, &H1CD, CHAR4MP1
PUT #1, &H18E, CHAR3MP2: PUT #1, &H1CE, CHAR4MP2
PUT #1, &H18F, CHAR3MP3: PUT #1, &H1CF, CHAR4MP3
PUT #1, &H190, CHAR3MP4: PUT #1, &H1D0, CHAR4MP3
PUT #1, &H191, CHAR3POW: PUT #1, &H1D1, CHAR4POW
PUT #1, &H192, CHAR3AGI: PUT #1, &H1D2, CHAR4AGI
PUT #1, &H193, CHAR3VIT: PUT #1, &H1D3, CHAR4VIT
PUT #1, &H194, CHAR3INT: PUT #1, &H1D4, CHAR4INT
PUT #1, &H195, CHAR3SOU: PUT #1, &H1D5, CHAR4SOU
PUT #1, &H196, CHAR3MPOW: PUT #1, &H1D6, CHAR4MPOW
PUT #1, &H19A, CHAR3HEAD: PUT #1, &H1DA, CHAR4HEAD
PUT #1, &H19B, CHAR3BODY: PUT #1, &H1DB, CHAR4BODY
PUT #1, &H19C, CHAR3ARMS: PUT #1, &H1DC, CHAR4ARMS
PUT #1, &H19D, CHAR3RGTHND: PUT #1, &H1DD, CHAR4RGTHND
PUT #1, &H19E, CHAR3LFTHND: PUT #1, &H1DE, CHAR4LFTHND
PUT #1, &H19F, CHAR3ITEM1: PUT #1, &H1DF, CHAR4ITEM1
PUT #1, &H1A0, CHAR3ITEM2: PUT #1, &H1E0, CHAR4ITEM2
PUT #1, &H281, CHAR3WEP1: PUT #1, &H2C1, CHAR4WEP1
PUT #1, &H282, CHAR3WEP2: PUT #1, &H2C2, CHAR4WEP2
PUT #1, &H283, CHAR3WEP3: PUT #1, &H2C3, CHAR4WEP3
PUT #1, &H284, CHAR3WEP4: PUT #1, &H2C4, CHAR4WEP4
PUT #1, &H285, CHAR3WEP5: PUT #1, &H2C5, CHAR4WEP5
PUT #1, &H286, CHAR3WEP6: PUT #1, &H2C6, CHAR4WEP6
PUT #1, &H287, CHAR3WEP7: PUT #1, &H2C7, CHAR4WEP7
PUT #1, &H288, CHAR3WEP8: PUT #1, &H2C8, CHAR4WEP8
PUT #1, &H289, CHAR3WEP9: PUT #1, &H2C9, CHAR4WEP9
PUT #1, &H28A, CHAR3WEP10: PUT #1, &H2CA, CHAR4WEP10
PUT #1, &H28B, CHAR3WEP11: PUT #1, &H2CB, CHAR4WEP11
PUT #1, &H28C, CHAR3WEP12: PUT #1, &H2CC, CHAR4WEP12
PUT #1, &H28D, CHAR3WEP13: PUT #1, &H2CD, CHAR4WEP13
PUT #1, &H28E, CHAR3WEP14: PUT #1, &H2CE, CHAR4WEP14
PUT #1, &H28F, CHAR3WEP15: PUT #1, &H2CF, CHAR4WEP15
PUT #1, &H290, CHAR3WEP16: PUT #1, &H2D0, CHAR4WEP16
PUT #1, &H291, CHAR3MLEV1: PUT #1, &H2D1, CHAR4MLEV1
PUT #1, &H292, CHAR3MLEV2: PUT #1, &H2D2, CHAR4MLEV2
PUT #1, &H293, CHAR3MLEV3: PUT #1, &H2D3, CHAR4MLEV3
PUT #1, &H294, CHAR3MLEV4: PUT #1, &H2D4, CHAR4MLEV4
PUT #1, &H295, CHAR3MLEV5: PUT #1, &H2D5, CHAR4MLEV5
PUT #1, &H296, CHAR3MLEV6: PUT #1, &H2D6, CHAR4MLEV6
PUT #1, &H297, CHAR3MLEV7: PUT #1, &H2D7, CHAR4MLEV7
PUT #1, &H298, CHAR3MLEV8: PUT #1, &H2D8, CHAR4MLEV8
PUT #1, &H299, CHAR3MLEV9: PUT #1, &H2D9, CHAR4MLEV9
PUT #1, &H29A, CHAR3MLEV10: PUT #1, &H2DA, CHAR4MLEV10
PUT #1, &H29B, CHAR3MLEV11: PUT #1, &H2DB, CHAR4MLEV11
PUT #1, &H29C, CHAR3MLEV12: PUT #1, &H2DC, CHAR4MLEV12
PUT #1, &H29D, CHAR3MLEV13: PUT #1, &H2DD, CHAR4MLEV13
PUT #1, &H29E, CHAR3MLEV14: PUT #1, &H2DE, CHAR4MLEV14
PUT #1, &H29F, CHAR3MLEV15: PUT #1, &H2DF, CHAR4MLEV15
PUT #1, &H2A0, CHAR3MLEV16: PUT #1, &H2E0, CHAR4MLEV16
PUT #1, &H2A1, CHAR3MLEV17: PUT #1, &H2E1, CHAR4MLEV17
PUT #1, &H2A2, CHAR3MLEV18: PUT #1, &H2E2, CHAR4MLEV18
PUT #1, &H2A3, CHAR3MLEV19: PUT #1, &H2E3, CHAR4MLEV19
PUT #1, &H2A4, CHAR3MLEV20: PUT #1, &H2E4, CHAR4MLEV20
PUT #1, &H2A5, CHAR3MLEV21: PUT #1, &H2E5, CHAR4MLEV21
PUT #1, &H2A6, CHAR3MLEV22: PUT #1, &H2E6, CHAR4MLEV22
PUT #1, &H2A7, CHAR3MLEV23: PUT #1, &H2E7, CHAR4MLEV23
PUT #1, &H2A8, CHAR3MLEV24: PUT #1, &H2E8, CHAR4MLEV24
PUT #1, &H2A9, CHAR3MLEV25: PUT #1, &H2E9, CHAR4MLEV25
PUT #1, &H2AA, CHAR3MLEV26: PUT #1, &H2EA, CHAR4MLEV26
PUT #1, &H2AB, CHAR3MLEV27: PUT #1, &H2EB, CHAR4MLEV27
PUT #1, &H2AC, CHAR3MLEV28: PUT #1, &H2EC, CHAR4MLEV28
PUT #1, &H2AD, CHAR3MLEV29: PUT #1, &H2ED, CHAR4MLEV29
PUT #1, &H2AE, CHAR3MLEV30: PUT #1, &H2EE, CHAR4MLEV30
PUT #1, &H2AF, CHAR3MLEV31: PUT #1, &H2EF, CHAR4MLEV31
PUT #1, &H2B0, CHAR3MLEV32: PUT #1, &H2F0, CHAR4MLEV32
PUT #1, &H61, ITEM1: PUT #1, &H62, ITEM2
PUT #1, &H63, ITEM3: PUT #1, &H64, ITEM4
PUT #1, &H65, ITEM5: PUT #1, &H66, ITEM6
PUT #1, &H67, ITEM7: PUT #1, &H68, ITEM8
PUT #1, &H69, ITEM9: PUT #1, &H6A, ITEM10
PUT #1, &H6B, ITEM11: PUT #1, &H6C, ITEM12
PUT #1, &H6D, ITEM13: PUT #1, &H6E, ITEM14
PUT #1, &H6F, ITEM15: PUT #1, &H70, ITEM16
PUT #1, &H71, ITEM17: PUT #1, &H72, ITEM18
PUT #1, &H73, ITEM19: PUT #1, &H74, ITEM20
PUT #1, &H75, ITEM21: PUT #1, &H76, ITEM22
PUT #1, &H77, ITEM23: PUT #1, &H78, ITEM24
PUT #1, &H79, ITEM25: PUT #1, &H7A, ITEM26
PUT #1, &H7B, ITEM27: PUT #1, &H7C, ITEM28
PUT #1, &H7D, ITEM29: PUT #1, &H7E, ITEM30
PUT #1, &H7F, ITEM31: PUT #1, &H80, ITEM32
PUT #1, &H1D, GIL1: PUT #1, &H1E, GIL2: PUT #1, &H1F, GIL3
PUT #1, &H121, CHAR1POW2: PUT #1, &H161, CHAR2POW2
PUT #1, &H1A1, CHAR3POW2: PUT #1, &H1E1, CHAR4POW2
PUT #1, &H122, CHAR1AGI2: PUT #1, &H162, CHAR2AGI2
PUT #1, &H1A2, CHAR3AGI2: PUT #1, &H1E2, CHAR4AGI2
PUT #1, &H123, CHAR1VIT2: PUT #1, &H163, CHAR2VIT2
PUT #1, &H1A3, CHAR3VIT2: PUT #1, &H1E3, CHAR4VIT2
PUT #1, &H124, CHAR1INT2: PUT #1, &H164, CHAR2INT2
PUT #1, &H1A4, CHAR3INT2: PUT #1, &H1E4, CHAR4INT2
PUT #1, &H125, CHAR1SOU2: PUT #1, &H165, CHAR2SOU2
PUT #1, &H1A5, CHAR3SOU2: PUT #1, &H1E5, CHAR4SOU2
PUT #1, &H126, CHAR1MPOW2: PUT #1, &H166, CHAR2MPOW2
PUT #1, &H1A6, CHAR3MPOW2: PUT #1, &H1E6, CHAR4MPOW2
CLOSE #1
PRINT "File saved. "
PRINT "Press any key to continue"
GOTO KEY4

FILEEDIT:
  CLS
  PRINT "Do you want to edit "
  PRINT "(1) Gold"
  PRINT "(2) Inventory"
  PRINT "(3) Characters"
  PRINT "(4) Back to main menu"
  INPUT "Which "; CHOICE
  IF CHOICE = 1 THEN GOTO GILL
  IF CHOICE = 2 THEN GOTO INVENTORY
  IF CHOICE = 3 THEN GOTO CHARED
  IF CHOICE = 4 THEN GOTO MAINMENU
  GOTO FILEEDIT

KEYZ:
PRINT "Change successful press any key to continue"
KEYX:
PROMPT$ = INKEY$
IF PROMPT$ = "" THEN GOTO KEYX
GOTO CHAREDIT

GILL:
CLS
INPUT "New Gold amount max=9,999,999 "; NEWGIL
NEWGIL$ = HEX$(NEWGIL)
NEWGIL1$ = MID$(NEWGIL$, 1, 2)
NEWGIL2$ = MID$(NEWGIL$, 3, 2)
NEWGIL3$ = MID$(NEWGIL$, 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" + NEWGIL1$))
PRINT "Change successful, press any key to continue."
GILZ:
PROMPT$ = INKEY$
IF PROMPT$ = "" THEN GOTO GILZ
GOTO FILEEDIT


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) Max HP"
PRINT "(2) Max MP"
PRINT "(3) Edit base stats "
PRINT "(4) Weapon skill levels"
PRINT "(5) Magic skill levels"
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 CHARHP
IF CHOICE = 2 THEN GOTO CHARMP
IF CHOICE = 3 THEN GOTO CHARSTATS
IF CHOICE = 4 THEN GOTO CHARWEP
IF CHOICE = 5 THEN GOTO CHARMLEV
IF CHOICE = 6 THEN GOTO CHARED
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 (MAX=9999)"
INPUT CHARMP
IF CHARMP > 9999 THEN GOTO CHARMP
IF CHARMP < 0 THEN GOTO CHARMP
IF INT(CHARMP) <> CHARMP THEN GOTO CHARMP
CHARMP$ = HEX$(CHARMP)
MPTEMP2$ = MID$(CHARMP$, 1, 2)
MPTEMP3$ = MID$(CHARMP$, 3, 2)
IF CHARTMP = 1 THEN CHAR1MP4 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 1 THEN CHAR1MP3 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 2 THEN CHAR2MP4 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 2 THEN CHAR2MP3 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 3 THEN CHAR3MP4 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 3 THEN CHAR3MP3 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 4 THEN CHAR4MP4 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 4 THEN CHAR4MP3 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 1 THEN CHAR1MP2 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 1 THEN CHAR1MP1 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 2 THEN CHAR2MP2 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 2 THEN CHAR2MP1 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 3 THEN CHAR3MP2 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 3 THEN CHAR3MP1 = CHR$(VAL("&H" + MPTEMP3$))
IF CHARTMP = 4 THEN CHAR4MP2 = CHR$(VAL("&H" + MPTEMP2$))
IF CHARTMP = 4 THEN CHAR4MP1 = CHR$(VAL("&H" + MPTEMP3$))
GOTO KEYZ


CHARWEP:
PRINT "Enter a new value for max level of weapons (MAX=16)"
INPUT CHARWEP
IF CHARWEP > 16 THEN GOTO CHARWEP
IF CHARWEP < 0 THEN GOTO CHARWEP
IF INT(CHARWEP) <> CHARWEP THEN GOTO CHARWEP
CHARWEP=CHARWEP-1
CHARWEP$ = HEX$(CHARWEP)
IF CHARTMP = 1 THEN CHAR1WEP2 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP4 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP6 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP8 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP10 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP12 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP14 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP16 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP2 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP4 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP6 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP8 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP10 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP12 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP14 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2WEP16 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP2 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP4 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP6 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP8 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP10 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP12 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP14 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3WEP16 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP2 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP4 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP6 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP8 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP10 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP12 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP14 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4WEP16 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1WEP1 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP3 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP5 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP7 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP9 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP11 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP13 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 1 THEN CHAR1WEP15 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP1 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP3 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP5 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP7 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP9 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP11 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP13 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 2 THEN CHAR2WEP15 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP1 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP3 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP5 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP7 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP9 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP11 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP13 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 3 THEN CHAR3WEP15 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP1 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP3 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP5 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP7 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP9 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP11 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP13 = CHR$(VAL("&H" + CHARWEP$))
IF CHARTMP = 4 THEN CHAR4WEP15 = CHR$(VAL("&H" + CHARWEP$))
GOTO KEYZ

CHARMLEV:
PRINT "Enter a new value for spell levels (MAX=16)"
INPUT CHARMP
IF CHARMP > 16 THEN GOTO CHARMLEV
IF CHARMP < 0 THEN GOTO CHARMLEV
IF INT(CHARMP) <> CHARMP THEN GOTO CHARMLEV
CHARMP=CHARMP-1
CHARMP$ = HEX$(CHARMP)
IF CHARTMP = 1 THEN CHAR1MLEV2 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV4 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV6 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV8 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV10 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV12 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV14 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV16 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV2 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV4 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV6 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV8 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV10 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV12 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV14 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV16 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV2 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV4 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV6 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV8 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV10 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV12 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV14 = CHR$(VAL("&H00"))
IF CHARTMP = 3 THEN CHAR3MLEV16 = CHR$(VAL("&H00"))
IF CHARTMP = 4 THEN CHAR4MLEV2 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV4 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV6 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV8 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV10 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV12 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV14 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV16 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV1 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV3 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV5 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV7 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV9 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV11 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV13 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV15 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV1 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV3 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV5 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV7 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV9 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV11 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV13 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV15 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV1 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV3 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV5 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV7 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV9 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV11 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV13 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV15 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV1 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV3 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV5 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV7 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV9 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV11 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV13 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV15 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV18 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV20 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV22 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV24 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV26 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV28 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV30 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV32 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV18 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV20 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV22 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV24 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV26 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV28 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV30 = CHR$(VAL("&H63"))
IF CHARTMP = 2 THEN CHAR2MLEV32 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV18 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV20 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV22 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV24 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV26 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV28 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV30 = CHR$(VAL("&H63"))
IF CHARTMP = 3 THEN CHAR3MLEV32 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV18 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV20 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV22 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV24 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV26 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV28 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV30 = CHR$(VAL("&H63"))
IF CHARTMP = 4 THEN CHAR4MLEV32 = CHR$(VAL("&H63"))
IF CHARTMP = 1 THEN CHAR1MLEV17 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV19 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV21 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV23 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV25 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV27 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV29 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 1 THEN CHAR1MLEV31 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV17 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV19 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV21 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV23 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV25 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV27 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV29 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 2 THEN CHAR2MLEV31 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV17 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV19 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV21 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV23 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV25 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV27 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV29 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 3 THEN CHAR3MLEV31 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV17 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV19 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV21 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV23 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV25 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV27 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV29 = CHR$(VAL("&H" + CHARMP$))
IF CHARTMP = 4 THEN CHAR4MLEV31 = CHR$(VAL("&H" + CHARMP$))
GOTO KEYZ

CHARSTATS:
CLS
PRINT "Character Stats"
PRINT "(1) Power"
PRINT "(2) Agility"
PRINT "(3) Vitality"
PRINT "(4) IntelLect"
PRINT "(5) Soul"
PRINT "(6) Magic power"
PRINT "(7) Back to character menu"
INPUT "Menu Choice "; CHSTAT
CHSTATS = 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 CHSTATS = 1 AND CHARTMP = 1 THEN CHAR1POW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 1 THEN CHAR1POW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 1 THEN CHAR1AGI = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 1 THEN CHAR1AGI2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 1 THEN CHAR1VIT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 1 THEN CHAR1VIT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 1 THEN CHAR1INT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 1 THEN CHAR1INT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 1 THEN CHAR1SOU = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 1 THEN CHAR1SOU2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 1 THEN CHAR1MPOW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 1 THEN CHAR1MPOW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 2 THEN CHAR2POW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 2 THEN CHAR2AGI = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 2 THEN CHAR2VIT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 2 THEN CHAR2INT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 2 THEN CHAR2SOU = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 2 THEN CHAR2MPOW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 2 THEN CHAR2POW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 2 THEN CHAR2AGI2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 2 THEN CHAR2VIT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 2 THEN CHAR2INT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 2 THEN CHAR2SOU2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 2 THEN CHAR2MPOW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 3 THEN CHAR3POW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 3 THEN CHAR3AGI = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 3 THEN CHAR3VIT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 3 THEN CHAR3INT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 3 THEN CHAR3SOU = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 3 THEN CHAR3MPOW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 3 THEN CHAR3POW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 3 THEN CHAR3AGI2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 3 THEN CHAR3VIT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 3 THEN CHAR3INT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 3 THEN CHAR3SOU2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 3 THEN CHAR3MPOW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 4 THEN CHAR4POW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 4 THEN CHAR4AGI = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 4 THEN CHAR4VIT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 4 THEN CHAR4INT = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 4 THEN CHAR4SOU = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 4 THEN CHAR4MPOW = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 1 AND CHARTMP = 4 THEN CHAR4POW2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 2 AND CHARTMP = 4 THEN CHAR4AGI2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 3 AND CHARTMP = 4 THEN CHAR4VIT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 4 AND CHARTMP = 4 THEN CHAR4INT2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 5 AND CHARTMP = 4 THEN CHAR4SOU2 = CHR$(VAL("&H" + NEWTMP$))
IF CHSTATS = 6 AND CHARTMP = 4 THEN CHAR4MPOW2 = CHR$(VAL("&H" + NEWTMP$))
GOTO KEYZ

INVENTORY:
CLS
INPUT "Item slot number (0 to exit) (1-60) "; SLOT
IF SLOT = 0 THEN GOTO FILEEDIT
IF SLOT > 60 THEN GOTO INVENTORY
IF SLOT < 0 THEN GOTO INVENTORY
IF INT(SLOT) <> SLOT THEN GOTO INVENTORY
INPUT "Item number (refer to lists) "; ITEM
ITEM$ = HEX$(ITEM)
IF SLOT = 0 THEN GOTO FILEEDIT
IF SLOT = 1 THEN ITEM1 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 2 THEN ITEM2 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 3 THEN ITEM3 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 4 THEN ITEM4 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 5 THEN ITEM5 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 6 THEN ITEM6 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 7 THEN ITEM7 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 8 THEN ITEM8 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 9 THEN ITEM9 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 10 THEN ITEM10 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 11 THEN ITEM11 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 12 THEN ITEM12 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 13 THEN ITEM13 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 14 THEN ITEM14 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 15 THEN ITEM15 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 16 THEN ITEM16 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 17 THEN ITEM17 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 18 THEN ITEM18 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 19 THEN ITEM19 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 20 THEN ITEM20 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 21 THEN ITEM21 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 22 THEN ITEM22 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 23 THEN ITEM23 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 24 THEN ITEM24 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 25 THEN ITEM25 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 26 THEN ITEM26 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 27 THEN ITEM27 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 28 THEN ITEM28 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 29 THEN ITEM29 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 30 THEN ITEM30 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 31 THEN ITEM31 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 32 THEN ITEM32 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 33 THEN CHAR1HEAD = CHR$(VAL("&H" + ITEM$))
IF SLOT = 34 THEN CHAR1BODY = CHR$(VAL("&H" + ITEM$))
IF SLOT = 35 THEN CHAR1ARMS = CHR$(VAL("&H" + ITEM$))
IF SLOT = 36 THEN CHAR1LFTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 37 THEN CHAR1RGTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 38 THEN CHAR1ITEM1 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 39 THEN CHAR1ITEM2 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 40 THEN CHAR2HEAD = CHR$(VAL("&H" + ITEM$))
IF SLOT = 41 THEN CHAR2BODY = CHR$(VAL("&H" + ITEM$))
IF SLOT = 42 THEN CHAR2ARMS = CHR$(VAL("&H" + ITEM$))
IF SLOT = 43 THEN CHAR2LFTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 44 THEN CHAR2RGTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 45 THEN CHAR2ITEM1 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 46 THEN CHAR2ITEM2 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 47 THEN CHAR3HEAD = CHR$(VAL("&H" + ITEM$))
IF SLOT = 48 THEN CHAR3BODY = CHR$(VAL("&H" + ITEM$))
IF SLOT = 49 THEN CHAR3ARMS = CHR$(VAL("&H" + ITEM$))
IF SLOT = 50 THEN CHAR3LFTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 51 THEN CHAR3RGTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 52 THEN CHAR3ITEM1 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 53 THEN CHAR3ITEM2 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 54 THEN CHAR4HEAD = CHR$(VAL("&H" + ITEM$))
IF SLOT = 55 THEN CHAR4BODY = CHR$(VAL("&H" + ITEM$))
IF SLOT = 56 THEN CHAR4ARMS = CHR$(VAL("&H" + ITEM$))
IF SLOT = 57 THEN CHAR4LFTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 58 THEN CHAR4RGTHND = CHR$(VAL("&H" + ITEM$))
IF SLOT = 59 THEN CHAR4ITEM1 = CHR$(VAL("&H" + ITEM$))
IF SLOT = 60 THEN CHAR4ITEM2 = CHR$(VAL("&H" + ITEM$))
GOTO INVENTORY

OOOPS:
PRINT "There was an unexpected error, exiting"
END

