to bus


		ab,on

		setpower 75
		set blackU 250
		set blackL 0
		set whiteU 1000
		set whiteL 300
		set greenU 800
		set greenL 550
		set redU 720
		set redL 420
		set menat 0

		show 2

		;forever[
		;if sensor1 <400 [ if(sensor1 <500 and menat < 1 ) [ set menat menat+1] ]
		;if sensor1 <400 [ if(sensor1 <500 and menat = 1 ) [ set menat menat-1] ]
			;if (menat=0) [show menat stloop ]
			;if (menat=1) [show menat ndloop  ]
		;]


		forever [
			stloop]


end


to gob
		a,cw b,ccw
		end

to gof

		a,ccw b, cw
		end

to gor
		setpower 100
		ab,cw
		end
to gol
		setpower 100
		ab,ccw
		end

to stloop


				if sensor7<blackU and sensor8<blackU [gof]
				if sensor7<blackU	and (sensor8<whiteU and sensor8>whiteL) [gor show 1 ]
				if sensor8<blackU	and (sensor7<whiteU and sensor7>whiteL) [gol show 2 ]
				;if (sensor7 < greenU and sensor7> greenL) and (sensor8 < greenU and sensor8> greenL) [gor]
				;if (sensor7 < redU and sensor7> redL) and (sensor8 < redU and sensor8> redL) [gol]

				;if sensor7<whiteU and sensor7>whiteL and sensor8<whiteU and sensor8>whiteL [gob]

				;if (sensor8>redL and sensor8 <redU) or (sensor7<redU and sensor7>redL) [gol ]
				;ifelse (sensor8>redL and sensor8 <redU) or (sensor7<redU and sensor7>redL) [setpower 100][setpower x]

				;if (sensor8<greenU and sensor8 >greenL) or (sensor7<greenU and sensor7>greenL) [gor show 1 ]
				;if (sensor8<redU and sensor8 >redL) or (sensor7<redU and sensor7>redL) [gol show 2 ]
				;ifelse (sensor8<greenU and sensor8 >greenL) or (sensor7<greenU and sensor7>greenL) [setpower 100][setpower x]
				;if sensor1>600 [ndloop show 2]




end