QuarryTest

local side = "back"

function HeadDown()
	redstone.setBundledOutput(side, colors.white)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function HeadUp()
	redstone.setBundledOutput(side, colors.orange)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function QuarryLeft()
	redstone.setBundledOutput(side, colors.yellow)
	sleep(1)
	redstone.setBundledOutput(side, 0)
	redstone.setBundledOutput(side, colors.lime)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function QuarryRight()
	redstone.setBundledOutput(side, colors.maganta)
	sleep(1)
	redstone.setBundledOutput(side, 0)
	redstone.setBundledOutput(side, colors.lightBlue)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function QuarryForward()
	redstone.setBundledOutput(side, colors.pink)
	sleep(1)
	redstone.setBundledOutput(side, 0)
	redstone.setBundledOutput(side, colors.gray)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function QuarryBackward()
	redstone.setBundledOutput(side, colors.lightGray)
	sleep(1)
	redstone.setBundledOutput(side, 0)
	redstone.setBundledOutput(side, colors.cyan)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function QuarryUp()
	redstone.setBundledOutput(side, colors.brown)
	sleep(1)
	redstone.setBundledOutput(side, 0)
	redstone.setBundledOutput(side, colors.green)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function QuarryDown()
	redstone.setBundledOutput(side, colors.purple)
	sleep(1)
	redstone.setBundledOutput(side, 0)
	redstone.setBundledOutput(side, colors.blue)
	sleep(1)
	redstone.setBundledOutput(side, 0)
end
function main()
	print("Starting program")
	while true do
		local sEvent, param = os.pullEvent("key")
		if sEvent == "key" then
			print("Key push")
			if param == 200 then
				QuarryForward()
			end
			if param == 208 then
				QuarryBackward()
			end
			if param == 205 then
				QuarryRight()
			end
			if param == 203 then
				QuarryLeft()
			end
			if param == 42 then
				QuarryUp()
			end
			if param == 29 then
				QuarryDown()
			end
			if param == 57 then
				HeadDown()
			end
			if param == 54 then
				HeadUp()
			end
		end
	end
end
main()