wires

mon = peripheral.wrap("back")
mon.setTextScale(1)
mon.clear()

function msg(a,b,c,text)
  mon.setCursorPos(a,b)
  mon.setTextColor(c)
  mon.write(text)
end

function bg(color)
  mon.setBackgroundColor(color)
end

msg(01,01,16384,"Farbbelegung gelbes Bundled-Wire:")
msg(01,02,16384,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
bg(32768) msg(01,03,00256,"01. Mobfarm voll/leer")
bg(16)    msg(33,03,00001,"     ")
bg(32768) msg(01,04,00256,"02. Alle Türen auf/zu")
bg(01)    msg(33,04,00001,"     ")
bg(32768) msg(01,05,00256,"03. noch frei")
bg(265)   msg(33,05,00001,"     ")
bg(32768) msg(01,06,00256,"04. noch frei")
bg(265)   msg(33,06,00001,"     ")
bg(32768) msg(01,07,00256,"05. noch frei")
bg(265)   msg(33,07,00001,"     ")
bg(32768) msg(01,08,00256,"06. noch frei")
bg(265)   msg(33,08,00001,"     ")
bg(32768) msg(01,09,00256,"07. noch frei")
bg(265)   msg(33,09,00001,"     ")
bg(32768) msg(01,10,00256,"08. noch frei")
bg(265)   msg(33,10,00001,"     ")
bg(32768) msg(01,11,00256,"09. noch frei")
bg(265)   msg(33,11,00001,"     ")
bg(32768) msg(01,12,00256,"10. noch frei")
bg(265)   msg(33,12,00001,"     ")
bg(32768) msg(01,13,00256,"11. noch frei")
bg(265)   msg(33,13,00001,"     ")
bg(32768) msg(01,14,00256,"12. noch frei")
bg(265)   msg(33,14,00001,"     ")
bg(32768) msg(01,15,00256,"13. noch frei")
bg(265)   msg(33,15,00001,"     ")
bg(32768) msg(01,16,00256,"14. noch frei")
bg(265)   msg(33,16,00001,"     ")
bg(32768) msg(01,17,00256,"15. noch frei")
bg(265)   msg(33,17,00001,"     ")
bg(32768) msg(01,18,00256,"16. noch frei")
bg(265)   msg(33,18,00001,"     ")

bg(00001) msg(01,20,32768,"                ")
bg(00001) msg(01,21,32768,"   Mainscreen   ")
bg(00001) msg(01,22,32768,"                ")
bg(32768)

while true do
    local event, side, X, Y = os.pullEvent("monitor_touch")

    if X >= 1 and X <= 17 and Y >= 1 and Y <= 3 and side == "back" then
        shell.run("main")
    end
end