/*FILE:CADKEY 386 version 6.5*/
@DefineProject
 @Name = "CADKEY" 
 @Version = "7.0"
 @Subdir = "\\CADKEY7\\"
 @OutDrive = C
 @Requires @HardDisk
 @InDiskBell = 1
 @Immediate = 1
@EndProject

@Display
 @Cls

 @If (@RAMAvail < 400000)

            Installing CADKEY requires at least 400K of conventional 
            memory. Conventional memory is memory below 640K.

            Please try removing installed device drivers and/or 
            terminate and stay resident programs (TSR's) before 
            attempting to run this install procedure again.

            Look in your CONFIG.SYS and AUTOEXEC.BAT files for
            installed device drivers and/or TSR's.

            You currently have @RAMAvail bytes of conventional 
            memory available.


  @Pause
  @Exit

 @EndIf

 @If (@CPU < 386)

            CADKEY requires an 80386 or 80486 CPU.
            Your computer is running on a 80@CPU CPU.

  @Pause
  @Exit

 @EndIf

@Cls
 @If (!(@Exists ("@StartupDrive:\\CADKEY.001")))
            When installing CADKEY you MUST log onto the drive
            where you inserted disk number one. To do this
            please do the following:

                B: <ENTER>
                INSTALL <ENTER>

            Note:
                In this example drive B is the drive with disk number 
                one in it.

            DO NOT try to install CADKEY using the following syntax:

                B:INSTALL <ENTER>

  @Pause
  @Exit
 @Endif

@EndDisplay      
@If (@RAMAvail > 200000)
   @If (@Spawn ("@StartupDrive:\\gifview @StartupDrive:\\intro.gif"))
   @Endif
@Endif
@Display
 @Cls

    This program installs CADKEY @Version on your computer system 
    and verifies the integrity of the distribution files. It asks 
    you several questions about your computer hardware and then 
    gives you the option of installing only selected parts of 
    CADKEY @Version (such as the CADKEY Program). 

    For more information on installation, see the "GETTING STARTED GUIDE".

    ** DO NOT INSTALL THIS VERSION OVER A PREVIOUS VERSION OF CADKEY **
    **  CADKEY @Version WILL NOT FUNCTION CORRECTLY IF THIS IS DONE       **

 @Pause
@EndDisplay

@DefineVars
@Dir @Subdir2 = "\\CDL\\"    
@Dir @Subdir3 = "\\MAC\\"
@Dir @Subdir4 = "\\PLT\\"    
@Dir @Subdir5 = "\\PTN\\"
@Dir @Subdir6 = "\\DB\\"    
@Dir @Subdir7 = "\\PRT\\"
@Dir @Subdir8 = "\\SF\\"  
@Dir @Subdir9 = "\\NOT\\"
@Dir @Subdir10 = "\\HLP\\"
@Dir @Subdir11 = "\\CAI\\"
@Dir @Subdir12 = "\\CDE\\"
@Dir @Subdir13 = "\\STL\\"
@Dir @Subdir14 = "\\DOC\\"
@Dir @Subdir15 = "\\DXF\\"
@Dir @Subdir16 = "\\DWG\\"
@Dir @Subdir17 = "\\IGS\\"
@Dir @Subdir18 = "\\TIGA\\"
@Dir @Subdir20 = "\\CDL\\"
@Dir @Subdir30 = "\\MAC\\"
@Dir @Subdir50 = "\\PTN\\"
@Dir @Subdir70 = "\\PRT\\"
@Dir @Subdir120 = "\\CDE\\"
@Dir @Subdir130 = "\\SYMBOLS\\"
@Dir @Subdir140 = "\\DETAIL\\"
@Dir @Subdir150 = "\\ELECTRIC\\"
@Dir @Subdir160 = "\\FLOWCH\\"
@Dir @Subdir170 = "\\PIPING\\"
@Dir @Subdir180 = "\\SHEETMTL\\"
@Dir @Subdir190 = "\\FLUID\\"
@Dir @Subdir195 = "\\ENGLISH\\"
@Dir @Subdir200 = "\\PRINT.DRV\\"
@Dir @Subdir205 = "\\DRV\\"
@Dir @Subdir210 = "\\IGSUP\\"
@Dir @Subdir220 = "\\FSDOC\\"
@Dir @Subdir230 = "\\LSP\\"
@Drive @OutDrive2 = C
@Drive @OutDrive3 = C
@Drive @OutDrive5 = C
@Drive @OutDrive7 = C
@Drive @OutDrive12 = C
@Drive @OutDrive17 = C
@Drive @OutDrive18 = C
@Drive @OutDrive19 = C
@Drive @OutDrive23 = C
@EndVars
@SetGroup(A)

regroup:

@GetGroups
 @Checkbox
 @Cls

     Now you need to select the parts of CADKEY you want to install.













     Use the [Up Arrow], [Down Arrow], [PgUp], & [PgDn] keys to move the
     bar to the group(s) you wish to install and then press the [Space] key
     to toggle the option from "No" to "Yes".  Press [Enter] when you
     have selected the option(s) you want to install.
   @SET A = "Install All files                    24M Bytes"
   @SET C = "Install CADKEY Program             9.75M Bytes"
   @SET M = "Install Advanced Drafting Module    3.5M Bytes"
   @SET I = "Install Advanced IGES               625K Bytes"
   @SET H = "Install Help files                  440K Bytes"
   @SET T = "Install CADKEY Tutor                625K Bytes"
   @SET D = "Install Driver(s)                   300K Bytes"
   @SET S = "Install Sample Files and Utilites   1.3M Bytes"
   @SET O = "Install On-line Documentation       4.5M Bytes"
   @SET F = "Install Fastsurf Lite               2.1M Bytes"
   @SET L = "Install CADKEY LISP Translator      1.1M Bytes"

@EndGroups

@If (('C'[= @Group) || ('S'[=@Group) || ('O'[=@Group) || ('H' [= @Group) || 
     ('M' [= @Group) || ('T' [= @Group) || ('D'[=@Group) || ('I' [= @Group) ||
     ('F' [= @Group) || ('L' [= @Group))
 @ClearGroup (A)
@EndIf

@If (('C'[= @Group) && ('S'[=@Group) && ('O'[=@Group) && ('H' [= @Group) && 
     ('M' [= @Group) && ('T' [= @Group) && ('D'[=@Group) && ('I' [= @Group) &&
     ('F' [= @Group) && ('L' [= @Group))
 @SetGroup (A)
@EndIf

@GetOption
 @If (('A'[=@Group) || ('C'[= @Group) || ('S'[=@Group) || ('O'[=@Group) || 
      ('M' [= @Group) || ('H' [= @Group) || ('T' [= @Group) || ('D'[=@Group) ||
      ('I' [= @Group) || ('F' [= @Group) || ('L' [= @Group))
        You will be installing        Using the following disk(s):
        @If ( 'A' [= @Group )
        All files                     1, 2, 3, 4, 5, 6 and 7 @EndIf  @If ( 'C' [= @Group && !('A' [= @Group))
        CADKEY files                       1, 2, 3, and 4    @EndIf  @If ( 'M' [= @Group && !('A' [= @Group))
        Advanced Drafting Module                 4           @EndIf  @If ( 'I' [= @Group && !('A' [= @Group))
        Advanced Iges files                      3           @EndIf  @If ( 'H' [= @Group && !('A' [= @Group))
        Help files                               4           @EndIf  @If ( 'T' [= @Group && !('A' [= @Group))
        Tutor files                              3           @EndIf  @If ( 'S' [= @Group && !('A' [= @Group))
        Sample files and Utilities               3           @EndIf  @If ( 'D' [= @Group && !('A' [= @Group))
        Drivers                                  4           @EndIf  @If ( 'O' [= @Group && !('A' [= @Group))
        On-line Documentation                 6 and 7        @EndIf  @If ( 'F' [= @Group && !('A' [= @Group))
        Fastsurf Lite                            5           @EndIf  @If ( 'L' [= @Group && !('A' [= @Group))
        CADKEY LISP Translator                4 and 5        @EndIf
        @SetOption (4000)
 @Else   
       No files were selected to be installed.  
 @EndIf
 @Checkbox
 @Option 4000 = "Is this correct ? "
 @LocalWindow (21, 35)
       Use the space bar to toggle between "Yes" and "No".
@EndOption

@If (!(4000 [= @Option ))
 @FlushGroups
 @Goto regroup
@EndIf

@If(!('A'[=@Group || 'C'[= @Group || 'S'[=@Group || 'O'[=@Group || 
      'M'[=@Group || 'H'[=@Group || 'T'[=@Group || 'D'[=@Group || 
      'I'[=@Group || 'F'[=@Group || 'L'[=@Group))
@Display
 @MoveCStr(5,7,79,"                                                               ")
 @MoveCStr(6,7,79,"  You must use the space bar to select files to be installed.  ")
 @MoveCStr(7,7,79,"  The files you have selected will have a \"Yes\" next to them.  ")
 @MoveCStr(8,7,79,"  Then press the <Enter> key to begin installation.            ")
 @MoveCStr(9,7,79,"                                                               ")
 @MoveCStr(10,7,79,"  You may press the <Esc> key to abort installation.           ")
 @MoveCStr(11,7,79,"                                                               ")





 @Pause
@EndDisplay
@Goto regroup
@EndIf

@If ( 'A' [= @Group )
 @SetGroup(C)
 @SetGroup(D)
 @SetGroup(S)
 @SetGroup(H)
 @SetGroup(T)
 @SetGroup(O)
 @SetGroup(I)
 @SetGroup(M)
 @SetGroup(F)
 @SetGroup(L)
@EndIf

retry:

@ClearOption (200)

@If ('C' [= @Group )

 @GetOutDrive
 @Suppress A
 @Suppress B
 @Cls

          Choose the drive on which you want to install CADKEY.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.
   
   @EndOutDrive
   @GetSubdir
   @Cls

   Enter the name you want for your CADKEY subdirectory. This
   subdirectory is the location on your disk where CADKEY will reside.

   @Prompt = " Which subdirectory ([Enter] = @Subdir)? "
   @EndSubdir
   @If (@Exists ("@OutDrive:@Subdir\\CADKEY.EXE"))
      @GetOption

   CADKEY already exists in @OutDrive:@Subdir.  Do NOT install
   over an older version.  Either, install CADKEY @Version in a 
   new directory or delete the older version.
   @LocalWindow(10,35)
   @Option 200 = "Install in different directory"
   @Option 300 = "Exit install"
   @Option 100 = "Continue installing in @OutDrive:@Subdir"
   @EndOption

   @If (200 [= @Option)
    @Goto retry
   @ElseIf (300 [= @Option)
    @Exit
   @EndIf
  @EndIf
@EndIf

@If ((!('C' [= @Group)) && (('S' [= @Group) || ('H' [= @Group) || 
     ('M' [= @Group) || ('D' [= @Group) || ('O' [= @Group) || ('T' [= @Group) || 
     ('I' [= @Group) || ('F' [= @Group)|| ('L' [= @Group)))
 @GetOutDrive
 @Suppress A
 @Suppress B
 @Cls

          Choose the drive on which CADKEY @version has been installed.  
   CADKEY @version needs to be installed to install the selected files.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.

   @EndOutDrive
   @GetSubdir
   @Cls

   Enter the name of your CADKEY subdirectory. This subdirectory is 
   the location on your disk where CADKEY resides.

   @Prompt = " Which subdirectory ([Enter] = @Subdir)? "
   @EndSubdir
@EndIf

@ClearOption(9000)
@If (('A' [= @Group) || ('C'[= @Group))
 @GetOption

            Do you have a TIGA graphics card installed ?
 @Checkbox
 @Option 9000 = "  TIGA ? "
 @LocalWindow (5, 35)      


            Use the space bar to toggle between "Yes" and "No".

 @EndOption

 @If (9000 [= @option)
  @GetOutDrive @OutDrive18
  @Suppress A
  @Suppress B
  @Cls

   Please specify the drive where the TIGA software is located.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.
   
   @EndOutDrive
   @GetSubdir  @SubDir18
   @Cls

   Please specify the directory where the TIGA software is located.
               Type the pathname and press <ENTER>.

      @Prompt = " Which subdirectory ([Enter] = @SubDir18)? "

   @EndSubdir

@EndIf
@Endif

@If ('C' [= @Group)
 @If (@Exists "@Outdrive:\\@Subdir\\config.dat")
  @copy ("@OutDrive:\\@subdir\\config.dat", "@OutDrive:\\@Subdir\\config.bak")
 @EndIf
 @If (@Exists "Outdrive:\\@Subdir\\@Subdir4\\plconfig.dat")
  @Copy ("@OutDrive:\\@Subdir\\@Subdir4\\plconfig.dat","@OutDrive:\\@Subdir\\@Subdir4\\plconfig.bak")
 @Endif
@EndIf

@If ('C' [= @Group || 'S'[=@Group) 
 @GetGroups
 @Cls


     Do you want to use the standard configuration for downloading
     CADKEY @version CADL files, PATTERN files, PART files, MACRO files 
     and CDE files?




       @LocalWindow (6,35)
       @SET Y = "YES - Use the standard configuration"
       @SET N = "NO - Download files onto other paths"
       @Move (10,10)
           EXAMPLE 1                                 EXAMPLE 2
    STANDARD CONFIGURATION                    OPTIONAL CONFIGURATION
         
     C:\CADKEY7\_______CDL                       C:\CADKEY7
                  |____PRT                       D:\_________CDL
                  |____PTN                              |____PRT
                  |____MAC                              |____PTN
                  |____CDE                              |____MAC
                                                        |____CDE

     Use the [Up Arrow] and [Down Arrow] to move the lightbar. Press
     [Enter] when you have selected your response.
     
   @EndGroups
@EndIf

@If ( 'N' [= @Group ) 
 @GetOutDrive @OutDrive2
 @Suppress A
 @Suppress B
 @Cls

       Choose the drive on which you want to install CADKEY 
   CADL files.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.

   @EndOutDrive
   @GetSubdir @Subdir20
   @Cls

   Now you need to specify the path for the CADL files.

   @Prompt = " Which subdirectory ([Enter] = @Subdir20)? "
   @EndSubdir
@EndIf

@If ('N' [= @Group )
  @GetOutDrive @OutDrive3
  @Suppress A
  @Suppress B
  @Cls

       Choose the drive on which you want to install CADKEY 
   MACRO files.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.
   
   @EndOutDrive
   @GetSubdir @Subdir30
   @Cls

   Now you need to specify the path for the MACRO files.

   @Prompt = " Which subdirectory ([Enter] = @Subdir30)? "
   @EndSubdir
@EndIf

@If ('N' [= @Group )
  @GetOutDrive @OutDrive5
  @Suppress A
  @Suppress B
  @Cls

      Choose the drive on which you want to install CADKEY 
   PATTERN files.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.
   
   @EndOutDrive
   @GetSubdir @Subdir50
   @Cls

   Now you need to specify the path for the PATTERN files.

   @Prompt = " Which subdirectory ([Enter] = @Subdir50)? "
   @EndSubdir
@EndIf

@If ( 'N' [= @Group || ((('F' [= @Group) || ('I' [= @Group)) && !('C' [= @Group || 'S' [= @Group))) 
 @GetOutDrive @OutDrive7
 @Suppress A
 @Suppress B
 @Cls

@If ((('F' [= @Group) || ('I' [= @Group)) && !('C' [= @Group || 'S' [= @Group))
       Choose the drive on which your CADKEY PART files are located. 
@Else
       Choose the drive on which you want to install CADKEY PART files.
@Endif














   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.

   @EndOutDrive
@If(!('A'[=@Group || 'C'[= @Group || 'S'[=@Group || 'O'[=@Group || 
      'F' [= @Group || 'H'[=@Group || 'T'[=@Group || 'D'[=@Group))
   @If ('I' [= @Group)
       @Subdir70="@Subdir\\PRT\\"
   @Endif
@Endif
   @GetSubdir @Subdir70
   @Cls

   Now you need to specify the path for the PART files.
             
   @Prompt = " Which subdirectory ([Enter] = @Subdir70)? "
   @EndSubdir
@EndIf

@If (( 'N' [= @Group ) || ((('L' [= @Group) || ('F' [= @Group) || ('I' [= @Group) || ('O' [= @Group) ||
     ('M' [= @Group) || ('T' [= @Group)) && (!('C' [= @Group || 'S' [= @Group))))
 @GetOutDrive @OutDrive12
 @Suppress A
 @Suppress B
 @Cls


@If (('L' [= @Group || 'F' [= @Group || 'O' [= @Group || 'M' [= @Group || 'I' [= @Group || 'T' [= @Group) && 
     !('C' [= @Group || 'S' [= @Group)) 
       Choose the drive on which your CADKEY CDE files are located. 
@Else
       Choose the drive on which you want to install CADKEY CDE files.
@Endif















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.

   @EndOutDrive
@If(!('A'[=@Group || 'C'[= @Group || 'S'[=@Group || 'O'[=@Group || 
      'L'[=@Group || 'F'[=@Group || 'M'[=@Group || 'H'[=@Group || 'T'[=@Group || 'D'[=@Group))
   @If (('I' [= @Group) && !('C' [= @Group)) 
       @Subdir120="@Subdir\\CDE\\"
   @Endif
@Endif
   @GetSubdir @Subdir120
   @Cls

   Now you need to specify the path for the CDE files.

   @Prompt = " Which subdirectory ([Enter] = @Subdir120)? "
   @EndSubdir
@EndIf

@If ('I' [= @Group )
 @GetOutDrive @OutDrive17
 @Suppress A
 @Suppress B
 @Cls

       Choose the drive on which your CADKEY IGES files are located. 















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.
   
  @EndOutDrive
  @Subdir17="@Subdir\\IGS\\"
  @GetSubdir @Subdir17
  @Cls

   Now you need to specify the path for the IGES files.

   @Prompt = " Which subdirectory ([Enter] = @Subdir17)? "
   @EndSubdir

@GetOutDrive @OutDrive19

   @Suppress A
   @Suppress B

   @Cls

       Choose the drive on which your CADKEY IGES Support files will be
       located.















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.

   @EndOutDrive
   @Subdir210="@Subdir\\IGSUP\\"
   @GetSubdir @Subdir210
   
   @Cls

   Now you need to specify the path for the IGES Support files.

       @Prompt = " Which subdirectory ([Enter] = @Subdir210)? "

   @EndSubdir

@EndIf

@If ('L' [= @Group )
 @GetOutDrive @OutDrive23
 @Suppress A
 @Suppress B
 @Cls

       Choose the drive on which your LISP files are located. 















   Use the <Up Arrow>, <Down Arrow>, <PgUp>, & <PgDn> to move the light-
   bar to the disk drive on which you want to install and then press the
   <Enter> key.
   
  @EndOutDrive
  @Subdir230="@Subdir\\LSP\\"
  @GetSubdir @Subdir230
  @Cls

   Now you need to specify the path for the LISP files.

   @Prompt = " Which subdirectory ([Enter] = @Subdir230)? "
   @EndSubdir
@Endif

@If ( 'A' [= @Group )
 @SetOption(10) @SetOption(54) @SetOption(16) @SetOption(20) @SetOption(22) @SetOption(23) 
 @SetOption(24) @SetOption(60) @SetOption(25) @SetOption(33) @SetOption(41) 
 @SetOption(47) @SetOption(62)
 @Goto skdrv
@Endif

@If ( 'D' [= @Group )
driver:
   @ClearOption(1000)
   @GetOption
    @CheckBox
    @Cls
              Please select one or more of the graphic drivers.
              Use the space bar to toggle between "Yes" and "No".
      Press Y to select all drivers.  Press N to deselect all drivers.















             Use the <Up Arrow> and <Down Arrow> keys to move the  
             lightbar to the graphics driver you want to select.
                     <Enter> downloads selected drivers.
@LocalWindow (11, 38)
@option 10 = "Control Systems Artist XJ/10"
@option 54 = "DGIS compatibles"
@option 16 = "Hercules Monochrome" 
@option 20 = "IBM Personal Systems/2 - VGA"
@option 22 = "IMAgraph AGC/Image Plus"
@option 23 = "IMAgraph TI-1210"
@option 24 = "Matrox PG Series"
@option 60 = "Metheus 1008"
@option 25 = "Metheus UGA series"
@option 33 = "Pixelworks Clipper Graphics"
@option 41 = "Verticom M/H Series"
@option 47 = "Vermont Microsystems"
@option 62 = "VESA compatible"
@EndOption
   @If (!((10 [=@Option)||(54 [=@Option)||(16 [=@Option)||
       (20 [=@Option)||(22 [=@Option)||(23 [=@Option)||
       (24 [=@Option)||(60 [=@Option)||(25 [=@Option)||
       (33 [=@Option)||(41 [=@Option)||(47 [=@Option)||
       (62 [=@Option)))
       @GetOption
       @Move(5,5)
       @MoveCStr(5,5,79,"                                                                     ")
       @MoveCStr(6,5,79,"  You must use the space bar to select driver(s) to be installed.    ")
       @MoveCStr(7,5,79,"  The driver(s) you have selected will have a \"Yes\" next to them.    ")
       @MoveCStr(8,5,79,"  Then press the <Enter> key to begin installation.                  ")
       @MoveCStr(9,5,79,"                                                                     ")
       @MoveCStr(10,5,79,"  You may press the <Esc> key to abort installation.                 ")
       @MoveCStr(11,5,79,"                                                                     ")
       @LocalWindow (15,35)
       @option 1000 = "Select a Driver"
       @Option 2000 = "Install no Drivers"
       @EndOption

       @If (1000 [= @Option)
        @Goto driver
       @Else
        @ClearGroup (D)
       @EndIf
   @EndIf
@EndIf

skdrv:

@If (!('N' [= @Group))
 @GetOption
 @SetOption (5000)  @If(('A'[=@Group || 'C'[= @Group || 'S'[=@Group || 'O'[=@Group || 
                         'H'[=@Group || 'T'[=@Group || 'D'[=@Group || 
                         'I'[=@Group || 'M'[=@Group || 'F' [= @Group || 'L' [= @Group))

        In @OutDrive:@Subdir you will be installing :   @If ('C' [= @Group)           
                  CADKEY                        @EndIf  @If ('M' [= @Group)
                  Advanced Drafting Module      @EndIf  @If ('I' [= @Group)
                  Advanced IGES                 @EndIf  @If ('H' [= @Group)
                  Help                          @EndIf  @If ('T' [= @Group)
                  Tutor                         @EndIf  @If ('D' [= @Group)
                  Driver(s)                     @EndIf  @If ('S' [= @Group)
                  Sample Files and Utilites     @EndIf  @If ('O' [= @Group)
                  On-line Documentation         @EndIf  @If ('F' [= @Group)
                  Fastsurf Lite                 @EndIf  @If ('L' [= @Group)
                  CADKEY LISP                   @EndIf   @EndIf
       @Checkbox
       @LocalWindow (16,35)
       @Option 5000 = "Is this Correct?"
       @Move (17,10)
        Use the space bar to toggle between "Yes" and "No".

   @EndOption

@Else
   @GetOption @SetOption (5000)
        In @OutDrive:@Subdir you will be installing :   @If ('C' [= @Group)           
                  CADKEY                        @EndIf  @If ('M' [= @Group)
                  Advanced Drafting Module      @EndIf  @If ('I' [= @Group)
                  Advanced IGES                 @EndIf  @If ('H' [= @Group)
                  Help                          @EndIf  @If ('T' [= @Group)
                  Tutor                         @EndIf  @If ('D' [= @Group)
                  Driver(s)                     @EndIf  @If ('S' [= @Group)
                  Sample Files and Utilites     @EndIf  @If ('O' [= @Group)
                  On-line Documentation         @EndIf  @If ('F' [= @Group)
                  Fastsurf Lite                 @EndIf  @If ('L' [= @Group)
                  CADKEY LISP                   @EndIf

    @OutDrive2:@Subdir20 for CDL files.       @OutDrive3:@Subdir30 for Macro files.
    @OutDrive5:@Subdir50 for Pattern files.   @OutDrive7:@Subdir70 for Part files.
    @OutDrive12:@Subdir120 for CDE files.       @OutDrive23:@Subdir230 for LISP files.
    @OutDrive17:@Subdir17 for IGES files.

       @Checkbox
       @LocalWindow (19,35)
       @Option 5000 = "Is this Correct?"
       @Move (18,10)
       
        Use the space bar to toggle between "Yes" and "No".

   @EndOption
@EndIf
@If (!(5000 [= @Option))
       @FlushOptions()
       @FlushGroups()
       @Goto regroup
@EndIf

@ClearOption(20000)
@ClearOption(20001)
@ClearOption(20002)
@ClearOption(20003)
@ClearOption(20004)
@ClearOption(20005)
@ClearOption(20006)
@ClearOption(20007)
@ClearOption(20008)
@ClearOption(20009)
@If (('M' [= @Group) || ('I'[= @Group) || ('T'[= @Group) || ('O'[= @Group) ||
     ('F'[= @Group) || ('L'[= @Group) || ('C' [= @Group)) @GetOption

        Please select the CDE modules you wish to have automatically 
        loaded by the CADKEY program.

 @Checkbox
 @If ('M' [= @Group) @Option 20000 = "  Advanced Drafting Module "
 @Endif
 @If ('I' [= @Group) @Option 20001 = "  Advanced IGES Translator "
 @Endif
 @If ('T' [= @Group) @Option 20002 = "  CADKEY Tutor "
 @Endif
 @If ('O' [= @Group) @Option 20003 = "  On-line documentation "
 @Endif
 @If ('F' [= @Group) @Option 20004 = "  Fastsurf Lite "
 @Endif
 @If ('L' [= @Group) @Option 20005 = "  CADKEY Lisp Translator "
 @Endif
 @If ('C' [= @Group) @Option 20006 = "  CADKEY Picture It "
 @Endif
 @If ('C' [= @Group) @Option 20007 = "  CADKEY Screen Saver "
 @Endif
 @If ('C' [= @Group) @Option 20008 = "  CADKEY Chain Offset "
 @Endif
 @If ('C' [= @Group) @Option 20009 = "  CADKEY Modify Geometry "
 @Endif
 @LocalWindow (11, 35)      


            Use the space bar to toggle between "Yes" and "No".

 @EndOption

@EndIf
@Endif
@If (@RAMAvail > 200000)
   @If (@Spawn ("@StartupDrive:\\gifview @StartupDrive:\\regcard.gif"))
   @Endif
@Endif

@DefineDisk
@Label = "DISK 1 OF 7"
@If ( 'C' [= @Group )
 @File config.dat @Out \@Subdir\*.*
 @File intro.dat @Out \@Subdir\@Subdir195\*.*
 @BeginLib CADSUP.RED
    @File *.* @Out \@Subdir\@Subdir195\*.*
 @EndLib
 @BeginLib CADSUP1.RED
  @File *.* @Out \@Subdir\*.*
 @EndLib
 @BeginLib CADKEY.001
  @File cadkey.exe @Out \@Subdir\cadkey.exe
 @EndLib 
@EndIf
@EndDisk      
@If ('C' [= @Group || 'A' [= @Group)
 @Chain ("DISK 2 OF 7")
@ElseIf ('I' [= @Group || 'T' [= @Group || 'S' [= @Group)
 @Chain ("DISK 3 OF 7")
@ElseIf ('H' [= @Group || 'D' [= @Group || 'M' [= @Group || 'L' [= @Group)
 @Chain ("DISK 4 OF 7")
@ElseIf ('F' [= @Group)
 @Chain ("DISK 5 OF 7")
@ElseIf ('O' [= @Group)
 @Chain ("DISK 6 OF 7")
@Endif
