Wireless pocket reader

--initialize
modem = peripheral.wrap("back")
modem.open(21)
------------------
repeat
    event,p1,p2,p3,p4,p5 = os.pullEvent()
    if (event=="modem_message") then
        --event, side, channel, replyChannel, message, distance
        print(p4)
    end
until event=="char" and p1==("q")