home *** CD-ROM | disk | FTP | other *** search
- 5 ifx=0thenx=1:load"sprite data",8,1
- 10 print"[147]":poke56,64:poke52,64:clr:b=87
- 15 poke53280,0:poke53281,0
- 20 v=53248:poke2041,223:pokev+40,2:pokev+41,7:pokev,100:pokev+1,100
- 25 pokev+16,2
- 30 pokev+21,3:pokev+39,14:pokev+38,6:pokev+37,1
- 40 pokev+28,255:pokev+3,104
- 50 fort=0to20:x=int(rnd(1)*999)+1:poke1024+x,46:poke55296+x,1:next
- 60 x=222
- 70 poke2040,x
- 90 x=x-1:ifx=199thenx=222
- 150 b=b-3:o=o+1
- 151 ifb<0thenpokev+16,0:b=255
- 152 ifo/2=int(o/2)thenp=223
- 153 ifo/2<>int(o/2)thenp=224
- 160 pokev+2,b
- 161 poke2041,p
- 170 ifpeek(v+30)>0then200
- 180 goto70
- 200 pokev+21,1:pokev+2,0
- 210 fort=225to240:poke2040,t
- 220 forx=0to100:next
- 230 next
- 240 pokev+21,0:x=peek(v+30)
- 250 poke783,peek(783)and254:poke781,23:poke782,13:sys65520:print"<press a key>"
- 260 poke198,0:wait198,1
- 270 print"[147]want to see it again? (y/n)":poke198,0:wait198,1:getz$
- 280 ifz$<>"y"andz$<>"n"then270
- 290 ifz$="y"then10
- 300 :
- 305 restore:poke56,160
- 306 forx=0to7:poke53276,peek(53276)and(255-2^x):next
- 310 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
- 320 poke631,13:poke632,13:poke198,2:end
-