start tok64 d64-KxXmpc
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)