Os PullEvent

local run = true
rednet.open("top")
while run do
    local event = {os.pullEvent()}
    write("Length: ")
    write(#event)
    write(" Event: ")
    write(event[1])
    write(" Param: ")
    write(event[2])
    if (event[1] == "rednet_message") then
        write(" Message: ")
        write(event[3])
    elseif (event[1] == "monitor_touch") then
        local x = tonumber(event[3])
        local y = tonumber(event[4])
        write(" X: ")
        write(x)
        write(" Y: ")
        write(y)
    elseif (event[2] == "q") then
        run = false
    end
    print("")
end