1 rem avenger (gremlin graphics)
2 rem infinite energy
3 rem cassette -v1- zzapp64 iss.25
10 def fnr(a)=peek(a)+peek(a+1)*256
20 poke 53280,6:print chr$(5) chr$(147) "please wait"
30 i=49152
40 read a: t=t+a:if a=256 then 80
50 if a<256 then poke i,a:i=i+1:goto 40
60 c=a:t=t-a:if t<>c then print "data error in line" fnr(63):end
70 c=0:t=0:goto 40
80 sys 49152
100 data 169,1,168,170,32,186,255,169,1150
110 data 0,32,189,255,32,213,255,169,1145
120 data 0,133,193,133,174,133,147,169,1082
130 data 4,133,194,169,8,133,175,32,848
140 data 165,245,120,169,53,133,1,169,1055
150 data 0,141,17,208,160,0,162,0,688
160 data 173,64,4,93,0,4,141,64,543
170 data 4,232,224,64,208,242,238,49,1261
180 data 192,208,3,238,50,192,238,55,1176
190 data 192,208,3,238,56,192,200,192,1281
200 data 216,208,219,162,0,189,64,4,1062
210 data 149,0,232,224,216,208,246,162,1437
220 data 217,189,255,255,157,17,2,202,1294
230 data 208,247,162,2,189,137,192,157,1294
240 data 152,2,189,140,192,157,220,2,1054
250 data 202,16,241,162,13,189,143,192,1158
260 data 157,235,2,202,16,247,76,161,1096
270 data 2,76,235,2,76,57,2,169,619
280 data 173,141,18,25,141,44,25,141,708
290 data 76,25,76,148,46,371,256
Download PRG...