View difference between Paste ID: p8qNsAN0 and RXEL1hMJ

-local target = ...
+--[[ this is an edit of something that WAS NOT MY IDEA. it's awesome though :) ]]
-if not target then
+
-  print("Usage: "..fs.getName(shell.getRunningProgram()).." [target]")
+local level,maxlevel=1,0
-  return
+local resume,pR=coroutine.resume,os.pullEventRaw
 
 getUp=function()
-local lastDumped = nil
+	local at,lastFunc,fileName=1
-getfenv(parallel.waitForAny).os = setmetatable({pullEventRaw = function(...)
+	while true do
-  local i = 2
+		local ok,func=pcall(function() return setfenv(at,getfenv(at)) end)
-  while true do
+		local _,err=pcall(error,"err",at)
-    local success, result = pcall(function()
+		if ok then
-      local fn = setfenv(i, getfenv(i))
+			lastFunc=func
-      return string.dump(fn)
+			fileName=err:match("(.-):")
-    end)
+		else
-    i = i + 1
+			return lastFunc,fileName
-    if success then
+		end
-      lastDumped = result
+		at=at+1
-    else
+	end
-      if result:find("invalid level") then
+
-        break
+
-      end
+os.pullEventRaw=function(...)
-    end
+	if level>=maxlevel then
-  end
+		maxlevel=level
-  getfenv(parallel.waitForAny).os = nil
+		os.originator={getUp()}
-  return coroutine.yield(...)
+	end
-end}, {__index = os})
+	level=level+1
 	return coroutine.yield(...)
-os.queueEvent("fake-event")
+
-os.pullEvent("fake-event")
+coroutine.resume=function(...)
 	level=level-1
-getfenv(parallel.waitForAny).os = nil
+	return resume(...)
 end
-if lastDumped then
+
-  print("Writing bios file...")
+os.queueEvent("ohi")
 os.pullEventRaw()
-  local handle = fs.open(target, "wb")
+
-  for i=1,lastDumped:len() do
+coroutine.resume=resume
-    handle.write(lastDumped:byte(i))
+os.pullEventRaw=pR