> LIST

10 REM FOLLOW USING IR & SONAR
20 REM  USE SUBROUTINES FOR MOVEMENT & TURNING
21 REM ***REM NO WHEEL DETECTOR AVAIL IN BASIC ***
50 M=MOTION
60 S=SONAR
70 IF S<14 THEN 300
80 IF M=1 THEN GOSUB 200:ELSE GOSUB 400
100 GOTO 50
200 SPE "W O1 ER N ING PA1 PA1M U1 V ING UH2 H EH D
210 FWD 1
220 RETURN
300 SPE "W O1 ER N ING PA1 PA1 B AE K ING UH P
310 BWD 1
320 GOSUB 400
330 GOTO 50
400 LEF 4
410 RETURN