1 rem nemesis the warlock (martech)
2 rem select cheats by mick mills and al
3 rem cassette -v1- zzap64 no.30
10 l=49152
20 for x=1 to 14:t=0
30 for y=1 to 8
40 read a:poke l,a
50 l=l+1:t=t+a
60 next
70 read c:if t=c then 90
80 print "error in data"x*10+90:end
90 next
93 gosub 300
94 gosub 400
95 rem print "sys 49152 to load and run."
99 sys 49152:end
100 data 169,1,170,168,32,186,255,169,1150
110 data 0,32,189,255,32,213,255,169,1145
120 data 26,141,150,3,169,192,141,151,973
130 data 3,96,169,76,141,91,56,169,801
140 data 44,141,92,56,169,192,141,93,928
150 data 56,76,25,8,162,49,189,58,623
160 data 192,157,128,8,202,16,247,76,1026
170 data 128,8,32,181,2,32,181,2,566
180 data 32,181,2,169,0,141,17,143,685
190 data 169,0,141,220,138,169,0,141,978
200 data 116,140,141,51,139,169,169,141,1066
210 data 185,138,169,30,141,190,138,169,1160
220 data 208,141,75,139,169,241,141,76,1190
230 data 139,76,0,128,65,76,77,77,638
300 rem
310 print "do you want infinite ammo? (y/n)";
320 get a$:if a$<>"y" and a$<> "n" then 320
330 if a$="n" then poke 49220,1
340 print a$:return
400 rem
410 print" do you want infinite ammo? (y/n)";
420 get a$:if a$<>"y" and a$<>"n" then 420
430 if a$="n" then poke 49225,214
440 print a$:return
Download PRG...
