1 :' Quattro Combat Cheat System
2 :' by ANDY PRICE
3 :' * use Typewriter codes *
4 :'
5 ùTAPE
10 FOR x=&BE00 TO &BE21
20 READ p$:p=VAL("&"+p$)
30 POKE x,p:NEXT
40 MODE 1:PRINT"Choose Hame:"
50 PRINT"1. Death Stalker"
60 PRINT"2. SAS Combat Simulator"
70 PRINT"3. Arcade Flight Simulator"
80 PRINT:INPUT"Number: ",n
90 ON n GOSUB 100,180,200
91 RESTORE 440:GOTO 500
100 RESTORE 400:GOSUB 290
110 INPUT"Ground ghouls";y$
120 IF LEFT$(y$,1)="y" THEN 160
130 INPUT"Fireball demons";y$
140 IF LEFT$(y$,1)="y" THEN 170
150 RETURN
160 POKE &BE24,&3C:GOTO 130
170 POKE &BE29,&3C:RETURN
180 RESTORE 380:GOSUB 290
190 RETURN
200 RESTORE 420:GOSUB 290
210 CLS:PRINT"Infinite lives:"
240 INPUT"Player 1";y$
245 IF LEFT$(y$,1)="y" THEN 260
250 POKE &BE24,&3D
260 INPUT"Player 2";y$
265 IF LEFT$(y$,1)="y" THEN 280
270 POKE &BE29,&3D
280 RETURN
290 FOR x=&BE23 TO &BE2E
300 READ p$:POKE x,VAL("&"+p$)
310 NEXT:RETURN
320 DATA ed,5b,38,bd,eb
330 DATA 22,34,be,11,37,bd
340 DATA eb,3e,c3,77,23,3e
350 DATA 23,77,3e,be,23,77
360 DATA 21,40,00,e3,11,00
370 DATA bb,00,c3,4a,3a,91
380 DATA af,32,aa,49,3e,ff
390 DATA 32,86,32,32,8b,32
400 DATA 3e,00,32,1c,17,3e
410 DATA 00,32,bd,18,00,00
420 DATA 3e,00,32,8a,89,3e
430 DATA 00,32,4e,89,00,00
440 DATA 00,41,50,00,cf,00
500 FOR x=&BE2F TO &BE34
510 READ p$:POKE x,VAL("&"+p$)
520 NEXT:MEMORY &3000:LOAD""
530 CALL &BE00