Line tracer V1.0

10 'Line tracer V1.0
20 Poke #700, #0,#88,#8a,#89,#8b,#98,#9a,#99,#9b,#28,#2a,#29,#2b
30 IF IN(4)=0 GOTO 60
40 GOSUB 130
50 GOTO 30
60 GOSUB 160
70 GOTO 30
130 R=I2CW(#63,#700,1,#70b,1)
135 R=I2CW(#61,#700,1,#701,1)
140 R=I2CW(#60,#700,1,#707,1)
150 RETURN
160 R=I2CW(#60,#700,1,#701,1)
170 R=I2CW(#61,#700,1,#703,1)
180 RETURN
185 ' Stop motors
190 R=I2CW(#61,#700,1,#701,1)
200 R=I2CW(#60,#700,1,#701,1)
210 R=I2CW(#63,#700,1,#701,1)