start tok64 d64-7NCIdP
10 FORn=54272TO54295:POKEn,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23:fq=10
30 FORz=1TO12:fr=30
40 POKE54273,fq
50 FORy=1TO10:POKE54287,fr
60 fr=fr*1.01:NEXTy
70 fq=fq+8:NEXTz
80 POKE54278,15
stop tok64
(bastext 1.0)