[ComputerCraft] Chat Program

-- Computercraft Chat by domi02198
function Clear()
    term.clear()
    term.setCursorPos(1,1)
    print("Chat is written by domi02198")
end

Clear()
print("Chat is written by domi02198")
sleep(.7)
if fs.exists("/chat.txt") == false then
    h= fs.open("/chat.txt","w")
    h.writeLine("{\"domi02198\",}")
    h.writeLine("{\"Chat is written by me\",}")
    Clear()
    print("Where is The Monitor? (top,bottom,left,right,back,front)")
    h.writeLine(read())
    h.close()
end
while true do
h = fs.open("chat.txt","r")
name = textutils.unserialize(h.readLine())
msg = textutils.unserialize(h.readLine())
side = h.readLine()
h.close()
mon = peripheral.wrap(side)
term.redirect(mon)
for i= 1,#name do
    print(name[i]..": "..msg[i])
end
term.restore()
Clear()
term.setCursorPos(1,5)
write("Name: ")
n = read()
print("\nMsg:")
m = read()
table.insert(name,n)
table.insert(msg,m)
msg = textutils.serialize(msg)
name = textutils.serialize(name)
fs.delete("/chat.txt")
h = fs.open("/chat.txt","w")
h.writeLine(name)
h.writeLine(msg)
h.writeLine(side)
h.close
end