start tok64 d64-lgRRuk
10 FORa=54272TO54295:POKEa,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23
30 b=4
40 FORc=1TO5:POKE54287,b
50 FORd=1TO100
60 POKE54273,d:b=b+.03:NEXTd,c:POKE54278,15
stop tok64
(bastext 1.0)