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