NAME: Eof

     USE: Function to determine the end-of-file status of a typed or
          untyped file, as well as text files.  Errors are returned
          through IOResult.

     DEPENDENCY: None

     SYNTAX: EOF(FileVar);

     EXAMPLE: Program TestEOF;
              Var
                 FVar    : Text;
                 OutChar : Char;

              Begin
                 Assign(FVar,'TESTEOF.PAS');
                 {$I-}
                 Reset(FVar);
                 {$I+}
                 if IOResult <> 0 then
                 Begin
                    Writeln('File not found');
                    Halt;
                 end;
                 While not EOF(FVar) do
                 Begin
                    Read(FVar,OutChar);
                    Write(OutChar);
                 end;
                 Close(FVar);
              end.