Click above to get retro games delivered to your door ever month!

 CLOSE                        Close a Disk File                        pp 96

 Syntax:  Close (FileVar) ;

 Type:    File

 Form:    Procedure

 Purpose: The disk file associated with FileVar is closed, and the directory
          is updated to reflect the new status 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
          Close (FileVar)                    ;   { Close the handle    }
       END.