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