[ComputerCraft] Chat Program v 2.1

m = peripheral.wrap("right")
function Mprint(txt)
    color = 2^math.random(1,16)
    term.setTextColor(color)
    print(txt)
    term.setTextColor(colors.white)

end
function Mwrite(txt)
    color = 2^math.random(1,16)
    term.setTextColor(color)
    write(txt)
    term.setTextColor(colors.white)

end


while true do
    h = fs.open("chat.txt","r")
    name = textutils.unserialize(h.readLine())
    msg =  textutils.unserialize(h.readLine())
    h.close()
    term.redirect(m)
    term.clear()
    term.setCursorPos(1,1)
    for i= 1,#name do
        Mwrite(name[i]..": ")
        Mprint(msg[i])

    end
    term.restore()
    term.clear()
    term.setCursorPos(1,5)
    Mprint("Name: "
    n= read()
    Mprint("\n\nText:")
    m = read()
    fs.delete("chat.txt")
    h = fs.open("chat.txt","w")
    table.insert(name,n)
    table.insert(msg,m)
    h.writeLine(textutils.serialize(name))
    h.writeLine(textutils.serialize(msg))
    h.close()
end