start tok64 d64-jhpyER
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 4
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
270 NEXT a
280 POKE s+4,0
stop tok64
(bastext 1.0)