start tok64 d64-YMuSmB 10 z=1.01 20 FORa=54272TO54296:POKEa,0:NEXT:POKE54296,15 30 POKE54277,8:POKE54278,255:POKE54276,23:a=10 40 FORb=1TO12:c=30 50 POKE54273,a 60 FORd=1TO13:POKE54287,c 70 c=c*z:NEXTd 80 a=a+18:NEXTb 90 z=z+0.01:IFz>1.1THENPOKE54278,15:END 100 GOTO30 stop tok64 (bastext 1.0)