5 'FRISK E KEYER W/CS 180602
10 OUT 1,0:LED 0:OUT 5,-1:VIDEO 0:BEEP 10,5
20 T=(1024-ANA(2))/168+2
30 IF IN(1)=1 OUT 1,1:LED 1:BEEP 10,1000:WAIT T:OUT 1,0:LED 0:BEEP 0,0:WAIT T
40 IF IN(4)=1 OUT 1,1:LED 1:BEEP 10,1000:WAIT 3*T:OUT 1,0:LED 0:BEEP 0,0:WAIT T
50 IF IN(10)=1 GOTO 20
60 LET[0],1333,333,11133,331,3111,311,31131,11133
70 FOR I=0 TO 7
80 N=[I]
90 T=(1024-ANA(2))/168+2
100 B=10000:FOR J=0 TO 4:M=N/B%10
110 IF M OUT 1,1:LED1:BEEP10,1000:WAIT T*M:LED 0:OUT 1,0:BEEP 0,0:WAIT T
120 B=B/10
130 IF IN(1) OR IN(4) J=4:I=7
140 NEXT
150 WAIT T*3
160 NEXT
170 GOTO 20