start tok64 d64-wRpxK5 10 s=54272 20 FOR l=s TO s+24 25 POKE l,0:NEXT 30 POKE s+24,15 40 POKE s+5,8 50 POKE s+6,255 60 POKE s+4,23 70 FOR a=1 TO 8 75 FOR t=1 TO 11:NEXT t 80 lf=21 90 FOR b=1 TO 6 92 FOR t=1 TO 3:NEXT t 110 POKE s+1,lf 120 FOR t=1 TO 3:NEXT t 160 lf=lf*1.5 165 FOR t=1 TO 3:NEXT t 170 NEXT b 270 NEXT a 280 POKE s+4,0 stop tok64 (bastext 1.0)