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

 ASSIGN               Set File Variable to a File Name                 pp 94

 Syntax:  Assign (FileVar,String) ;

 Type:    File

 Form:    Procedure

 Purpose: FileVar becomes an identifier or file handle to access a file.
          The text, String, is the Drive:\Path\Filename.Ext assigned to
          FileVar.


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


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

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