Pasted

-- This is a temporary program just to
-- simply being able to run the
-- gpsexcavate program made by Ikkalyzte
-- without a wireless modem
 
local programname = "gpsexcavate"
 
local old = {}
 
function replacement()
    --body
end
 
local key = next(rednet)
while key do
    local index = key
    key = next(rednet,key)
    old[index] = _G.rednet[index]
    _G.rednet[index] = replacement
end
 
pcall(shell.run,programname,...)
 
for index,func in pairs(old) do
    _G.rednet[index] = func
end