8-Bit Software Online Conversion

Lost Your Marbles Fix - Listing

10 REM Marbles I bug fix 20 REM ANDY NIBBS 28/4/91 30 REM for MasterDisc 40 REM and 8-BIT PD 50 ON ERROR CHAIN"!Menu" 60 : 70 need$="1110NEXTB%:PRINT:NEXTA%" 80 MODE7 90 PROCinstructions(0,24) 100 *DISC 110 *FX15 120 A=GET 130 X=OPENUP"MARBS" 140 IF X=0 VDU7:CLOSE#X:GOTO120 150 CLOSE#X 160 PROCkey 170 END 180 : 190 DEFPROCinstructions(x,y) 200 PRINTTAB(x,0+y)" 210 PRINTTAB(x,1+y)"  220 PRINTTAB(x,2+y)"  pppppppppppppppppppp " 230 PRINTTAB(x,3+y)"      240 PRINTTAB(x,4+y)"    Have you lost   250 PRINTTAB(x,5+y)"      260 PRINTTAB(x,6+y)"  your marbles I 270 PRINTTAB(x,7+y)"     280 PRINTTAB(x,8+y)"    (Issue9) Bug   290 PRINTTAB(x,9+y)"      300 PRINTTAB(x,10+y)"  Fix.   310 PRINTTAB(x,11+y)"    320 PRINTTAB(x,12+y)"    330 PRINTTAB(x,13+y)" Maybe you noticed that the   340 PRINTTAB(x,14+y)" Bugfix in Issue 9 did NOT   350 PRINTTAB(x,15+y)" work on Ma rbles !!!!!   360 PRINTTAB(x,16+y)" I FIXED TH E BUGFIX...(Janny)   370 PRINTTAB(x,17+y)"    380 PRINTTAB(x,18+y)" To fix thi s insert issue 9   390 PRINTTAB(x,19+y)" without a write protect and   400 PRINTTAB(x,20+y)" press any key.   410 PRINTTAB(x,21+y)" ANDY NIBBS 28/4/91   420 PRINTTAB(x,22+y)"  ,,,,,,,,,,,,,,,,,,,,. " 430 ENDPROC 440 : 450 DEFPROCkey 460 *FX18 470 OSCLI"KEY 0 LOAD ""MARBS""|M "+nee d$+" |M 511|M SAVE ""MARBS""|M RUN|M" 480 *FX15 490 *FX138 0 128 500 ENDPROC 510IF MM%=0 AND INF%:D%=FALSE:INF%=FAL SE:MM%=1