etageappel

p = peripheral.wrap("back")



button = {
    "-----------",
    "|         |",
    "|  LAMPE  |",
    "|         |",
    "-----------"
}

function rdc()
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right",0)
    sleep(0.5)
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right",0)
    sleep(0.5)
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right",0)
    sleep(0.5)
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right",0)
    sleep(0.5)
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right",0)
    sleep(0.5)
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right",0)
    sleep(0.5)
    rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
	rs.setBundledOutput("right",colors.red)
    sleep(0.5)
    rs.setBundledOutput("right", 0)
    sleep(0.5)
end




p.setCursorPos(11,1)
p.write("Appel")
p.setCursorPos(10,3)

while true do
    event, side, xPos, yPos = os.pullEvent("monitor_touch")
    if xPos > 9 and xPos < 18 and yPos > 1 and yPos < 4 then
         rdc()
    end
end