File input/output: Difference between revisions
Content added Content deleted
(Added Racket code) |
No edit summary |
||
Line 168: | Line 168: | ||
Close (Output); |
Close (Output); |
||
end Using_Text_Streams;</lang> |
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}}== |
=={{header|ALGOL 68}}== |