Computercraft - Terminal Glasses Test Prog

rednet.open("top")
glass = peripheral.wrap("openperipheral_glassesbridge_0")
monitor = peripheral.wrap("monitor_18")
list1 = "N/A"
list2 = "N/A"
list3 = "N/A"
status = "Unknown"
while true do
    glass.clear()
    --List
    glass.addBox(400,1,80,40,0xFFFFFF, 0.2)
    glass.addText(400,2,"Auto List:", 0xF2B233)
    glass.addText(400,12,list1, 0xF2B233)
    glass.addText(400,22,list2, 0xF2B233)
    glass.addText(400,32,list3, 0xF2B233)
    -- Status
    glass.addBox(400,42,80,20,0xFFFFFF, 0.2)
    glass.addText(400,44,"Status:", 0x3366CC)
    if status == "Red Alert!" then
        glass.addText(400,54,status, 0xCC4C4C)
    elseif status == "All Clear" then
        glass.addText(400,54,status, 0x57A64E)
    else
        glass.addText(400,54,status, 0x4C4C4C)
    end
    local red_ID, red_Msg, red_Proto = rednet.receive(nil, 1)
    -- ID 855 is hardwired as the list computer
    if red_ID == 855 then
        print("Rednet message received!")
        print("Sender ID: " .. red_ID)
        print("Message: " .. red_Msg)
        print("Protocol: " .. red_Proto)
        list3 = list2
        list2 = list1
        list1 = red_Msg
        print("Updated List")
    elseif red_ID == 854 then
        print("Rednet message received!")
        print("Sender ID: " .. red_ID)
        print("Message: " .. red_Msg)
        print("Protocol: " .. red_Proto)
        --854 is the alarm status ID
        if red_Msg == 1 then
            status = "Red Alert!"
            print("Red Alert!")
        elseif red_Msg == 0 then
            status = "All Clear"
            print("All Clear")
        else
            print("Invalid State")
            print("Message Received: " .. red_Msg)
        end
    end
end