10 DWRITE 0,LO
20 DWRITE 16,LO
30 DWRITE 17,LO
40 DWRITE 26,LO
50 DWRITE 27,LO
60 K=4000
70 H=1000
100 FOR I=1 TO K
120 A=DREAD(0)
130 B=DREAD(16)
140 C=DREAD(17)
150 D=DREAD(26)
160 E=DREAD(27)
164 F=H
165 IF A+B+C+D+E=0 F=0
170 IF A=1 F=F
180 IF B=1 F=F*3/2
190 IF C=1 F=F*2
200 IF D=1 F=F*4/3
210 IF E=1 F=F*5/4
220 IF F=0 DELAY(20)
230 IF F!=0 TONE F,50
300 NEXT I
310 END