CBM Funet Archive/cbm-funet-archive-2003.iso/cbm/c64/demos/generic/Demos.lzh/-explosion

Commodore BASIC | 1993-12-17 | 639 b | 16 lines

5 poke53280,0:print"[147][142]":poke53281,0:fora=0to1000:next
10 printchr$(5)"":fori=1to3:printchr$(17):next:print"away we go"
20 fori=1to16:print"[145][148] [157]":poke53270,200:wait53265,128
30 poke53270,peek(53270)and248:wait53265,128
40 forj=1to7:poke53270,(peek(53270)and248)+j:fork=0to10:next:nextj,i
50 print"[145][145][145]":poke53270,200
60 fori=1to14:printtab(15)"           "
63 poke53265,peek(53265)and248:wait53265,128
65 printtab(15)"i'm falling[145]"
70 forj=1to7:poke53265,24+j:ifjand1thenpoke53265,24:wait53265,128
80 fork=1to30:nextk,j,i
90 poke53281,2:fori=1to20:next:print"[147]":poke53281,0:poke53265,27
95 r(0)=2:r(1)=8:r(2)=10:r(3)=8:r(4)=7
100 foru=3to20:forv=1tou*3:e=1845-u+int(rnd(1)*(u*2))-int(rnd(1)*u)*40
110 poke54272+e,r(int(rnd(1)*5)):pokee,160:nextv,u:print"";