NAME: Eoln

     USE: Function to determine the end-of-line status of a text file.

     DEPENDENCY: None

     SYNTAX: Eoln(FVar);

     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 Eoln(FVar) do
                 Begin
                    Read(FVar,OutChar);
                    Write(OutChar);
                 end;
                 Close(FVar);
              end.