1 :' Quattro Arcade Cheat System
2 :' by ANDY PRICE
3 :'
4 ùTAPE
10 FOR x=&BE00 TO &BE24
20 READ cd$:cd=VAL("&"+cd$)
30 POKE x,cd:NEXT
40 MODE 1:PEN 2:PRINT"Choose Game:"
50 PEN 1:PRINT"1. Pinball Simulator"
60 PRINT"2. 3D Starfighter"
70 PRINT"3. Grand Prix 2"
80 PRINT"4. Friut Machine Simulator"
90 PRINT:INPUT"Number: ",n
100 ON n GOSUB 120,140,160,200
110 GOTO 390
120 RESTORE 330:GOSUB 220
130 RETURN
140 RESTORE 370:GOSUB 220
150 RETURN
160 PRINT:PRINT"Grand Prix cheat:"
170 PRINT:PRINT"Re-define name as";
180 PEN 3:PRINT" INTEGRA":PEN 1
190 RUN""
200 RESTORE 350:GOSUB 220
210 RETURN
220 FOR x=&BE25 TO &BE2B
230 READ a$:POKE x,VAL("&"+a$)
240 NEXT:RETURN
250 DATA ed,58,38,bd,e5
260 DATA ac,e1,ed,53,2d
270 DATA be,ad,11,37,bd
280 DATA 3e,c3,12,13,3e
290 DATA 25,12,3e,be,13
300 DATA 12,21,40,00,e3
310 DATA 11,00,bb,00,c3
320 DATA 4a,3a,41,50,00
330 DATA af,32,15,04,ee
340 DATA 41,00,00,00,00
350 DATA af,32,3f,73,ee
360 DATA 50,00,00,00,00
370 DATA af,32,3a,7f,32
380 DATA 15,7f,00,00,00
390 POKE &BE2C,&CF
400 MEMORY &2FFF:LOAD""
410 CALL &BE00