1 SOPEN
2 M=ADC4-50:L=ADC5:R=ADC6
3 IF ADC4 > M THEN
4 STX "rt,10,90\r"
5 ELSE
6 STX "fd,10,18\r"
7 ENDIF
8 IF RXFLAG THEN IF RCX = 78 THEN 10
9 GOTO 8
10 A=ADC5-L:B=ADC6-R
11 IF a < b THEN
12 STX "rt,4,3\r"
16 ELSE
18 STX "lt,4,3\r"
19 ENDIF
20 IF RCX = 78 THEN goto 22
21 GOTO 20
22 IF ADC4 > M THEN
23 stx "bk,3,1\r"
24 else
25 stx "fd,3,1\r"
26 endif
27 IF RCX = 78 THEN GOTO 3
28 GOTO 27
