1 M=ADC4:L=ADC5:R=ADC6
2 M=M-100:R=R-100:L=L-100
3 A=ADC4-M
4 locate 0,0:print a
5 if A>100 then print "o"
6 if A>50 then print "o"
7 A=ADC5-l
8 locate 40,0:print a
9 if A>100 then print "o"
10 if A>50 then print "o"
11 A=ADC6-r
12 locate 80,0:print a
13 if A>100 then print "o"
14 if A>50 then print "o"
15 for i=0 to 200
16 next
17 cls:GOTO 3
