pulse = 5
pos = 0
call = 0

function doorUp()
	while pulse ~=0 do
		rs.setBundledOutput("left", 2048)
		sleep(0.7)
		rs.setBundledOutput("left", 0)
		sleep(0.3)
		pos = up
		pulse = pulse - 1
	end
	pulse = 5
end

function doorDown()
	while pulse ~=0 do
		rs.setBundledOutput("left", 1024)
		sleep(0.7)
		rs.setBundledOutput("left", 0)
		sleep(0.3)
		pos = down
		pulse = pulse - 1
	end
	pulse = 5
end

function detectCall()
	if rs.getBundledInput("right") == 2048 and pos == down then
		doorUp()
	elseif rs.getBundledInput("right") == 1024 pos == up then	
		doorDown()
	end
end

function affichage()
	print("position : "..pos)
	sleep(0.1)
	term.clear()
	term.setCursorPos(1,1)
end

--- Procédure ---

doorUp()

while true do
	 parallel.waitForAny(detectCall(),affichage())
	 sleep(0.1)
end