start tok64 d64-g7DHi6 10 FORn=54272TO54295:POKEn,0:NEXT:POKE54296,15 20 POKE54277,8:POKE54278,255:POKE54276,21 30 FORn=1TO4 40 fq=10:FORy=1TO5 50 fr=40:POKE54273,fq 60 FORx=1TO5:POKE54287,fr 70 fr=fr*1.01 80 NEXTx:fq=fq*1.5:NEXTy:NEXTn 110 POKE54278,15 stop tok64 (bastext 1.0)