File input/output: Difference between revisions
Added XPL0
(Add NetRexx implementation) |
(Added XPL0) |
||
Line 1,967:
Loop
End Using</lang>
=={{header|XPL0}}==
Usage: fileio <input.txt >output.txt
<lang XPL0>include c:\cxpl\codes;
int I, C;
char IntermediateVariable;
[IntermediateVariable:= GetHp;
I:= 0;
repeat C:= ChIn(1);
IntermediateVariable(I):= C;
I:= I+1;
until C = $1A; \EOF
I:= 0;
repeat C:= IntermediateVariable(I);
I:= I+1;
ChOut(0, C);
until C = $1A; \EOF
]</lang>
{{omit from|HTML}}
| |||