start tok64 d64-Of76dY 10 FORa=54272TO54295:POKEa,0:NEXT:POKE54296,15 20 POKE54277,8:POKE54278,255:POKE54276,21 30 FORb=1TO4 40 c=10:FORd=1TO5 50 e=40:POKE54273,c 60 FORf=1TO5:POKE54287,e 70 e=e*1.13 80 NEXTf:c=c*2:NEXTd,b 90 POKE54278,15 stop tok64 (bastext 1.0)