%EXTERNALROUTINE CLEANUP(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(255) S)
%STRING (255) T, U, V
%INTEGER I, J, K

%ON %EVENT 9 %START
      SELECT OUTPUT(0)
      WRITE(J, 1)
      PRINTSTRING(" CHARS PRINTED
")
      WRITE(K, 1)
      PRINTSTRING(" CHARS THROWN AWAY
")
      %RETURN
%FINISH

K=0; J=0
S -> T.("/").U
DEFINE("ST1,".T); DEFINE("ST2,".U.",1023")
SELECT INPUT(1); SELECT OUTPUT(2)
%CYCLE
      READCH(I)
      %IF I<32 %AND I#NL %START
         K=K+1
      %FINISHELSESTART
         PRINTSYMBOL(I)
         J=J+1
      %FINISH
%REPEAT
%END
%ENDOFFILE