REWRITE              Open and Clear File for Processing               pp 94

 Syntax:  ReWrite (FileVar) ;

 Type:    File

 Form:    Procedure

 Purpose: Open file for write only.  The file pointer is set to the
          beginning of the file, and any existing data is discarded.


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


 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 name to handle }
          ReWrite (FileVar)                   ;  { Open file handle      }
       END.