9 lines
352 B
Text
9 lines
352 B
Text
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;
|
|
]
|