5 fori=0to100:nexti
10 out&hc4,&h20:out&hc5,&h0f:'EG=perc;KSR=0;MULT=F
20 out&hc4,&h40:out&hc5,&h0:'KSL=0;TL=0
30 out&hc4,&h60:out&hc5,&hf1:'AR=F;DR=1
40 out&hc4,&h80:out&hc5,&h4f:'SL=4;RR=F
50 out&hc4,&ha0:out&hc5,&h0:'FN[7:0]=0
60 out&hc4,&hc0:out&hc5,&hf1:'CNT=1;All_CH
80 out&hc4,&hb0:out&hc5,&h12:'KOFF;OCT=4;F[9:8]=2
90 out&hc4,&hb0:out&hc5,&h32:'KON
100 fori=0to3000:nexti:out&hc4,&hb0:out&hc5,&h0:'delay;KOFF
110 out&hc4,&h80:out&hc5,&h4f:'SL=4;RR=0
120 out&hc4,&h20:out&hc5,&h2f:'EG=sus;KSR=0;MULT=F
130 out&hc4,&hb0:out&hc5,&h32:'KON
140 fori=0to100:nexti
150 out&hc4,&hb0:out&hc5,&h0:'KOFF
160 out&hc4,&h60:out&hc5,&h1f:'AR=1;DR=F
170 out&hc4,&hb0:out&hc5,&h32:'KON
180 fori=0to10000:nexti
190 out&hc4,&hb0:out&hc5,&h0:'KOFF