Jam Car Demo 20160612

5 'Jam Car Demo- Turn + Line + Line Trace
10 wait 120
12 if btn() = 0 goto 1000
15 out #17
20 for i=1 to 2
30 out 1,0
40 wait 30
50 out 1,1
60 wait 30
70 next
80 out 2,0
85 n=23
90 for i=1 to 3:out 1,0:wait n:out 1,1:wait n:next
95 out 2,1
100 for i=1 to 2:
110 out 1,0:wait 30: out 1,1: wait 30
120 next
140 out 2,0
150 for i=1 to 3:out 1,0: wait n: out 1,1: wait n: next
200 out 0
300 end
1000 L=in(1)
1010 R=in(4)
1020 if L=0 and R=0 then out 2,1: out 3,0
1030 if L=1 and R=0 then out 2,1: out 3,0
1040 if L=1 and R=1 then out 2,0: out 3,1
1050 if L=1 and R = 1 then out 2,0: out 3,1
1060 pwm 5,500
1100 goto 1000