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