Any1 up for making a program

--Some guys menu system
Side = "back"
Option = {}
Options = {}
Optiono = {}
--Defining functions!
function bundle(sSide, sColour, sValue) -- Manages the bundled cables
  local nColour = colors[sColour] or colours[sColour]
  if type(nColour) ~= "number" then
    error( "No such color" )
    return
  end
  if sValue == true then
    rs.setBundledOutput( sSide, colors.combine( rs.getBundledOutput( sSide ), nColour ) )
  elseif sValue == false then
    rs.setBundledOutput( sSide, colors.subtract( rs.getBundledOutput( sSide ), nColour ) )
  end
end

function Clear()
  term.setCursorPos(1,1)
  term.clear()
end

function fillLine(style) -- Fills the line with stuff like "======="
  local style = style
  if not style then
    style = "="
  end
  local cy,my = term.getCursorPos()
  local w,h = term.getSize()
  term.setCursorPos(1, my)
  for n=1,w-1 do
    term.write(style)
  end
  print()
end

function layout(mess, style) -- Centers text and does your style down the side. so |    hi!   |
  local style = style
  local mess = mess
  if not style then
    style = "|"
  end
  if not mess then
    mess = ""
  end
  local w,h = term.getSize()
  local middle = (w - mess:len())/2
  local cy,my = term.getCursorPos()
  middle = middle-1
  term.setCursorPos(1, my)
  write(style)
  term.setCursorPos(middle, my)
  write(mess)
  term.setCursorPos(w-1, my)
  print(style)
end

function writeFile()
  Pig = io.open("BundledState", "w")
  for n=1,#Option do
    Pig:write(Option[n]..":"..Options[n]..":"..Optiono[n].."n")
  end
  Pig:close()
end

function doBundled()
  for n=1,#Option do
    local Bam = true
    if Options[n] == "disabled" then
	  Bam = false
    end
    bundle(Side, Optiono[n], Bam)
  end
end

function readFile()
  Pig = io.open("BundledState", "r")
  for line in Pig:lines() do
    local First = string.find(line, ":")
    local Second = string.find(line, ":", First+1)
    Option[#Option+1] = string.sub(line, 1, First-1)
    Options[#Options+1] = string.sub(line, First+1, Second-1)
    Optiono[#Optiono+1] = string.sub(line, Second+1)
  end
  Pig:close()
  doBundled()
end

function nextMenu(option) -- Second menu
  Clear()
  fillLine()
  layout(option.." control panel")
  fillLine()
  layout()
  layout("Status of "..Option[option]..": "..Options[option])
  layout("Press E to toggle state")
  layout()  
  layout("Press B to go back")
  layout()
  fillLine()
  while true do
    local event,param1,param2 = os.pullEvent()
    if event == "char" and param1 == "b" then
	  MainMenu()
	  break
    elseif event == "char" and param1 == "e" then
	  if Options[option] == "disabled" then
	    Options[option] = "enabled"
	    writeFile()
	    doBundled()
	    nextMenu(option)
	    break
	  else
	    Options[option] = "disabled"
	    writeFile()
	    doBundled()
	    nextMenu(option)
	    break
	  end
    end
  end
end

function MainMenu()
  Clear()
  fillLine()
  layout("Main Control Panel")
  fillLine()
  layout()
  for n=1,#Option do
    layout(n..". "..Option[n])
  end
  layout()
  fillLine()
  while true do
    event,param1,param2 = os.pullEvent()
    if event == "key" then
	  if Option[(param1-1)] then
	    nextMenu((param1-1))
	    break
	  end
    end
  end
end

--Making the file incase its not made!
if not fs.exists("BundledState") then
  Clear()
  local function Check()
    if Name == "quit" or Color == "quit" then
	  return true
    else
	  return false
    end
  end
  print("Please keep typing in names of stuff you are controlling")
  print("Then type in the color you use. eg. blue")
  print("To quit at any time just type "quit" instead")
  while true do
    write("Name: ")
    Name = read()
    if Check() then
	  break
    end
    write("Color: ")
    Color = string.lower(read())
    if Check() then
	  break
    end
    Pig = io.open("BundledState", "a")
    Pig:write(Name..":disabled:"..Color.."n")
    Pig:close()
  end
end
doBundled()
<INSERT LOCK CODE>
readFile()
MainMenu()