entry NewLine;
begin "NewLine"
   external boolean array !n!e!w!i!n!l!i!n!e[0:15];
   external boolean procedure EofTrue(integer Chan);
   define LF = '12;
   internal simple procedure NewLine(integer Chan);
   begin "NewLine"
      integer TChar;
      if !n!e!w!i!n!l!i!n!e[Chan] then
         return;
      TChar := 0;
      while TChar neq LF do
      begin
         if EofTrue(Chan) then
            done;
         TChar := WordIn(Chan);
      end;
   end "NewLine";
end "NewLine"