%EXTERNAL %ROUTINE  READ LINE (%STRING(255)%NAME S)
   %INTEGER SYM, p
   p = 0
   SYM = NEXT SYMBOL
   %WHILE SYM # NL %CYCLE
      p = p + 1
      CHARNO(S,p) = SYM
      SKIP SYMBOL; SYM = NEXT SYMBOL
   %REPEAT
   LENGTH(S) = p
   SKIP SYMBOL;   ! Get past the NL
%END
%END %OF %FILE