Anonymous user
Create a file on magnetic tape: Difference between revisions
Added solution for Action!
Drkameleon (talk | contribs) (Added Arturo implementation) |
(Added solution for Action!) |
||
Line 19:
The task is to create a new file called "TAPE.FILE" of any size on Magnetic Tape.
=={{header|Action!}}==
<lang Action!>PROC Save(CHAR ARRAY text)
BYTE dev=[1]
Close(dev)
Open(dev,"C:",8,128)
PrintE("Saving started...")
PrintF("Saving text: ""%S""%E",text)
PrintD(dev,text)
Close(dev)
PrintE("Saving finished.")
RETURN
PROC Load()
CHAR ARRAY result(255)
BYTE dev=[1]
Close(dev)
Open(dev,"C:",4,128)
PrintE("Loading started...")
WHILE Eof(dev)=0
DO
InputSD(dev,result)
PrintF("Loading text: ""%S""%E",result)
OD
Close(dev)
PrintE("Loading finished.")
RETURN
PROC Main()
BYTE CH=$02FC ;Internal hardware value for last key pressed
PrintE("Press any key to save a file on tape.")
Save("Atari Action!")
PutE()
PrintE("Rewind the tape and press any key to load previously saved file from tape.")
Load()
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Create_a_file_on_magnetic_tape.png Screenshot from Atari 8-bit computer]
<pre>
Press any key to save a file on tape.
Saving started...
Saving text: "Atari Action!"
Saving finished.
Rewind the tape and press any key to load previously saved file from tape.
Loading started...
Loading text: "Atari Action"
Loading finished.
</pre>
=={{header|Applesoft BASIC}}==
| |||