The task is to create a new file called "TAPE.FILE" of any size on Magnetic Tape.

Dim As Integer numarch = Freefile
Open "tape.file" For Output As #numarch
Print #numarch, "Soy un archivo de cinta ahora, o espero serlo pronto."
Close #numarch