Input loop: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
|||
Line 2,412: | Line 2,412: | ||
.quad 0 |
.quad 0 |
||
.zero STATSIZE-FSIZEOFF+8</lang> |
.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}}== |
=={{header|zkl}}== |