startup

local function shell()
  dofile("rom/programs/shell")
end

local function pop(tab,index)
  local size = #tab
  tab[index] = nil
  for i=index+1,size do
    tab[i-1] = tab[i]
    tab[i] = nil
  end
end


threads = {}
threads.main = {}

threads.add = function(func,name)
  name = name or "[Untitled]"
  local threadid = coroutine.create(func)
  local threadTable = {}
  threadTable[1] = name
  threadTable[2] = threadid
  threads.main[#threads.main+1] = threadTable
end

threads.pullEvent = function(event)
  local ret = {coroutine.yield(event)}
  return table.unpack(ret)
end

threads.stop = function()
  coroutine.yield("end")
end

threads.run = function()
  os.queueEvent("start")
  while true do
    local event = {os.pullEventRaw())
    for i,v in pairs(threads.main) do
      local newEvent = coroutine.resume(v[2],table.unpack(event))
      if not (newEvent == nil) then
        if not threads[newEvent] then
          threads[newEvent] = {}
        end
        threads[newEvent][#threads[newEvent]+1] = v
        pop(threads.main,i)
      end
    end
    if threads[event[1]] then
      for i,v in pairs(threads[event[1]]) do
        local newEvent = coroutine.resume(v[2],table.unpack(event))
        if not newEvent then newEvent


os.pullEvent = threads.pullEvent
threads.add(function() dofile("rom/programs/shell") end)