RocketLAUNCH

local mon = peripheral.wrap("right")
local password = "launch"
--SlowPrint Start
function SlowText(Text)
 for I=1,string.len(Text) do
  NewText=string.sub(Text,I,I)
  mon.write(NewText)
  sleep(0.1)
 end
end
--Slowprint End
--Start
mon.clear()
while true do
 term.clear()
 term.setCursorPos(1,1)
 write("ENTER PASSWORD TO INITIATE LAUNCH:")
 local input = read("*")
 if input == password then
  term.clear()
  term.setCursorPos(1,1)
  textutils.slowPrint("ACCESS GRANTED.")
  textutils.slowPrint("INITIATING LAUNCH SEQUENCE!")
 else
  term.clear()
  term.setCursorPos(1,1)
  print("ACCESS DENIED. LAUNCH CANCELED!")
  sleep(3)
end
mon.setTextScale(2)
mon.clear()
mon.setCursorPos(3,5)
mon.setTextColor(colors.green)
SlowText("  LAUNCH")
mon.setCursorPos(3,6)
mon.setTextColor(colors.green)
SlowText("INITIATED!")
sleep(2)
rs.setOutput("back",true)
sleep(1)
mon.clear()
mon.setCursorPos(10,6)
--Counter
for I=20,1,-1 do
mon.clear()
mon.setCursorPos(3,2)
mon.setTextColor(colors.red)
NewNumber = tostring(I)
mon.setTextScale(5)
mon.write(NewNumber)
sleep(1)
end
--Counter End
mon.setTextScale(2)
mon.clear()
mon.setCursorPos(4,5)
mon.setTextColor(colors.green)
SlowText("LAUNCH!")
sleep(4)
rs.setOutput("back",false)
sleep(5)
mon.clear()
--End
end