start tok64 d64-kncUZ7
10 s=54272
20 FORl=sTOs+24
25 POKEl,0:NEXT
30 POKEs+24,15:POKEs+5,8:POKEs+6,255:POKEs+4,23
70 FORa=1TO3:lf=10
80 FORb=1TO6:hf=30
90 POKEs+1,lf
100 FORc=1TO3
110 POKEs+15,hf
120 hf=hf/1.3:NEXTc
130 lf=lf*1.6:NEXTb
140 FORd=1TO8
150 POKEs+1,lf
160 POKEs+15,hf
170 FORe=1TO5:NEXTe
180 lf=lf/1.9
190 NEXTd
200 NEXTa
210 POKEs+4,0
stop tok64
(bastext 1.0)