Computercraft Banque ATM

function tclear()
    term.clear()
    term.setCursorPos(1,1)
end
function stop()
    print("APPUYER SUR UNE TOUCHE POUR CONTINUER")
    sleep(1)
    local paus=os.pullEvent()
end
--==================================
local modem = peripheral.wrap("top")
local tx = 0 --id serveur
local rx = 1 --indentifiant serveur pour rep
term.clear()
term.setCursorPos(1,1)
modem.open(rx)
--==================================
while true do
    tclear()
    print("VOTRE NOM :")
    input = read()
    local path = "disk/"..input
    modem.transmit(tx,rx,{path,"start"})
    tclear()
    print("PATIENTER")
    local input,s,f,r,rep = os.pullEvent("modem_message")

    if rep ~= "error" then
        tclear()
        print("VOUS AVEZ " ,rep," OR(S)")
        stop()
    else
        tclear()
        print("LE COMPTE N'EXISTE PAS")
        print("APPUYER SUR UNE TOUCHE POUR CONTINUER")
        sleep(1)
        local paus=os.pullEvent()
    end
end