/*-
  File Name: install.dat

  History: Robert Gilsdorf (February 1, 1994) File created

  Description: This is a script file that automates the installation process 
	       of the Kelvin Series display drivers.
-*/
@DefineProject
	@Name           = "Kelvin"
	@Version        = "1.4"
	@Immediate      = 1 
	@Subdir         = "\\"
	@OutDrive       = C
	@AssumeHardDisk = 1
@EndProject

@DefineVars
 @Dir @orcdir            = "\\ORCHID\\"
 @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 @msgPSAO      = "Please Select an Option:"
 @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"
 @Qstring @NameCADsys   = "Computer Aided Design"
 @Qstring @NameACAD     = "AutoCAD"
 @Qstring @NameLotus    = "Lotus 1-2-3"
 @Qstring @NameWord     = "Word Processing"
 @Qstring @NameWP       = "WordPerfect"
 @Qstring @NameUtil     = "Orchid Utilities"
 @Qstring @NameMore     = "More...."
 @Qstring @NameOS2      = "IBM OS/2"
 @Qstring @NameWinnt    = "Microsoft Windows NT"
 @Qstring @NameTchsupt  = "Technical Support"
 @EndVars


@Display
@If (@CheckCard ("c000", "00F4", "KELVIN 64-VLB") == 1)
  @Goto MenuJumper
@Elseif (@CheckCard ("c000", "00F4", "KELVIN 64-PCI") == 1)
  @Goto MenuJumper
@Elseif (@CheckCard ("c000", "00F4", "KELVIN 64-ISA") == 1)
  @Goto MenuJumper
@Elseif (@CheckCard ("c000", "00F4", "KELVIN EZ-VLB") == 1)
  @Goto MenuJumper
@Elseif (@CheckCard ("c000", "00F4", "KELVIN EZ-PCI") == 1)
  @Goto MenuJumper
@Else
 @Cls

		ллллллллллллллллл ERROR лллллллллллллллл
		л                                      л
		л  An Orchid Kelvin video adapter      л
		л  is not detected in your system.     л
		л                                      л
		л  If you choose to continue this      л
		л  installation, the driver may not    л
		л  respond correctly.                  л
		л                                      л
		л  If you are using a Network Server,  л
		л  Just PRESS <ENTER> to continue.     л
		л                                      л
		л  PRESS F3 TO ABORT INSTALLATION      л
		л                                      л
		л                                      л
		лллллллллллллллллллллллллллллллллллллллл
 
 @Pause
@Endif


    

MenuJumper:
@cls
@If (@CheckCard ("C000", "00F4", "KELVIN 64-VLB") == 1)






		       Orchid Kelvin 64-VLB Video Adapter


		      Display Driver Installation Program


			       Disk Release 1.4

 



  @Pause
 @Cls

@Elseif (@CheckCard ("C000", "00F4", "KELVIN 64-ISA") == 1)






		       Orchid Kelvin 64-ISA Video Adapter


		      Display Driver Installation Program


			       Disk Release 1.4






  @Pause
 @Cls

@Elseif (@CheckCard ("C000", "00F4", "KELVIN 64-PCI") == 1)






		       Orchid Kelvin 64-PCI Video Adapter


		      Display Driver Installation Program


			       Disk Release 1.4






  @Pause
 @Cls


@ElseIf (@CheckCard ("C000", "00F4", "KELVIN EZ-VLB") == 1)






		       Orchid Kelvin EZ-VLB Video Adapter


		      Display Driver Installation Program


			       Disk Release 1.4

 




  @Pause
 @Cls

@ElseIf (@CheckCard ("C000", "00F4", "KELVIN EZ-PCI") == 1)






		       Orchid Kelvin EZ-PCI Video Adapter


		      Display Driver Installation Program


			       Disk Release 1.4





  @Pause
 @Cls

@Endif
@EndDisplay

@Display
 





		    Note: If you have run this installation from      
			  inside Windows, Please exit Windows and
			  run the installation from the DOS Prompt.





  @Pause
 @cls
@EndDisplay


@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


MenuMain:
 @FlushOptions
 @EnableF1(1)
 @GetOption
  @Cls
  @Option 1000 = "@NameWin"
  @Option 4000 = "@NameLotus"
  @Option 2000 = "@NameACAD"
  @Option 5000 = "@NameWord"
  @Option 6000 = "@NameUtil"
  @Option 7000 = "@NameMore"
 

 @EndOption

 @If (@Esc)
     @Exit
 @Elseif (@KeyF1)
     @Goto MenuMainHelp
 @ElseIf (1000 [= @Option)
     @Goto MenuWin
 @ElseIf (2000 [= @Option)
     @Goto MenuCADsys
 @ElseIf (4000 [= @Option)
     @Help ("@ExePath\\install.hlp", "HelpLotus", "EndLotus") 
     @Goto MenuMain
 @ElseIf (5000 [= @Option)
     @Goto MenuWordProcess
 @ElseIf (5500 [= @Option)
     @Goto MenuSample
 @ElseIf (6000 [= @Option)
     @Goto MenuUtility
 @ElseIf (7000 [= @Option)
     @Goto MenuInfo
 @Else
     @Goto MenuMain
 @Endif


MenuInfo:
@ClearOption(7010)
@ClearOption(7015)
@ClearOption(7020)
@ClearOption(7025)
@ClearOption(7030)
@ClearOption(7040)
@ClearOption(7045) 
@ClearOption(7050)
 @EnableF1(0)
 @GetOption
 @Cls
	












  @Option 7010 = "@NameOS2"
  @Option 7015 = "SCO UNIX"
  @Option 7020 = "@NameWinnt"
  @Option 7025 = "Microsoft Word (DOS)"
  @Option 7030 = "Lotus 1-2-3 (DOS)"
  @Option 7040 = "Gem Desktop & Ventura Publisher (DOS)"
  @Option 7045 = "WordStar (DOS)"
  @Option 7050 = "@NameTchsupt"


  @EndOption


 @If (@Esc)
     @Goto MenuMain
@ElseIf (7010 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpOS2", "EndOS2")
@ElseIf (7015 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpSCO", "EndSCO")
@ElseIf (7020 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpWNT", "EndWNT")
@ElseIf (7025 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpMW", "EndMW")
@ElseIf (7030 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpL30", "EndL30")
@ElseIf (7040 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpGEMVP", "EndGEMVP")
@ElseIf (7045 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpWSTAR", "EndWSTAR")
@ElseIf (7050 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")

@endif
@Goto MenuInfo



MenuMainHelp:

@If ((1000 [= @Option)  &&
       (@CheckCard ("C000", "00F4", "KELVIN EZ") == 1))
	@Help ("@ExePath\\install.hlp", "HelpWinEZ", "EndWinEZ")
@ElseIf ((1000 [= @Option)  &&
       (@CheckCard ("C000", "00F4", "KELVIN 64-ISA") == 1))
	@Help ("@ExePath\\install.hlp", "HelpWinISA", "EndWinISA")
@ElseIf ((1000 [= @Option)  &&
       (@CheckCard ("C000", "00F4", "KELVIN 64") == 1))
	@Help ("@ExePath\\install.hlp", "HelpWin64", "EndWin64")
@ElseIf (4000 [= @Option) 
  @Help ("@ExePath\\install.hlp", "Help123", "End123")
@Elseif (2000 [= @Option) 
  @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
@Elseif (3000 [= @Option) 
  @Help ("@ExePath\\install.hlp", "HelpDeskMain", "EndDeskMain")
@Elseif (5000 [= @Option) 
  @Help ("@ExePath\\install.hlp", "HelpWordPMain", "EndWordPMain")
@Elseif (6000 [= @Option) 
  @Help ("@ExePath\\install.hlp", "HelpUtilMain", "EndUtilMain")
@Elseif (7000 [= @Option) 
  @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
@EndIf   

@Goto MenuMain


MenuWin:

@ClearOption (1010) 
@ClearOption (1020)
@EnableF1(1)
@GetOption @Cls
 @LocalWindow (12,37) 
 @NameWin @msgDDI
 @msgPSAO
 
 @Option 1010 = "Microsoft Windows Standard Installation"
 @Option 1020 = "Microsoft Windows Network Server Installation"
@EndOption

@If (@Esc)
 @Goto MenuMain
 @ElseIf ((@KeyF1)  && 
	(@CheckCard ("C000", "00F4", "KELVIN EZ") == 1))
	@Help ("@ExePath\\install.hlp", "HelpWinEZ", "EndWinEZ")
 @ElseIf ((@KeyF1)  &&
       (@CheckCard ("C000", "00F4", "KELVIN 64-ISA") == 1))
	@Help ("@ExePath\\install.hlp", "HelpWinISA", "EndWinISA")
 @ElseIf ((@KeyF1)  &&
       (@CheckCard ("C000", "00F4", "KELVIN 64") == 1))
	@Help ("@ExePath\\install.hlp", "HelpWin64", "EndWin64")
 @Goto MenuWin
@Endif


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

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


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

@ClearOption(1)
@ClearOption(2)
@EnableF1(0)
@GetOption
 @LocalWindow (10,39) 
 @If (@Exists "@OutDrive:\\@SubDir" == 0)
  @Cls
  @NameWin @msgDDI
  @OutDrive:@SubDir @msgDDNE
  @msgCont
 @ElseIf (1020 [= @Option)
  @Goto MenuCopyFileWin
 @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
	 (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  @Cls
  @NameWin @msgDDI
  @msgNoFile
  @OutDrive:@SubDir
  @NameWin @msgNPI
 @Else
  @Goto MenuCopyFileWin
 @EndIf
 @Option 1 = "@Reenter"
 @Option 2 = "@Cont"
@EndOption
@If ((@Esc) || (1 [= @Option))
  @Goto MenuWindow
@Endif
 



MenuCopyFileWin:


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

 @F 16_1280.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F 16M_640.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F avga.3gr     @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F kir.drv      @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F kirs.drv     @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F dva.386      @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F ctl3d.dll    @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F kelvin.exe   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F kelvincp.cpl @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F vdd543x.386  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F vgacolor.2gr @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F kmagdll.dll  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F 8514fix.fon  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F 8514oem.fon  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F 8514sys.fon  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F cga40850.fon @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F cga80850.fon @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F courf.fon    @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F ega40850.fon @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F ega80850.fon @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F seriff.fon   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F smallf.fon   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F sseriff.fon  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F symbolf.fon  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F center.com   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F dci543x.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F dciman.dll   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
 @F vdh.dll      @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010

 @F 16_1280.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F 16M_640.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F avga.3gr     @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kir.drv      @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kirs.drv     @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F dva.386      @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F ctl3d.dll    @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kelvin.exe   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kelvincp.cpl @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F vdd543x.386  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F vgacolor.2gr @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kmagdll.dll  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F 8514fix.fon  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F 8514oem.fon  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F 8514sys.fon  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F cga40850.fon @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F cga80850.fon @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F courf.fon    @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F ega40850.fon @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F ega80850.fon @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F seriff.fon   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F smallf.fon   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F sseriff.fon  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F symbolf.fon  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F center.com   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F dci543x.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F dciman.dll   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F vdh.dll      @O @OutDrive:\@SubDir\*.*  @Option 1020

 @F kelvinss.scr @O @OutDrive:\@SubDir\*.*  
 @F kmag.exe     @O @OutDrive:\@SubDir\*.*  

@If ("@CPU"=="386")
 @F cir_386.dll   @O @OutDrive:\@SubDir\cirext.dll @Option 1020
 @F cir_386.dll   @O @OutDrive:\@SubDir\SYSTEM\cirext.dll  @Option 1010
@Else
 @F cir_486.dll   @O @OutDrive:\@SubDir\cirext.dll @Option 1020
 @F cir_486.dll   @O @OutDrive:\@SubDir\SYSTEM\cirext.dll  @Option 1010
@Endif

@If (@CheckCard ("c000", "00F4", "KELVIN 64-ISA") == 1)
 @F kel_isa.orc  @O @OutDrive:\@SubDir\kelvinez.orc 
 @F kelvin.hlp   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kelvin.hlp   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
@ElseIf (@CheckCard ("C000", "00F4", "KELVIN 64-PCI") == 1)
 @F kelvin.pci   @O @OutDrive:\@SubDir\kelvin.orc 
 @F kelvin.hlp   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kelvin.hlp   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
@ElseIf (@CheckCard ("C000", "00F4", "KELVIN 64-VLB") == 1)
 @F kelvin.vlb   @O @OutDrive:\@SubDir\kelvin.vlb 
 @F kelvin.vlb   @O @OutDrive:\@SubDir\kelvin.orc 
 @F kelvin.hlp   @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kelvin.hlp   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
@Else
 @F kelvinez.vlb @O @OutDrive:\@SubDir\kelvin.vlb 
 @F kelvinez.vlb @O @OutDrive:\@SubDir\kelvin.orc 
 @F kelvinez.hlp @O @OutDrive:\@SubDir\*.*  @Option 1020
 @F kelvinez.hlp @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
@Endif


@EndLib 
@EndDisk


@WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "kelvin.exe", "APPEND")
@WriteFile ("@OutDrive:\\@SubDir\\system.ini", "drivers", "VIDS.DRAW=", "VIDS.DRAW=udh.dll", "REPLACE")
@WriteFile ("@OutDrive:\\@SubDir\\system.ini", "drivers", "DCI=", "DCI=DCI543x", "REPLACE")

@WriteFile ("@OutDrive:\\@SubDir\\system.ini", "386Enh", "device=dva.386", "device=dva.386", "REPLACE")

MenuWinEnd:
@If (@CheckCard ("C000", "00F4", "KELVIN EZ") == 1)
	@Help ("@ExePath\\install.hlp", "HelpWinEZ", "EndWinEZ")
@ElseIf (@CheckCard ("C000", "00F4", "KELVIN 64-ISA") == 1)
	@Help ("@ExePath\\install.hlp", "HelpWinISA", "EndWinISA")
@ElseIf (@CheckCard ("C000", "00F4", "KELVIN 64") == 1)
	@Help ("@ExePath\\install.hlp", "HelpWin64", "EndWin64")
@EndIf

@Display
@Cls




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


@Pause
@EndDisplay
@Goto MenuMain



MenuUtility:

@ClearOption(6100) 
@EnableF1(1)

@GetOption
 @Cls
 @NameUtil Installation:
 @msgPSAA
 @Option 6100 = " KSCAN.EXE"
 @Option 6200 = " TSRFONT.COM"
@EndOption

@If (@Esc)
 @Goto MenuMain
@Elseif (@KeyF1)
 @Help ("@ExePath\\install.hlp","HelpUtilMain","EndUtilMain")
 @Goto MenuUtility
@Endif

InputDirUtil:
@EnableF1(0)
@GetOutDrive
 @Suppress A
 @Suppress B
 @Cls
 @NameUtil Installation:
 @msgDrive














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

@GetSubdir
 @Default = "\\Kelvin"
 @Cls
 @NameUtil Installation
 @msgDir


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

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

@If (@Esc)
 @Goto MenuUtility
@ElseIf (1 [= @Option)
  @Goto InputDirUtil
@Endif

@DefineDisk
 @Label = "Disk #1"
 @BeginLib kelvin.001 
 
 @F kscan.exe   @O @OutDrive:\@SubDir\*.* @Option 6100 
 @F kscan.dat   @O @OutDrive:\@SubDir\*.* @Option 6100   
 @F center.com  @O @OutDrive:\@SubDir\*.* @Option 6100  
 @F TSRFONT.COM @O @OutDrive:\@SubDir\*.* @Option 6200

 @EndLib
@EndDisk

@Help ("@ExePath\\install.hlp","HelpUtilFin","EndUtilFin")
@Goto MenuUtility


MenuCADsys:
@ClearOption(2100) 
@EnableF1(1)

@GetOption
 @LocalWindow (10,40)
 @Cls
 @NameCADsys @msgDDI
 @msgPSAA
 @Option 2100 = "@NameACAD"
@EndOption

@If (@Esc)
 @Goto MenuMain
@Elseif (@KeyF1)
 @Goto MenuCADsysHelp
@ElseIf (2100 [= @Option)
 @Goto MenuACAD
@Endif


MenuCADsysHelp:

@If (2100 [= @Option)
 @Goto MenuACAD
@Elseif (2200 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
@Endif

@Goto MenuCADsys


MenuACAD:
@ClearOption (2105)
@ClearOption (2120)
@ClearOption (2125)
@ClearOption (2130)
@ClearOption (2145)
@EnableF1(1)

@GetOption @Cls
@LocalWindow (10,37)  
 @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 & 13 (Protected Mode ADI 4.2)"
 @Option 2120 = "AutoDesk's 3D Studio version 1.0 to 4.0 (PADI 4.2)"
 @Option 2125 = "AutoDesk's AutoShade version 2.1 (PADI 4.2)"

@EndOption

@If (@Esc)
 @Goto MenuCADsys
@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 MenuACAD @Endif

@GetSubdir
 @If (2120 [= @Option)
  @Default = "\\3DS"
 @Elseif (2125 [= @Option)
  @Default = "\\SHADE"
 @Elseif (2130 [= @Option)
  @Default = "\\ACAD11"
 @Elseif (2145 [= @Option)
  @Default = "\\ACAD"
 @Endif
 @Cls
 @NameACAD @msgDDI
 @msgDir


@EndSubdir
@If (@Esc) @Goto MenuACAD @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 MenuACAD
@ElseIf (1 [= @Option)
  @Goto InputDirACAD
@Endif

@DefineDisk
 @Label = "Disk #1"
 @BeginLib kelvin.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 10x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 12x24s.aqf    @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 6x13.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120
 @F 8x16s.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
 @F aquila.cfg    @O @OutDrive:\@SubDir\*.* @Option 2120
 @F aquila.icn    @O @OutDrive:\@SubDir\*.* @Option 2120
 @F rckelvin.exp  @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 10x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 12x24s.aqf    @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 6x13.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125
 @F 8x16s.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
 @F aquila.cfg    @O @OutDrive:\@SubDir\*.* @Option 2125
 @F aquila.icn    @O @OutDrive:\@SubDir\*.* @Option 2125
 @F rckelvin.exp  @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 10x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 12x24s.aqf    @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 6x13.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130
 @F 8x16s.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
 @F aquila.cfg    @O @OutDrive:\@SubDir\*.* @Option 2130
 @F aquila.icn    @O @OutDrive:\@SubDir\*.* @Option 2130
 @F rckelvin.exp  @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 10x20.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 12x24s.aqf    @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 6x13.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F 8x16s.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F aquila.cfg    @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F aquila.icn    @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 @F rckelvin.exp  @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
 

 @EndLib 
@EndDisk

@If (2120 [= @Option)
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
	     "SET DSPADI=@OutDrive:\\@SubDir\\rckelvin.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
	     "SET RDPADI=@OutDrive:\\@SubDir\\rckelvin.exp", "REPLACE")
 @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
	     "SET RCPADI=@OutDrive:\\@SubDir\\rckelvin.exp", "REPLACE")


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


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


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


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

@EndIf   
			  
@Goto MenuACAD


MenuADI42:
@ClearOption(2910)
@ClearOption(2920)
@ClearOption(2925) 
@ClearOption(2930)
@ClearOption(2933)  
@ClearOption(2934)
@ClearOption(2935)  
@ClearOption(2940)
@ClearOption(2950)
@ClearOption(2953)  
@ClearOption(2954)
@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 2934 = "Icon Menu System"
  @Option 2935 = "Edge Pan, Page Alarm"
  @Option 2940 = "Erase Buffer and Band-Free Rendering" 
  @Option 2950 = "Kelvin Driver Commands Part 1"
  @Option 2953 = "Kelvin Driver Commands Part 2"
  @Option 2954 = "Kelvin Driver Commands Part 3"
  @Option 2955 = "Kelvin Quick Reference Driver Commands"
  @Option 2960 = "Custom Menu Design"
  @Option 2965 = "AutoCAD Performance Tuning"
  @Option 2970 = "Appendix -- Icon Menu"

 


  @EndOption


 @If (@Esc)
     @Goto MenuACAD
@ElseIf ((2910 [=@Option)  &&
       (@CheckCard ("C000", "00F4", "KELVIN EZ") == 1))
	@Help ("@ExePath\\install.hlp", "HelpFeaturesEZ", "EndFeaturesEZ")
@ElseIf ((2910 [=@Option)  &&
      (@CheckCard ("C000", "00F4", "KELVIN 64") == 1))
	@Help ("@ExePath\\install.hlp", "HelpFt64", "EndFt64")
@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 (2934 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpIcmenu", "EndIcmenu")
@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 (2954 [=@Option)
     @Help ("@ExePath\\install.hlp", "HelpComthree", "EndComthree")
@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", "HelpAppendix", "EndAppendix")

@EndIf
@Goto MenuADI42



MenuACADHelp:

@If (2110 [= @Option)
 @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
@Elseif (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 MenuACAD


MenuWordProcess:

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

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


MenuWordHelp:

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

@Goto MenuWordProcess


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 kelvin.001 
 @F orchid.vrs @O @OutDrive:\@SubDir\*.* 
 @EndLib 
@EndDisk

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



