ROBCO Termlink PROGRAMS

os.pullEvent = os.pullEventRaw

local w,h = term.getSize()
    local x = math.floor((w - string.len(s)) /2)
    term.setCursorPos(x,y)
    term.clearLine()
    term.write( s )
end

local nOption = 1

local function drawMenu()
    term.clear()
    term.setCursorPos(1,1).
    term.write("Program List")

    term.setCursorPos(w-11,1)
    if nOption == 1 then
        term.write("Email")
    elseif nOption == 2 then
        term.write("Send File")
    elseif nOption == 3 then
        term.write("Get File")
    elseif nOption == 4 then
        term.write("Back")
    else
end

end

--GUI

term.clear()
local function drawFrontend()
   printCentered( math.floor(h/2) - 3, "")
   printCentered( math.floor(h/2) - 2, "")
   printCentered( math.floor(h/2) - 1, "")
   printCentered( math.floor(h/2) + 0, ((nOption == 1) and "[ > *EMAIL*]") or "[ >  EMAIL ]" )
    term.setTextColor (colors.green)
   printCentered( math.floor(h/2) + 1, ((nOption == 2) and "[ > *SEND FILE*]") or "[ >  SEND FILE ]" )
    term.setTextColor (colors.green)
   printCentered( math.floor(h/2) + 2, ((nOption == 3) and "[ > *GET FILE*]") or "[ >  GET FILE ]" )
    term.setTextColor (colors.green)
   printCentered( math.floor(h/2) + 3, ((nOption == 4) and "[ > *BACK*]") or "[ >  BACK ]" )
    term.setTextColor (colors.green)
   printCentered( math.floor(h/2) + 4, "")
end

--Display
drawMenu()
drawFrontend()

while true do
 local e,p = os.pullEvent()
 if e == "key" then
  local key = p
  if key == 17 or key == 200 then

   if nOption > 1 then
    nOption = nOption - 1
    drawMenu()
    drawFrontend()
   end
  elseif key == 31 or key == 208 then
  if nOption < 4 then
  nOption = nOption + 1
  drawMenu()
  drawFrontend()
end
elseif key == 28 then
    --End should not be here!!
break
end --End should be here!!
end
end
term.clear()

--Conditions
if nOption  == 1 then
shell.run("os/.email")
elseif nOption == 2 then
shell.run("os/.sendfile")
elseif nOption == 3 then
shell.run("os/.getfile")
else
shell.run("os/.menu)
end