start tok64 d64-qMYDXK 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 3:lf=10 80 FOR b=1 TO 6:hf=30 90 POKE s+1,lf 100 FOR c=1 TO 3 110 POKE s+15,hf 120 hf=hf/1.2:NEXT c 130 lf=lf*1.5:NEXT b 140 FOR d=1 TO 8 150 POKE s+1,lf 160 POKE s+15,hf 170 FOR e=1 TO 5:NEXTe 180 lf=lf/1.5 190 NEXT d 200 NEXT a 210 POKE s+4,0 stop tok64 (bastext 1.0)