home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
xither.pp
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
289b
|
12 lines
0 clr
2 print"[147]"poke53280,6:poke53281,6
10 rem last xither
20 for l=54272 to 54295:poke l,0:next:poke 54296,15
30 poke 54277,8:poke 54278,255:poke 54276,23
40 f1=10
50 for z=1 to 24:f2=30:poke 54273,f1
60 for y=1 to 10:poke 54287,f2:f2=f2*1.01:next y
70 f1=f1+8
80 next z
90 poke 54278,15