home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
falling star.pp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
289b
|
13 lines
0 clr
2 print"[147]"poke53280,6:poke53281,6
10 rem falling star
20 for l=54272 to 54295:poke l,0:next:poke 54296,15
30 poke 54277,4:poke 54278,12
40 f2=150:q=50
50 for z=1 to 50
60 f1=int(100*rnd(1))+10:poke 54276,23
70 for t=1 to q:next t
80 poke 54273,f1:poke 54287,f2:poke 54276,20:q=q-1:f2=f2-3
90 next z
100 poke 54273,30:poke 54280,0