TEXT                         Declare Text File                       pp 114


 Define:  A file declared as a text file using the reserved word Text.

 Purpose: Provides formatted access to disk files with record terminated
          by a Cr/Lf combination.  The file is terminated by Ctrl-Z.

 Notes:   Text files are random length records and must be processed
          in a sequential manner.




 ----------------------------------------------------------------------------


 Usage:
       VAR
          TxtFile  : Text                    ;   { Declare text file   }

       BEGIN
          Assign (TxtFile,'Test.Dat')        ;   { Assign file name    }
          Append (TxtFile)                   ;   { Open for read       }
          Close  (TxtFile)                   ;   { Close the handle    }
       END.