3 DEFFNF(X)=ABS(SIN(X)*SQR(ABS(5*X)))*2000+2000
5 POKE53265,11
6 POKE56334,PEEK(56334)AND254
10 S=54272:FORI=0TO24:POKES+I,0:NEXT
11 POKES+24,15+16:POKES+6,240:POKES+13,240:POKES+23,12*16+1:POKES+22,120
12 POKES+4,21:POKES+1,50:POKES+11,23:POKES+8,20
30 FORI=0TO32*(null)STEP(null)/4:F=FNF(I):H=F/256:L=F-256*H:POKES+14,L:POKES+15,H:NEXTI
35 POKES+11,0
40 F1=0:F2=2000
50 POKES+14,F1AND255:POKES+15,F1/256:POKES+14,F2AND255:POKES+15,F2/256:F1=F1+5
60 F2=F2-5:IFF2>1000THEN50
65 POKES+6,254:POKES+4,20
80 POKE56334,PEEK(56334)OR1
90 POKE53265,27
100 END