[CC] WordPad

local tArgs = {...}
local w, h = term.getSize()
local oldEvent = os.pullEvent
os.pullEvent = os.pullEventRaw

local tFile = {}
local tPos = {}
local tEvent
local nCurrent = 1
local theme = {line = colors.gray, code = colors.lightGray, high = colors.black, opt = colors.lightGray, optSel = colors.blue, opt2 = colors.gray, opt2high = colors.lightGray, boxBack = colors.gray, boxTop = colors.blue, text = {bgColour = colours.black, textColour = colours.white, highlightColour = colours.yellow, keywordColour = colours.yellow, commentColour = colours.lime, stringColour = colours.red}}
local options = {File = {["New..."] = new, ["Open..."] = checkOpen, ["Save..."] = save, ["Save as..."] = saveAs, ["Save all"] = saveAll, ["Close"] = close, ["Exit"] = exit}, Edit = {}, Options = {}}
local config = {tab = 3}
local nLimit = 7

term.setBackgroundColor(colors.black)
term.clear()
term.setCursorPos(1, 1)

local function init()
  update()
  if fs.exists(".WordPad") then
    local file = fs.open(".WordPad", "r")
    file.readLine()
    local sPos = file.readLine()
    nCur = tonumber(file.readLine())
    file.close()
    local tRec = textutils.unserialize(sPos)
    for k, v in pairs(tRec) do
      if not v["new"] and fs.exists(v["name"]) then
        open(v["name"])
      else
        new()
      end
    end
    tPos = tRec
    nCurrent = nCur
  end
end

local function checkError(event)
  if event == "terminate" then
    os.pullEvent = oldEvent
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    writeCentered("Thanks for using WordPad", 1)
    writeCentered("By Anonimo182", 2)
    term.setCursorPos(1, 3)
    error()
  end
end

function writeCentered(str, y)
  term.setCursorPos(w/2-#str/2, y)
  write(str)
end

local function drawBox(header, minX, maxX, minY, maxY)
    local nCur = 1
    paintutils.drawLine(minX, minY, maxX, minY, theme.boxTop)
    repeat
      paintutils.drawLine(minX, minY+nCur, maxX, minY+nCur, theme.boxBack)
      nCur = nCur+1
    until minY+nCur == maxY
    term.setBackgroundColor(theme.boxTop)
    term.setTextColor(colors.white)
    writeCentered(header, minY)
end

local function drawConfirmation(header, tText) --Draws a box and checks for answer
    local nMin = w/2
    drawBox(header, nMin/2, nMin+nMin/2, h/2-#tText/2-1, h/2+#tText/2+1)
    local nRep = 0
    term.setBackgroundColor(theme.boxBack)
    for i = 1, #tText do
      writeCentered(tText[i], h/2-#tText/2+i-1)
    end
    writeCentered("[YES] [NO] [CANCEL]", h/2+#tText/2)
    while true do
      local event, p1, p2, p3 = os.pullEvent()
      checkError(event)
      if event == "mouse_click" and p1 == 1 and p3 == math.floor(h/2+#tText/2) then
        if p2 >= 16 and p2 <= 21 then
          return 1
        elseif p2 > 22 and p2 <= 26 then
          return 2
        elseif p2 > 27 and p2 <= 35 then
          return 3
      end
    end
    end
end

local function drawRead(header, tText)
    local nMin = w/2
    drawBox(header, nMin/2, nMin+nMin/2, h/2-#tText/2-1, h/2+#tText/2+2)
    local nRep = 0
    term.setBackgroundColor(theme.boxBack)
    term.setTextColor(colors.white)
    for i = 1, #tText do
      writeCentered(tText[i], h/2-#tText/2+i-1)
    end
    local sLast = ""
    writeCentered("[YES] [NO] [CANCEL]", h/2+#tText/2+1)
    term.setBackgroundColor(colors.lightGray)
    term.setTextColor(colors.black)
    writeCentered(string.rep(" ", 10), h/2+#tText/2)
    while true do
      local event, p1, p2, p3 = os.pullEvent()
      checkError(event)
      if event == "mouse_click" and p1 == 1 then
      if p3 == math.floor(h/2+#tText/2+1) then
          if p2 >= 16 and p2 <= 21 then
            return 1, sLast
          elseif p2 > 22 and p2 <= 26 then
            return 2
          elseif p2 > 27 and p2 <= 35 then
            return 3
         end
      elseif p3 == math.floor(h/2+#tText/2) and p2 >= 20 and p2 < 30 then
        term.setCursorPos(20, math.floor(h/2+#tText/2))
        sLast = modRead(nil, sLast, 29)
      end
    end
    end
end

local function drawOk(header, tText)
    local nMin = w/2
    drawBox(header, nMin/2, nMin+nMin/2, h/2-#tText/2-1, h/2+#tText/2+1)
    local nRep = 0
    term.setBackgroundColor(theme.boxBack)
    for i = 1, #tText do
      writeCentered(tText[i], h/2-#tText/2+i-1)
    end
    writeCentered("[OK]", h/2+#tText/2)
    while true do
      local event, p1, p2, p3 = os.pullEvent()
      checkError(event)
      if event == "mouse_click" and p1 == 1 and p3 == math.floor(h/2+#tText/2) then
        if p2 >= 23 and p2 < 27 then
          return
      end
    end
    end
end

function update()
  print("Collecting data for update")
  if not http then return end
  if not ((fs.open(shell.getRunningProgram(), "r")).readAll() == (http.get("http://pastebin.com/raw/tJq8DiQT")).readAll()) then
    write("Update avaible!")
    local nSel = drawConfirmation("Update", {"There is a new", "update avaible.", "You want", "to download it?"})
    if nSel == 1 then
      (fs.open(shell.getRunningProgram(), "w")).writeLine(http.get("http:/pastebin.com/tJq8DiQT").readAll())
      error()
    else
      return
    end
  end
  print("Launching WordPad")
end

function modRead(_sReplaceChar, sLine, maxX)
  term.setCursorBlink( true )

    local sLine = sLine or ""
  local nPos = 0
    if _sReplaceChar then
    _sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
  end

  local w, h = maxX, 1
  local sx, sy = term.getCursorPos()

  local function redraw( _sCustomReplaceChar )
    local nScroll = 0
    if sx + nPos >= w then
      nScroll = (sx + nPos) - w
    end

    term.setCursorPos( sx, sy )
    local sReplace = _sCustomReplaceChar or _sReplaceChar
    if sReplace then
      term.write( string.rep(sReplace, string.len(sLine) - nScroll) )
    else
      term.write( string.sub( sLine, nScroll + 1 ) )
    end
    term.setCursorPos( sx + nPos - nScroll, sy )
  end

  while true do
    local sEvent, param = os.pullEvent()
    checkError(event)
    if sEvent == "char" then
      sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
      nPos = nPos + 1
      redraw()

    elseif sEvent == "key" then
        if param == keys.enter then
        -- Enter
        break

      elseif param == keys.left then
        -- Left
        if nPos > 0 then
          nPos = nPos - 1
          redraw()
        end

      elseif param == keys.right then
        -- Right
        if nPos < string.len(sLine) then
          nPos = nPos + 1
          redraw()
        end
      elseif param == keys.backspace then
        -- Backspace
        if nPos > 0 then
          redraw(" ");
          sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
          nPos = nPos - 1
          redraw()
        end
      elseif param == keys.home then
        -- Home
        nPos = 0
        redraw()
      elseif param == keys.delete then
        if nPos < string.len(sLine) then
          redraw(" ");
          sLine = string.sub( sLine, 1, nPos ) .. string.sub( sLine, nPos + 2 )
          redraw()
        end
      elseif param == keys["end"] then
        -- End
        nPos = string.len(sLine)
        redraw()
      end
    end
  end

  term.setCursorBlink( false )
  term.setCursorPos( w + 1, sy )
  print()

  return sLine
end

function new()
  if #tFile == nLimit then return end
  nCurrent = #tFile+1
  tPos[nCurrent] = {}
  tPos[nCurrent]["pos"] = 1
  tPos[nCurrent]["init"] = 1
  tPos[nCurrent]["height"] = 1
  tPos[nCurrent]["name"] = "new-"..nCurrent
  tPos[nCurrent]["save"] = false
  tPos[nCurrent]["new"] = true
  tFile[nCurrent] = {""}
end

function open(sFile)
  if fs.exists(sFile) and not (#tFile == nLimit) then
    local file = fs.open(sFile, "r")
    local sPos = #tFile+1
    local sLine = file.readLine()
    tFile[sPos] = {}
    tPos[sPos] = {}
    repeat
      table.insert(tFile[sPos], sLine)
      sLine = file.readLine()
    until sLine == nil
    file.close()
    tPos[sPos]["pos"] = 1
    tPos[sPos]["init"] = 1
    tPos[sPos]["height"] = 1
    tPos[sPos]["name"] = sFile
    tPos[sPos]["save"] = true
  end
end

local function close()
  if #tFile == 1 then return end
  if not tPos[nCurrent]["save"] then
    local nSel = drawConfirmation("Closing", {"Are you sure you want", "to close the document?", "There are unsaved changes", "You want to save", "those changes?"})
    if nSel == 1 then
      save()
    elseif nSel == 3 then
      return
    end
  end
  table.remove(tFile, nCurrent)
  table.remove(tPos, nCurrent)
  nCurrent = 1
end

local function openCheck()
  local tText = {"Open a document", "Hint: Remember that", "if the document", "is a folder, ", "it will open the folder!"}
  local nSel, sRes = drawRead("Open", tText)
  if nSel == 1 then
    open(sRes)
  elseif nSel == 2 or nSel == 3 then
    return
  end
end

function save()
  if tPos[nCurrent]["new"] then saveAs() return end
  local nClock = os.clock()
  local file = fs.open(tPos[nCurrent]["name"], "w")
  for k, v in pairs(tFile[nCurrent]) do
      file.writeLine(v)
  end
  file.close()
  tPos[nCurrent]["save"] = true
end

function saveAs()
  local nSel, sRes = drawRead("Save as", {"Save the document", "as:"})
  if nSel == 1 then
    tPos[nCurrent]["name"] = sRes
    tPos[nCurrent]["new"] = false
    save()
  elseif nSel == 2 or nSel == 3 then
    return
  end
end

local function saveAll()
  oldCurrent = nCurrent
  for k, v in pairs(tFile) do
    nCurrent = k
    save()
  end
  nCurrent = oldCurrent
end

local function exit()
  local tUns = {"The following files", "have not been", "saved:"}
  local bCheck = false
  for i = 1, #tPos do
    if not tPos[i]["save"] then
      table.insert(tUns, tPos[i]["name"])
      bCheck = true
    end
  end
  os.pullEvent = oldEvent
  if bCheck then
    table.insert(tUns, "You want to save them?")
    local nSel = drawConfirmation("Exiting", tUns)
    local file = fs.open(".WordPad", "w")
    file.writeLine("WordPad config file-Please don't change anything unless you know what are you doing!")
    file.writeLine(textutils.serialize(tPos))
    file.writeLine(tostring(nCurrent))
    file.close()
    if nSel == 1 then
      saveAll()
    elseif nSel == 2 then
      term.setBackgroundColor(colors.black)
      term.clear()
      term.setCursorPos(1, 1)
      error()
    elseif nSel == 3 then
      return
    end
  end
  term.setBackgroundColor(colors.black)
  term.clear()
  term.setCursorPos(1, 1)
  error()
end

sClipboard = ""

local function copy()
  sClipboard = tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]
end

local function cut()
  sClipboard = tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]
  table.remove(tFile[nCurrent], tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1)
end

local function paste()
  table.insert(tFile[nCurrent], tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1, sClipboard)
end

function goto(nAns)
  local sAns, nSel
  if not nAns then
    nSel, sAns = drawRead("Go to", {"Go to line:"})
    if nSel == 1 then
      local nAns = tonumber(sAns)
    elseif nSel == 2 or nSel == 3 then
      return
    end
  end
  nAns = tonumber(sAns)
  if nAns then
  tPos[nCurrent]["pos"] = 1
  tPos[nCurrent]["height"] = 1
  tPos[nCurrent]["init"] = nAns
  end
end

local function find()
  nSel, sAns = drawRead("Find", {"Find the word:"})
  if nSel == 1 then
    tFinds = {"Found word:", "'"..sAns.."'", "in lines:"}
    for k, v in pairs(tFile[nCurrent]) do
      if string.find(v, sAns, 1, true) then
        table.insert(tFinds, tostring(k))
      end
    end
    drawOk("Find", tFinds)
  elseif nSel == 2 or nSel == 3 then
    return
  end
end

local function run(...)
  local sRun = ""
  local tArgs = {...}
  for k, v in pairs(tFile[nCurrent]) do
    sRun = sRun..v
  end
  local fRun = loadstring(sRun, tPos[nCurrent]["name"])
  term.setBackgroundColor(colors.black)
  term.setTextColor(colors.white)
  term.clear()
  term.setCursorPos(1, 1)
  os.pullEvent = oldEvent
  local ok, err = pcall(function() fRun(unpack(tArgs)) end)
  os.pullEvent = os.pullEventRaw
  if ok or not err then
    term.setTextColor(colors.white)
    writeCentered(string.rep("-", w/2-4).."(Sucess)"..string.rep("-", w/2-4), h-1)
    writeCentered("Press key or click to continue...", h)
  elseif err then
    term.setTextColor(colors.red)
    local tErr = {}
    local nPos1 = string.find(err, ":")
    local nPos2 = string.find(err, ":", nPos1+1)
    table.insert(tErr, string.sub(err, nPos1+1, nPos2-1))
    table.insert(tErr, string.sub(err, nPos2+1))
    writeCentered(string.rep("-", w/2-3).."(Fail)"..string.rep("-", w/2-3), h-3)
    goto(tErr[1])
    writeCentered("On line: "..tErr[1], h-2)
    writeCentered("With error: "..tErr[2], h-1)
    writeCentered("Press key or click to continue...", h)
  end
  repeat
    local event = os.pullEvent()
    checkError(event)
  until event == "mouse_click" or event == "key"
end

local function runArgs()
  local nSel, sRes = drawRead("Run with Args", {"Enter the args", "to run:"})
    if nSel == 1 then
      run(sRes)
    elseif nSel == 2 or nSel == 3 then
      return
    end
end

local function about()
  drawOk("About", {"WordPad", "", "By Anonimo182"})
end

local options = {File = {"New...", "Open...", "Save...", "Save as", "Save All", "Close", "Exit"}, Edit = {"Copy", "Cut", "Paste", "Go To...", "Find", ["Copy"] = copy, ["Cut"] = cut, ["Paste"] = paste, ["Go To..."] = goto, ["Find"] = find}, Options = {"Run", "Run with Args", "About", ["Run"] = run, ["Run with Args"] = runArgs, ["About"] = about}}
options["File"]["New..."] = new
options["File"]["Open..."] = openCheck
options["File"]["Save..."] = save
options["File"]["Save as"] = saveAs
options["File"]["Save All"] = saveAll
options["File"]["Close"] = close
options["File"]["Exit"] = exit

local function checkOptions(sOption, nOption)
  local nOption = nOption or 1
  local sOption = sOption or "File"
  local nFar
  term.setCursorBlink(false)
  while true do
    term.setCursorPos(1, 1)
    local nLast = 1
    redraw()
    for k, v in pairs(options) do
      if k == sOption then
        term.setBackgroundColor(theme.optSel)
        term.setTextColor(colors.white)
      else
        term.setBackgroundColor(theme.opt)
        term.setTextColor(colors.black)
      end
      term.setCursorPos(nLast, 1)
      nRep = nLast
      nLast = #k+1+nLast
      write(k)
      term.setTextColor(colors.black)
      term.setBackgroundColor(theme.opt)
      write("|")
      if k == sOption then
      nStart = nRep
      nFar = 1
      for a, s in ipairs(v) do if #s > nFar then nFar = #s end end
      for a, s in ipairs(v) do
        if a == nOption then
          term.setBackgroundColor(theme.optSel)
          term.setTextColor(colors.white)
        else
          term.setBackgroundColor(theme.opt)
          term.setTextColor(colors.black)
        end
        term.setCursorPos(nRep, a+1)
        write(s..string.rep(" ", nFar-#s))
      end
      end
    end
  local event, p1, p2, p3 = os.pullEvent()
  checkError(event)
  if event == "mouse_click" and p1 == 1 then
    if p2 >= nStart and p2 < nStart+nRep-3 and p3 > 1 and p3 < #options[sOption]+2 then
      local nSel = p3 - 1
      options[sOption][options[sOption][nSel]]()
      term.setCursorBlink(true)
      return
    elseif p3 == 1 then
      if p2 >= 1 and p2 < 5 then
        sOption = "File"
      elseif p2 > 5 and p2 < 10 then
        sOption = "Edit"
      elseif p2 > 10 and p2 < 18 then
        sOption = "Options"
      end
    else
      term.setCursorBlink(true)
      return
    end
  elseif event == "key" then
    if p1 == 205 then --Right key
      if sOption == "File" then
        sOption = "Edit"
        nOption = 1
      elseif sOption == "Edit" then
        sOption = "Options"
        nOption = 1
      elseif sOption == "Options" then
        sOption = "File"
        nOption = 1
      end
    elseif p1 == 203 then
      if sOption == "Edit" then
        sOption = "File"
        nOption = 1
      elseif sOption == "Options" then
        sOption = "Edit"
        nOption = 1
      elseif sOption == "File" then
        sOption = "Options"
        nOption = 1
      end
    elseif p1 == 200 then
      if nOption > 1 then nOption = nOption-1 else nOption = #options[sOption] end
    elseif p1 == 208 then
      if nOption < #options[sOption] then nOption = nOption+1 else nOption = 1 end
    elseif p1 == 28 then
      options[sOption][options[sOption][nOption]]()
      term.setCursorBlink(true)
      return
    end
  end
  if os.clock()-nClock >= 0.75 then
    os.startTimer(0.8)
    nClock = os.clock()
  end
end
end

local tKeywords = {
  ["and"] = true,
  ["break"] = true,
  ["do"] = true,
  ["else"] = true,
  ["elseif"] = true,
  ["end"] = true,
  ["false"] = true,
  ["for"] = true,
  ["function"] = true,
  ["if"] = true,
  ["in"] = true,
  ["local"] = true,
  ["nil"] = true,
  ["not"] = true,
  ["or"] = true,
  ["repeat"] = true,
  ["return"] = true,
  ["then"] = true,
  ["true"] = true,
  ["until"]= true,
  ["while"] = true,
}

local function tryWrite( sLine, regex, colour ) --Complementary for syntax highlighting
  local match = string.match( sLine, regex )
  if match then
    if type(colour) == "number" then
      term.setTextColour( colour )
    else
      term.setTextColour( colour(match) )
    end
    term.write( match )
    term.setTextColour( theme.text.textColour )
    return string.sub( sLine, string.len(match) + 1 )
  end
  return nil
end

local function writeHighlighted( sLine ) --Syntax Highlighting (Thanks edit program!)
  while string.len(sLine) > 0 do
    sLine =
      tryWrite( sLine, "^%-%-%[%[.-%]%]", theme.text.commentColour ) or
      tryWrite( sLine, "^%-%-.*", theme.text.commentColour ) or
      tryWrite( sLine, "^\".-[^\\]\"", theme.text.stringColour ) or
      tryWrite( sLine, "^\'.-[^\\]\'", theme.text.stringColour ) or
      tryWrite( sLine, "^%[%[.-%]%]", theme.text.stringColour ) or
      tryWrite( sLine, "^[%w_]+", function( match )
        if tKeywords[ match ] then
          return theme.text.keywordColour
        end
        return theme.text.textColour
      end ) or
      tryWrite( sLine, "^[^%w_]", theme.text.textColour )
  end
end

function redraw()
  term.setBackgroundColor(theme.code)
  term.clear()
  local nLines = #tFile[nCurrent]
  local i = 1
  local nRep = tostring(nLines)
  term.setCursorPos(1, 1)
  term.setBackgroundColor(theme.opt)
  term.setTextColor(colors.black)
  for k, v in pairs(options) do write(k.."|") end
  local sTime = textutils.formatTime(os.time(), false)
  term.setCursorPos(w-#sTime+1, 1)
  write(sTime)
  term.setCursorPos(1, 2)
  local nTabs = math.floor((w-1)/#tFile)
  for k, v in pairs(tFile) do
    if k == nCurrent then
      term.setBackgroundColor(theme.opt2high)
      if not tPos[k]["save"] then
        term.setTextColor(colors.red)
      else
        term.setTextColor(colors.white)
      end
      term.write(string.sub(tPos[k]["name"], 1, nTabs-2)..string.rep(" ", nTabs-#tPos[k]["name"]-1).."|")
    else
      term.setBackgroundColor(theme.opt2)
      if not tPos[k]["save"] then
        term.setTextColor(colors.red)
      else
        term.setTextColor(colors.black)
      end
      term.write(string.sub(tPos[k]["name"], 1, nTabs-2)..string.rep(" ", nTabs-#tPos[k]["name"]-1).."|")
    end
  end
  term.setBackgroundColor(theme.opt2)
  term.setTextColor(colors.black)
  term.setCursorPos(w, 2)
  write("+")
  if tPos[nCurrent]["pos"] >= w-#nRep then
    nStart = tPos[nCurrent]["pos"]-w+#nRep+1
  else
    nStart = 1
  end
  repeat
    term.setCursorPos(1, i+2)
    term.setBackgroundColor(theme.line)
    term.setTextColor(colors.white)
    write(tostring(tPos[nCurrent]["init"]+i-1))
    if #tostring(tPos[nCurrent]["init"]+i-1) < #nRep then write(string.rep(" ", #nRep-#tostring(tPos[nCurrent]["init"]+i-1))) end
    term.setCursorPos(#nRep+1, i+2)
    if i == tPos[nCurrent]["height"] then term.setBackgroundColor (theme.high) else term.setBackgroundColor(theme.code) end
    writeHighlighted(string.sub(tFile[nCurrent][tPos[nCurrent]["init"]+i-1], nStart))
    term.write(string.rep(" ", w))
    i = i+1
  until i > h-2 or i > #tFile[nCurrent]
  term.setCursorPos(tPos[nCurrent]["pos"]+#nRep-nStart+1, tPos[nCurrent]["height"]+2)
end


print("Loaded functions")
init()

if tArgs[1] then open(tArgs[1]) elseif #tFile == 0 then new() end
term.setCursorBlink(true)
nClock = os.clock()
os.startTimer(0.8)

while true do
  redraw()
  event, p1, p2, p3 = os.pullEvent()
  checkError(event)
  if event == "key" or event == "mouse_scroll" then
    if p1 == 208 or p1 == -1 then --Down Key or down scroll
      if tPos[nCurrent]["height"]+tPos[nCurrent]["init"] <= #tFile[nCurrent] then
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]+1
      end
      if tPos[nCurrent]["height"] > h-2 and (tPos[nCurrent]["init"]+tPos[nCurrent]["height"] < #tFile[nCurrent]+2) then --Check for outbounds
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]-1
        tPos[nCurrent]["init"] = tPos[nCurrent]["init"]+1
      end
      if #tFile[nCurrent][(tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1)] < tPos[nCurrent]["pos"] then --Check for correct cursor pos
          tPos[nCurrent]["pos"] = #tFile[nCurrent][(tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1)]+1
      end
    elseif p1 == 200 or p1 == 1 then --Up key or up scroll
      if tPos[nCurrent]["init"] > 1 or tPos[nCurrent]["height"] > 1 then
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]-1
      end
      if tPos[nCurrent]["height"] < 1 and (tPos[nCurrent]["init"] > 1) then --Check for outbounds
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]+1
        tPos[nCurrent]["init"] = tPos[nCurrent]["init"]-1
      end
      if #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] < tPos[nCurrent]["pos"] then --Check for correct cursor pos
          tPos[nCurrent]["pos"] = #tFile[nCurrent][(tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1)]+1
      end
    elseif p1 == 205 then --Right key
      if #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]+1 > tPos[nCurrent]["pos"] then --Checks if to move right or down
        tPos[nCurrent]["pos"] = tPos[nCurrent]["pos"]+1
      elseif not (tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1 == #tFile[nCurrent]) then
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]+1
        tPos[nCurrent]["pos"] = 1
        if tPos[nCurrent]["height"] > h-2 and (tPos[nCurrent]["init"]+tPos[nCurrent]["height"] < #tFile[nCurrent]+2) then --Check for outbounds
          tPos[nCurrent]["height"] = tPos[nCurrent]["height"]-1
          tPos[nCurrent]["init"] = tPos[nCurrent]["init"]+1
        end
      end
    elseif p1 == 203 then --Left key
      if tPos[nCurrent]["pos"] > 1 then --Checks to go left or up
        tPos[nCurrent]["pos"] = tPos[nCurrent]["pos"]-1
      elseif not (tPos[nCurrent]["init"] == 1 and tPos[nCurrent]["height"] == 1) then
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]-1
        tPos[nCurrent]["pos"] = #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]+1
        if tPos[nCurrent]["height"] < 1 and (tPos[nCurrent]["init"] > 1) then --Check for outbounds
          tPos[nCurrent]["height"] = tPos[nCurrent]["height"]+1
          tPos[nCurrent]["init"] = tPos[nCurrent]["init"]-1
        end
      end
    elseif p1 == 28 then --Enter
      tPos[nCurrent]["save"] = false
      table.insert(tFile[nCurrent], tPos[nCurrent]["height"]+tPos[nCurrent]["init"], string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], tPos[nCurrent]["pos"]).."")
      tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], 1, tPos[nCurrent]["pos"]-1)
      tPos[nCurrent]["pos"] = 1
      tPos[nCurrent]["height"] = tPos[nCurrent]["height"]+1
      if tPos[nCurrent]["height"] > h-2 and (tPos[nCurrent]["init"]+tPos[nCurrent]["height"] < #tFile[nCurrent]+2) then --Check for outbounds
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]-1
        tPos[nCurrent]["init"] = tPos[nCurrent]["init"]+1
      end
      if string.find(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-2], string.rep(" ", config.tab)) then
        local nMul = 1
        local bFind = true
        repeat
          if string.find(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-2], string.rep(" ", config.tab), config.tab*nMul) then
            nMul = nMul+1
          else
            bFind = false
          end
        until not bFind
        tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = string.rep(" ", (config.tab*nMul))..tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]
        tPos[nCurrent]["pos"] = config.tab*nMul+1
      end
    elseif p1 == 14 then --Backspace
      tPos[nCurrent]["save"] = false
      if tPos[nCurrent]["pos"] > 1 then
        tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], 1, tPos[nCurrent]["pos"]-2)..string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], tPos[nCurrent]["pos"])
        tPos[nCurrent]["pos"] = tPos[nCurrent]["pos"]-1
      elseif not (tPos[nCurrent]["init"] == 1 and tPos[nCurrent]["height"] == 1) then
        tPos[nCurrent]["pos"] = #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-2]+1
        tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-2] = tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-2]..tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]
        table.remove(tFile[nCurrent], tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1)
        tPos[nCurrent]["height"] = tPos[nCurrent]["height"]-1
        if tPos[nCurrent]["height"] < 1 and (tPos[nCurrent]["init"] > 1) then --Check for outbounds
          tPos[nCurrent]["height"] = tPos[nCurrent]["height"]+1
          tPos[nCurrent]["init"] = tPos[nCurrent]["init"]-1
        end
      end
    elseif p1 == 211 then --Delete
      tPos[nCurrent]["save"] = false
      if tPos[nCurrent]["pos"] < #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]+1 then
        tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], 1, tPos[nCurrent]["pos"]-1)..string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], tPos[nCurrent]["pos"]+1)
        tPos[nCurrent]["pos"] = tPos[nCurrent]["pos"]
      elseif not (tPos[nCurrent]["init"]+tPos[nCurrent]["height"] >= #tFile[nCurrent]) then
        tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]..tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]]
        table.remove(tFile[nCurrent], tPos[nCurrent]["height"]+tPos[nCurrent]["init"])
      end
    elseif p1 == 199 then --Home
      tPos[nCurrent]["pos"] = 1
    elseif p1 == 207 then --End
      tPos[nCurrent]["pos"] = #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]+1
    elseif p1 == 201 then --Page Down
      if tPos[nCurrent]["height"] > 1 then
        tPos[nCurrent]["height"] = 1
      elseif not (tPos[nCurrent]["init"]-h+2 < 1) then
        tPos[nCurrent]["init"] = tPos[nCurrent]["init"]-h+2
      end
    elseif p1 == 209 then --Page Up
      if tPos[nCurrent]["height"] < h-2 and not (h-2 > #tFile[nCurrent]) then
        tPos[nCurrent]["height"] = h-2
      elseif not (tPos[nCurrent]["init"]+h+h-4 >= #tFile[nCurrent]) then
        tPos[nCurrent]["init"] = tPos[nCurrent]["init"]+h-2
      end
    elseif p1 == 15 then --Tab
      tPos[nCurrent]["save"] = false
      tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = string.rep(" ", config.tab)..tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1]
      tPos[nCurrent]["pos"] = tPos[nCurrent]["pos"]+3
    elseif p1 == 29 then
      checkOptions("File")
    end
  end
  if event == "char" then
    tPos[nCurrent]["save"] = false
    if #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] > 0 then
    tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], 1, tPos[nCurrent]["pos"]-1)..p1..string.sub(tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1], tPos[nCurrent]["pos"])
    else
    tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] = p1
    end
    tPos[nCurrent]["pos"] = tPos[nCurrent]["pos"]+1
  end
  if event == "mouse_click" then
    local nLines = #tFile[nCurrent]
    local nRep = tostring(nLines)
    if p3 > 2 and p1 == 1 and p3 < h and p2 > #nRep and p3-2 <= #tFile[nCurrent] then
      local nFile = #tFile[nCurrent]
      local nFile = tostring(nFile)
      tPos[nCurrent]["pos"] = p2 - #nFile
      tPos[nCurrent]["height"] = p3 - 2
      if tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] then
        if #tFile[nCurrent][tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1] < tPos[nCurrent]["pos"] then --Check for correct cursor pos
          tPos[nCurrent]["pos"] = #tFile[nCurrent][(tPos[nCurrent]["height"]+tPos[nCurrent]["init"]-1)]+1
        end
      end
    elseif p1 == 1 and p3 == 2 then
      if p2 < w then
        local nTabs = math.floor((w-1)/#tFile)
        nCurrent = math.floor(p2/nTabs)+1
      else
        new()
      end
    elseif p1 == 1 and p3 == 1 then
      if p2 >= 1 and p2 < 5 then
        checkOptions("File")
      elseif p2 > 5 and p2 < 10 then
        checkOptions("Edit")
      elseif p2 > 10 and p2 < 18 then
        checkOptions("Options")
      end
    end
  end
  if os.clock()-nClock >= 0.75 then
    os.startTimer(0.8)
    nClock = os.clock()
  end
end