Anonymous user
Create a file on magnetic tape: Difference between revisions
Added Seed7 example.
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Added Seed7 example.) |
||
Line 342:
}
}</lang>
=={{header|Seed7}}==
<lang Seed7>$ include "seed7_05.s7i";
const proc: main is func
local
var file: tapeFile is STD_NULL;
begin
tapeFile := open("/dev/tape", "w");
if tapeFile = STD_NULL then
tapeFile := open("tape.file", "w");
end if;
if tapeFile <> STD_NULL then
writeln(tapeFile, "Hello, world!");
close(tapeFile);
else
writeln(" ***** Cannot open tape file.");
end if;
end func;</lang>
=={{header|Tcl}}==
| |||