IchigoCar 1 sensor

10 'Ichigo Car Tracer 1 sensor
20 Poke #700, #0,#88,#8a,#89,#8b,#98,#9a,#99,#9b,#28,#2a,#29,#2b
30 I=100
40 I=I-1: IF I<0 GOTO 100
50 IF IN(4)=1 GOTO 30
60 GOTO 40
100 ' Trace start
130 IF IN(4)=0 GOTO 170
140 GOSUB 800
150 I=I-1: IF i<0 GOTO 200
160 GOTO 130
170 GOSUB 900
180 I=100:GOTO 130
200 ' STOP
210 GOSUB 1000
220 GOTO 30
800 R=I2CW(#63,#700,1,#70b,1)
810 R=I2CW(#61,#700,1,#701,1)
820 R=I2CW(#60,#700,1,#707,1)
830 RETURN
900 R=I2CW(#60,#700,1,#701,1)
910 R=I2CW(#61,#700,1,#703,1)
920 RETURN
1000 R=I2CW(#61,#700,1,#701,1)
1010 R=I2CW(#60,#700,1,#701,1)
1020 R=I2CW(#63,#700,1,#701,1)
1030 RETURN