5  SET(%2,"RF:RX=12,TX=10")
10 P1=10
20 P2=48
30 P3=49
40 P4=53
50 P5=0
100 IF @D=R THEN 200 
110 IF @E=R THEN 300
120 IF @A=0 THEN 100
130 PRINT2(P4)
140 P0=P1
150 IF @D=R  THEN 160
160 IF @E=R  THEN 170
170 IF P0>P5 THEN 150
180 GOTO 120
200 PRINT2(P3)
210 GOTO 100
300 PRINT2(P2)
310 GOTO 100