entry IntEof;
begin "IntEof"
   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);
   internal simple integer procedure IntEof(integer Chan);
   begin "IntEof"
      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; comment not at beginning of line;
      return(IntIn(Chan));
   end "IntEof";
end "IntEof"