Horizontal quarry installer (disk/startup) CC

function virsraksts(top)
term.setCursorPos(3,2)
write(top)
end

function izskats()
term.clear()
term.setCursorPos(1,1)
print("###################################")
print("#=Xoandbit hor raceja instalacija=#")
print("                                   ")
print("                                   ")
print("                                   ")
print("                                   ")
print("                                   ")
print("                                   ")
print("                                   ")
print("                                   ")
print("                                   ")
print("##############################v1###")
virsraksts('Racejs')
end

function jautaj(top)
sleep(1)
term.setCursorPos(4,4)
write(top)
end

function vaica()
term.setCursorPos(3,8)
status,input = pcall(read)
return input
end

function atbilde(atb)
term.setCursorPos(10,10)
write(atb)
end


izskats()

jautaj("Racejs instalejas!")
atbilde("Instalejas!")
sleep(10)

izskats()

jautaj("Ievadiet robota x kordinati")
input = vaica()

shell.run("delete","x")
local fh = io.open("x", "w")
fh:write(input)
fh:close()
atbilde("-Saglabajam")
shell.run("delete","xsak")
local fh = io.open("xsak", "w")
fh:write(input)
fh:close()

sleep(1)


izskats()

jautaj("Ievadiet robota y kordinati")
input = vaica()

shell.run("delete","y")
local fh = io.open("y", "w")
fh:write(input)
fh:close()
atbilde("-Saglabajam")
shell.run("delete","ysak")
local fh = io.open("ysak", "w")
fh:write(input)
fh:close()
sleep(1)

izskats()

jautaj("Ievadiet robota z kordinati") --29522206
input = vaica()

shell.run("delete","z")
local fh = io.open("z", "w")
fh:write(input)
fh:close()
atbilde("-Saglabajam")
shell.run("delete","zsak")
local fh = io.open("zsak", "w")
fh:write(input)
fh:close()
sleep(1)

while true do
izskats()
jautaj("Nospied f3 un f=(kas ir sis cipars?)  -  Tas palidz noskaidrot, kur ir ziemeli!")
atbilde("A:0,1,2,3")
input = vaica()
if input=="0" or input=="1" or input=="2" or input=="3" then
shell.run("delete","f")
local fh = io.open("f", "w")
fh:write(input)
fh:close()
atbilde("-Saglabajam")
shell.run("delete","fsak")
local fh = io.open("fsak", "w")
fh:write(input)
fh:close()
sleep(1)
break;
else
atbilde("-Nepareiza atbilde!")
sleep(1)
end

end

izskats()
jautaj("Kopejam programmu")
sleep(1)
shell.run("delete","startup")
sleep(1)
fs.copy("disk/progr","/startup")

--Darba numuru sagalaba
shell.run("delete","darb")
local fh = io.open("darb", "w")
fh:write(0)
fh:close()

atbilde("Programma iekopeta")

sleep(1)
izskats()
jautaj("Instalacija pabeigta! Iznemiet disku!")

while true do
sleep(0)
sEvent,param=os.pullEventRaw()
end