debug.lua

local display = peripheral.find("monitor")
local screenWidth = display.getSize()
term.redirect(display)

rednet.open('top')

display.setTextScale(0.5)

print("Debug starting...")
sleep(5)
display.clear()

local broadcastCat1 = "sorting"
local broadcastCat2 = "chatting"
local broadcastCat3 = "colors"

local header = window.create(display, 1, 1, 100, 1)
local cat1 = window.create(display, 1, 2, 100, 1)
local body1 = window.create(display, 1, 3, 100, 10)
local cat2 = window.create(display, 1, 13, 100, 1)
local body2 = window.create(display, 1, 14, 100, 10)
local cat3 = window.create(display, 1, 24, 100, 10)

setHeader(header, "Debug Console")
setHeader(cat1, "Sorting")
setHeader(cat2, "Chatting")
setHeader(cat3, "Text Color")

setBody(cat1, "init")
setBody(cat2, "init")
setBody(cat3, "init")


function setHeader(h, m)
    h.clear()
    h.setBackgroundColor(colors.gray)
    h.setTextColor(colors.black)
    h.write(m)
end

function setBody(b, m)
    term.redirect(b)
    b.setBackgroundColor(colors.black)
    b.setTextColor(colors.green)
    print(tostring(m))
end


function waitCat1()
local ID, msg = rednet.receive(broadcastCat1)

setBody(cat1, ID .. ':'.. tostring(msg))
end

function waitCat2()
local ID, msg = rednet.receive(broadcastCat2)

setBody(cat2, ID .. ':' .. tostring(msg))
end

function waitCat3()
local ID, msg = rednet.receive(broadcastCat3)

setBody(cat3, ID .. ':' .. tostring(msg))
end

while true do parallel.waitForAny(waitCat1, waitCat2, waitCat3) end