CHAIN                    Activate a Chain Program                    pp 193

 Syntax:  Chain (FileVar) ;

 Type:    File

 Form:    Procedure

 Purpose: Execute a .CHN file, using the runtime code already present
          in memory.


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


 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    }
          Chain  (FileVar)                   ;   { Run chain file      }
       END.