OPENCOMPUTERS TapeUtility

taperead.lua

local taped = require("component").tape_drive
local fs = require("component").filesystem
local a = {...}
taped.seek(-taped.getPosition())
local r = ""
if taped.read(4) == "fsiz" then
  while true do
    local partdata = taped.read(1)
    if tonumber(partdata) ~= nil then
      r = r .. partdata
    else
      break
    end
  end
  taped.seek(4)
  local buf = ""
  buf = taped.read(tonumber(r))
  local e = fs.open(a[1], "w")
  fs.write(e, buf)
  fs.close(e)
  print("Wrote file to ".. a[1])
end

tapewrite.lua

local taped = require("component").tape_drive
local fs = require("component").filesystem
local a = {...}
local h = fs.open(a[1])
local buf = ""
repeat
  local data = fs.read(h, math.huge)
  buf = buf .. (data or "")
until not data
print("Writing...")
taped.seek(-taped.getPosition())
taped.write("fsiz"..string.len(buf).."nfsiz")
taped.write(buf)
taped.write("nfileahead")
print("Done.")