entry StrEof;
begin "StrEof"
   external boolean array !n!e!w!i!n!l!i!n!e[0:15];
   external integer !t!t!y;
   external boolean procedure EofTrue(integer Chan);
   external string procedure Strin(integer Chan);
   internal simple string procedure StrEof(integer Chan);
   begin "StrEof"
      if EofTrue(Chan) then
         begin
            string ErrMsg;
            ErrMsg := "read past end-of-file for ";
            if !t!t!y = Chan then
               ErrMsg := ErrMsg & "Teletype"
            else
               ErrMsg := ErrMsg & "Channel "&cvs(Chan);
            UserErr(0,1,ErrMsg);
         end;
      !n!e!w!i!n!l!i!n!e[Chan] := false;
      return(Strin(Chan));
   end "StrEof";
end "StrEof"