Tardis tablet v2

modem = peripheral.wrap("back")
menu = "main"

local function updateMonitor()
    term.clear()

    if menu == "main" then
        term.setCursorPos(1, 1)
        term.setCursorPos(1, 1)
        term.write("Open Doors")

        term.setCursorPos(1, 2)
        term.write("Close Doors")

        term.setCursorPos(1, 3)
        term.write("Takeoff")

        term.setCursorPos(1, 4)
        term.write("Set Handbrake")

        term.setCursorPos(1, 5)
        term.write("Release Handbrake")

        term.setCursorPos(1, 6)
        term.write("Waypoints")

        term.setCursorPos(1, 17)
    elseif menu == "waypoints" then
        term.setCursorPos(1, 1)
        term.write("Back -      Waypoints")

        term.setCursorPos(1, 2)
        term.write("1. Base")

        term.setCursorPos(1, 3)
        term.write("2. Mathieu")

        term.setCursorPos(1, 4)
        term.write("3. Creeper")

        term.setCursorPos(1, 5)
        term.write("4. Malik")

        term.setCursorPos(1, 6)
        term.write("5. Johan")

        term.setCursorPos(1, 17)
    end
end

local function modemSend()
    while true do
        textRead = read()
        modem.transmit(6407, 6408, textRead)
    end
end

local function modemReceive()
    while true do
        modem.open(6408)
        local event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")
        updateMonitor()
        term.write(message)
    end
end

local function touchHandler()
    updateMonitor()

    while true do
        event, side, xPos, yPos = os.pullEvent("mouse_click")

        if menu == "main" then
            if yPos == 1 then
                modem.transmit(6407, 6408, "open")
            elseif yPos == 2 then
                modem.transmit(6407, 6408, "close")
            elseif yPos == 3 then
                modem.transmit(6407, 6408, "takeoff")
            elseif yPos == 4 then
                modem.transmit(6407, 6408, "sethandbrake")
            elseif yPos == 5 then
                modem.transmit(6407, 6408, "releasehandbrake")
            elseif yPos == 6 then
                menu = "waypoints"
                updateMonitor()
            end
        elseif menu == "waypoints" then
            if yPos == 1 then
                menu = "main"
                updateMonitor()
            elseif yPos == 2 then
                modem.transmit(6407, 6408, "base")
            elseif yPos == 3 then
                modem.transmit(6407, 6408, "mathieu")
            elseif yPos == 4 then
                modem.transmit(6407, 6408, "creeper")
            elseif yPos == 5 then
                modem.transmit(6407, 6408, "malik")
            elseif yPos == 6 then
                modem.transmit(6407, 6408, "johan")
            end
        end
    end
end

parallel.waitForAny(modemSend, modemReceive, touchHandler)