' Programmet gör så att man kan använda en växelspak med riktiga lägen
' Programmet är skrivet av Ingemar Karlsson
' ibka@hem2.passagen.se		 http://hem2.passagen.se/ibka
' Copyright Ingemar Karlsson
' Version 1.00	 24-08-1998
b0=1
main:
if in0=1 then swR	' reverse
if in1=1 then sw1	' 1 gear
if in2=1 then sw2	' 2 gear
if in3=1 then sw3	' 3 gear
if in4=1 then sw4	' 4 gear
if in5=1 then sw5	' 5 gear
if in6=1 then sw6	' 6 gear
if in7=1 then sw7	' 7 gear
if in8=1 then sw8	' 8 gear
goto neutral
neutral:
	b1=1
	if b0=1 then main
	if b0=0 then upp1
	if b0=2 then ner1
	if b0=3 then ner1
	if b0=4 then ner1
	if b0=5 then ner1
	if b0=6 then ner1
	if b0=7 then ner1
	if b0=8 then ner1
	if b0=9 then ner1
goto main
swR:	
	b1=0
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw1:	
	b1=2
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw2:	
	b1=3
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw3:	
	b1=4
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw4:	
	b1=5
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw5:	
	b1=6
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw6:	
	b1=7
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw7:	
	b1=8
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
sw8:	
	b1=9
	if b0=b1 then main
	if b0<b1 then upp1
	if b0>b1 then ner1
goto main
ner1:
	b0=b0-1
	high 9
	pause 400
	low 9
	pause 400
goto main
upp1:	
	b0=b0+1
	high 10
	pause 400
	low 10
	pause 400
goto main