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)" " 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)"7 " 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 Marbles !!!!! " 360 PRINTTAB(x,16+y)" I FIXED THE BUGFIX...(Janny) " 370 PRINTTAB(x,17+y)" " 380 PRINTTAB(x,18+y)" To fix this insert issue 9 " 390 PRINTTAB(x,19+y)" without a write protect nd " 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 "+need$+" |M 511|M SAVE ""MARBS""|M RUN|M" 480 *FX15 490 *FX138 0 128 500 ENDPROC 510 IF MM%=0 AND INF%:D%=FALSE:INF%=FALSE:MM%=1