APPEND                     Open File for Append                      pp 200

 Syntax:  Append (FileVar) ;

 Type:    Text File

 Form:    Procedure

 Purpose: Open file name Assigned to FileVar to append new data.

 Notes:   The file is opened and the file position pointer is moved to
          the end of the file.  The only operation allowed is the addition
          of new data to the end of the file.


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


 Usage:
       TYPE
          FileType = String [80]             ;   { Define record size  }
       VAR
          FileVar  : File of FileType        ;   { 80 byte record type }
       CONST
          FileName : String [8] = 'Name.Ext' ;   { Constant file name  }

       BEGIN
          Assign (FileVar,FileName)          ;   { Assign file name    }
          Append (FileVar)                   ;   { Open for append     }
       END.