Anonymous user
File input/output: Difference between revisions
no edit summary
(Added Racket code) |
No edit summary |
||
Line 168:
Close (Output);
end Using_Text_Streams;</lang>
=={{header|Aime}}==
<lang aime>file i, o;
text s;
f_open(i, "input.txt", OPEN_READONLY, 0);
f_open(o, "output.txt", OPEN_CREATE | OPEN_TRUNCATE | OPEN_WRITEONLY,
0644);
while (f_line(i, s) ^ -1) {
f_text(o, s);
f_byte(o, '\n');
}</lang>
=={{header|ALGOL 68}}==
| |||