installer

inputTable = {
  usrData = {
    login = "{\
  {\
    name = \"main\",\
    pass = \"pass\",\
  },\
}",
    preferences = "{\
  main = {\
    mainColour = 16384,\
    homeApps = {\
      {\
        path = \".kernel/programs/settings\",\
        settings = {\
          fullRights = true,\
          sandboxFiles = false,\
          fullscreen = false,\
        },\
        image = \".kernel/core/files/images/settingsIcon\",\
      },\
      default = {\
        path = \"\",\
        settings = {\
          fullRights = false,\
          sandboxFiles = true,\
          fullscreen = false,\
        },\
        image = \".kernel/core/files/images/homeAppsDefaultImage\",\
      },\
    },\
    secColour = 2048,\
    name = \"main\",\
  },\
}",
  },
  other = {
    tmpCache = "os:41: Expected string",
  },
  [ ".mdata" ] = {
    plist = "{}",
  },
  apis = {
    cinter = "function reboot(originalWindow)\
  term.redirect(originalWindow)\
  local des = gui.popup(1, 'Are you sure you want to reboot the PC?', 'Reboot')\
  if des == true then\
    rebootPC(originalWindow)\
  else\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    redrawTaskbar()\
  end\
end\
\
function shutdown(originalWindow)\
  term.redirect(originalWindow)\
  local des = gui.popup(1, 'Are you sure you want to       shutdown?', 'Shutdown')\
  if des == true then\
    shutdownPC(originalWindow)\
  else\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    redrawTaskbar()\
  end\
end\
\
function logout()\
  _G.endAll = true\
end\
\
function shutdownPC(originalWindow)\
  term.redirect(originalWindow)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  term.setTextColor(colors.black)\
  txt.ctxt(\"Shutting down.\", 8)\
  txt.ctxt(\"BASE 2\", 19)\
  sleep(1)\
  oldOS.shutdown(originalWindow)\
end\
\
function rebootPC(originalWindow)\
  term.redirect(originalWindow)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  term.setTextColor(colors.black)\
  txt.ctxt(\"Rebooting your PC.\", 8)\
  txt.ctxt(\"BASE 2\", 19)\
  sleep(1)\
  oldOS.reboot()\
end",
    graphics = "--[[\
  Core OS Graphics API. Used for minmising redraws, amongst other things.\
]]\
\
local screen = {}\
for i = 1, 19 do\
  screen[i] = {\" \", 1, 2}\
end\
\
local function redraw()\
  for i = 1, 19 do\
    for i2 = 1, 51 do\
      core.setCursorPos(i2, i)\
      core.blit(unpack(screen[i2][i]))\
    end\
  end\
end",
    strings = "function split(text, length)\
  local tmpTbl = {}\
  for i = 1, #text do\
    if (i - 1) % length == 0 then\
      local txt = string.sub(text, i, i + (length - 1))\
      table.insert(tmpTbl, txt)\
    end\
  end\
  return tmpTbl\
end",
    baseForms = "local function unserialiseProgram(s)\
    local func = load( \"return \"..s, \"unserialize\", \"t\", _G ) -- use _G here instead of {}\
    if func then\
        local ok, result = pcall(func)\
        if ok then\
            return result\
        end\
    end\
    return nil\
end\
\
local function processAppResults(resultsTbl)\
  local finTbl = {}\
  for i = 1, #resultsTbl do\
    finTbl[i] = {}\
    local tbl = resultsTbl[i]\
    for i2 = 1, #tbl do\
      if type(tbl[i2]) == \"table\" and tbl[i2].type == \"toggleSwitch\" and tbl[i2].name ~= nil then\
        finTbl[i][tbl[i2].name] = tbl[i2]\
      end\
    end\
  end\
  if resultsTbl['functions'] ~= nil then\
    if resultsTbl.functions['onExit'] ~= nil then\
      finTbl.onExit = resultsTbl.functions.onExit\
    end\
  end\
  return finTbl\
end\
\
function runFromTable(progTable)\
  if type(progTable) == \"table\" then\
    local endTable = launchApp(progTable)\
    returnVals = processAppResults(endTable)\
    if returnVals.onExit ~= nil then\
      returnVals.onExit(returnVals)\
    end\
  else\
    os.reboot()\
  end\
end\
\
function run(path)\
  local returnVals = {}\
  if fs.exists(path) then\
    local h = fs.open(path, \"r\")\
    local raw = h.readAll()\
    h.close()\
    local programTable = unserialiseProgram(raw)\
    if type(programTable) == \"table\" then\
      local endTable = launchApp(programTable)\
      returnVals = processAppResults(endTable)\
      if returnVals.onExit ~= nil then\
        returnVals.onExit(returnVals)\
      end\
    else\
      return false, 2, \"Invalid baseForms application: \" .. type(programTable)\
    end\
  else\
    return false, 1, \"Path not specified.\"\
  end\
end\
\
function launchApp(table)\
  title = \"-- Unnamed baseForms Application --\"\
  -- Now, to create the windows.\
  -- Also atm, it does not accomodate full-screen apps\
  curWin = term.current()\
  endApp = false\
  local appPage = 1\
  maxPage = #table\
  w, height = term.getSize()\
  appAccessibleFunctions = {}\
  topBar = window.create(curWin, 1, 1, 51, 1)\
  mainArea = window.create(curWin, 1, 2, 51, (height - 1))\
\
  if table.functions ~= nil then\
    for k, v in pairs(table.functions) do -- Initalise custom app functions. These can be used to carry out custom actions.\
      appAccessibleFunctions[k] = v\
    end\
  end\
  \
  local h = fs.open(\"funcs\", \"w\")\
  h.write(appAccessibleFunctions)\
  h.close()\
\
  local function drawMain(drawTable)\
    if drawTable.title ~= nil then\
      title = drawTable.title\
    end\
    if drawTable.titleBackgroundColor ~= nil then\
      backgroundColor = drawTable.titleBackgroundColor\
    else\
      backgroundColor = colors.gray\
    end\
    if drawTable.pageControlColor ~= nil then\
      pageControlColor = drawTable.pageControlColor\
    else\
      pageControlColor = colors.gray\
    end\
    term.redirect(topBar)\
    term.setBackgroundColor(backgroundColor)\
    term.clear()\
    term.setTextColor(colors.black)\
    txt.ctxt(title, 1)\
    term.setTextColor(colors.red)\
    txt.ptxt(\"x\", 51, 1)\
    paintutils.drawPixel(1, 1, pageControlColor)\
    paintutils.drawPixel(50, 1, pageControlColor)\
    term.setTextColor(colors.white)\
    txt.ptxt(\"<\", 1, 1)\
    txt.ptxt(\">\", 50, 1)\
    \
    term.redirect(mainArea)\
    if drawTable.backgroundColor ~= nil then\
      backgroundColor = drawTable.backgroundColor\
    else\
      backgroundColor = colors.white\
    end\
    term.setBackgroundColor(backgroundColor)\
    term.clear()\
    term.setTextColor(colors.black)\
\
    for i=1, (height - 1) do\
      if drawTable[i] ~= nil then\
        local currBar = drawTable[i]\
        if currBar.type == nil then\
        elseif currBar.type == \"text\" then\
          if currBar.textColor ~= nil then\
            textColour = currBar.textColor\
          else\
            textColour = colors.black\
          end\
          if currBar.backgroundColor ~= nil then\
            currBackgroundColor = currBar.backgroundColor\
          else\
            currBackgroundColor = backgroundColor\
          end\
          paintutils.drawLine(1, i, 51, i, currBackgroundColor)\
          term.setTextColor(textColour)\
          txt.ctxt(currBar.text, i)\
\
        elseif currBar.type == \"toggleSwitch\" then\
          if currBar.backgroundColor ~= nil then\
            paintutils.drawLine(1, i, 51, i, currBar.backgroundColor)\
          else\
            term.setBackgroundColor(backgroundColor)\
          end\
          if currBar.textColor ~= nil then\
            textColor = currBar.textColor\
          else\
            textColor = colors.black\
          end\
          term.setTextColor(textColor)\
          if currBar.state == true then\
            txt.ptxt(currBar.text, 2, i)\
            paintutils.drawPixel(50, i, colors.gray)\
            paintutils.drawLine(47, i, 49, i, colors.green)\
          else\
            txt.ptxt(currBar.text, 2, i)\
            paintutils.drawPixel(47, i, colors.gray)\
            paintutils.drawLine(48, i, 50, i, colors.red)\
          end\
\
        elseif currBar.type == \"fullButton\" then\
          if currBar.buttonColor ~= nil then\
            barColour = currBar.buttonColor\
          else\
            barColour = colors.blue\
          end\
          \
          if currBar.backgroundColor ~= nil then\
            currBackgroundColor = currBar.backgroundColor\
          else\
            currBackgroundColor = backgroundColor\
          end\
          \
          paintutils.drawLine(1, i, 51, i, currBackgroundColor)\
          paintutils.drawLine(2, i, 50, i, barColour)\
          \
          if currBar.textColor ~= nil then\
            textColor = currBar.textColor\
          else\
            textColor = colors.black\
          end\
          term.setTextColor(textColor)\
          txt.ctxt(currBar.text, i)\
          term.setBackgroundColor(colors.white)\
\
        elseif currBar.type == \"fullLgButtonTop\" then\
          --if currBar\
        end\
      end\
    end\
  end -- End of drawMain\
\
  repeat\
    drawMain(table[appPage])\
    local _, button, x, y = os.pullEvent(\"mouse_click\")\
    if button == 1 then\
      if x==51 and y==1 then\
        endApp = true\
      elseif x==1 and y==1 then\
        if appPage > 1 then\
          appPage = appPage - 1\
        end\
      elseif x==50 and y == 1 then\
        if appPage < maxPage then\
          appPage = appPage + 1\
        end\
      elseif y>1 then\
        local y = y-1\
        if table[appPage][y] ~= nil then\
          local bar = table[appPage][y]\
          if bar.type ~= nil then\
            if bar.type == \"fullButton\" then\
              if x>=2 and x<=50 then\
                if bar.action ~= nil and bar.action == \"exit()\" then\
                  endApp = true\
                else\
                  if type(appAccessibleFunctions[bar.action]) == \"function\" then\
                    appAccessibleFunctions[bar.action]()\
                  end\
                end\
              end\
            elseif bar.type == \"toggleSwitch\" then\
              if x>=47 and x<=50 then\
                if bar.state == true then\
                  bar.state = false\
                else\
                  bar.state = true\
                end\
                table[appPage][y] = bar\
              end\
            end\
          end\
        end\
      end\
    end\
  until endApp\
  return table\
end",
    txt = "function center(text, y)\
  local w, h = term.getSize()\
  local x = ((w/2)-(#text/2))+1\
  term.setCursorPos(x, y)\
  write(text)\
end\
\
function ctxt(txt, y)\
  center(txt, y)\
end\
\
function pwrite(text, x, y)\
  term.setCursorPos(x, y)\
  write(text)\
end\
\
function ptxt(txt, x, y)\
  pwrite(txt, x, y)\
end\
\
function entryBox(x, y, xS, fG, bG, shield)\
  local beginWin = term.current()\
  local tempWin = window.create(beginWin, x, y, (xS-x)+1, 1)\
  term.redirect(tempWin)\
  term.setBackgroundColor(bG)\
  term.clear()\
  --term.setTextColor(fG)\
  local tmpVal = read(shield)\
  term.redirect(beginWin)\
  tempWin = nil\
  return tmpVal\
end",
    fileSystem = "--File Selection Dialog, version 1.0\
\
local function dropDown(tbl, x, y)\
  for i=1, #tbl do\
    paintutils.drawLine(x, (y+i)-1, x+10, (y+i)-1, colors.lightGray)\
    ptxt(tbl[i], x, (y+i)-1)\
  end\
  paintutils.drawLine(x+11, y+1, x+11, y+#tbl, colors.black)\
  paintutils.drawLine(x+1, y+#tbl, x+11, y+#tbl, colors.black)\
  local _, b, xP, yP = os.pullEvent(\"mouse_click\")\
  local yP = yP-2\
  local xP = xP-4\
  if b==1 then\
    if xP>=x and xP<=x+9 and yP>=y and yP<=(y+#tbl)-1 then\
      return (yP-y)+1\
    end\
  end\
end\
\
local function ctxt(text, y)\
  local w, h = term.getSize()\
  local x = ((w/2)-(#text/2))+1\
  term.setCursorPos(x, y)\
  write(text)\
end\
\
function ptxt(text, x, y)\
  term.setCursorPos(x, y)\
  write(text)\
end\
\
local function click()\
  _, b, x, y = os.pullEvent(\"mouse_click\")\
end\
\
local function scroll()\
  _, sPos, x, y = os.pullEvent(\"mouse_scroll\")\
end\
\
local function display(mode)\
\
  curDir = \"/\"\
  \
  local beg = term.current()\
  local newWin = window.create(beg, 5, 3, 43, 15)\
  paintutils.drawLine(48, 4, 48, 17, colors.gray)\
  paintutils.drawLine(6, 18, 48, 18, colors.gray)\
  term.redirect(newWin)\
    \
  pos = 1\
  \
  while true do\
  \
    term.setBackgroundColor(colors.white)\
    term.clear()\
  \
    term.setTextColor(colors.black)\
    if fileSelect ~= nil then\
      paintutils.drawLine(1, 15, 21, 15, colors.green)\
      ptxt(\"Select\", 8, 15)\
    else\
      paintutils.drawLine(1, 15, 21, 15, colors.gray)\
      ptxt(\"Select\", 8, 15)\
    end\
    \
    if fileSelect ~= nil then\
      if fs.isDir(fs.combine(curDir, fileSelect)) then\
        paintutils.drawLine(22, 15, 43, 15, colors.lightGray)\
        ptxt(\"Enter Folder\", 26, 15)\
      else\
        paintutils.drawLine(22, 15, 43, 15, colors.gray)\
        ptxt(\"Enter Folder\", 26, 15)\
      end\
    else\
      paintutils.drawLine(22, 15, 43, 15, colors.gray)\
      ptxt(\"Enter Folder\", 26, 15)\
    end\
    \
    term.setBackgroundColor(colors.white)\
  \
    --local curDir = shell.dir() --Don't know why, but it doesn't work.\
\
    \
  \
    local dirList = fs.list(curDir)\
    \
    local files = {}\
    local folds = {}\
    \
    for i=1, #dirList do\
      if fs.isDir(fs.combine(curDir, dirList[i])) then\
        table.insert(folds, dirList[i])\
      else\
        table.insert(files, dirList[i])\
      end\
    end\
    \
    table.sort(files)\
    table.sort(folds)\
    \
    term.setCursorPos(1, 1)\
\
    tPos = 1\
\
    for i=pos, pos+13 do\
\
      if dirList[i] ~= nil then\
\
        if fs.isDir(fs.combine(curDir, dirList[i])) then\
          if fileSelect == dirList[i] then\
            term.setTextColor(colors.lightGray)\
          else\
            term.setTextColor(colors.black)\
          end\
          write('[] ' .. string.sub(dirList[i], 1, 40) .. '\\n')\
        else\
          if fileSelect == dirList[i] then\
            term.setTextColor(colors.lightGray)\
          else\
            term.setTextColor(colors.black)\
          end\
          write(\"() \" .. string.sub(dirList[i], 1, 40) .. '\\n')\
        end\
\
      end\
\
    end\
    \
    paintutils.drawPixel(43, 1, colors.red)\
    ptxt('x', 43, 1)\
\
    local pid = parallel.waitForAny(click, scroll)\
\
    if pid == 2 then\
\
      if sPos == 1 then\
\
        if pos+13 < #files+#folds then\
          pos = pos+1\
        end\
\
      elseif sPos==-1 then\
\
        if pos>1 then\
          pos=pos-1\
        end\
\
      end\
\
    elseif pid == 1 then\
    \
      x = x-4\
      y = y-2\
      if b==1 then\
        if x>=1 and x<=43 then\
          if x==43 and y==1 then\
            error()\
          end\
          if y>=1 and y<=14 then\
            if dirList[(y+pos)-1] ~= nil then\
              fileSelect = dirList[(y+pos)-1]\
            else\
              fileSelect = '/'\
            end\
          elseif y==15 then\
            if x>=1 and x<=21 and fileSelect ~= nil then\
              return fs.combine(curDir, fileSelect)\
            elseif x>=22 and x<=43 and fs.isDir(fs.combine(curDir, fileSelect)) then\
              curDir = fs.combine(curDir, fileSelect)\
            end\
          end\
        end\
      elseif b==2 then\
        if x>=1 and x<=43 and y>=1 and y<=15 then\
          local op = dropDown({\"Back up\", \"Cancel\"}, x, y)\
          if op == 1 then\
            curDir = fs.getDir(curDir)\
          end\
        end\
      end\
\
    end --End of pid\
      \
  end\
  \
  term.redirect(beg)\
end\
\
function folder()\
  display()\
end",
    tasks = "--[[\
  BASE 2 Multitasking core\
]]--\
\
local activeTasks = {}\
local isActive = false\
currentTask = 1\
\
function returnTasks()\
  return activeTasks\
end\
\
function bringToFront(taskID)\
\009if activeTasks[taskID] ~= nil then\
\009\009currentTask = taskID\
\009\009screenManage.redirectScreen(activeTasks[taskID].screenID)\
\009end\
end\
\
function launchBackgroundTaskAsAPI(pathOfAPI, pathOfManager)\
\009if pathOfAPI ~= nil and pathOfManager ~= nil and fs.exists(pathOfAPI) and fs.exists(pathOfManager) then\
\009\009local h = fs.open(pathOfAPI, \"r\")\
\009\009local data = h.readAll()\
\009\009h.close()\
\009\009local data = loadstring(data)\
\009\009local APIName = fs.getName(pathOfAPI)\
\009\009_G.APIName = data\
\009\009--newTask(loadstring(data), true)\
\009end\
end\
\
function newTask(func, referral)\
  if type(func) == \"function\" then\
    local co = coroutine.create(func)\
\009if referral ~= true then\
\009\009local screenID = screenManage.newScreen(18, 51)\
\009end\
    local routineTable = {\
      routine = co,\
      id = #activeTasks + 1,\
      filter = nil,\
\009  screenID = screenID,\
    }\
    activeTasks[#activeTasks + 1] = routineTable\
    return #activeTasks\
  end\
end\
\
function removeTask(id)\
  if activeTasks[id] ~= nil then\
    activeTasks[id] = nil\
    return true\
  else\
    return false\
  end\
end\
\
function startX()\
  if isActive then\
    error(\"Multitasking core already running!\")\
  end\
  isActive = true\
  local pID = tasks.newTask(loadfile(\".kernel/core/os.main\"))\
  bringToFront(pID)\
  while true do\
\009local ok, err = pcall(screenManage.redraw)\
\009if not ok then local h = fs.open(\"/.latest\", \"w\")\
\009\009h.write(err)\
\009\009h.close()\
\009\009os.shutdown()\
\009end\
    local evt = {os.pullEvent()}\
    for i=1, #activeTasks do\
      local v = activeTasks[i]\
      if (evt[1] == \"terminate\" or v.filter == evt[1] or v.filter == nil) then\
        local ok, filter = coroutine.resume(v.routine, unpack(evt))\
        v.filter = filter\
      end\
      activeTasks[i] = v\
      if coroutine.status(v.routine) == \"dead\" then\
        activeTasks[i] = nil\
      end\
    end\
  end\
end\
\
function start()\
\009local ok, err = pcall(startX)\
\009if not ok then local h = fs.open(\"/.latest\", \"w\")\
\009\009h.write(err)\
\009\009h.close()\
\009\009os.shutdown()\
\009end\
end\
\
--End of file",
    screenManage = "--[[\
\009BASE 2 Screen-Managing file.\
\009This makes sure that apps only draw to their screens, and not to the current one, if they are not currently selected. This file handles all drawing requests from programs, and minimises the amount of drawing calls that\
\009eventually have to be made, therefore resulting in less flickering, and in some circumstances, better performance.\
]]--\
\
local screens = {}\
local currentlyDrawn = {}\
local h = 19\
local w = 51\
for i = 1, h do\
\009currentlyDrawn[i] = {}\
\009for i2 = 1, w do\
\009\009currentlyDrawn[i][i2] = {}\
\009end\
end\
local currentScreen = 1\
local currentBackgroundColor = colors.black\
local currentForegroundColor = colors.white\
\
function newScreen(height, width)\
\009if height == nil then\
\009\009height = 18\
\009end\
\009if width == nil then\
\009\009width = 51\
\009end\
\009local tmp = {}\
\009for i = 1, height do\
\009\009tmp[i] = {}\
\009\009for i2 = 1, width do\
\009\009\009tmp[i][i2] = {\" \", colors.white, colors.white}\
\009\009end\
\009end\
\009screens[#screens + 1] = {graphics = tmp, currentPos = {x = 1, y = 1}, width = width, height = height}\
\009return #screens\
end\
\
function redrawTaskbar()\
\009base_core.graphics.oldTerm.setCursorPos(1, 19)\
\009base_core.graphics.oldTerm.setBackgroundColor(colors.lightGray)\
\009base_core.graphics.oldTerm.write(\"[v]\")\
\009for i = 1, 48 do\
\009\009base_core.graphics.oldTerm.write(\" \")\
\009end\
end\
\
function redirectScreen(id)\
\009if screens[id] ~= nil then\
\009\009currentScreen = id\
\009\009return true\
\009end\
end\
\
function redraw()\
\009--local beg = base_core.graphics.oldTerm.current()\
\009--base_core.graphics.oldTerm.redirect(base_core.graphics.oldTerm.native())\
\009if screens[currentScreen] ~= nil then\
\009\009local screen = screens[currentScreen].graphics\
\009\009width = screens[currentScreen].width\
\009\009height = screens[currentScreen].height\
\009\009for i = 1, height do\
\009\009\009for i2 = 1, width do\
\009\009\009\009if currentlyDrawn[i][i2] ~= screen[i][i2] then\
\009\009\009\009\009base_core.graphics.blit(screen[i][i2][1], screen[i][i2][2], screen[i][i2][3], i2, i)\
\009\009\009\009\009currentlyDrawn[i][i2] = screen[i][i2]\
\009\009\009\009end\
\009\009\009end\
\009\009end\
\009\009--base_core.graphics.oldTerm.redirect(beg)\
\009\009redrawTaskbar()\
\009\009return true\
\009end\
\009--base_core.graphics.oldTerm.redirect(beg)\
end\
\
function deleteScreen(id)\
\009if screens[id] ~= nil then\
\009\009screens[id] = nil\
\009\009return true\
\009end\
end\
\
\
--[[ BEGIN TERM REPLACEMENTS ]]--\
\
function setCursorPos(x, y)\
\009if screens[currentScreen] ~= nil then\
\009\009screens[currentScreen].currentPos = {x = x, y = y}\
\009\009return true\
\009end\
\009return false\
end\
\
function write(text)\
\009local screen = screens[currentScreen]\
\009if screen ~= nil then\
\009\009local textTable = string.sub(screen, \".+\")\
\009\009local cont = screen.width - screen.currentPos.x + 1\
\009\009for i = 1, cont do\
\009\009\009if textTbl[i] ~= nil then\
\009\009\009\009local tbl = {textTable[i], currentForegroundColor, currentBackgroundColor}\
\009\009\009\009screen.graphics[screen.currentPos.y][screen.currentPos.x] = tbl\
\009\009\009end\
\009\009end\
\009end\
\009screens[currentScreen] = screen\
end\
\
function setBackgroundColor(colour)\
\009currentBackgroundColor = colour\
end\
\
function setTextColor(colour)\
\009currentForegroundColor = colour\
end\
\
function clear()\
\009if currentBackgroundColor ~= nil and screens[currentScreen] ~= nil then\
\009\009local redrawTbl = {\" \", currentForegroundColor, currentBackgroundColor}\
\009\009screen = screens[currentScreen]\
\009\009for i = 1, screen.height do\
\009\009\009for i2 = 1, screen.width do\
\009\009\009\009if screen.graphics[i][i2] ~= redrawTbl then\
\009\009\009\009\009screen.graphics[i][i2] = redrawTbl\
\009\009\009\009end\
\009\009\009end\
\009\009end\
\009\009screens[currentScreen] = screen\
\009end\
end",
    gui = "local function pop(mode, text, title, shield)\
  term.redirect(_G.originalWindow)\
  term.setTextColor(colors.black)\
  term.setBackgroundColor(colors.black)\
  term.clear()\
  \
  paintutils.drawLine(10, 8, 40, 8, colors.gray)\
  txt.center(title, 8)\
  paintutils.drawPixel(41, 8, colors.red)\
  txt.pwrite('x', 41, 8)\
  \
  for i=9, 12 do\
    paintutils.drawLine(10, i, 41, i, colors.white)\
  end\
  \
  local tmpTxt = strings.split(text, 31)\
  \
  for i=1, #tmpTxt do\
    --term.setCursorPos(10, (9+i)-1)\
    txt.center(tmpTxt[i], (9+i)-1)\
  end\
  \
  paintutils.drawLine(42, 9, 42, 12, colors.lightGray)\
  paintutils.drawLine(11, 13, 42, 13, colors.lightGray)\
  \
  if mode == 1 then -- Boolean\
  \
    paintutils.drawLine(10, 12, 25, 12, colors.green)\
    txt.pwrite('Yes', 17, 12)\
    paintutils.drawLine(26, 12, 41, 12, colors.red)\
    txt.pwrite('No', 33, 12)\
    \
    while true do\
    local event, button, x, y = oldOsPull('mouse_click')\
    \
    if x>=10 and x<=25 and y==12 then\
      paintutils.drawLine(10, 12, 25, 12, colors.gray)\
      txt.pwrite('Yes', 17, 12)\
      sleep(.15)\
      redrawTaskbar()\
      return true\
    elseif x==41 and y==8 then\
      paintutils.drawPixel(41, 8, colors.gray)\
      txt.pwrite('x', 41, 8)\
      sleep(.15)\
      redrawTaskbar()\
      return false\
    elseif x>=26 and x<=41 and y==12 then\
      paintutils.drawLine(26, 12, 41, 12, colors.gray)\
      txt.pwrite('No', 33, 12)\
      sleep(.15)\
      redrawTaskbar()\
      return false\
    end\
    end\
  elseif mode == 2 then -- Text Entry\
    paintutils.drawLine(10, 12, 41, 12, colors.gray)\
    --term.setCursorPos(10, 12)\
    local tmpTxt = txt.entryBox(10, 12, 41, colors.white, colors.gray, shield)\
    redrawTaskbar()\
    return tmpTxt\
  elseif mode == 3 then\
    paintutils.drawLine(10, 12, 41, 12, colors.red)\
    txt.center('Reboot', 12)\
    while true do\
      local event, button, x, y = oldOsPull('mouse_click')\
      if x>=10 and x<=41 and y==12 then\
        paintutils.drawLine(10, 12, 41, 12, colors.gray)\
        txt.center('Reboot', 12)\
        sleep(.15)\
        os.reboot()\
      elseif x==41 and y==8 then\
        paintutils.drawPixel(41, 8, colors.gray)\
        txt.pwrite('x', 41, 8)\
        sleep(.15)\
        os.reboot()\
      end\
    end\
  end\
  \
end\
\
function popup(mode, text, title, shield)\
  local old = term.native()\
  local p = pop(mode, text, title, shield)\
  term.redirect(old)\
  return p\
end",
    sys = "LoadAPI = function(path)\
\009local name = fs.name(path)\
\009if fs.exists(path) then\
\009\009local h = fs.open(path, \"r\")\
\009\009local raw = h.readAll()\
\009\009h.close()\
\009\009_G.name = loadstring(raw)\
\009\009return true\
\009else\
\009\009error(\"API at path specified does not exist! (4)\")\
\009end\
end\
\
loadAPIWithName = function(path, name)\
\009if fs.exists(path) then\
\009\009local h = fs.open(path, \"r\")\
\009\009local raw = h.readAll()\
\009\009h.close()\
\009\009_G.name = loadstring(raw)\
\009else\
\009\009error(\"API at path specified does not exist! (4)\")\
\009end\
end\
\
launch = function(program, window)\
\009local progs = {\
\009\009fileBrowser = \"/.kernel/programs/explorer\",\
\009\009console = \"/.kernel/core/console\",\
\009}\
\
\009if progs[program] ~= nil then\
\009\009local path = progs[program]\
\009\009if not fs.exists(progs[program]) then\
\009\009\009term.setBackgroundColor(colors.white)\
\009\009\009term.clear()\
\009\009\009term.setTextColor(colors.black)\
\009\009\009txt.ctxt(\"File not found\", 1)\
\009\009\009os.pullEvent(\"mouse_click\")\
\009\009else\
\009\009\009local h = fs.open(path, \"r\")\
\009\009\009local raw = h.readAll()\
\009\009\009h.close()\
\009\009\009raw = \"args = {...}\\n _G.shell = args[1]\\n\" .. raw\
\009\009\009local ok, err = pcall(loadstring(raw)(shell))\
\009\009\009if not ok then\
\009\009\009\009local h = fs.open(\".kernel/dumps/prog\", \"w\")\
\009\009\009\009h.write(err)\
\009\009\009\009h.close()\
\009\009\009end\
\009\009end\
\009end\
end\
\
function deleteAccount(user)\
\009local users = sys.load(sys.var(\"userLogins\"))\
\009for i = 1, #users do\
\009\009if users[i] ~= nil then\
\009\009\009if users[i].name == user then\
\009\009\009\009users[i] = nil\
\009\009\009\009break\
\009\009\009end\
\009\009end\
\009end\
\009sys.save(sys.var(\"userLogins\"), users)\
end\
\
userExists = function(user, users)\
\009for i = 1, #users do\
\009\009if users[i] ~= nil then\
\009\009\009if users[i].name == user then\
\009\009\009\009return true\
\009\009\009end\
\009\009end\
\009end\
\009return false\
end\
\
save = function(path, data)\
\009local h = fs.open(path, \"w\")\
\009h.write(data)\
\009h.close()\
end\
\
newUser = function(user, pass, users)\
\009local newUser = {\
\009\009name = user,\
\009\009pass = pass,\
\009}\
\009users[#users + 1] = newUser\
\009sys.save(sys.var(\"userLogins\"), textutils.serialise(users))\
\009local prefs = sys.load(sys.var(\"userPrefs\"))\
\009local tmp = {\
\009\009mainColour = colors.red,\
\009\009secColour = colors.blue,\
\009\009name = user,\
\009\009homeApps = {\
\009\009\009default = {\
\009\009\009\009image = sys.var(\"homeAppsDefaultImage\"),\
\009\009\009\009path = \"\",\
\009\009\009\009settings = {\
\009\009\009\009\009fullscreen = false,\
\009\009\009\009\009sandboxFiles = true,\
\009\009\009\009\009fullRights = false,\
\009\009\009\009},\
\009\009\009},\
\009\009\009{\
\009\009\009\009image = sys.var(\"homeAppsSettingsImage\"),\
\009\009\009\009path = \".kernel/programs/settings\",\
\009\009\009\009settings = {\
\009\009\009\009\009fullscreen = false,\
\009\009\009\009\009sandboxFiles = false,\
\009\009\009\009\009fullRights = true,\
\009\009\009\009},\
\009\009\009},\
\009\009},\
\009}\
\009prefs[user] = tmp\
\009sys.save(sys.var(\"userPrefs\"), textutils.serialise(prefs))\
end\
\
loadImage = function(path)\
\009return paintutils.loadImage(path)\
end\
\
load = function(path)\
\009if fs.exists(path) then\
\009\009local h = fs.open(path, \"r\")\
\009\009local raw = h.readAll()\
\009\009h.close()\
\009\009return textutils.unserialise(raw)\
\009end\
end\
\
var = function(object)\
\009tblVars = {\
\009\009console = \".kernel/programs/console\",\
\009\009explorer = \".kernel/programs/explorer\",\
\009\009userPrefs = \".kernel/usrData/preferences\",\
\009\009userLogins = \".kernel/usrData/login\",\
\009\009homeAppsDefaultImage = \".kernel/core/files/images/homeAppsDefaultImage\",\
\009\009homeAppsSettingsImage = \".kernel/core/files/images/settingsIcon\",\
\009\009--userDir = \".kernel/usrData/files/\" .. preferences.name,\
\009}\
\009return tblVars[object]\
end\
\
login = function(users, window, top)\
\009reload = true\
\009local beg = term.current()\
\
\009userPos = {}\
\009userPos[1] = {x = 2, y = 7} --Ends at x = 10, y = 10\
\009userPos[2] = {x = 12, y = 7} -- Ends at x = 20, y = 10\
\009userPos[3] = {x = 22, y = 7}\
\009userPos[4] = {x = 32, y = 7}\
\009userPos[5] = {x = 42, y = 7}\
\
\009local function drawMain()\
\009\009if top ~= nil then\
\009\009\009term.redirect(top)\
\009\009\009term.setTextColor(colors.white)\
\009\009\009term.setBackgroundColor(colors.lightGray)\
\009\009\009term.clear()\
\009\009\009txt.ctxt(\"Login Screen\", 1)\
\009\009\009term.setTextColor(colors.red)\
\009\009\009txt.ptxt(\"x\", 51, 1)\
\009\009end\
\
\009\009term.redirect(window)\
\
\009\009term.setBackgroundColor(colors.white)\
\009\009term.clear()\
\009\009term.setTextColor(colors.black)\
\009\009txt.ctxt(\"Please select a user\", 2)\
\
\009\009for i = 6, 12 do\
\009\009\009paintutils.drawLine(1, i, 51, i, colors.lightGray)\
\009\009end\
\
\009\009for i = 1, 5 do\
\009\009\009if users[i] ~= nil then\
\009\009\009\009term.setBackgroundColor(colors.lightGray)\
\009\009\009\009txt.ptxt(users[i].name, userPos[i].x, 11)\
\009\009\009\009for i2 = 7, 9 do\
\009\009\009\009\009paintutils.drawLine(userPos[i].x, i2, userPos[i].x+8, i2, preferences[users[i].name].mainColour)\
\009\009\009\009end\
\009\009\009end\
\009\009end\
\
\009\009paintutils.drawLine(2, 15, 50, 15, colors.lightGray)\
\009\009txt.ctxt(\"Create a new account\", 15)\
\009end\
\
\009repeat\
\009\009if reload then\
\009\009\009users = sys.load(sys.var(\"userLogins\"))\
\009\009\009preferences = sys.load(sys.var(\"userPrefs\"))\
\009\009\009reload = false\
\009\009end\
\009\009drawMain()\
\009\009local _, b, x, y = os.pullEvent(\"mouse_click\")\
\009\009if y == 0 then\
\009\009\009if x == 51 then\
\009\009\009\009loginEnd = true\
\009\009\009end\
\009\009end\
\
\009\009if x >= 2 and x <= 50 and y == 15 then -- Clicked on create new account\
\009\009\009while true do\
\009\009\009\009user = gui.popup(2, \"Please enter a username\", \"Create Account: 1/2\")\
\009\009\009\009if user ~= nil and sys.userExists(user, users) then\
\009\009\009\009\009gui.popup(1, \"That user already exists!\", \"Create Account 1/2\")\
\009\009\009\009else\
\009\009\009\009\009break\
\009\009\009\009end\
\009\009\009end\
\009\009\009if user ~= nil and #user > 0 then\
\009\009\009\009local pass = gui.popup(2, \"Please enter a password\", \"Create Account: 2/2\", \"*\")\
\009\009\009\009sys.newUser(user, pass, users)\
\009\009\009\009reload = true\
\009\009\009end\
\
\009\009elseif x >= 2 and x <= 10 and y >= 7 and y <= 11 and users[1] ~= nil then --User 1\
\009\009\009local pass = gui.popup(2, \"Please enter your password\", \"Login\", \"*\")\
\009\009\009if users[1].pass == pass then\
\009\009\009\009_G.preferences = sys.load(sys.var(\"userPrefs\"))[users[1].name]\
\009\009\009\009return users[1]\
\009\009\009else\
\009\009\009\009gui.popup(1, \"Incorrect Password!\", \"Login\")\
\009\009\009end\
\009\009elseif x >= 12 and x <= 20 and y >= 7 and y <= 11 and users[2] ~= nil then --User 2\
\009\009\009local pass = gui.popup(2, \"Please enter your password\", \"Login\", \"*\")\
\009\009\009if users[2].pass == pass then\
\009\009\009\009_G.preferences = sys.load(sys.var(\"userPrefs\"))[users[2].name]\
\009\009\009\009return users[2]\
\009\009\009else\
\009\009\009\009gui.popup(2, \"Incorrect Password!\", \"Login\")\
\009\009\009end\
\
\009\009elseif x >= 22 and x <= 30 and y >= 7 and y <= 11 and users[3] ~= nil then --User 3\
\009\009\009local pass = gui.popup(2, \"Please enter your password\", \"Login\", \"*\")\
\009\009\009if users[3].pass == pass then\
\009\009\009\009_G.preferences = sys.load(sys.var(\"userPrefs\"))[users[3].name]\
\009\009\009\009return users[3]\
\009\009\009else\
\009\009\009\009gui.popup(1, \"Incorrect Password!\", \"Login\")\
\009\009\009end\
\
\009\009elseif x >= 32 and x <= 40 and y >= 7 and y <= 11 and users[4] ~= nil then --User 4\
\009\009\009local pass = gui.popup(2, \"Please enter your password\", \"Login\", \"*\")\
\009\009\009if users[4].pass == pass then\
\009\009\009\009_G.preferences = sys.load(sys.var(\"userPrefs\"))[users[4].name]\
\009\009\009\009return users[4]\
\009\009\009else\
\009\009\009\009gui.popup(1, \"Incorrect Password!\", \"Login\")\
\009\009\009end\
\
\009\009elseif x >= 42 and x <= 50 and y >= 7 and y <= 11 and users[5] ~= nil then --User 5\
\009\009\009local pass = gui.popup(2, \"Please enter your password\", \"Login\", \"*\")\
\009\009\009if users[5].pass == pass then\
\009\009\009\009_G.preferences = sys.load(sys.var(\"userPrefs\"))[users[5].name]\
\009\009\009\009return users[5]\
\009\009\009else\
\009\009\009\009gui.popup(1, \"Incorrect Password!\", \"Login\")\
\009\009\009end\
\009\009end\
\009until loginEnd == true\
\
\009term.redirect(beg)\
end",
  },
  programs = {
    console = "--[[\
\
\009Base V1.1 by Sam Gunner.\
 Patch pack 1\
\009\
]]--\
\
-- Variables --\
\
commands = {\
  [ 'exit' ] = function()\
    mainLoopTerm = true\
  end,\
  [ 'about' ] = function()\
    term.setTextColor(colors.gray)\
    print('BASE Console, Version 1.1 Built for BASE 2')\
  end,\
  [ 'help' ] = function()\
    term.setTextColor(colors.green)\
    print('Available commands:')\
    local tmpTbl = {}\
    for k, v in pairs(commands) do\
      table.insert(tmpTbl, k)\
    end\
    table.sort(tmpTbl)\
    textutils.pagedTabulate(colors.red, tmpTbl)\
  end,\
  [ 'compress' ] = function(cmd)\
    local tmpTbl = {}\
    \
    for i=2, #cmd do\
      table.insert(tmpTbl, cmd[i])\
    end\
    \
    if #tmpTbl ~= 2 then\
      printError('Usage: compress <Directory> <Destination file>')\
    else\
    \
    if fs.isDir(tmpTbl[1]) and not fs.exists(tmpTbl[2]) then\
    \
    local h = fs.open('.kernel/programs/compress', 'r')\
    local app = h.readAll()\
    h.close()\
    \
    loadstring(app)(tmpTbl[1], tmpTbl[2])\
    else\
      printError('Usage: compress <Directory> <Destination file>')\
    end\
    end\
  end,\
  [ 'clear' ] = function()\
    term.setBackgroundColor(colors.white)\
    term.clear()\
    term.setCursorPos(1, 1)\
  end,\
  [ 'cp' ] = function(cmd)\
    if cmd[2] ~= nil and cmd[3] ~= nil and fs.exists(fs.combine(dir, cmd[2])) then\
      fs.copy(fs.combine(dir, cmd[2]), fs.combine(dir, cmd[3]))\
    end\
  end,\
  [ 'run' ] = function(cmd)\
    shell.run(fs.combine(dir, cmd[2]))\
    --[[\
    paintutils.drawLine(35, 19, 51, 19, colors.gray)\
    term.setTextColor(colors.white)\
    txt.pwrite('Closing in 2...', 35, 19)\
    sleep(1)\
    txt.pwrite('Closing in 1...', 35, 19)\
    sleep(1)\
    ]]--\
  end,\
  [ 'reboot' ] = function()\
    cinter.reboot()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    term.setTextColor(colors.white)\
    commands.clear()\
  end,\
  [ 'shutdown' ] = function()\
    cinter.shutdown()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    term.setTextColor(colors.white)\
    commands.clear()\
  end,\
  [ 'ls' ] = function(cmd)\
    local files2 = {}\
    local file = {}\
    local folds = {}\
    if cmd[2] == nil then\
      files = fs.list(dir)\
      tmpDir = ''\
    elseif fs.isDir(cmd[2]) then\
      files = fs.list(cmd[2])\
      tmpDir = cmd[2]\
    else\
      printError('That is not a directory.')\
      return nil\
    end\
    for k, v in ipairs(files) do\
      if string.sub(v, 1, 1) ~= '.' then\
        table.insert(files2, v)\
      end\
    end\
    for i=1, #files2 do\
      if fs.isDir(tmpDir..'/'..files2[i]) then\
        table.insert(folds, files2[i])\
      else\
        table.insert(file, files2[i])\
      end\
    end\
    textutils.pagedTabulate(colors.red, folds, colors.gray, file)\
  end,\
  [ 'cd' ] = function(cmd)\
    if fs.exists(dir..'/'..cmd[2]) then\
      if cmd[2] == '..' then\
        dir = fs.getDir(dir)\
      elseif cmd[2] == '/' then\
        dir = ''\
      elseif fs.isDir(dir..'/'..cmd[2]) then\
        dir = dir..'/'..cmd[2]\
      else\
        printError('That isn\\'t a directory!')\
      end\
    else\
      printError('That isn\\'t a directory!')\
    end\
  end,\
  [ 'clr'] = function() commands.clear() end,\
  [ 'rm' ] = function(cmd)\
    if fs.exists(fs.combine(dir, cmd[2])) then\
      fs.delete(fs.combine(dir, cmd[2]))\
      print('File deleted.')\
    else\
      printError('That file doesn\\'t exist!')\
    end\
  end,\
  [ 'mkdir' ] = function(cmd)\
    if not fs.exists(fs.combine(dir, cmd[2])) then\
      fs.makeDir(fs.combine(dir, cmd[2]))\
    else\
      printError('That already exists.')\
    end\
  end,\
  [ 'nano' ] = function(cmd)\
    shell.run(\"edit\", cmd[2])\
    commands.clr()\
  end\
}\
\
-- Functions --\
\
function commSplit(comm)\
  local tmpTbl = {}\
  for k in string.gmatch(comm, '[^ ]+') do\
    table.insert(tmpTbl, k)\
  end\
  return tmpTbl\
end\
\
function mainLoop(commands)\
mainLoopTerm = false\
dir = ''\
local commHis = {}\
term.setBackgroundColor(colors.white)\
term.clear()\
term.setCursorPos(1, 1)\
\
term.setTextColor(colors.black)\
\
print('Welcome to BaseOS Shell, V1.1')\
print('Type \\'help\\' for a list of commands')\
print(\"Type 'exit' to leave the console\")\
\
repeat\
\
  --local tmpVal = multishell.getCurrent()\
  --multishell.setTitle(tmpVal, 'OS')\
\
  term.setTextColor(colors.lightGray)\
  write(dir..'/> ')\
  term.setTextColor(colors.black)\
  local comm = read(nil, commHis)\
  table.insert(commHis, comm)\
  local commNew = commSplit(comm)\
\
  \
  \
  if commands[commNew[1]] ~= nil then\
    local ok, err = pcall(commands[commNew[1]], commNew)\
    if not ok then\
      local h = fs.open('.kernel/dumps/consoleCrash', 'w')\
      h.write(err)\
      h.close()\
    end\
  else\
    printError('That command doesn\\'t exist. Type \\'help\\' for help.')\
  end\
until mainLoopTerm == true\
end\
\
-- Startup\
\
sleep(.2)\
--local tmpVal = cinter.login()\
\
mainLoop(commands)",
    explorer = "-- ROOT_DIR = \".kernel/usrData/files/\" .. sys.currentUser()\
\
-- Built for BASE 2\
\
-- GUI Based File Explorer, Version 1.0 --\
-- Copyright (C) 2015, Sam Gunner --\
-- You may redistribute and modify this, as long--\
-- as you give credit to the original creator --\
-- Other than that, enjoy the program! --\
\
function diagBox(txt)\
  for i=8, 12 do\
    paintutils.drawLine(4, i, 47, i, colors.gray)\
  end\
  paintutils.drawLine(5, 9, 46, 9, colors.white)\
  term.setTextColor(colors.black)\
  ctxt(txt, 9)\
  paintutils.drawLine(48, 9, 48, 13, colors.black)\
  paintutils.drawLine(6, 13, 48, 13, colors.black)\
  local beg = term.current()\
  local tmpWin = window.create(term.native(), 5, 11, 42, 1)\
  term.redirect(tmpWin)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  term.setCursorPos(1, 1)\
  term.setTextColor(colors.black)\
  local tmpVal = read()\
  term.redirect(beg)\
  return tmpVal\
end\
\
function drawScroll(things, scrollPos)\
  --[[\
  local beg = term.current()\
  term.redirect(scBar)\
  local totLen = #things.files + #things.folds\
  --if \
    paintutils.drawLine(1, tmpVal, 1, tmpVal, colors.gray)\
    term.redirect(beg)\
  --end\
  ]]--\
end\
\
function drawMain(things, dPos)\
  local beg = term.current()\
  if topBar== nil or sideBar == nil or mainSec == nil then\
    topBar = window.create(term.current(), 1, 1, 51, 3)\
    sideBar = window.create(term.current(), 31, 4, 21, 16)\
    mainSec = window.create(term.current(), 1, 4, 29, 17)\
    scBar = window.create(term.current(), 30, 2, 1, 18)\
    addBar = window.create(term.current(), 2, 2, 49, 1)\
  end\
  \
  term.redirect(scBar)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  local allLen = #things.files+#things.folds\
  print(allLen)\
  term.redirect(beg)\
  \
  term.redirect(topBar)\
  term.setBackgroundColor(colors.gray)\
  term.clear()\
  term.setTextColor(colors.white)\
  ctxt('File Explorer - Built for BASE 2', 1)\
  term.setTextColor(colors.red)\
  ptxt('x', 51, 1)\
\
  term.redirect(addBar)\
  term.setBackgroundColor(colors.black)\
  term.clear()\
  term.setTextColor(colors.white)\
  ptxt(dir, 1, 1)\
  term.redirect(beg)\
  \
  term.redirect(sideBar)\
  term.setBackgroundColor(colors.gray)\
  term.clear()\
  term.setTextColor(colors.white)\
  if things.sel == '' then\
    ctxt('File Explorer', 1)\
    ctxt('Click on a file', 8)\
    ctxt('to get started!', 9)\
  elseif fs.isDir(fs.combine(dir, things.sel)) then\
    ctxt('Options - Folder', 1)\
    ctxt(string.sub(things.sel, 1, 21), 2)\
    ctxt('------', 4)\
    ctxt('Open Folder', 6)\
    ctxt('Rename', 7)\
    ctxt('Delete', 8)\
  elseif not fs.isDir(fs.combine(dir, things.sel)) then\
    ctxt('Options - File', 1)\
    ctxt(string.sub(things.sel, 1, 21), 2)\
    ctxt('------', 4)\
    ctxt('Run as program', 6)\
    ctxt('Edit as text file', 7)\
    ctxt('Rename', 8)\
    ctxt('Delete', 9)\
    local size = fs.getSize(fs.combine(dir, things.sel))\
    local sSize = math.ceil(size/1000, 1)\
    ctxt('Size: ' .. sSize .. ' KB', 12)\
  end\
  term.redirect(beg)\
  \
  term.redirect(mainSec)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  term.redirect(beg)\
  \
  local files = things.files\
  local folds = things.folds\
  local fSel = things.sel\
  \
  table.sort(files)\
  table.sort(folds)\
  \
  local tmpTbl = {}\
  for i=1, #folds do\
    table.insert(tmpTbl, folds[i])\
  end\
  \
  for i=1, #files do\
    table.insert(tmpTbl, files[i])\
  end\
  \
  term.redirect(mainSec)\
  term.setTextColor(colors.black)\
  \
  for i=dPos, dPos+15 do\
    if tmpTbl[i] ~= nil then\
\009  if fs.isDir(fs.combine(dir, tmpTbl[i])) then\
\009    if fs.combine(dir, fSel) == fs.combine(dir, tmpTbl[i]) then\
\009\009  term.setTextColor(colors.lightGray)\
\009\009  write('[] ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009else\
\009\009  term.setTextColor(colors.black)\
\009      write('[] ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009end\
\009  else\
\009    if fs.combine(dir, fSel) == fs.combine(dir, tmpTbl[i]) then\
\009\009  term.setTextColor(colors.lightGray)\
\009      write('() ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009else\
\009\009  term.setTextColor(colors.black)\
\009\009  write('() ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009end\
\009  end\
\009end\
  end\
  \
  term.redirect(beg)\
  \
end\
\
function nread()\
  tmpVal = read()\
end\
\
function handClick(b, x, y, stuff)\
  if b == 1 then\
  \
    if x>=1 and x<=51 and y>=1 and y<=3 then\
      if x == 51 and y == 1 then\
        terminate = true\
      elseif x>=2 and x<=50 and y == 2 then\
        local beg = term.current()\
        term.redirect(addBar)\
        term.clear()\
        term.setTextColor(colors.white)\
        term.setCursorPos(1, 1)\
        local pid = parallel.waitForAny(click, nread)\
        if pid == 2 then\
          if fs.isDir(tmpVal) then\
            dir = \"/\" .. tmpVal\
          end\
        end\
        term.redirect(beg)\
      end\
    elseif x>=1 and x<=29 and y>=4 and y<=19 then\
      local fileSel = ((y-3)+drawPos)-1\
      local totLen = #stuff.files + #stuff.folds\
      if fileSel > #stuff.folds then\
        local fileSel = fileSel - #stuff.folds\
        selVal = stuff.files[fileSel]\
      else\
        selVal = stuff.folds[fileSel]\
      end\
    elseif x>=31 and x<=51 and y>=4 and y<=19 then\
      local xP = x-30\
      local yP = y-3\
      local beg = term.current()\
      if selVal ~= nil then\
      if fs.isDir(fs.combine(dir, selVal)) then -- Assume folder mode\
        if yP==6 then\
          dir = \"/\" .. fs.combine(dir, selVal)\
          selVal = ('')\
        elseif yP==7 then\
          term.redirect(sideBar)\
          ctxt('Enter a new name', 15)\
          paintutils.drawLine(1, 16, 21, 16, colors.white)\
          term.setTextColor(colors.black)\
          term.setCursorPos(1, 16)\
          local pid = parallel.waitForAny(click, nread)\
          if pid == 2 then\
            if #tmpVal>0 then\
              fs.move(fs.combine(dir, selVal),fs.combine(dir, tmpVal))\
              selVal = ''\
            end\
          end\
          term.redirect(beg)\
        elseif yP == 8 then\
          local beg = term.current()\
          local ans = gui.popup(1, 'Are you sure you want to delete this?', 'Confirm Deletion')\
          term.redirect(beg)\
          if ans then\
            fs.delete(fs.combine(dir, selVal))\
          end\
          selVal = ''\
          term.redirect(beg)\
        end\
      elseif not fs.isDir(fs.combine(dir, selVal)) then -- Assume file mode\
        if yP == 6 then\
          term.setBackgroundColor(colors.black)\
          term.setTextColor(colors.white)\
          term.clear()\
          term.setCursorPos(1, 1)\
          shell.run(fs.combine(dir, selVal))\
        elseif yP == 7 then\
          local h = fs.open(\".kernel/dumps/explorerCrash\", \"w\")\
          shell.run(\"edit\", fs.combine(dir, selVal))\
        elseif yP == 8 then\
          term.redirect(sideBar)\
          ctxt('Enter a new name', 15)\
          paintutils.drawLine(1, 16, 31, 16, colors.white)\
          term.setCursorPos(1, 16)\
          local pid = parallel.waitForAny(click, nread)\
          if pid == 2 then\
            if #tmpVal > 0 then\
              fs.move(fs.combine(dir, selVal), fs.combine(dir, tmpVal))\
              selVal = ''\
            end\
          end\
          term.redirect(beg)\
        elseif yP == 9 then\
          local beg = term.current()\
          local ans = gui.popup(1, 'Are you sure you want to delete this?', 'Confirm Deletion')\
          term.redirect(beg)\
          if ans then\
            fs.delete(fs.combine(dir, selVal))\
          end\
          selVal = ''\
          term.redirect(beg)\
        end\
      end\
      end\
    end\
  elseif b == 2 then\
    if x>=1 and x<=30 and y>3 then\
      local ans = dropMenu(x, y)\
        if ans == 1 then\
          if dir ~= '/' and dir ~= '' then\
            dir = \"/\" .. fs.getDir(dir)\
            selVal = nil\
          end\
        elseif ans == 2 then\
          local tmp = diagBox('Enter the name of the new file')\
          local tmpFile = fs.combine(dir, tmp)\
          if not fs.exists(tmpFile) then\
            local h = fs.open(fs.combine(dir, tmp), 'w')\
            h.close()\
          end\
        elseif ans == 3 then\
          local tmp = diagBox('Enter the name of the new folder')\
          if not fs.exists(fs.combine(dir, tmp)) then\
            fs.makeDir(fs.combine(dir, tmp))\
          end\
        end\
    end\
  end\
end\
\
function dropMenu(x, y)\
  for i=1, 3 do\
    paintutils.drawLine(x, (y+i)-1, x+10, (y+i)-1, colors.gray)\
  end\
  term.setTextColor(colors.white)\
  ptxt('Back up', x+2, y)\
  ptxt('New file', x+2, y+1)\
  ptxt('New folder', x+1, y+2)\
  paintutils.drawLine(x+11, y+1, x+11, y+3, colors.black)\
  paintutils.drawLine(x+1, y+3, x+11, y+3, colors.black)\
  local event, button, xP, yP = os.pullEvent('mouse_click')\
  if xP>=x and xP<=x+10 and yP>=y and yP<=y+2 then\
    return (yP-y)+1\
  end\
end\
\
function getStuff(dir)\
  if fs.isDir(dir) then\
    local tmpVal = fs.list(dir)\
    local files = {}\
    local folds = {}\
    for k, v in ipairs(tmpVal) do\
      if not fs.isDir(fs.combine(dir, v)) then\
        table.insert(files, v)\
      else\
        table.insert(folds, v)\
      end\
    end\
    \
    local tmpTbl = {}\
    tmpTbl.files, tmpTbl.folds = files, folds\
    return tmpTbl\
    \
  end\
end\
\
function handScroll(dir, x, y)\
  if dir == 1 then\
    if drawPos+15 < (#stuff.files+#stuff.folds) then\
      drawPos = drawPos+1\
\009end\
  elseif dir == -1 then\
    if drawPos >1 then\
      drawPos = drawPos-1\
  \009 end\
  end\
end\
\
function ctxt(txt, y)\
  local w, h = term.getSize()\
  local x = ((w/2)-(#txt/2))+1\
  term.setCursorPos(x, y)\
  write(txt)\
end\
\
function ptxt(txt, x, y)\
  term.setCursorPos(x, y)\
  write(txt)\
end\
\
function mScroll()\
  _, sDir, x, y = os.pullEvent('mouse_scroll')\
end\
\
\
\
function click()\
  _, button, x, y = os.pullEvent('mouse_click')\
end\
\
function mainLoop()\
  dir = '/'\
\
  selVal = nil\
  terminate = nil\
  drawPos = 1\
\
  repeat\
    mainSec, sideBar, topBar = nil\
    stuff = getStuff(dir)\
    if selVal == nil then\
      stuff.sel = ''\
    else\
      stuff.sel = selVal\
    end\
    drawMain(stuff, drawPos)\
    --drawScroll(stuff)\
    --[[\
    local h = fs.open('tmp', 'w')\
    h.write(textutils.serialize(stuff))\
    h.close()\
    ]]--\
    local pid = parallel.waitForAny(click, mScroll)\
    if pid == 1 then\
      local tB = button\
  \009local tX = x\
  \009local tY = y\
  \009handClick(tB, tX, tY, stuff)\
    elseif pid == 2 then\
      handScroll(sDir, x, y)\
    end\
  until terminate == true\
\
  term.setBackgroundColor(colors.black)\
  term.clear()\
  term.setCursorPos(1, 1)\
end\
\
local ok, err = pcall(mainLoop)\
if not ok then\
  local h = fs.open(\".kernel/dumps/latestAppCrash\", \"w\")\
  h.write(err)\
  h.close()\
end",
    info = "slideNo = 1\
\
function redraw(slide)\
        term.setBackgroundColor(colors.white)\
        term.clear()\
        term.setTextColor(colors.white)\
        paintutils.drawLine(1, 1, 51, 1, colors.gray)\
        txt.ctxt(\"BASE 2 Information - BASE Reader\", 1)\
        term.setTextColor(colors.red)\
        txt.ptxt(\"x\", 51, 1)\
        term.setTextColor(colors.white)\
\
        if slideNo > 1 then\
            paintutils.drawLine(1, 8, 1, 10, colors.gray)\
            txt.ptxt(\"<\", 1, 9)\
        end\
\
        if slideNo < #slides then\
            paintutils.drawLine(51, 8, 51, 10, colors.gray)\
            txt.ptxt(\">\", 51, 9)\
        end\
\
        term.setBackgroundColor(colors.white)\
        term.setTextColor(colors.black)\
\
        for i = 1, #slides[slideNo] do\
            term.setCursorPos(3, i + 2)\
            term.write(slides[slideNo][i])\
        end\
end\
\
function mainLoop()\
    slides = {\
        {\
            \"Information about BASE 2 Preview Release\",\
            \"\",\
            \"This is a beta release, and should be considered\",\
            \"as such. This means that any bugs or glitches in\",\
            \"the current version will most likely be fixed in\",\
            \"a future update. Any problems with BASE can be\",\
            \"reported on the ComputerCraft forums topic page.\",\
            \"\",\
            \"Do not expect that this current release will\",\
            \"include all final features. Lots more will be\",\
            \"added in future versions.\"\
        },\
        {\
            \"Planned future features\",\
            \"\",\
            \"- An app store for the easy downloading of\",\
            \"  programs and apps.\",\
            \"- A settings app to allow customisation of the\",\
            \"  OS.\",\
            \"- Multitasking. Allowing several apps to run at\",\
            \"  once in the background.\",\
            \"- Different user accounts, each with separate\",\
            \"  files and different personalised parts of the\",\
            \"  OS.\"\
        },\
        {\
            \"BASE 2 Changelog\",\
            \"-- Version 1.0.3 --\",\
            \"\",\
            \"- Added baseForms. This is an easy way to develop\",\
            \"  for BASE 2, with custom functions easily added.\",\
            \"- Created a new installer, using baseForms.\",\
            \"- Moved taskbar to bottom of screen, better\",\
            \"  support for more apps.\",\
        },\
        {\
            \"BASE 2 Changelog\",\
            \"-- Version 1.0.2 --\",\
            \"\",\
            \"- Added support for custom desktop. Editing\",\
            \"  ability coming soon.\",\
        },\
        {\
            \"BASE 2 Changelog\",\
            \"-- Version 1.0.1 --\",\
            \"\",\
            \"- Added user accounts. No separate files yet.\",\
            \"- Added settings app and the ability to change\",\
            \"  the OS a little. More coming in the future.\",\
            \"- Added a fancy new login screen\",\
        }\
    }\
\
    endInfo = nil\
    repeat\
        redraw()\
        local _, b, x, y = os.pullEvent(\"mouse_click\")\
        if b == 1 then\
            if x == 51 and y == 1 then\
                endInfo = true\
            elseif x == 51 and y>= 8 and y<= 10 and slideNo < #slides then\
                slideNo = slideNo + 1\
            elseif x == 1 and y>=8 and y<=10 and slideNo > 1 then\
                slideNo = slideNo - 1\
            end\
        end\
    until endInfo == true\
end\
\
mainLoop()",
    [ "explorer.lua" ] = "bNo = '0.1.1'\
\
-- GUI Based File Explorer, Version 1.0 --\
-- Copyright (C) 2015, Sam Gunner --\
-- You may redistribute and modify this, as long--\
-- as you give credit to the original creator --\
-- Other than that, enjoy the program! --\
\
function diagBox(txt)\
  for i=8, 12 do\
    paintutils.drawLine(4, i, 47, i, colors.gray)\
  end\
  paintutils.drawLine(5, 9, 46, 9, colors.white)\
  term.setTextColor(colors.black)\
  ctxt(txt, 9)\
  paintutils.drawLine(48, 9, 48, 13, colors.black)\
  paintutils.drawLine(6, 13, 48, 13, colors.black)\
  local beg = term.current()\
  local tmpWin = window.create(term.native(), 5, 11, 42, 1)\
  term.redirect(tmpWin)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  term.setCursorPos(1, 1)\
  term.setTextColor(colors.black)\
  local tmpVal = read()\
  term.redirect(beg)\
  return tmpVal\
end\
\
function drawScroll(things, scrollPos)\
  --[[\
  local beg = term.current()\
  term.redirect(scBar)\
  local totLen = #things.files + #things.folds\
  --if \
    paintutils.drawLine(1, tmpVal, 1, tmpVal, colors.gray)\
    term.redirect(beg)\
  --end\
  ]]--\
end\
\
function drawMain(things, dPos)\
  if topBar== nil or sideBar == nil or mainSec == nil then\
    topBar = window.create(term.current(), 1, 1, 51, 1)\
    sideBar = window.create(term.current(), 31, 2, 21, 18)\
    mainSec = window.create(term.current(), 1, 2, 29, 19)\
    scBar = window.create(term.current(), 30, 2, 1, 18)\
  end\
  local beg = term.current()\
  \
  term.redirect(scBar)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  local allLen = #things.files+#things.folds\
  print(allLen)\
  term.redirect(beg)\
  \
  term.redirect(topBar)\
  term.setBackgroundColor(colors.gray)\
  term.clear()\
  term.setTextColor(colors.white)\
  ctxt('File Explorer - Version '..bNo..' - by Sam Gunner', 1)\
  term.setTextColor(colors.red)\
  ptxt('x', 51, 1)\
  term.setTextColor(colors.black)\
  term.redirect(beg)\
  \
  term.redirect(sideBar)\
  term.setBackgroundColor(colors.lightGray)\
  term.clear()\
  term.setTextColor(colors.black)\
  if things.sel == '' then\
    ctxt('File Explorer', 1)\
    ctxt('Version '..bNo, 2)\
    ctxt('Click on a file', 8)\
    ctxt('to get started!', 9)\
  elseif fs.isDir(fs.combine(dir, things.sel)) then\
    ctxt('Options - Folder', 1)\
    ctxt(string.sub(things.sel, 1, 21), 2)\
    ctxt('------', 4)\
    ctxt('Open Folder', 6)\
    ctxt('Rename', 7)\
    ctxt('Delete', 8)\
  elseif not fs.isDir(fs.combine(dir, things.sel)) then\
    ctxt('Options - File', 1)\
    ctxt(string.sub(things.sel, 1, 21), 2)\
    ctxt('------', 4)\
    ctxt('Run as program', 6)\
    ctxt('Edit as text file', 7)\
    ctxt('Rename', 8)\
    ctxt('Delete', 9)\
    local size = fs.getSize(fs.combine(dir, things.sel))\
    local sSize = math.ceil(size/1000, 1)\
    ctxt('Size: ' .. sSize .. ' KB', 12)\
  end\
  term.redirect(beg)\
  \
  term.redirect(mainSec)\
  term.setBackgroundColor(colors.white)\
  term.clear()\
  term.redirect(beg)\
  \
  local files = things.files\
  local folds = things.folds\
  local fSel = things.sel\
  \
  table.sort(files)\
  table.sort(folds)\
  \
  local tmpTbl = {}\
  for i=1, #folds do\
    table.insert(tmpTbl, folds[i])\
  end\
  \
  for i=1, #files do\
    table.insert(tmpTbl, files[i])\
  end\
  \
  term.redirect(mainSec)\
  term.setTextColor(colors.black)\
  \
  for i=dPos, dPos+17 do\
    if tmpTbl[i] ~= nil then\
\009  if fs.isDir(fs.combine(dir, tmpTbl[i])) then\
\009    if fs.combine(dir, fSel) == fs.combine(dir, tmpTbl[i]) then\
\009\009  term.setTextColor(colors.lightGray)\
\009\009  write('[] ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009else\
\009\009  term.setTextColor(colors.black)\
\009      write('[] ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009end\
\009  else\
\009    if fs.combine(dir, fSel) == fs.combine(dir, tmpTbl[i]) then\
\009\009  term.setTextColor(colors.lightGray)\
\009      write('() ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009else\
\009\009  term.setTextColor(colors.black)\
\009\009  write('() ' .. string.sub(tmpTbl[i], 1, 26) .. '\\n')\
\009\009end\
\009  end\
\009end\
  end\
  \
  term.redirect(beg)\
  \
end\
\
function nread()\
  tmpVal = read()\
end\
\
function handClick(b, x, y, stuff)\
  if b == 1 then\
  \
    if x>=1 and x<=51 and y==1 then\
      if x == 51 then\
        terminate = true\
      end\
    elseif x>=1 and x<=29 and y>=2 and y<=19 then\
      local fileSel = ((y-1)+drawPos)-1\
      local totLen = #stuff.files + #stuff.folds\
      if fileSel > #stuff.folds then\
        local fileSel = fileSel - #stuff.folds\
        selVal = stuff.files[fileSel]\
      else\
        selVal = stuff.folds[fileSel]\
      end\
    elseif x>=31 and x<=51 and y>=2 and y<=19 then\
      local xP = x-30\
      local yP = y-1\
      local beg = term.current()\
      if selVal ~= nil then\
      if fs.isDir(fs.combine(dir, selVal)) then -- Assume folder mode\
        if yP==6 then\
          dir = fs.combine(dir, selVal)\
          selVal = ('')\
        elseif yP==7 then\
          term.redirect(sideBar)\
          ctxt('Enter a new name', 15)\
          paintutils.drawLine(1, 16, 21, 16, colors.white)\
          term.setTextColor(colors.black)\
          term.setCursorPos(1, 16)\
          local pid = parallel.waitForAny(click, nread)\
          if pid == 2 then\
            if #tmpVal>0 then\
              fs.move(fs.combine(dir, selVal),fs.combine(dir, tmpVal))\
              selVal = ''\
            end\
          end\
          term.redirect(beg)\
        elseif yP == 8 then\
          term.redirect(sideBar)\
          ctxt('Are you sure you want', 14)\
          ctxt('to delete this?', 15)\
          paintutils.drawLine(1, 16, 10, 16, colors.green)\
          ptxt('Yes', 4, 16)\
          paintutils.drawLine(11, 16, 21, 16, colors.red)\
          ptxt('No', 15, 16)\
          local _, button, x, y = os.pullEvent('mouse_click')\
          local x, y = x-30, y-1\
          if button == 1 and x>=1 and x<=10 and y==16 then\
            fs.delete(fs.combine(dir, selVal))\
          end\
          selVal = ''\
          term.redirect(beg)\
        end\
      elseif not fs.isDir(fs.combine(dir, selVal)) then -- Assume file mode\
        if yP == 6 then\
          term.setBackgroundColor(colors.black)\
          term.setTextColor(colors.white)\
          term.clear()\
          term.setCursorPos(1, 1)\
          shell.run(fs.combine(dir, selVal))\
        elseif yP == 7 then\
          os.run({}, 'edit', fs.combine(dir, selVal))\
        elseif yP == 8 then\
          term.redirect(sideBar)\
          ctxt('Enter a new name', 15)\
          paintutils.drawLine(1, 16, 31, 16, colors.white)\
          term.setCursorPos(1, 16)\
          local pid = parallel.waitForAny(click, nread)\
          if pid == 2 then\
            if #tmpVal > 0 then\
              fs.move(fs.combine(dir, selVal), fs.combine(dir, tmpVal))\
              selVal = ''\
            end\
          end\
          term.redirect(beg)\
        elseif yP == 9 then\
          term.redirect(sideBar)\
          ctxt('Are you sure you want', 14)\
          ctxt('to delete this?', 15)\
          paintutils.drawLine(1, 16, 11, 16, colors.green)\
          ptxt('Yes', 5, 16)\
          paintutils.drawLine(12, 16, 21, 16, colors.red)\
          ptxt('No', 16, 16)\
          local _, button, x, y = os.pullEvent('mouse_click')\
          local x, y = x-30, y-1\
          if button == 1 and x>=1 and x<=11 and y==16 then\
            fs.delete(fs.combine(dir, selVal))\
            selVal = ''\
          end\
          term.redirect(beg)\
        end\
      end\
      end\
    end\
  elseif b == 2 then\
    if x>=1 and x<=30 and y>1 then\
      local ans = dropMenu(x, y)\
        if ans == 1 then\
          if dir ~= '/' and dir ~= '' then\
            dir = fs.getDir(dir)\
            selVal = nil\
          end\
        elseif ans == 2 then\
          local tmp = diagBox('Enter the name of the new file')\
          local tmpFile = fs.combine(dir, tmp)\
          if not fs.exists(tmpFile) then\
            local h = fs.open(fs.combine(dir, tmp), 'w')\
            h.close()\
          end\
        elseif ans == 3 then\
          local tmp = diagBox('Enter the name of the new folder')\
          if not fs.exists(fs.combine(dir, tmp)) then\
            fs.makeDir(fs.combine(dir, tmp))\
          end\
        end\
    end\
  end\
end\
\
function dropMenu(x, y)\
  for i=1, 3 do\
    paintutils.drawLine(x, (y+i)-1, x+10, (y+i)-1, colors.gray)\
  end\
  term.setTextColor(colors.white)\
  ptxt('Back up', x+2, y)\
  ptxt('New file', x+2, y+1)\
  ptxt('New folder', x+1, y+2)\
  paintutils.drawLine(x+11, y+1, x+11, y+3, colors.black)\
  paintutils.drawLine(x+1, y+3, x+11, y+3, colors.black)\
  local event, button, xP, yP = os.pullEvent('mouse_click')\
  if xP>=x and xP<=x+10 and yP>=y and yP<=y+2 then\
    return (yP-y)+1\
  end\
end\
\
function getStuff(dir)\
  if fs.isDir(dir) then\
    local tmpVal = fs.list(dir)\
    local files = {}\
    local folds = {}\
    for k, v in ipairs(tmpVal) do\
      if not fs.isDir(fs.combine(dir, v)) then\
        table.insert(files, v)\
      else\
        table.insert(folds, v)\
      end\
    end\
    \
    local tmpTbl = {}\
    tmpTbl.files, tmpTbl.folds = files, folds\
    return tmpTbl\
    \
  end\
end\
\
function handScroll(dir, x, y)\
  if dir == 1 then\
    if drawPos+17 < (#stuff.files+#stuff.folds) then\
      drawPos = drawPos+1\
\009end\
  elseif dir == -1 then\
    if drawPos >1 then\
      drawPos = drawPos-1\
  \009 end\
  end\
end\
\
function ctxt(txt, y)\
  local w, h = term.getSize()\
  local x = ((w/2)-(#txt/2))+1\
  term.setCursorPos(x, y)\
  write(txt)\
end\
\
function ptxt(txt, x, y)\
  term.setCursorPos(x, y)\
  write(txt)\
end\
\
function mScroll()\
  _, sDir, x, y = os.pullEvent('mouse_scroll')\
end\
\
\
\
function click()\
  _, button, x, y = os.pullEvent('mouse_click')\
end\
\
\
dir = '/'\
\
selVal = nil\
terminate = nil\
drawPos = 1\
\
term.setBackgroundColor(colors.white)\
term.clear()\
term.setTextColor(colors.black)\
ctxt('File Browser  - Version '..bNo, 9)\
sleep(2)\
\
repeat\
  mainSec, sideBar, topBar = nil\
  stuff = getStuff(dir)\
  if selVal == nil then\
    stuff.sel = ''\
  else\
    stuff.sel = selVal\
  end\
  drawMain(stuff, drawPos)\
  --drawScroll(stuff)\
  --[[\
  local h = fs.open('tmp', 'w')\
  h.write(textutils.serialize(stuff))\
  h.close()\
  ]]--\
  local pid = parallel.waitForAny(click, mScroll)\
  if pid == 1 then\
    local tB = button\
\009local tX = x\
\009local tY = y\
\009handClick(tB, tX, tY, stuff)\
  elseif pid == 2 then\
    handScroll(sDir, x, y)\
  end\
until terminate == true\
\
term.setBackgroundColor(colors.black)\
term.clear()\
term.setCursorPos(1, 1)",
    compress = "--[[\
\009Filesystem\
\009explorer\
\009by Creator\
]]--\
\
args = {...}\
\
local filesystem = {}\
\
local function readFile(path)\
\009local file = fs.open(path,\"r\")\
\009local variable = file.readAll()\
\009file.close()\
\009return variable\
end\
\
local function explore(dir)\
\009local buffer = {}\
\009local sBuffer = fs.list(dir)\
\009for i,v in pairs(sBuffer) do\
\009\009sleep(0.05)\
\009\009if fs.isDir(dir..\"/\"..v) then\
\009\009\009if v ~= \".git\" then\
\009\009\009\009buffer[v] = explore(dir..\"/\"..v)\
\009\009\009end\
\009\009else\
\009\009\009buffer[v] = readFile(dir..\"/\"..v)\
\009\009end\
\009end\
\009return buffer\
end\
\
append = [[\
local function writeFile(path,content)\
\009local file = fs.open(path,\"w\")\
\009file.write(content)\
\009file.close()\
end\
function writeDown(input,dir)\
\009\009for i,v in pairs(input) do\
\009\009if type(v) == \"table\" then\
\009\009\009writeDown(v,dir..\"/\"..i)\
\009\009elseif type(v) == \"string\" then\
\009\009\009writeFile(dir..\"/\"..i,v)\
\009\009end\
\009end\
end\
\
args = {...}\
if #args == 0 then\
\009print(\"Please input a destination folder.\")\
else\
\009writeDown(inputTable, args[1])\
end\
\
]]\
\
if #args < 2 then\
  printError('Usage: <from folder> <destination file>')\
else\
\
local filesystem = explore(args[1])\
local file = fs.open(args[2],\"w\")\
file.write(\"inputTable = \"..textutils.serialize(filesystem)..\"\\n\\n\\n\\n\\n\\n\\n\\n\\n\"..append)\
file.close()\
end",
    settings = "slideNo = 1\
\
function redraw(slide)\
        term.setBackgroundColor(colors.white)\
        term.clear()\
        term.setTextColor(colors.white)\
        paintutils.drawLine(1, 1, 51, 1, colors.gray)\
        txt.ctxt(\"User Settings\", 1)\
        term.setTextColor(colors.red)\
        txt.ptxt(\"x\", 51, 1)\
        term.setTextColor(colors.white)\
\
        if slideNo > 1 then\
            paintutils.drawLine(1, 8, 1, 10, colors.gray)\
            txt.ptxt(\"<\", 1, 9)\
        end\
\
        if slideNo < pages then\
            paintutils.drawLine(51, 8, 51, 10, colors.gray)\
            txt.ptxt(\">\", 51, 9)\
        end\
\
        term.setBackgroundColor(colors.white)\
        term.setTextColor(colors.black)\
\
        if slideNo == 1 then\
            txt.ptxt(\"Main Colour\", 2, 3)\
            txt.ptxt(\"Secondary Colour\", 2, 5)\
            paintutils.drawLine(48, 5, 50, 5, preferences.secColour)\
            paintutils.drawLine(48, 3, 50, 3, preferences.mainColour)\
        end\
\
        paintutils.drawLine(2, 15, 50, 15, colors.blue)\
        txt.ctxt(\"Change Password\", 15)\
        paintutils.drawLine(2, 17, 50, 17, colors.red)\
        txt.ctxt(\"Delete Account\", 17)\
end\
\
function mainLoop()\
    endInfo = nil\
    pages = 1\
    repeat\
        redraw()\
        local _, b, x, y = os.pullEvent(\"mouse_click\")\
        if b == 1 then\
            if x == 51 and y == 1 then\
                endInfo = true\
            elseif x == 51 and y>= 8 and y<= 10 and slideNo < #slides then\
                slideNo = slideNo + 1\
            elseif x == 1 and y>=8 and y<=10 and slideNo > 1 then\
                slideNo = slideNo - 1\
            elseif x>=48 and x<=50 and y==3 then\
                local newCol = gui.popup(2, \"Enter a new colour\", \"Settings\")\
                if type(textutils.unserialise(newCol)) == \"number\" then\
                    local users = sys.load(sys.var(\"userPrefs\"))\
                    preferences.mainColour = textutils.unserialise(newCol)\
                    users[preferences.name] = preferences\
                    sys.save(sys.var(\"userPrefs\"), textutils.serialise(users))\
                end\
            elseif x>=2 and x<=50 and y == 17 then\
                local confirm = gui.popup(1, \"Are you sure?\", \"Delete Account\")\
                local pass = gui.popup(2, \"Please enter your password\", \"Delete Account\", \"*\")\
                if confirm then\
                    sys.deleteAccount(preferences.name)\
                    cinter.logout(originalWindow)\
                    endInfo = true\
                end\
            elseif x>=2 and x<=50 and y == 15 then\
                local pass = gui.popup(2, \"Please enter your password\", \"Change Password 1/2\", \"*\")\
                local users = sys.load(sys.var(\"userLogins\"))\
                local curUser\
                local userNum\
                for i = 1, #users do\
                    if users[i].name == preferences.name then\
                        curUser = users[i]\
                        userNum = i\
                        break\
                    end\
                end\
                if pass == curUser.pass then\
                    local newPass = gui.popup(2, \"Please enter a new password\", \"Change Password 2/2\", \"*\")\
                    curUser.pass = newPass\
                    users[userNum] = curUser\
                    sys.save(sys.var(\"userLogins\"), users)\
                end\
            elseif x>=48 and x<=50 and y==5 then\
                local newCol = gui.popup(2, \"Enter a new colour\", \"Settings\")\
                if type(textutils.unserialise(newCol)) == \"number\" then\
                    local users = sys.load(sys.var(\"userPrefs\"))\
                    preferences.secColour = textutils.unserialise(newCol)\
                    users[preferences.name] = preferences\
                    sys.save(sys.var(\"userPrefs\"), textutils.serialise(users))\
                end\
            end\
        end\
    until endInfo == true\
end\
\
mainLoop()",
  },
  dumps = {
    [ "sysCrash (latest)" ] = "--[[\
\
\009Base V1.1 by Sam Gunner.\
 Patch pack 1\
\009\
]]--\
\
-- Variables --\
\
commands = {\
  [ 'edit' ] = function()\
    printError('This function has been deprecated. Please use: \\'nano <file>\\'')\
  end,\
  [ 'exit' ] = function()\
    mainLoopTerm = true\
  end,\
  [ 'about' ] = function()\
    term.setTextColor(colors.gray)\
    print('This OS was made by Sam Gunner, otherwise known as SGunner2014.')\
    print('You are allowed to modify, redistribute and do anything to this \\'OS\\' as long as you give me credit.')\
    print('Please note that the compress function was made by \\'Creator\\'. Thanks, buddy! :D')\
  end,\
  [ 'help' ] = function()\
    term.setTextColor(colors.green)\
    print('Available commands:')\
    local tmpTbl = {}\
    for k, v in pairs(commands) do\
      table.insert(tmpTbl, k)\
    end\
    table.sort(tmpTbl)\
    textutils.pagedTabulate(colors.red, tmpTbl)\
  end,\
  [ 'compress' ] = function(cmd)\
    local tmpTbl = {}\
    \
    for i=2, #cmd do\
      table.insert(tmpTbl, cmd[i])\
    end\
    \
    if #tmpTbl ~= 2 then\
      printError('Usage: compress <Directory> <Destination file>')\
    else\
    \
    if fs.isDir(tmpTbl[1]) and not fs.exists(tmpTbl[2]) then\
    \
    local h = fs.open('.kernel/programs/compress', 'r')\
    local app = h.readAll()\
    h.close()\
    \
    loadstring(app)(tmpTbl[1], tmpTbl[2])\
    else\
      printError('Usage: compress <Directory> <Destination file>')\
    end\
    end\
  end,\
  [ 'clear' ] = function()\
    term.setBackgroundColor(colors.white)\
    term.clear()\
    term.setCursorPos(1, 1)\
  end,\
  [ 'run' ] = function(cmd)\
    shell.run(cmd[2])\
    --[[\
    paintutils.drawLine(35, 19, 51, 19, colors.gray)\
    term.setTextColor(colors.white)\
    txt.pwrite('Closing in 2...', 35, 19)\
    sleep(1)\
    txt.pwrite('Closing in 1...', 35, 19)\
    sleep(1)\
    ]]--\
    commands.clear()\
  end,\
  [ 'reboot' ] = function()\
    cinter.reboot()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    term.setTextColor(colors.white)\
    commands.clear()\
  end,\
  [ 'shutdown' ] = function()\
    cinter.shutdown()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    term.setTextColor(colors.white)\
    commands.clear()\
  end,\
  [ 'ls' ] = function(cmd)\
    local files2 = {}\
    local file = {}\
    local folds = {}\
    if cmd[2] == nil then\
      files = fs.list(dir)\
      tmpDir = ''\
    elseif fs.isDir(cmd[2]) then\
      files = fs.list(cmd[2])\
      tmpDir = cmd[2]\
    else\
      printError('That is not a directory.')\
      return nil\
    end\
    for k, v in ipairs(files) do\
      if string.sub(v, 1, 1) ~= '.' then\
        table.insert(files2, v)\
      end\
    end\
    for i=1, #files2 do\
      if fs.isDir(tmpDir..'/'..files2[i]) then\
        table.insert(folds, files2[i])\
      else\
        table.insert(file, files2[i])\
      end\
    end\
    textutils.pagedTabulate(colors.red, folds, colors.gray, file)\
  end,\
  [ 'cd' ] = function(cmd)\
    if fs.exists(dir..'/'..cmd[2]) then\
      if cmd[2] == '..' then\
        dir = fs.getDir(dir)\
      elseif cmd[2] == '/' then\
        dir = ''\
      elseif fs.isDir(dir..'/'..cmd[2]) then\
        dir = dir..'/'..cmd[2]\
      else\
        printError('That isn\\'t a directory!')\
      end\
    else\
      printError('That isn\\'t a directory!')\
    end\
  end,\
  [ 'clr'] = function() commands.clear() end,\
  [ 'rm' ] = function(cmd)\
    if fs.exists(fs.combine(dir, cmd[2])) then\
      fs.delete(fs.combine(dir, cmd[2]))\
      print('File deleted.')\
    else\
      printError('That file doesn\\'t exist!')\
    end\
  end,\
  [ 'mkdir' ] = function(cmd)\
    if not fs.exists(fs.combine(dir, cmd[2])) then\
      fs.makeDir(fs.combine(dir, cmd[2]))\
    else\
      printError('That already exists.')\
    end\
  end,\
  [ 'nano' ] = function(cmd)\
    if not fs.exists(fs.combine(dir, cmd[2])) then\
      local h = fs.open(fs.combine(dir, cmd[2]), \"w\")\
      h.write(\"\")\
      h.close()\
    end\
    local h = fs.open(\"/.kernel/programs/ink\", \"r\")\
    local raw = h.readAll()\
    h.close()\
    loadstring(raw)(fs.combine(dir, cmd[2])\
  end\
}\
\
-- Functions --\
\
function commSplit(comm)\
  local tmpTbl = {}\
  for k in string.gmatch(comm, '[^ ]+') do\
    table.insert(tmpTbl, k)\
  end\
  return tmpTbl\
end\
\
function mainLoop(commands)\
mainLoopTerm = false\
dir = ''\
local commHis = {}\
term.setBackgroundColor(colors.white)\
term.clear()\
term.setCursorPos(1, 1)\
\
term.setTextColor(colors.black)\
\
print('Welcome to BaseOS Shell, V1.1')\
print('Type \\'help\\' for a list of commands')\
\
repeat\
\
  --local tmpVal = multishell.getCurrent()\
  --multishell.setTitle(tmpVal, 'OS')\
\
  term.setTextColor(colors.lightGray)\
  write(dir..'/> ')\
  term.setTextColor(colors.black)\
  local comm = read(nil, commHis)\
  table.insert(commHis, comm)\
  local commNew = commSplit(comm)\
\
  \
  \
  if commands[commNew[1]] ~= nil then\
    local ok, err = pcall(commands[commNew[1]], commNew)\
    if not ok then\
      local h = fs.open('latestCrash', 'w')\
      h.write(err)\
      h.close()\
      local ans = gui.popup(1, 'Uh oh. Looks like this app has crashed. Reboot?', 'An error has occurred.')\
      if ans == true then\
        cinter.reboot()\
      else\
        commands.clear()\
      end\
    end\
  else\
    printError('That command doesn\\'t exist. Type \\'help\\' for help.')\
  end\
until mainLoopTerm == true\
end\
\
-- Startup\
\
sleep(.2)\
--local tmpVal = cinter.login()\
\
mainLoop(commands)",
    explorer = "",
    latestAppCrash = "os.main:138: attempt to call number",
    latest = "Terminated",
    explorerCrash = "",
    prog = "sys:16: attempt to call boolean",
  },
  core = {
    screenManageTask = "while true do\
\009screenManage.redraw()\
\009coroutine.yield()\
end",
    [ "os.main" ] = "--[[\
\009Core BASE file. If modified, this could result in serious stability problems with the OS.\
]]--\
\
--[[\
\009OS Standard error codes:\
\009\
\0094 - File does not exist.\
]]--\
_G.originalWindow = term.current() -- Set variables\
_G.mainWindow = window.create(originalWindow, 1, 1, 51, 18) -- Create main windows\
_G.taskBar = window.create(originalWindow, 1, 19, 51, 1)\
tasks.launchBackgroundTaskAsAPI(\".kernel/apis/screenManage\", \".kernel/core/screenManageTask\")\
for k, v in pairs(screenManage) do\
\009base_core.graphics.k = v\
end\
\
\
osPopMenuOpts = { -- Popup menu from taskbar\
\009{\"Shutdown\", func = function() cinter.shutdown(originalWindow) end},\
\009{\"Reboot\", func = function() cinter.reboot(originalWindow) end},\
\009{\"Logout\", func = function() cinter.logout(originalWindow) end},\
\009{\"--\", func = function() end},\
\009{\"File Manager\", func = function() launch(\"explorer\") end},\
\009{\"Console\", func = function() launch(\"console\") end},\
\009{\"--\", func = function() end},\
\009{\"BASE 2 Info\", func = function() launch(\"info\") end},\
\009{\"Settings\", func = function() launch(\"settings\") end},\
}\
\
oldTerm = term\
_G.oldOsPull = os.pullEvent\
_G.term.native = function()\
\009return mainWindow\
end\
\
_G.oldOS = {}\
_G.oldOS.shutdown = os.shutdown\
_G.oldOS.reboot = os.reboot\
os.shutdown = function() cinter.shutdown(originalWindow) end\
os.reboot = function() cinter.reboot(originalWindow) end -- End of variable setting\
\
-- tmp = fs\
-- oldFS = fs\
\
-- tmp.list = function(path)\
-- \009dir = fs.combine(sys.var(\"userDir\"), path)\
-- \009return oldFS.list(dir)\
-- end\
\
-- tmp.exists = function(path)\
-- \009path = fs.combine(sys.var(\"userDir\"), path)\
-- \009return oldFS.exists(path)\
-- end\
\
-- tmp.isDir = function(path)\
-- \009path = fs.combine(sys.var(\"userDir\"), path)\
-- \009return oldFS.isDir(path)\
-- end\
\
-- tmp.isReadOnly = function(path)\
-- \009path = fs.combine(sys.var(\"userDir\"), path)\
-- \009return oldFS.isReadOnly(path)\
-- end\
\
-- tmp.getName = function(path)\
-- \009path = fs.combine(sys.var(\"userDir\"), path)\
-- \009return oldFS.getName(path)\
-- end\
\
\
\
os.pullEvent = function(event) -- Redoing os.pullEvent\
\009if event == \"mouse_click\" then\
\009\009local _, b, x, y = oldOsPull(\"mouse_click\")\
\009\009if y == 19 then\
\009\009\009taskbarLaunch(b, x, y)\
\009\009\009return nil, 0, 0, 0\
\009\009else\
\009\009\009return \"mouse_click\", b, x, y\
\009\009end\
\009elseif event == \"mouse_scroll\" then\
\009\009local _, dir, x, y = oldOsPull(\"mouse_scroll\")\
\009\009if y == 1 then\
\009\009else\
\009\009\009return \"mouse_click\", dir, x, y - 1\
\009\009end\
\009elseif event == \"mouse_drag\" then\
\009\009local _, b, x, y = oldOsPull(\"mouse_drag\")\
\009\009if y == 1 then\
\009\009else\
\009\009\009return \"mouse_drag\", b, x, y\
\009\009end\
\009else\
\009\009return oldOsPull(event)\
\009end\
end\
\
function taskbarLaunch(b, x, y) -- Launches the 'start' menu\
\009if x>=1 and x<=3 then\
\009\009drawStart(mainWindow, taskBar)\
\009\009local _, b, x, y = oldOsPull(\"mouse_click\")\
\009\009if b == 1 then\
\009\009\009if x >= 1 and x <= 51 and y == 19 then\
    screenManage.redrawTaskbar()\
\009\009\009\009return\
\009\009\009elseif x >= 1 and x <= 15 and y >= (18 - #osPopMenuOpts) and y <= 18 then\
    screenManage.redrawTaskbar()\
\009\009\009\009osPopMenuOpts[y - (18 - #osPopMenuOpts)].func()\
   else\
     screenManage.redrawTaskbar()\
     return\
\009\009\009end\
\009\009end\
\009end\
end\
\
function launch(item, args) -- Launches a program with any arguments specified (as a table)\
  screenManage.redrawTaskbar()\
\009local function runProg()\
\009\009os.run({shell = shell}, fs.combine(\".kernel/programs\", item))\
\009end\
\009if type(item) == \"string\" and fs.exists(fs.combine(\".kernel/programs\", item)) then\
\009\009local ok, err = pcall(tasks.newTask(loadfile(fs.combine(\".kernel/programs\", item))))\
\009\009if not ok then\
\009\009\009sys.save(\".kernel/dumps/latestAppCrash\", err)\
\009\009end\
\009elseif type(item) == \"table\" and fs.exists(item.path) then\
\009\009local ok, err = pcall(os.run({shell = shell}, item.path))\
\009\009if not ok then\
\009\009\009sys.save(\".kernel/dumps/latestAppCrash\", err)\
\009\009end\
\009--else\
\009\009--term.redirect(mainWindow)\
\009\009--term.setBackgroundColor(colors.white)\
\009\009--term.clear()\
\009\009--term.setTextColor(colors.black)\
\009\009--txt.ctxt(\"File not found\", 1)\
\009\009--os.pullEvent(\"mouse_click\")\
\009end\
end\
\
local function drawStart(main, taskBar) -- Draws the start menu, not universally accessible\
\009term.setBackgroundColor(colors.lightGray)\
\009term.clear()\
\009paintutils.drawLine(1, 1, 3, 1, colors.gray)\
\009term.setTextColor(colors.white)\
\009txt.ptxt(\"[^]\", 1, 1)\
local startPos = 18 - #osPopMenuOpts\
\009for i = 1, #osPopMenuOpts do\
\009\009paintutils.drawLine(1, startPos + i, 15, startPos + i, colors.gray)\
\009end\
\009for i = 1, #osPopMenuOpts do\
\009\009term.setTextColor(colors.white)\
\009\009txt.ptxt(osPopMenuOpts[i][1], 1, startPos + i)\
\009end\
end\
\
function mainLoop() -- Main loop. This includes the main functionality of the OS. The 'core' bit.\
endAll = nil\
\009local appPositions = {\
\009\009{xS = 2, xF = 10, yS = 2, yF = 6}, -- Row 1\
\009\009{xS = 12, xF = 20, yS = 2, yF = 6},\
\009\009{xS = 22, xF = 30, yS = 2, yF = 6},\
\009\009{xS = 32, xF = 40, yS = 2, yF = 6},\
\009\009{xS = 42, xF = 50, yS = 2, yF = 6},\
\009\009{xS = 2, xF = 10, yS = 8, yF = 12}, -- Row 2\
\009\009{xS = 12, xF = 20, yS = 8, yF = 12},\
\009\009{xS = 22, xF = 30, yS = 8, yF = 12},\
\009\009{xS = 32, xF = 40, yS = 8, yF = 12},\
\009\009{xS = 42, xF = 50, yS = 8, yF = 12},\
\009\009{xS = 2, xF = 10, yS = 14, yF = 18}, -- Row 3\
\009\009{xS = 12, xF = 20, yS = 14, yF = 18},\
\009\009{xS = 22, xF = 30, yS = 14, yF = 18},\
\009\009{xS = 32, xF = 40, yS = 14, yF = 18},\
\009\009{xS = 42, xF = 50, yS = 14, yF = 18},\
\009}\
\009homeApps = preferences.homeApps\
\
\009local function redraw(positions)\
\009\009term.setBackgroundColor(colors.white)\
\009\009term.clear()\
  paintutils.drawLine(1, 1, 51, 1, colors.lightGray)\
\009\009term.setTextColor(colors.white)\
\009\009txt.ptxt(\"[v]\", 1, 1)\
\
\009\009term.setBackgroundColor(colors.white)\
\009\009term.clear()\
\009\009for i = 1, 15 do\
\009\009\009if homeApps[i] ~= nil then\
\009\009\009\009if homeApps[i].image == nil then\
\009\009\009\009\009homeApps[i].image = homeApps.default.image\
\009\009\009\009end\
\009\009\009\009paintutils.drawImage(sys.loadImage(homeApps[i].image), appPositions[i].xS, appPositions[i].yS)\
\009\009\009end\
\009\009end\
\009end\
\
\009repeat\
\009\009redraw(appPositions)\
\009\009local _, b, x, y = os.pullEvent(\"mouse_click\")\
\009\009if y>=2 and y<=6 then\
\009\009\009-- Each app is 10x5 in size.\
\009\009\009-- The grid of apps is 5x3\
\009\009\009if x>=2 and x<=10 then\
\009\009\009\009-- App 1\
\009\009\009\009launch(homeApps[1])\
\009\009\009elseif x>=12 and x<=20 then\
\009\009\009\009-- App 2\
\009\009\009\009launch(homeApps[2])\
\009\009\009elseif x>=22 and x<=30 then\
\009\009\009\009-- App 3\
\009\009\009\009launch(homeApps[3])\
\009\009\009elseif x>=32 and x<=40 then\
\009\009\009\009-- App 4\
\009\009\009\009launch(homeApps[4])\
\009\009\009elseif x>=42 and x<=50 then\
\009\009\009\009-- App 5\
\009\009\009\009launch(homeApps[5])\
\009\009\009end\
\009\009elseif y>=8 and y<=12 then\
\009\009\009-- Second row of apps\
\009\009\009if x>=2 and x<=10 then\
\009\009\009\009-- App 6\
\009\009\009\009launch(homeApps[6])\
\
\009\009\009elseif x>=12 and x<=20 then\
\009\009\009\009-- App 7\
\009\009\009\009launch(homeApps[7])\
\
\009\009\009elseif x>=22 and x<=30 then\
\009\009\009\009-- App 8\
\009\009\009\009launch(homeApps[8])\
\
\009\009\009elseif x>=32 and x<=40 then\
\009\009\009\009-- App 9\
\009\009\009\009launch(homeApps[9])\
\
\009\009\009elseif x>=42 and x<=50 then\
\009\009\009\009-- App 10\
\009\009\009\009launch(homeApps[10])\
\009\009\009end\
\009\009elseif y>=14 and y<=18 then\
\009\009\009-- Third row of apps\
\009\009\009if x>=2 and x<=10 then\
\009\009\009\009-- App 11\
\009\009\009\009launch(homeApps[11])\
\
\009\009\009elseif x>=12 and x<=20 then\
\009\009\009\009-- App 12\
\009\009\009\009launch(homeApps[12])\
\
\009\009\009elseif x>=22 and x<=30 then\
\009\009\009\009-- App 13\
\009\009\009\009launch(homeApps[13])\
\
\009\009\009elseif x>=32 and x<=40 then\
\009\009\009\009-- App 14\
\009\009\009\009launch(homeApps[14])\
\009\009\009elseif x>=42 and x<=50 then\
\009\009\009\009-- App 15\
\009\009\009\009launch(homeApps[15])\
\009\009\009end\
\009\009end\
\009until endAll == true\
end\
\
function all()\
\009while true do\
\009\009_G.activeUser = sys.login(sys.load(sys.var(\"userLogins\")), mainWindow, taskBar) --Makes sure that there is a user logged in.\
\009\009if _G.activeUser == nil then\
\009\009\009break\
\009\009end\
\009\009local ok, err = pcall(mainLoop)\
\009\009if not ok then\
\009\009  local h = fs.open(\".kernel/dumps/latest\", \"w\")\
\009\009  h.write(err)\
\009\009  h.close()\
\009\009  local ans = gui.popup(1, '   An error has occured. The   system can no longer function. Reboot?', 'An Error Has Occured')\
\009\009  if ans == true then\
\009\009\009os.reboot()\
\009\009  end\
\009\009end\
\009end\
end\
\
local ok, err = pcall(all)\
if not ok then\
\009local h = fs.open(\"/.latest\", \"w\")\
\009h.write(err)\
\009h.close()\
end",
    files = {
      backgrounds = {},
      images = {
        homeAppsDefaultImage = "1111111111\
1222222221\
1222222221\
1222222221\
1111111111",
        settingsIcon = "788fff887\
877f77778\
877fff778\
87777f778\
788fff887",
      },
    },
    shutdown = "cinter.shutdown()\
term.setBackgroundColor(colors.black)\
term.clear()\
term.setCursorPos(1, 1)",
    startup = "--[[\
  BASE 2 Bootstrap File\
  Loads core APIs and system files.\
]]--\
\
function main()\
  tempWin = window.create(term.current(), 1, 1, 1, 1)\
  local function shift()\
      local _, scancode = os.pullEvent('key')\
      if scancode == 1 then\
        esc = true\
      end\
  end\
\
  local function twoSec()\
    sleep(2)\
  end\
\
  shell.setAlias('shutdown', '.kernel/core/shutdown')\
  shell.setAlias('reboot', '.kernel/core/reboot')\
\
  -- Clearing screen\
  term.clear()\
  term.setCursorPos(1, 1)\
  term.setBackgroundColor(colors.lightGray)\
  term.setTextColor(colors.black)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  print(' Starting boot procedure...')\
\
  -- Clear caches\
  local h = fs.open('.kernel/.mdata/plist', 'w')\
  h.write('{}')\
  h.close()\
  term.setBackgroundColor(colors.lightGray)\
  term.setTextColor(colors.black)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  print(' Cleared system caches.')\
\
  -- Listing apis in .kernel/apis/\
\
  term.setBackgroundColor(colors.lightGray)\
  term.setTextColor(colors.black)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  print(' Checking integrity of files...')\
\
  local tmpTbl = {\
    '.kernel',\
    '.kernel/apis',\
    '.kernel/core',\
    '.kernel/apis/txt',\
    '.kernel/apis/gui',\
    '.kernel/apis/cinter',\
    '.kernel/apis/baseForms',\
    '.kernel/core/os.main',\
    '.kernel/core/startup',\
    '.kernel/usrData',\
    '.kernel/usrData/login',\
    '.kernel/apis/sys',\
    '.kernel/apis/tasks',\
  }\
\
  if not fs.exists('.kernel/usrData/login') then\
    local h = fs.open('.kernel/usrData/login', 'w')\
    h.write('{}')\
    h.close()\
  end\
\
  if not fs.exists(\".kernel/usrData/preferences\") then\
    local h = fs.open(\".kernel/usrData/preferences\", \"w\")\
    h.write(\"{}\")\
    h.close()\
  end\
\
  for i=1, #tmpTbl do\
    if not fs.exists(tmpTbl[i]) then\
      term.setBackgroundColor(colors.lightGray)\
      term.setTextColor(colors.black)\
      write('[SYS]')\
      term.setBackgroundColor(colors.black)\
      term.setTextColor(colors.red)\
      print(' [CRITICAL] Missing ' .. tmpTbl[i] .. '!')\
    end\
  end\
\
  term.setBackgroundColor(colors.lightGray)\
  term.setTextColor(colors.black)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  print(' Loading kernel core APIs...')\
\
  local apis = fs.list('.kernel/apis')\
\
  local tmpTbl = {}\
\
  for k, v in ipairs(apis) do\
    if not fs.isDir(v) then\
      table.insert(tmpTbl, v)\
      --print(v)\
    end\
  end\
\
  for i=1, #tmpTbl do\
    --print('Loading ' .. tmpTbl[i])\
    os.loadAPI('.kernel/apis/'..tmpTbl[i])\
    term.setTextColor(colors.black)\
    term.setBackgroundColor(colors.white)\
    write('[API]-['..tmpTbl[i]..']')\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.green)\
    print(' OK')\
  end\
\
  term.setBackgroundColor(colors.lightGray)\
  term.setTextColor(colors.black)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.green)\
  print(' APIs OK')\
  term.setTextColor(colors.black)\
  term.setBackgroundColor(colors.lightGray)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
\
  term.setBackgroundColor(colors.lightGray)\
  term.setTextColor(colors.black)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  print(' Loading system preferences...')\
\
  term.setBackgroundColor(colors.gray)\
  term.setTextColor(colors.black)\
  write('[USER SERVICES]')\
  term.setTextColor(colors.white)\
  term.setBackgroundColor(colors.black)\
  print(' Loading user profiles...')\
\
  local h = fs.open(\".kernel/usrData/login\", \"r\")\
  local rawData = h.readAll()\
  h.close()\
  local users = textutils.unserialise(rawData)\
  term.setBackgroundColor(colors.gray)\
  term.setTextColor(colors.black)\
  write('[USER SERVICES]')\
  term.setTextColor(colors.white)\
  term.setBackgroundColor(colors.black)\
  print(' User profiles loaded.')\
\
  \
\
  --cinter.login()\
\
  term.setTextColor(colors.black)\
  term.setBackgroundColor(colors.lightGray)\
  write('[SYS]')\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  print(' Press the esc key now to enter advanced boot options')\
\
  local id = parallel.waitForAny(shift, twoSec)\
\
  if id == 1 and esc ~= nil and esc == true then\
    local ans = gui.popup(1, 'Do you want debugging on?', 'Debugging')\
  end\
\
  \
_G.base_core = {}\
_G.base_core.graphics = {}\
_G.base_core.graphics = term\
_G.base_core.graphics.oldTerm = term\
_G.base_core.graphics.current = function()\
\009return tempWin\
end\
_G.base_core.graphics.redirect = function()\
\009return nil\
end\
\
_G.base_core.graphics.blit = function(txt, col1, col2, x, y) -- Temporary 'blit' function to handle screen redrawing\
\
\009if txt ~= nil and col1 ~= nil and col2 ~= nil then\
\009\009base_core.graphics.oldTerm.setCursorPos(x, y)\
\009\009base_core.graphics.oldTerm.setBackgroundColor(col2)\
\009\009base_core.graphics.oldTerm.setTextColor(col1)\
\009\009base_core.graphics.oldTerm.write(txt)\
\009end\
end\
\
_G.term = base_core.graphics\
  -- End bootstrap\
  -- Begin os load\
\
  --shell.run('.kernel/core/os.main')\
end\
\
function start()\
\009main()\
\009--tasks.start()\
\009local h = fs.open(\".kernel/core/os.main\", \"r\")\
\009local data = h.readAll()\
\009h.close()\
\009local ok, err = pcall(tasks.start)\
\009if not ok then\
\009\009local h = fs.open(\"/.latest\", \"w\")\
\009\009h.write(err)\
\009\009h.close()\
\009end\
end\
\
local ok, err = pcall(start)\
if not ok then\
\009local h = fs.open(\"/.latest\", \"w\")\
\009h.write(err)\
\009h.close()\
end",
    console = "--[[\
\
\009Base V1.1 by Sam Gunner.\
 Patch pack 1\
\009\
]]--\
\
-- Variables --\
\
commands = {\
  [ 'edit' ] = function()\
    printError('This function has been deprecated. Please use: \\'nano <file>\\'')\
  end,\
  [ 'exit' ] = function()\
    mainLoopTerm = true\
  end,\
  [ 'about' ] = function()\
    term.setTextColor(colors.gray)\
    print('BASE Console, Version 1.1 Built for BASE 2')\
  end,\
  [ 'help' ] = function()\
    term.setTextColor(colors.green)\
    print('Available commands:')\
    local tmpTbl = {}\
    for k, v in pairs(commands) do\
      table.insert(tmpTbl, k)\
    end\
    table.sort(tmpTbl)\
    textutils.pagedTabulate(colors.red, tmpTbl)\
  end,\
  [ 'compress' ] = function(cmd)\
    local tmpTbl = {}\
    \
    for i=2, #cmd do\
      table.insert(tmpTbl, cmd[i])\
    end\
    \
    if #tmpTbl ~= 2 then\
      printError('Usage: compress <Directory> <Destination file>')\
    else\
    \
    if fs.isDir(tmpTbl[1]) and not fs.exists(tmpTbl[2]) then\
    \
    local h = fs.open('.kernel/programs/compress', 'r')\
    local app = h.readAll()\
    h.close()\
    \
    loadstring(app)(tmpTbl[1], tmpTbl[2])\
    else\
      printError('Usage: compress <Directory> <Destination file>')\
    end\
    end\
  end,\
  [ 'clear' ] = function()\
    term.setBackgroundColor(colors.white)\
    term.clear()\
    term.setCursorPos(1, 1)\
  end,\
  [ 'run' ] = function(cmd)\
    shell.run(cmd[2])\
    --[[\
    paintutils.drawLine(35, 19, 51, 19, colors.gray)\
    term.setTextColor(colors.white)\
    txt.pwrite('Closing in 2...', 35, 19)\
    sleep(1)\
    txt.pwrite('Closing in 1...', 35, 19)\
    sleep(1)\
    ]]--\
    commands.clear()\
  end,\
  [ 'reboot' ] = function()\
    cinter.reboot()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    term.setTextColor(colors.white)\
    commands.clear()\
  end,\
  [ 'shutdown' ] = function()\
    cinter.shutdown()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
    term.setTextColor(colors.white)\
    commands.clear()\
  end,\
  [ 'ls' ] = function(cmd)\
    local files2 = {}\
    local file = {}\
    local folds = {}\
    if cmd[2] == nil then\
      files = fs.list(dir)\
      tmpDir = ''\
    elseif fs.isDir(cmd[2]) then\
      files = fs.list(cmd[2])\
      tmpDir = cmd[2]\
    else\
      printError('That is not a directory.')\
      return nil\
    end\
    for k, v in ipairs(files) do\
      if string.sub(v, 1, 1) ~= '.' then\
        table.insert(files2, v)\
      end\
    end\
    for i=1, #files2 do\
      if fs.isDir(tmpDir..'/'..files2[i]) then\
        table.insert(folds, files2[i])\
      else\
        table.insert(file, files2[i])\
      end\
    end\
    textutils.pagedTabulate(colors.red, folds, colors.gray, file)\
  end,\
  [ 'cd' ] = function(cmd)\
    if fs.exists(dir..'/'..cmd[2]) then\
      if cmd[2] == '..' then\
        dir = fs.getDir(dir)\
      elseif cmd[2] == '/' then\
        dir = ''\
      elseif fs.isDir(dir..'/'..cmd[2]) then\
        dir = dir..'/'..cmd[2]\
      else\
        printError('That isn\\'t a directory!')\
      end\
    else\
      printError('That isn\\'t a directory!')\
    end\
  end,\
  [ 'clr'] = function() commands.clear() end,\
  [ 'rm' ] = function(cmd)\
    if fs.exists(fs.combine(dir, cmd[2])) then\
      fs.delete(fs.combine(dir, cmd[2]))\
      print('File deleted.')\
    else\
      printError('That file doesn\\'t exist!')\
    end\
  end,\
  [ 'mkdir' ] = function(cmd)\
    if not fs.exists(fs.combine(dir, cmd[2])) then\
      fs.makeDir(fs.combine(dir, cmd[2]))\
    else\
      printError('That already exists.')\
    end\
  end,\
  [ 'nano' ] = function(cmd)\
    shell.run(\"edit\", cmd[2])\
  end\
}\
\
-- Functions --\
\
function commSplit(comm)\
  local tmpTbl = {}\
  for k in string.gmatch(comm, '[^ ]+') do\
    table.insert(tmpTbl, k)\
  end\
  return tmpTbl\
end\
\
function mainLoop(commands)\
mainLoopTerm = false\
dir = ''\
local commHis = {}\
term.setBackgroundColor(colors.white)\
term.clear()\
term.setCursorPos(1, 1)\
\
term.setTextColor(colors.black)\
\
print('Welcome to BaseOS Shell, V1.1')\
print('Type \\'help\\' for a list of commands')\
\
repeat\
\
  --local tmpVal = multishell.getCurrent()\
  --multishell.setTitle(tmpVal, 'OS')\
\
  term.setTextColor(colors.lightGray)\
  write(dir..'/> ')\
  term.setTextColor(colors.black)\
  local comm = read(nil, commHis)\
  table.insert(commHis, comm)\
  local commNew = commSplit(comm)\
\
  \
  \
  if commands[commNew[1]] ~= nil then\
    local ok, err = pcall(commands[commNew[1]], commNew)\
    if not ok then\
      local h = fs.open('.kernel/dumps/consoleCrash', 'w')\
      h.write(err)\
      h.close()\
    end\
  else\
    printError('That command doesn\\'t exist. Type \\'help\\' for help.')\
  end\
until mainLoopTerm == true\
end\
\
-- Startup\
\
sleep(.2)\
--local tmpVal = cinter.login()\
\
mainLoop(commands)",
    notFound = "term.setTextColor(colors.black)\
txt.ctxt(\"File not found\")\
os.pullEvent(\"mouse_click\")",
    reboot = "cinter.reboot()\
term.setBackgroundColor(colors.black)\
term.clear()\
term.setCursorPos(1, 1)",
  },
}








local function writeFile(path,content)
    local file = fs.open(path,"w")
    file.write(content)
    file.close()
end
function writeDown(input,dir)
        for i,v in pairs(input) do
        if type(v) == "table" then
            writeDown(v,dir.."/"..i)
        elseif type(v) == "string" then
            writeFile(dir.."/"..i,v)
        end
    end
end

args = {...}
if #args == 0 then
    print("Please input a destination folder.")
else
    writeDown(inputTable, args[1])
end