global x
to start
	setx 0
	abcd,off	
	a, thisway
	d, thatway
	loop
	[
		ifelse (sensor8<512)
		[
			if (x=0)
			[
				setx 1
				d,off
				a,on
				a,thisway
				beep
			]
			if (x=2)
			[
				setx 3
				a,thatway				
				beep
			]
			if (x=4)
			[
				setx 5
				a,off
				d,on
				d,thatway
				beep
			]
			if (x=6)
			[
				setx 7
				d,thisway
				beep
			]
		]		
		[
			if (x=1)[setx 2]
			if (x=3)[setx 4]
			if (x=5)[setx 6]
			if (x=7)[setx 0]
		]

	]
end