Inside Multimedia 1995 February/IMM0295.ISO/driver/orchid/p9000/install.dat

Text File | 1993-12-10 | 30KB | 1,146 lines

/*-----------------------------------------------------------------------
  File Name: install.dat

  History:  Robert Gilsdorf (January 13, 1993)
  Description: This is a script file that automates the installation process
           of the Orchid P9000 display drivers.
 -----------------------------------------------------------------------*/
@DefineProject
    @Name      = "Orchid P9000 VLB"
    @Version   = "1.3"
    @Immediate = 1
    @Subdir    = "\\"
    @OutDrive  = C
@EndProject

/*---------------------------- Define String -----------------------------*/
@DefineVars
 @Qstring @msgDDI       = "Display Driver Installation"
 @Qstring @msgDrive     = "Please Select Destination Drive:"
 @Qstring @msgDir       = "Please Enter a Directory name or select ENTER to accept default."
 @Qstring @msgPSAV      = "Please Select Version:"
 @Qstring @msgPSAA      = "Please Select An Application:"
 @Qstring @msgDDNE      = "does not exist."
 @Qstring @msgCont      = "If you choose to continue, one will be created."
 @Qstring @msgNoFile    = "Some files are missing in your input directory:"
 @Qstring @msgNPI       = "may not be properly installed."
 @Qstring @Reenter      = " Enter Again"
 @Qstring @Cont         = "  Continue  "
 @Qstring @NameWin      = "Microsoft Windows 3.1"
 @Qstring @NameCADsys   = "Computer Aided Design (AutoDesk's Products)"
 @Qstring @NameACAD     = "AutoCAD"
 @Qstring @NameDesk     = "Desktop Publishing"
 @Qstring @NameGem      = "GEM Desktop"
 @Qstring @NameVentura  = "Ventura Publisher"
 @Qstring @NameLotus    = "Lotus 1-2-3"
 @Qstring @NameWord     = "Word Processing"
 @Qstring @NameWP       = "WordPerfect"
 @Qstring @NameMSWord   = "Microsoft Word"
 @Qstring @NameInst     = "Introduction, Installation and Switch Settings"
 @Qstring @NameMore     = "More...."
 @Qstring @NameOtherp    = "Other Orchid Products"
 @Qstring @NameTchsupt   = "Technical Support"
 @EndVars

/*--------------------- Introduction Message -----------------------------*/
@Display
@If (@CheckCard ("c000", "0048", "P9000 VLB") == 1)
  @Goto MenuJumper
@Elseif (@CheckCard ("c000", "0047", "P9000 VLB") == 1)
  @Goto MenuJumper
@Else
  @Cls


        █████████████████ ERROR ████████████████
        █                                      █
        █  Orchid P9000 video adapter is not   █
        █  detected in your system.            █
        █                                      █
        █  If you choose to continue this      █
        █  installation, the drivers may not   █
        █  respond correctly.                  █
        █                                      █
        █  If you are installing Windows to a  █
        █  Network Server, press any key to    █
        █  continue.                           █
        █                                      █
        █  PRESS F3 TO ABORT INSTALLATION      █
        █                                      █
        ████████████████████████████████████████

 @Pause
@Endif

MenuJumper:
@cls






            Orchid P9000 VLB Video Adapter


              Display Driver Installation Program


                   Disk Release 1.3




  @Pause


@Cls
@EndDisplay



/*--------------------- Drive C: check for Installation-----------------*/

@If ("@Indrive"=="C")
    @Display

    The Install Program must be run from a Floppy Drive.  Please use the
    <ESC> key and start over from the Floppy drive.

     @Pause
    @Abort
   @EndDisplay
@EndIf

/*---------------------- Installation Main Menu --------------------------*/
MenuMain:
 @FlushOptions
 @EnableF1(1)
 @GetOption
 @Cls
  @Option 1000 = "@NameWin"
  @Option 4000 = "@NameLotus"
  @Option 2000 = "@NameCADsys"
  @Option 3000 = "@NameDesk"
  @Option 5000 = "@NameWord"
  @Option 6000 = "@NameInst"
  @Option 7000 = "@NameMore"
 @EndOption

 @If (@Esc)
     @Exit
 @Elseif (@KeyF1)
     @Goto MenuMainHelp
 @ElseIf (1000 [= @Option)
     @Goto MenuWin
 @ElseIf (2000 [= @Option)
     @Goto MenuCADsys
 @ElseIf (3000 [= @Option)
     @Goto MenuDesktop
 @ElseIf (4000 [= @Option)
     @Goto MenuLotus
 @ElseIf (5000 [= @Option)
     @Goto MenuWordProcess
 @ElseIf (6000 [= @Option)
     @Goto MenuInstall
 @ElseIf (7000 [= @Option)
     @Goto MenuInfo
 @Else
     @Goto MenuMain
 @Endif

/*--------------------- Handle Information Menu  ----------------------------*/
MenuInfo:
@ClearOption(7040)
@ClearOption(7045)
@ClearOption(7050)
 @EnableF1(0)
 @GetOption
 @Cls













  @Option 7040 = "@NameOtherp"
  @Option 7045 = "Other Orchid Video Products"
  @Option 7050 = "@NameTchsupt"


  @EndOption


 @If (@Esc)
     @Goto MenuMain
@ElseIf (7040 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
@ElseIf (7045 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpFah", "EndFah")
@ElseIf (7050 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")

@endif
@Goto MenuInfo

/*--------------------- Handle Help  Menu  ----------------------------*/


MenuMainHelp:

@If (1000 [= @Option)  /* Windows */
  @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
@ElseIf (4000 [= @Option)  /* Lotus */
  @Help ("@ExePath\\install.hlp", "HelpLotus", "HelpLotusInst")
@Elseif (2000 [= @Option) /* CAD's */
  @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
@Elseif (3000 [= @Option) /* Desktop */
  @Help ("@ExePath\\install.hlp", "HelpDeskMain", "EndDeskMain")
@Elseif (5000 [= @Option) /* Word Process */
  @Help ("@ExePath\\install.hlp", "HelpWordPMain", "EndWordPMain")
@Elseif (6000 [= @Option) /* Installation */
  @Help ("@ExePath\\install.hlp", "HelpIntro", "EndIntro")
@Elseif (7000 [= @Option) /* More.... */
  @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
@EndIf

@Goto MenuMain

/*--------------- Installation and switches help menu  -----------------*/
MenuInstall:
@ClearOption(6040)
@ClearOption(6045)
@ClearOption(6050)
 @EnableF1(0)
 @GetOption
 @Cls













  @Option 6040 = "Introduction"
  @Option 6045 = "Switch Setting"
  @Option 6050 = "Installation Instructions"


  @EndOption


 @If (@Esc)
     @Goto MenuMain
@ElseIf (6040 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpIntro", "EndIntro")
@ElseIf (6045 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpSwitch", "EndSwitch")
@ElseIf (6050 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpInst", "EndInst")

@endif
@Goto MenuInstall


/*--------------- Windows 3.x Driver Installation (1000) -----------------*/
MenuWin:

@EnableF1(0)
@GetOutDrive
 @Suppress A
 @Suppress B
 @Cls
 @NameWin @msgDDI
 @msgDrive
@EndOutDrive
@If (@Esc) @Goto MenuMain @EndIf

@GetSubdir
 @Default = "\\P9000"
 @Cls
 @NameWin @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuWin @EndIf

@ClearOption(1)
@ClearOption(2)
@EnableF1(0)


CopyFileWin:
@DefineDisk
@Label = "Disk #1"
@BeginLib P9000.001

 @F p9000res.dat  @O @OutDrive:\@SubDir\*.*
 @F 8514fix.fon   @O @OutDrive:\@SubDir\*.*
 @F 8514oem.fon   @O @OutDrive:\@SubDir\*.*
 @F 8514sys.fon   @O @OutDrive:\@SubDir\*.*
 @F cga40850.fon  @O @OutDrive:\@SubDir\*.*
 @F cga40woa.fon  @O @OutDrive:\@SubDir\*.*
 @F cga80850.fon  @O @OutDrive:\@SubDir\*.*
 @F cga80woa.fon  @O @OutDrive:\@SubDir\*.*
 @F coure.fon     @O @OutDrive:\@SubDir\*.*
 @F courf.fon     @O @OutDrive:\@SubDir\*.*
 @F ega40850.fon  @O @OutDrive:\@SubDir\*.*
 @F ega40woa.fon  @O @OutDrive:\@SubDir\*.*
 @F ega80850.fon  @O @OutDrive:\@SubDir\*.*
 @F ega80woa.fon  @O @OutDrive:\@SubDir\*.*
 @F modern.fon    @O @OutDrive:\@SubDir\*.*
 @F roman.fon     @O @OutDrive:\@SubDir\*.*
 @F script.fon    @O @OutDrive:\@SubDir\*.*
 @F serife.fon    @O @OutDrive:\@SubDir\*.*
 @F seriff.fon    @O @OutDrive:\@SubDir\*.*
 @F smalle.fon    @O @OutDrive:\@SubDir\*.*
 @F smallf.fon    @O @OutDrive:\@SubDir\*.*
 @F sserife.fon   @O @OutDrive:\@SubDir\*.*
 @F sseriff.fon   @O @OutDrive:\@SubDir\*.*
 @F symbole.fon   @O @OutDrive:\@SubDir\*.*
 @F symbolf.fon   @O @OutDrive:\@SubDir\*.*
 @F times.fon     @O @OutDrive:\@SubDir\*.*
 @F vgafix.fon    @O @OutDrive:\@SubDir\*.*
 @F vgaoem.fon    @O @OutDrive:\@SubDir\*.*
 @F inst.exe      @O @OutDrive:\@SubDir\*.*
 @F inst.hlp      @O @OutDrive:\@SubDir\*.*
 @F vgacolor.2gr  @O @OutDrive:\@SubDir\*.*
 @F p9000_08.drv  @O @OutDrive:\@SubDir\*.*
 @F p9000_16.drv  @O @OutDrive:\@SubDir\*.*
 @F p9000_32.drv  @O @OutDrive:\@SubDir\*.*
 @F p9000.3gr     @O @OutDrive:\@SubDir\*.*
 @F oemsetup.inf  @O @OutDrive:\@SubDir\*.*
 @F p9000vdd.386  @O @OutDrive:\@SubDir\*.*
 @F p9000res.ini  @O @OutDrive:\@SubDir\*.*
 @F vgasys.fon    @O @OutDrive:\@SubDir\*.*
 @F p9init.dll    @O @OutDrive:\@SubDir\*.*



@EndLib
@EndDisk


@Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
@Display
@Cls




***************************************************************************
*** The installation of the Orchid P9000 Drivers are now completed.     ***
***************************************************************************


@Pause
@EndDisplay
@Goto MenuMain

/*--------------- Lotus 1-2-3 Driver Installation (4000) -----------------*/
MenuLotus:



@Help ("@ExePath\\install.hlp", "HelpLotusInst", "EndLotus")
@Goto MenuMain




/*------------- AutoCAD 10, 11 Driver Installation (2100)-----------------*/
MenuCADsys:
@ClearOption (2105)
@ClearOption (2120)
@ClearOption (2125)
@ClearOption (2130)
@ClearOption (2145)
@ClearOption (2150)
@EnableF1(1)

@GetOption @Cls
 @NameACAD @msgDDI
 @msgPSAV
 @Option 2105 = "ADI 4.2 Features and Commands Help Menu (Reading Recommended)"
 @Option 2130 = "AutoCAD Release 11 (Protected Mode ADI 4.2)"
 @Option 2145 = "AutoCAD Release 12 (Protected Mode ADI 4.2)"
 @Option 2120 = "AutoDesk's 3D Studio version 1.0 & 2.0 (PADI 4.2)"
 @Option 2125 = "AutoDesk's AutoShade version 2.1 (PADI 4.2)"
 @Option 2150 = "Frequency Reconfiguation Option"
@EndOption

@If (@Esc)
 @Goto MenuMain
@ElseIf (@KeyF1)
 @Goto MenuACADHelp
@ElseIf (2105 [=@Option)
     @Goto MenuADI42
@Endif

InputDirACAD:
@EnableF1(0)
@GetOutDrive
 @Suppress A
 @Suppress B
 @Cls
 @NameACAD @msgDDI
 @msgDrive











@EndOutDrive
@If (@Esc) @Goto MenuCADsys @Endif


@GetSubdir
 @If (2120 [= @Option)
  @Default = "\\3DS"
 @Elseif (2125 [= @Option)
  @Default = "\\SHADE"
 @Elseif (2130 [= @Option)
  @Default = "\\ACAD11"
 @Elseif (2145 [= @Option)
  @Default = "\\ACAD12"
 @Elseif (2150 [= @Option)
  Input location for AutoDesk Product: \\3DS, \\SHADE, \\ACAD11, \\ACAD12
  @Default = "\\ACAD"
 @Endif
 @Cls
 @NameACAD @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuCADsys @Endif

@ClearOption(1)
@ClearOption(2)
@If ((@Exists "@OutDrive:\\@SubDir") == 0)
 @EnableF1(0)
 @GetOption
  @LocalWindow (10,39)
  @Cls
  @NameACAD @msgDDI
  @OutDrive:@SubDir @msgDDNE
  @msgCont
  @Option 1 = "@Reenter"
  @Option 2 = "@Cont"
 @EndOption
@Endif

@If (@Esc)
 @Goto MenuCADsys
@ElseIf (1 [= @Option)
  @Goto InputDirACAD
@ElseIf (2150 [= @Option)
  @Goto MenuFreq
@Endif

@DefineDisk
 @Label = "Disk #1"
 @BeginLib P9000.001

 @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
 @F rcp9_VLB.exp  @O @OutDrive:\@SubDir\*.* @Option 2120
 @F AQ_9000.INI   @O @OutDrive:\@SubDir\*.* @Option 2120

 @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
 @F rcp9_VLB.exp  @O @OutDrive:\@SubDir\*.* @Option 2125
 @F AQ_9000.INI   @O @OutDrive:\@SubDir\*.* @Option 2125

 @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
 @F rcp9_VLB.exp  @O @OutDrive:\@SubDir\*.* @Option 2130
 @F AQ_9000.INI   @O @OutDrive:\@SubDir\*.* @Option 2130

 @F 15x25.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 16x30.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 6x9.aqf       @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 8x16.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 9x15.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 12x24.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 12x20.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F rcp9_VLB.exp  @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F AQ_9000.INI   @O @OutDrive:\@SubDir\*.* @Option 2145

@EndLib
@EndDisk


MenuFreq:
@ClearOption (2187)
@ClearOption (2188)
@ClearOption (2189)
@ClearOption (2190)
@ClearOption (2191)
@ClearOption (2192)
@ClearOption (2193)
@ClearOption (2194)
@ClearOption (2195)
@ClearOption (2196)
@ClearOption (2197)
@ClearOption (2198)
@ClearOption (2199)
@EnableF1(1)





@GetOption @Cls
 Which Frequency can your monitor support:
 For more information about Frequencies, select the <F1> key.
 @Option 2187 = "600x480x60Hz  Low End Monitors"
 @Option 2188 = "600x480x72Hz  Most Monitors"
 @Option 2189 = "600x480x90Hz  NEC 4FG 5FG 6FG, Nanao 9080i 340iw 550i"
@EndOption







@If (@Esc)
     @Goto MenuFreq
@ElseIf (@KeyF1)
     @Help ("@ExePath\\install.hlp", "HelpFreq", "EndFreq")
     @Goto MenuFreq
@Endif






@GetOption @Cls
 Which Frequency can your monitor support:
 For more information about Frequencies, select the <F1> key.
 @Option 2190 = "800x600x60Hz  Low End Monitors"
 @Option 2191 = "800x600x72Hz  Most Monitors"
 @Option 2192 = "800x600x90Hz  NEC 4FG 5FG 6FG, Nanao 9080i 340iw 550i"
@EndOption







@If (@Esc)
     @Goto MenuFreq
@ElseIf (@KeyF1)
     @Help ("@ExePath\\install.hlp", "HelpFreq", "EndFreq")
     @Goto MenuFreq
@Endif







@GetOption @Cls
 Which Frequency can your monitor support:
 For more information about Frequencies, select the <F1> key.
 @Option 2193 = "1024x768x60Hz  Low End Monitors"
 @Option 2194 = "1024x768x70Hz  Most Monitors"
 @Option 2195 = "1024x768x74Hz  NEC 4FG 5FG 6FG, Nanao 9080i 340iw 550i"
@EndOption







@If (@Esc)
     @Goto MenuFreq
@ElseIf (@KeyF1)
     @Help ("@ExePath\\install.hlp", "HelpFreq", "EndFreq")
     @Goto MenuFreq
@Endif







@GetOption @Cls
 Which Frequency can your monitor support:
 For more information about Frequencies, select the <F1> key.
 @Option 2197 = "1280x1024x60Hz  Default (Non-Interlaced Mode)"
 @Option 2198 = "1280x1024x72Hz  NEC 5FG 6FG, Nanao F550i"
 @Option 2199 = "1280x1024x74Hz  NEC 5FG 6FG, Nanao F550i"
@EndOption






@If (@Esc)
     @Goto MenuFreq
@ElseIf (@KeyF1)
     @Help ("@ExePath\\install.hlp", "HelpFreq", "EndFreq")
     @Goto MenuFreq
@Endif




@If (2187 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x8", "link=", "link=800x600", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x16", "link=", "link=800x600", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x24", "link=", "link=800x600", "REPLACE")
@Elseif (2188 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x8", "link=", "link=800x600x72Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x16", "link=", "link=800x600x72Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x24", "link=", "link=800x600x72Hz", "REPLACE")
@Elseif (2189 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x8", "link=", "link=800x600x90Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x16", "link=", "link=800x600x90Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "600x480x24", "link=", "link=800x600x90Hz", "REPLACE")
@EndIf

@If (2190 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x8", "link=", "link=800x600", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x16", "link=", "link=800x600", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x24", "link=", "link=800x600", "REPLACE")
@Elseif (2191 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x8", "link=", "link=800x600x72Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x16", "link=", "link=800x600x72Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x24", "link=", "link=800x600x72Hz", "REPLACE")
@Elseif (2192 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x8", "link=", "link=800x600x90Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x16", "link=", "link=800x600x90Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "800x600x24", "link=", "link=800x600x90Hz", "REPLACE")
@EndIf

@If (2193 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x8", "link=", "link=1024x768", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x16", "link=", "link=1024x768", "REPLACE")
@Elseif (2194 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x8", "link=", "link=1024x768x70Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x16", "link=", "link=1024x768X70Hz", "REPLACE")
@Elseif (2195 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x8", "link=", "link=1024x768x74Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x16", "link=", "link=1024x768X70Hz", "REPLACE")
@Elseif (2196 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x8", "link=", "link=1024x768x90Hz", "REPLACE")
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1024x768x16", "link=", "link=1024x768X70Hz", "REPLACE")
@EndIf

@If (2197 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1280x1024x8", "link=", "link=1280x1024", "REPLACE")
@Elseif (2198 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1280x1024x8", "link=", "link=1280x1024x72Hz", "REPLACE")
@Elseif (2199 [= @Option)
  @WriteFile ("@OutDrive:\\@SubDir\\aq_9000.ini", "1280x1024x8", "link=", "link=1280x1024x74Hz", "REPLACE")
@EndIf



@If (2120 [= @Option)
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
         "SET DSPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
         "SET RDPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
         "SET RCPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "p9000resini.env",
         "SET P9000resini.env=@OutDrive:\\@SubDir\\AQ_9000.INI", "REPLACE")

 @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
@ElseIf (2125 [= @Option)
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
         "SET DSPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
         "SET RDPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
         "SET RCPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SHADE",
         "SET SHADE=@OutDrive:\\@SubDir\\rmansupt", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "p9000resini.env",
         "SET P9000resini.env=@OutDrive:\\@SubDir\\AQ_9000.INI", "REPLACE")

 @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
@Elseif (2130 [= @Option)
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
         "SET DSPADI=@OutDrive:\\@SubDir\\rcp9_vlb.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "p9000resini.env",
         "SET P9000resini.env=@OutDrive:\\@SubDir\\AQ_9000.INI", "REPLACE")

 @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
@Elseif (2145 [= @Option)
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
         "SET ACADDRV=@OutDrive:\\@SubDir\\drv\\", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "p9000resini.env",
         "SET P9000resini.env=@OutDrive:\\@SubDir\\AQ_9000.INI", "REPLACE")

 @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12")

@EndIf

@Goto MenuCADsys

/*----------------------- ADI 4.2 Help -----------------------------------*/

MenuADI42:
@ClearOption(2910)
@ClearOption(2920)
@ClearOption(2925)
@ClearOption(2930)
@ClearOption(2933)
@ClearOption(2935)
@ClearOption(2940)
@ClearOption(2950)
@ClearOption(2953)
@ClearOption(2955)
@ClearOption(2960)
@ClearOption(2965)
@ClearOption(2970)
 @EnableF1(0)
 @GetOption
 @Cls













  @Option 2910 = "List of Features, Fonts, and Resolutions"
  @Option 2920 = "Screen Layout and Graphics Flip Screen"
  @Option 2925 = "Display List Configuration"
  @Option 2930 = "Birds-Eye View"
  @Option 2933 = "Birds-Eye Icons"
  @Option 2935 = "Edge Pan, Page Alarm"
  @Option 2940 = "Erase Buffer and Band-Free Rendering"
  @Option 2950 = "P9000 VLB Driver Commands Part 1"
  @Option 2953 = "P9000 VLB Driver Commands Part 2"
  @Option 2955 = "P9000 VLB Quick Reference Driver Commands"
  @Option 2960 = "Custom Menu Design"
  @Option 2965 = "AutoCAD Performance Tuning"
  @Option 2970 = "Known Bug List and Upgrade Information"



  @EndOption


 @If (@Esc)
     @Goto MenuCADsys
@ElseIf (2910 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpFeatures", "EndFeatures")
@ElseIf (2920 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpLayout", "EndLayout")
@ElseIf (2925 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpDLC", "EndDLC")
@ElseIf (2930 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpBird", "EndBird")
@ElseIf (2933 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpIcon", "EndIcon")
@ElseIf (2935 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpPan", "EndPan")
@ElseIf (2940 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpBand", "EndBand")
@ElseIf (2950 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpCommands", "EndCommands")
@ElseIf (2953 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpComtwo", "EndComtwo")
@ElseIf (2955 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpComquick", "EndComquick")
@ElseIf (2960 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpCMD", "EndCMD")
@ElseIf (2965 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpTuning", "EndTuning")
@ElseIf (2970 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpBug", "EndBug")

@endif
@Goto MenuADI42



/*---------------------- Handle AutoCAD Help Menu -------------------------*/
MenuACADHelp:

@If (2105 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpADI42", "EndADI42")
@ElseIf (2120 [= @Option)
 @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
@Elseif (2125 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
@Elseif (2130 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
@Elseif (2145 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12")
@EndIf

@Goto MenuCADsys

/*---------------- Desktop Publishing Menu (3000) ------------------------*/
MenuDesktop:

@ClearOption(3100)
@ClearOption(3200)
@EnableF1(1)
@GetOption
@Cls
 @NameDesk @msgDDI
 @msgPSAA
 @Option 3100 = "@NameVentura"
 @Option 3200 = "@NameGem"
@EndOption

@If (@Esc)
 @Goto MenuMain
@Elseif (@KeyF1)
 @Goto MenuDesktopHelp
@Elseif (3100 [= @Option)
 @Goto MenuVentura
@Else
 @Goto MenuGem
@Endif

/*-------------------- Handles Desktop Publishing Help Menu --------------*/
MenuDesktopHelp:

@If (3100 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
@Elseif (3200 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
@Endif

@Goto MenuDesktop

/*-------------- Ventura Publisher Driver Installation (3100) ------------*/
MenuVentura:

@EnableF1(0)
@GetOutDrive
 @Suppress A
 @Suppress B
  @Cls
  @NameVentura @msgDDI
  @msgDrive
@EndOutDrive
@If (@Esc) @Goto MenuDesktop @Endif

@GetSubdir
 @Default = "\\VENTURA"
 @Cls
 @NameVentura @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuVentura @Endif

@ClearOption(1)
@ClearOption(2)
@If (@Exists "@OutDrive:\\@SubDir" == 0)
 @EnableF1(0)
 @GetOption @Cls
  @LocalWindow (10,39)
  @NameVentura @msgDDI
  @OutDrive:@SubDir @msgDDNE
  @msgCont
  @Option 1 = "@Reenter"
  @Option 2 = "@Cont"
 @EndOption
@Endif

@If ((@Esc) || (1 [= @Option))
 @Goto MenuVentura
@Endif

@DefineDisk
 @Label = "Disk #1"
 @BeginLib P9000.001
 @F sdwx1k.vga   @O @OutDrive:\@SubDir\*.*
 @F sdwx8x6.vga  @O @OutDrive:\@SubDir\*.*
 @F sdwxvga.vga  @O @OutDrive:\@SubDir\*.*
 @EndLib
@EndDisk


@Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
@Goto MenuDesktop

/*-------------- Gem Desktop Driver Installation (3200) ------------------*/
MenuGem:

@ClearOption(6100) /* 1024x768*/
@ClearOption(6200) /* 800x600 */
@ClearOption(6300) /* 640x480 */

@GetOutDrive
 @Suppress A
 @Suppress B
  @Cls
  @NameGem @msgDDI
  @msgDrive
@EndOutDrive
@If (@Esc) @Goto MenuDesktop @Endif

@GetSubdir
 @Default = "\\GEMAPPS\\GEMSYS"
 @Cls
 @NameGem @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuGem @Endif

@ClearOption(1)
@ClearOption(2)
@If ((@Exists "@OutDrive:\\@SubDir") == 0)
 @EnableF1(0)
 @GetOption @Cls
  @LocalWindow (10,39)
  @NameGem @msgDDI
  @OutDrive:@SubDir @msgDDNE
  @msgCont
  @Option 1 = "@Reenter"
  @Option 2 = "@Cont"
 @EndOption
@Endif

@If ((@Esc) || (1 [= @Option))
 @Goto MenuGem
@Endif

MenuRes:
@EnableF1(1)

@GetOption
 @Cls
 @NameGem Installation:
 @msgPSAA
 @Option 6100 = " 1024x768"
 @Option 6200 = " 800x600"
 @Option 6300 = " 640x480"
@EndOption

@If (@Esc)
 @Goto MenuMain
@Elseif (@KeyF1)
 @Help ("@ExePath\\install.hlp","HelpGem","EndGem")
 @Goto MenuRes
@Endif



@Rename ("@OutDrive:\\@SubDir\\sd*.vga","sd*.bak")

@DefineDisk
 @Label = "Disk #1"
 @BeginLib P9000.001

 @F sdwx1k.vga   @O @OutDrive:\@SubDir\*.*  @Option 6100

 @F sdwx8x6.vga  @O @OutDrive:\@SubDir\*.*  @Option 6200

 @F sdwxvga.vga  @O @OutDrive:\@SubDir\*.*  @Option 6300

 @EndLib
@EndDisk



@Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
@Goto MenuMain


/*--------------- Word Processing Main Menu (5000) -----------------------*/
MenuWordProcess:

@ClearOption(5100)
@ClearOption(5200)
@EnableF1(1)
@GetOption
@Cls
 @NameWord @msgDDI
 @msgPSAA
 @Option 5100 = "@NameWP"
 @Option 5200 = "@NameMSWord"
@EndOption

@If (@Esc)
 @Goto MenuMain
@Elseif (@KeyF1)
 @Goto MenuWordHelp
@Elseif (5100 [= @Option)
 @Goto MenuWP
@Elseif (5200 [= @Option)
 @Goto MenuMSWord
@Else
 @Goto MenuWS
@Endif

/*-------------------- Handles Word Processing Menu Help ------------------*/
MenuWordHelp:

@If (5100 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
@Elseif (5200 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
@Endif

@Goto MenuWordProcess

/*- WordPerfect Driver Installation (5100) -*/
MenuWP:

@EnableF1(0)
@GetOutDrive
 @Suppress A
 @Suppress B
  @Cls
  @NameWP @msgDDI
  @msgDrive
@EndOutDrive
@If (@Esc) @Goto MenuWordProcess @Endif

@GetSubdir
 @Default = "\\WP"
 @Cls
 @NameWP @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuWP @Endif

@ClearOption(1)
@ClearOption(2)
@If ((@Exists "@OutDrive:\\@SubDir") == 0)
 @EnableF1(0)
 @GetOption @Cls
  @LocalWindow (10,39)
  @NameWP @msgDDI
  @OutDrive:@SubDir @msgDDNE
  @msgCont
  @Option 1 = "@Reenter"
  @Option 2 = "@Cont"
 @EndOption
@Endif

@If ((@Esc) || (1 [= @Option))
 @Goto MenuWP
@Endif

@DefineDisk
 @Label = "Disk #1"
 @BeginLib P9000.001
 @F wxgraph.vrs  @O @OutDrive:\@SubDir\*.*
 @F wxtext.vrs   @O @OutDrive:\@SubDir\*.*
 @EndLib
@EndDisk

@Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
@Goto MenuWordProcess

/*- Microsoft Word Driver Installation (5200) -*/
MenuMSWord:

@EnableF1(0)
@GetOutDrive
 @Suppress A
 @Suppress B
  @Cls
  @NameMSWord @msgDDI
  @msgDrive
@EndOutDrive
@If (@Esc) @Goto MenuWordProcess @Endif

@GetSubdir
 @Default = "\\WORD"
 @Cls
 @NameMSWord @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuMSWord @Endif

@ClearOption(1)
@ClearOption(2)
@If ((@Exists "@OutDrive:\\@SubDir") == 0)
 @EnableF1(0)
 @GetOption @Cls
  @LocalWindow (10,39)
  @NameMSWord @msgDDI
  @OutDrive:@SubDir @msgDDNE
  @msgCont
  @Option 1 = "@Reenter"
  @Option 2 = "@Cont"
 @EndOption
@Endif

@If ((@Esc) || (1 [= @Option))
 @Goto MenuMSWord
@Endif

@DefineDisk
 @Label = "Disk #1"
 @BeginLib P9000.001
 @F mouse.com    @O @OutDrive:\@SubDir\*.*
 @F wxscreen.vid @O @OutDrive:\@SubDir\*.*
 @EndLib
@EndDisk

@Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
@Goto MenuWordProcess