start tok64 d64-aPde7W
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 2
80 lf=10
90 FOR b=1 TO 6
100 hf=10
110 POKE s+1,lf
120 FOR c=1 TO 4
130 POKE s+15,hf
140 hf=hf*1.02
150 NEXT c
160 lf=lf*1.2
170 NEXT b
180 FOR d=1 TO 8
190 hf=20
200 POKE s+1,hf
210 FOR e=1 TO 3
220 POKE s+15,hf
230 hf=hf*1.2
240 NEXT e
250 lf=lf/1.2
260 NEXT d
270 NEXT a
280 POKE s+4,0
stop tok64
(bastext 1.0)