function luash(si) spawn("lua shell",function() print(_OSVERSION..", "..string.format("%4d",computer.totalMemory()/1024).."K memory") print(MOTD,net.id,_VERSION) while true do write((os.getenv("PWD") or "").."> ") local inp=readln() if not inp then break end if inp:sub(1,1) == "!" then local pth = os.getenv("PATH") or "." local s,ptt = inp:sub(2), {} for w in s:gmatch("%S+") do table.insert(ptt,w) end local prg = table.remove(ptt,1) for d in pth:gmatch("[^:]+") do _,lex = pcall(fs.exists,d.."/"..prg..".lua") _,nex = pcall(fs.exists,d.."/"..prg) if lex then run(d.."/"..prg..".lua",table.unpack(ptt)) break elseif nex then run(d.."/"..prg,table.unpack(ptt)) break end end elseif inp:sub(1,1) == "$" then local s,ptt = inp:sub(2), {} for w in s:gmatch("%S+") do table.insert(ptt,w) end local prg = table.remove(ptt,1) local r={pcall(_ENV[prg],table.unpack(ptt))} if r[1] == true then table.remove(r,1) end print(table.unpack(r)) else if inp:sub(1,1) == "=" then inp="return "..inp:sub(2) end local r={pcall(load(inp))} if r[1] == true then table.remove(r,1) end print(table.unpack(r)) end end end,{sI=si}) end