read.lua

local component = require("component")
local tape = component.tape_drive
local io = require("io")

print "type the adress of file (with name)"
name = io.read()
file = io.open(name, "a")

size = tape.getSize()
tape.seek(-size)
ost = size % 32
size = (size - ost) / 32

a = 0

while a < size do
temp = tape.read(32)
io.write(temp)
file:write(temp)
a = a + 1
end

file:close()
print "Done!"