Input loop: Difference between revisions
Added XPL0 example.
(Added XPL0 example.) |
|||
Line 2,412:
.quad 0
.zero STATSIZE-FSIZEOFF+8</lang>
=={{header|XPL0}}==
Text stream is a file redirected on command line i.e: <file.txt
<lang XPL0>int C;
[repeat \read file
repeat \read line
repeat C:= ChIn(1); \read word
ChOut(0, C);
until (C<^A ! C>^z) & (C<^0 ! C>^9); \non-alphanumeric
until C < $20; \CR, LF, or EOF
until C = \EOF\ $1A;
]</lang>
=={{header|zkl}}==
| |||