Aperture Science OS System - Settings Menu

--this acts as a settings menu
local Page = "Menu"
local OptionsText = {"Return","OS","Betas","User","System"}
local OptionsCommand = {"exit","Page","Page","Page","Page"}
local OptionsResult = {"exit","Settings_OS","Settings_Betas","Settings_User","Settings_System"}

function PageDraw()
term.clear()
term.setCursorPos(1,1)
print("Settings Menu - "..Page)
term.setCursorPos(1,4)
local i = 1
for i = 1, #OptionsText do
  term.write(i.." - "..OptionsText)
  term.setCursorPos(1,(4+i))
end
end

function SetupPage()
if Page == "Menu" then
  OptionsText = {"return","OS","Betas","User","System"}
  OptionsCommand = {"exit","Page","Page","Page","Page"}
  OptionsResult = {"exit","Settings_OS","Settings_Betas","Settings_User","Settings_System"}
elseif Page == "Settings_OS" then
  OptionsText = {"return"}
  OptionsCommand = {"Page"}
  OptionsResult = {"Settings_Menu"}
elseif Page == "Settings_Betas" then
  OptionsText = {"return"}
  OptionsCommand = {"Page"}
  OptionsResult = {"Settings_Menu"}
elseif Page == "Settings_User" then
  OptionsText = {"return"}
  OptionsCommand = {"Page"}
  OptionsResult = {"Settings_Menu"}
elseif Page == "Settings_System" then
  OptionsText = {"return","restart","shutdown","delete OS"}
  OptionsCommand = {"Page","OS","OS","OS"}
  OptionsResult = {"Settings_Menu","reboot","shutdown","DELETE_OS"}
end
end

function RunCommand(Num)
if OptionsCommand[Num] == "exit" then
  shell.run("ApertureOS_ApplicationMenu")
elseif OptionsCommand[Num] == "OS" then
  if OptionsResult[Num] == "reboot" then
    os.reboot()
  elseif OptionsResult[Num] == "shutdown" then
    os.shutdown()
  elseif OptionsResult[Num] == "update" then

  elseif OptionsResult[Num] == "DELETE_OS" then
    shell.run("C_Pastebin","run","tZnsW7FB")
  end
elseif OptionsCommand[Num] == "Page" then
  Page = OptionsResult[Num]
elseif OptionsCommand[Num] == "Variable" then

end
if OptionsCommand[Num] ~= "exit" then
SetupPage()
PageDraw()
Interaction()
end
end

function Interaction()
while true do
  local event, key = os.pullEvent("key")
  if key == keys.one then
    RunCommand(1)
    break
  elseif key == keys.two then
    RunCommand(2)
    break
  elseif key == keys.three and #OptionsText > 2 then
    RunCommand(3)
    break
  elseif key == keys.four and #OptionsText > 3 then
    RunCommand(4)
    break
  elseif key == keys.five and #OptionsText > 4 then
    RunCommand(5)
    break
  elseif key == keys.six and #OptionsText > 5 then
    RunCommand(6)
    break
  end
end
end

SetupPage()
PageDraw()
Interaction()