start tok64 d64-DuOZ6P 10 FORn=54272TO54295:POKEn,0:NEXT:POKE54296,15 20 POKE54277,8:POKE54278,255:POKE54276,23 30 FORn=1TO3 35 fq=10:FORy=1TO9 40 fr=10:POKE54273,fq 50 FORx=1TO4:POKE54287,fr 60 fr=fr*1.02:NEXTx:fq=fq*1.2:NEXTy 70 FORw=1TO8 80 fr=20:POKE54273,fq 90 FORv=1TO3 100 POKE54287,fr:fr=fr*1.2:NEXTv:fq=fq/1.2:NEXTw:NEXTn 110 POKE54278,15 stop tok64 (bastext 1.0)