start tok64 d64-TZZWmS 10 s=54272 20 FOR l=s TO s+24 25 POKE l,0:NEXT 30 POKE s+24,15 40 POKE s+5,6 50 POKE s+6,255 60 POKE s+4,21 70 FOR a=1 TO 4 80 lf=10 90 FOR b=1 TO 5 100 hf=40 110 POKE s+1,hf 120 FOR c=1 TO 5 130 POKE s+15,hf 140 hf=hf*1.01 150 NEXT c 160 lf=lf*1.5 170 NEXT b 180 NEXT a 190 POKE s+4,0 stop tok64 (bastext 1.0)