diff --git a/tapewrite.lua b/tapewrite.lua
new file mode 100644
index 0000000..5716693
--- /dev/null
+++ b/tapewrite.lua
@@ -0,0 +1,35 @@
+local tArg = {...}
+local fileName = tArg[1]
+local tapeName = tArg[2]
+local tape = peripheral.find("tape_drive")
+local file
+if fileName:sub(1,8) == "https://" then
+    file = http.get(fileName)
+else
+    file = fs.open(fs.combine(shell.dir(),fileName), "r")
+end
+
+local byte = 0
+tape.seek(-tape.getPosition())
+if tapeName then
+    tape.setLabel(tapeName)
+end
+local counter = 0
+
+while true do
+    byte = file.read()
+    if not byte then break end
+    counter = counter + 1
+    tape.write(byte:byte())
+    if counter == 4096 then
+        counter = 0
+        os.queueEvent("yield")
+        os.pullEvent("yield")
+        write(".")
+    end
+end
+
+tape.seek(-tape.getPosition())
+file.close()
+
+print("\nIt is written.")