1 rem glider rider (quicksilva)
2 rem cheat option by tim and lan fraser
3 rem cassette -v1- zzapp64 iss.25
10 poke 53280,6:poke 53281,6:print chr$(5)
20 print chr$(147)"please wait":def fnr(a)=peek(a)+peek(a+1)*256
30 i=16384
40 read a:t=t+a:if a=256 then 80
50 if a>256 then c=a:t=t-a:if t<>c then print "data error in line" fnr(63):end
60 if a>256 then c=0:t=0:goto 40
70 poke i,a:i=i+1:goto 40
80 poke 53280,5:poke 53281,5
90 poke 646,13:print chr$(147):poke 198,0
100 print "infinite energy (y/n)?"
110 gosub 510
120 if a=1 then sa=16467:ea=16471:gosub550
130 print "infinite time (y/n)?"
140 gosub 510
150 if a=1 then sa=16458:ea=16463:gosub550
160 print "infinite bombs (y/n)?"
170 gosub 510
180 if a=1 then sa=16440:ea=16444:gosub550
190 print "disable lasers (y/n)?"
200 gosub 510
210 if a=1 then sa=16445:ea=16449:gosub550
220 print "immunity from sharks (y/n)?"
230 gosub 510
240 if a=1 then sa=16452:ea=16457:gosub550
250 print "change number of reactors needed (y/n)?"
260 gosub 510
270 if a=1 then 320
280 input "enter new number (1-10)";a$
290 a=val(a$)
300 if a<1 or a>10 then 280
310 poke 16488,a
320 print:print "all options ok (y/n)?"
330 gosub 510
340 if a=1 then run
350 for i=1 to 110:poke 528+1,peek(16384+1):next
360 sys 528
370 data 169,1,168,170,32,186,255,169,1150
380 data 0,32,189,255,32,213,255,162,1138
390 data 2,189,107,2,157,232,3,202,894
400 data 16,247,76,171,2,169,58,141,880
410 data 201,9,169,2,141,206,9,76,813
420 data 160,9,162,2,189,110,2,157,791
430 data 181,72,202,16,247,76,0,72,866
440 data 169,173,141,152,111,169,96,141,1152
450 data 154,100,162,2,189,113,2,157,879
460 data 247,105,189,116,2,157,250,113,1179
470 data 202,16,241,169,0,141,226,113,1108
480 data 76,119,2,76,45,2,76,72,468
490 data 2,76,254,105,76,4,114,631
500 data 169,10,141,8,114,76,103,128,749,256
510 get a$:if a$="" then 510
520 if a$="y" then a=0:print "yes":return
530 if a$="n" then a=1:print "no":return
550 for i=sa to ea:poke i,234:next:return
Download PRG...
