ComputerCraft Tape Writer

local args = {...}
if #args ~= 1 then
	print("Usage: tapewrite filename")
	return
end
if not fs.exists(args[1]) then
	print("No such file: "..args[1])
	return
end
local tape=peripheral.find("tape_drive")
if not tape then
	print("No tape drive found")
	return
end
local file=fs.open(args[1], "rb")
if not file then
	print("Failed to open file: "..args[1])
end
local size=fs.getSize(args[1])
if tape.getState() ~= "STOPPED" then
	print("Stopping tape")
	tape.stop()
end
print("Rewinding tape ...")
tape.seek(-math.huge)
print("Writing "..size.." byte"..(size==1 and "" or "s").." onto the tape")
local blocksize=8192
while true do
	local data={}
	for i=1,blocksize do
		local byte=file.read()
		if not byte then break end
		data[#data+1]=string.char(byte)
	end
	if #data ~= 0 then
		tape.write(table.concat(data))
		sleep(0)
	else
		break
	end
end
file.close()
print("Rewinding tape ...")
tape.seek(-math.huge)
print("Tape Written")