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