entry RealEof;
begin "RealEof"
   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 real procedure RealEof(integer Chan);
   begin "RealEof"
      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(RealIn(Chan));
   end "RealEof";
end "RealEof"