10REM>ChComm 30MODE7 40PRINT"This program lets you change the "'"adfs- or dfs-select commands in ' MBB'"' 50DIM space% 10000 60OSCLI"load mbb "+STR$÷space% 70a%=OPENIN"DiscDat" 80length%=(BGET#a%)+256*BGET#a% 90exaddr%=(BGET#a%)+256*BGET#a% 100adfs%=space%-&E00+(BGET#a%)+256*BGE T#a% 110dfs%=space%-&E00+(BGET#a%)+256*BGET #a% 120CLOSE#a% 130ok%=TRUE 140REPEAT 150PRINT''"Current command to select A DFS is: *"$adfs%' 160PRINT" Change command to...?"'"(<Re turn> if '*";$adfs%;:INPUT"' is O.K.) *" a$ 170IFa$="" GOTO 200 180a$=LEFT$(a$,4):PRINT"Is '*";a$;"' O .K.?(Y/N) ":b$=GET$ 190IFINSTR("YesYESyesJAJaja",b$)THEN$a dfs%=a$ ELSEGOTO150 200PRINT''"Current command to select D FS is: *"$dfs%' 210PRINT" Change command to...?"'"(<Re turn> if '*";$dfs%;:INPUT"' is O.K.) *"a $ 220IFa$="" GOTO 241 230a$=LEFT$(a$,4):PRINT"Is '*";a$;"' O .K.?(Y/N) ":b$=GET$ 240IFINSTR("YesYESyesJAJaja",b$)THEN$d fs%=a$ ELSEGOTO200 241OSCLI"save mbb "+STR$÷space%+" "+ST R$÷(space%+length%)+" "+STR$÷exaddr%+" 2 000" 242END