home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 February / IMM0295.ISO / driver / orchid / celsius / install.dat < prev    next >
Text File  |  1994-01-07  |  34KB  |  1,265 lines
  1. /*--------------------------------------------------------------------------
  2.   File Name: install.dat
  3.  
  4.   History: Robert Gilsdorf (April 02, 1993) File created
  5.        
  6.   Description: This is a script file that automates the installation process 
  7.            of the Celsius VLB display drivers.
  8. --------------------------------------------------------------------------*/
  9. @DefineProject
  10.     @Name            = "Celsius VLB"
  11.     @Version         = "1.33"
  12.     @Immediate       = 1 
  13.     @Subdir          = "\\"
  14.     @OutDrive        = C
  15.     @AssumeHardDisk  = 1
  16. @EndProject
  17. /*---------------------------- Define String -----------------------------*/
  18. @DefineVars
  19.  
  20.  @Qstring @msgDDI       = "Display Driver Installation"
  21.  @Qstring @msgDrive     = "Please Select Destination Drive:"
  22.  @Qstring @msgDir       = "Please Enter a Directory name or select ENTER to accept default."
  23.  @Qstring @msgPSAV      = "Please Select Version:"
  24.  @Qstring @msgPSAA      = "Please Select An Application:"
  25.  @Qstring @msgPSAO      = "Please Select an Option:"
  26.  @Qstring @msgDDNE      = "does not exist."
  27.  @Qstring @msgCont      = "If you choose to continue, one will be created."
  28.  @Qstring @msgNoFile    = "Some files are missing in your input directory:"
  29.  @Qstring @msgNPI       = "may not be properly installed."
  30.  @Qstring @Reenter      = " Enter Again"
  31.  @Qstring @Cont         = "  Continue  "
  32.  @Qstring @NameWin      = "Microsoft Windows"
  33.  @Qstring @NameCADsys   = "Computer Aided Design"
  34.  @Qstring @NameACAD     = "AutoCAD"
  35.  @Qstring @NameCADKey   = "CADKey"
  36.  @Qstring @NameDataCAD  = "DataCAD"
  37.  @Qstring @NameMicroCAD = "MicroStation"
  38.  @Qstring @NameVersaCAD = "VersaCAD"
  39.  @Qstring @NamePCAD     = "PCAD"
  40.  @Qstring @NameWP       = "WordPerfect"
  41.  @Qstring @NameUtil     = "Orchid VESA Driver"
  42.  @Qstring @NameMore     = "More...."
  43.  @Qstring @NameOtherp   = "Other Orchid Products"
  44.  @Qstring @NameTchsupt  = "Technical Support"
  45.  @EndVars
  46.  
  47.  
  48.  
  49.  
  50. /*--------------------- Introduction Message -----------------------------*/
  51. @Display
  52. @If (@CheckCard ("C000", "0063", "CELSIUS VLB") == 1)
  53.  Goto MenuJump
  54. @Else 
  55.  @Cls
  56.  
  57.         █████████████████ ERROR ████████████████
  58.         █                                      █
  59.         █  An Orchid Celsius video adapter     █
  60.         █  is not detected in your system.     █
  61.         █                                      █
  62.         █  If you choose to continue this      █
  63.         █  installation, the driver will not   █
  64.         █  respond correctly.                  █
  65.         █                                      █
  66.         █  PRESS F3 TO ABORT INSTALLATION      █
  67.         █                                      █
  68.         █                                      █
  69.         █                                      █
  70.         ████████████████████████████████████████
  71.  
  72.  @Pause
  73. @Endif
  74.  
  75. MenuJump:
  76. @cls
  77.  
  78.  
  79.  
  80.  
  81.  
  82.                Orchid Celsius VLB Video Adapter
  83.  
  84.  
  85.               Display Driver Installation Program
  86.  
  87.  
  88.                    Disk Release 1.33
  89.  
  90.  
  91.  
  92.  
  93.   @Pause
  94. @Cls
  95. @Endif
  96. @EndDisplay
  97.  
  98.  
  99. /*--------------------- Drive C: check for Installation-----------------*/
  100.  
  101. @If ("@Indrive"=="C")
  102.     @Display
  103.  
  104.     The Install Program must be run from a Floppy Drive.  Please use the  
  105.     <ESC> key and start over from the Floppy drive.
  106.  
  107.      @Pause
  108.     @Abort
  109.    @EndDisplay
  110. @EndIf
  111.  
  112. /*---------------------- Installation Main Menu --------------------------*/
  113. MenuMain:
  114.  @FlushOptions
  115.  @EnableF1(1)
  116.  @GetOption
  117.  @Cls
  118.   @Option 1000 = "@NameWin"
  119.   @Option 2000 = "@NameCADsys"
  120.   @Option 5000 = "@NameWP"
  121.   @Option 6000 = "@NameUtil"
  122.   @Option 7000 = "@NameMore"
  123.  
  124.  @EndOption
  125.  
  126.  @If (@Esc)
  127.      @Exit
  128.  @Elseif (@KeyF1)
  129.      @Goto MenuMainHelp
  130.  @ElseIf (1000 [= @Option)
  131.      @Goto MenuWin
  132.  @ElseIf (2000 [= @Option)
  133.      @Goto MenuCADsys
  134.  @ElseIf (5000 [= @Option)
  135.      @Goto MenuWordProcess
  136.  @ElseIf (6000 [= @Option)
  137.      @Goto MenuUtil
  138.  @ElseIf (7000 [= @Option)
  139.      @Goto MenuInfo
  140.  @Else
  141.      @Goto MenuMain
  142.  @Endif
  143.  
  144. /*--------------------- Handle Information Menu  ----------------------------*/
  145. MenuInfo:
  146. @ClearOption(7040)
  147. @ClearOption(7045) 
  148. @ClearOption(7047)
  149. @ClearOption(7050)
  150.  @EnableF1(0)
  151.  @GetOption
  152.  @Cls
  153.     
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.   @Option 7040 = "@NameOtherp"
  167.   @Option 7045 = "Other Orchid Video Products"
  168.   @Option 7047 = "Orchid MultiMedia Products"
  169.   @Option 7050 = "@NameTchsupt"
  170.  
  171.  
  172.   @EndOption
  173.  
  174.  
  175.  @If (@Esc)
  176.      @Goto MenuMain
  177. @ElseIf (7040 [=@Option)
  178.      @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
  179. @ElseIf (7045 [=@Option)
  180.      @Help ("@ExePath\\install.hlp", "HelpFah", "EndFah")
  181. @ElseIf (7047 [=@Option)
  182.      @Help ("@ExePath\\install.hlp", "HelpMM", "EndMM")
  183. @ElseIf (7050 [=@Option)
  184.      @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")
  185.  
  186. @endif
  187. @Goto MenuInfo
  188.  
  189. /*--------------------- Handle Help  Menu  ----------------------------*/
  190.  
  191.  
  192. MenuMainHelp:
  193.  
  194. @If (1000 [= @Option)  /* Windows */
  195.    @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  196. @Elseif (2000 [= @Option) /* CAD's */
  197.   @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
  198. @Elseif (5000 [= @Option) /* Word Process */
  199.   @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  200. @Elseif (6000 [= @Option) /* Utility */
  201.   @Help ("@ExePath\\install.hlp", "HelpUtil", "EndUtil")
  202. @Elseif (7000 [= @Option) /* More.... */
  203.   @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
  204. @EndIf   
  205.  
  206. @Goto MenuMain
  207.  
  208. /*---------------- Windows 3.x Driver Installation (1000) -----------------*/
  209. MenuWin:
  210.  
  211. @ClearOption (1010) 
  212. @ClearOption (1020)
  213. @EnableF1(1)
  214. @GetOption @Cls
  215.  @NameWin @msgDDI
  216.  @msgPSAO
  217.  @Option 1010 = "Microsoft Windows Standard Installation"
  218.  @Option 1020 = "Microsoft Windows Network Server Installation"
  219. @EndOption
  220.  
  221. @If (@Esc)
  222.  @Goto MenuMain
  223. @ElseIf (@KeyF1)
  224.  @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin") 
  225.  @Goto MenuWin
  226. @Endif
  227.  
  228.  
  229. MenuWindow:
  230. @EnableF1(0)
  231. @GetOutDrive
  232.  @Suppress A
  233.  @Suppress B 
  234.  @Cls
  235.  @NameWin @msgDDI
  236.  @msgDrive
  237. @EndOutDrive
  238. @If (@Esc) @Goto MenuWin @EndIf
  239.  
  240. @GetSubdir
  241.  @Default = "\\WINDOWS"    
  242.  @Cls
  243.  @NameWin @msgDDI
  244.  @msgDir
  245.  
  246.  
  247. @EndSubdir
  248. @If (@Esc) @Goto MenuWindow @EndIf
  249.  
  250. @ClearOption(1)
  251. @ClearOption(2)
  252. @EnableF1(0)
  253. @GetOption
  254.  @LocalWindow (10,39) 
  255.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  256.   @Cls
  257.   @NameWin @msgDDI
  258.   @OutDrive:@SubDir @msgDDNE
  259.   @msgCont
  260.  @ElseIf (1020 [= @Option)
  261.   @Goto MenuCopyFileWin
  262.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
  263.      (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  264.   @Cls
  265.   @NameWin @msgDDI
  266.   @msgNoFile
  267.   @OutDrive:@SubDir
  268.   @NameWin @msgNPI
  269.  @Else
  270.   @Goto MenuCopyFileWin
  271.  @EndIf
  272.  @Option 1 = "@Reenter"
  273.  @Option 2 = "@Cont"
  274. @EndOption
  275. @If ((@Esc) || (1 [= @Option))
  276.   @Goto MenuWindow
  277. @Endif
  278.  
  279.  
  280.  
  281. MenuCopyFileWin:
  282. @DefineDisk
  283. @Label = "Disk #1"
  284. @BeginLib CELSIUS.001 
  285.  
  286.  
  287. @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 0)  /* AT&T DAC 110MHz */
  288.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  289.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  290.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  291.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  292.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  293.   @F xcel1.CRT    @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  294.   @F CELSET1.HLP @O @OutDrive:\@SubDir\SYSTEM\celsetup.hlp @Option 1010 
  295.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  296.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  297.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  298.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  299.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  300.   @F Xcel1.CRT    @O @OutDrive:\@SubDir\*.* @Option 1020 
  301.   @F CELSET1.HLP @O @OutDrive:\@SubDir\celsetup.hlp @Option 1020 
  302.  
  303. @ElseIf (@Spawn ("@StartupDrive:\\dacchk.exe") == 1)  /* SIERRA DAC 110MHz  */
  304.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  305.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  306.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  307.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  308.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  309.   @F xcel1.CRT    @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  310.   @F CELSET1.HLP @O @OutDrive:\@SubDir\SYSTEM\celsetup.hlp @Option 1010 
  311.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  312.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  313.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  314.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  315.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  316.   @F Xcel1.CRT    @O @OutDrive:\@SubDir\*.* @Option 1020 
  317.   @F CELSET1.HLP @O @OutDrive:\@SubDir\celsetup.hlp @Option 1020 
  318.  
  319. @ElseIf (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  320.   @F 31KHZAV.CRT  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  321.   @F 35KHZAV.CRT  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  322.   @F 48KHZAV.CRT  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  323.   @F 56KHZAV.CRT  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  324.   @F 64KHZAV.CRT  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  325.   @F cel1.CRT     @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  326.   @F cel2.CRT     @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  327.   @F CELSET2.HLP @O @OutDrive:\@SubDir\SYSTEM\celsetup.hlp @Option 1010 
  328.   @F 31KHZAV.CRT  @O @OutDrive:\@SubDir\*.* @Option 1020
  329.   @F 35KHZAV.CRT  @O @OutDrive:\@SubDir\*.* @Option 1020 
  330.   @F 48KHZAV.CRT  @O @OutDrive:\@SubDir\*.* @Option 1020  
  331.   @F 56KHZAV.CRT  @O @OutDrive:\@SubDir\*.* @Option 1020 
  332.   @F 64KHZAV.CRT  @O @OutDrive:\@SubDir\*.* @Option 1020 
  333.   @F cel1.CRT     @O @OutDrive:\@SubDir\*.* @Option 1020 
  334.   @F cel2.CRT     @O @OutDrive:\@SubDir\*.* @Option 1020 
  335.   @F CELSET2.HLP @O @OutDrive:\@SubDir\celsetup.hlp @Option 1020 
  336. @Endif 
  337.  
  338.  @F AGX.DRV      @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  339.  @F AGX16.DRV    @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  340.  @F AGX64024.DRV @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  341.  @F VDDAGX.386   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  342.  @F CELSETUP.CPL @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  343.  @F AGX64016.DRV @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  344.  @F AGX80016.DRV @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  345.  @F AGX80024.DRV @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  346.  @F CELSETUP.ORC @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  347.  @F ADJCRTAV.COM @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  348.  @F ADJUST.EXE   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  349.  @F CMAG.EXE     @O @OutDrive:\@SubDir\*.* @Option 1010 
  350.  @F CMAGDLL.DLL  @O @OutDrive:\@SubDir\*.* @Option 1010 
  351.  @F V7VGA.3gr    @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  352.  
  353.  @F AGX.DRV      @O @OutDrive:\@SubDir\*.* @Option 1020 
  354.  @F AGX16.DRV    @O @OutDrive:\@SubDir\*.* @Option 1020  
  355.  @F AGX64024.DRV @O @OutDrive:\@SubDir\*.* @Option 1020  
  356.  @F VDDAGX.386   @O @OutDrive:\@SubDir\*.* @Option 1020 
  357.  @F CELSETUP.CPL @O @OutDrive:\@SubDir\*.* @Option 1020 
  358.  @F AGX64016.DRV @O @OutDrive:\@SubDir\*.* @Option 1020 
  359.  @F AGX80016.DRV @O @OutDrive:\@SubDir\*.* @Option 1020 
  360.  @F AGX80024.DRV @O @OutDrive:\@SubDir\*.* @Option 1020 
  361.  @F CELSETUP.ORC @O @OutDrive:\@SubDir\*.* @Option 1020 
  362.  @F ADJCRTAV.COM @O @OutDrive:\@SubDir\*.* @Option 1020 
  363.  @F ADJUST.EXE   @O @OutDrive:\@SubDir\*.* @Option 1020 
  364.  @F CMAG.EXE     @O @OutDrive:\*.* @Option 1020 
  365.  @F CMAGDLL.DLL  @O @OutDrive:\*.* @Option 1020 
  366.  @F V7VGA.3gr    @O @OutDrive:\@SubDir\*.* @Option 1020 
  367.  
  368.  @F orchinst.exe @O @OutDrive:\@SubDir\*.*         
  369.  @F orchinst.DAT @O @OutDrive:\@SubDir\*.*
  370.  @F orcdde.dll   @O @OutDrive:\@SubDir\*.*
  371.     
  372.  
  373. @EndLib 
  374. @EndDisk
  375.  
  376. @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "Celsius_Group", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@SubDir\\system\\adjust.exe", "REPLACE")
  377. @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  378.  
  379.  
  380.  
  381.  
  382. @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  383. @Display
  384. @Cls
  385.  
  386.  
  387.  
  388.  
  389. ***************************************************************************
  390. *** The installation of the Orchid Window HyperDriver is now completed. ***
  391. ***************************************************************************
  392.  
  393.  
  394. @Pause
  395. @EndDisplay
  396. @Goto MenuMain
  397.  
  398. /*----------------- Utility Installation (6000) --------------------------*/
  399. MenuUtil:
  400.  
  401. @ClearOption(6100) /* VESA */
  402. @EnableF1(1)
  403.  
  404. @GetOption
  405.  @Cls
  406.  @NameUtil Installation:
  407.  @msgPSAA
  408.  @Option 6100 = " CVLBVESA.COM"
  409. @EndOption
  410.  
  411. @If (@Esc)
  412.  @Goto MenuMain
  413. @Elseif (@KeyF1)
  414.  @Help ("@ExePath\\install.hlp","HelpUtil","EndUtil")
  415.  @Goto MenuUtil
  416. @Endif
  417.  
  418. InputDirUtil:
  419. @EnableF1(0)
  420. @GetOutDrive
  421.  @Suppress A
  422.  @Suppress B
  423.  @Cls
  424.  @NameUtil Installation:
  425.  @msgDrive
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433. @EndOutDrive
  434. @If (@Esc) @Goto MenuUtil @Endif
  435.  
  436. @GetSubdir
  437.  @Default = "\\CELSIUS"
  438.  @Cls
  439.  @NameUtil Installation
  440.  @msgDir
  441.  
  442.  
  443. @EndSubdir
  444. @If (@Esc) @Goto MenuUtil @Endif
  445.  
  446. @ClearOption(1)
  447. @ClearOption(2)
  448. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  449.  @EnableF1(0)
  450.  @GetOption
  451.   @LocalWindow (10,39) 
  452.   @Cls
  453.   @NameUtil Installation
  454.   @OutDrive:@SubDir @msgDDNE
  455.   @msgCont
  456.   @Option 1 = "@Reenter"
  457.   @Option 2 = "@Cont"
  458.  @EndOption
  459. @Endif
  460.  
  461. @If (@Esc)
  462.  @Goto MenuUtil
  463. @ElseIf (1 [= @Option)
  464.   @Goto InputDirUtil
  465. @Endif
  466.  
  467. @DefineDisk
  468.  @Label = "Disk #1"
  469.  @BeginLib CELSIUS.001 
  470.   @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  471.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com @Option 6100 
  472.   @ELSE
  473.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com @Option 6100 
  474.   @EndIf
  475.  @EndLib
  476. @EndDisk
  477.  
  478.  
  479. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  480.          "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  481.  
  482.  
  483. @Help ("@ExePath\\install.hlp","HelpUtilFin","EndUtilFin")
  484. @Goto MenuUtil
  485.  
  486. /*----------------------- CAD system Menu (2000) -------------------------*/
  487. MenuCADsys:
  488. @ClearOption(2100) 
  489. @ClearOption(2200) 
  490. @ClearOption(2300)
  491. @ClearOption(2400)
  492. @ClearOption(2600) 
  493. @ClearOption(2700)
  494. @EnableF1(1)
  495.  
  496. @GetOption
  497.  @LocalWindow (10,40)
  498.  @Cls
  499.  @NameCADsys @msgDDI
  500.  @msgPSAA
  501.  @Option 2100 = "@NameACAD"
  502. /* @Option 2200 = "@NameCADKey"  */
  503. /* @Option 2300 = "@NameDataCAD" */
  504.  @Option 2400 = "@NamePCAD"     
  505.  @Option 2600 = "@NameMicroCAD"  
  506.  @Option 2700 = "@NameVersaCAD" 
  507. @EndOption
  508.  
  509. @If (@Esc)
  510.  @Goto MenuMain
  511. @Elseif (@KeyF1)
  512.  @Goto MenuCADsysHelp
  513. @ElseIf (2100 [= @Option)
  514.  @Goto MenuACAD
  515. @ElseIf (2200 [= @Option)
  516.  @Goto MenuCADKey
  517. @ElseIf (2300 [= @Option)
  518.  @Goto MenuDataCAD
  519. @ElseIf (2400 [= @Option)
  520.  @Goto MenuPCAD
  521. @ElseIf (2600 [= @Option)
  522.  @Goto MenuMicroCAD
  523. @ElseIf (2700 [= @Option)
  524.  @Goto MenuVersaCAD
  525. @Endif
  526.  
  527. /*------------------ Handle CAD system Help Menu -------------------------*/
  528. MenuCADsysHelp:
  529.  
  530. @If (2100 [= @Option)
  531.  @Goto MenuACAD
  532. @Elseif (2200 [= @Option)
  533.  @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  534. @Elseif (2300 [= @Option)
  535.  @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  536. @Elseif (2400 [= @Option)
  537.  @Help ("@ExePath\\install.hlp", "HelpPCAD", "EndPCAD")
  538. @Elseif (2600 [= @Option)
  539.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  540. @Elseif (2700 [= @Option)
  541.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  542. @Endif
  543.  
  544. @Goto MenuCADsys
  545.  
  546. /*------------- AutoCAD 10, 11 Driver Installation (2100)-----------------*/
  547. MenuACAD:
  548. @ClearOption (2105)
  549. @ClearOption (2120)
  550. @ClearOption (2125)
  551. @ClearOption (2130)
  552. @ClearOption (2145)
  553. @EnableF1(1)
  554.  
  555. @GetOption @Cls
  556.  @NameACAD @msgDDI
  557.  @msgPSAV
  558.  @Option 2105 = "ADI 4.2 Features and Commands Help Menu (Reading Recommended)"
  559.  @Option 2130 = "AutoCAD Release 11 (Protected Mode ADI 4.2)"
  560.  @Option 2145 = "AutoCAD Release 12 (Protected Mode ADI 4.2)"
  561.  @Option 2120 = "AutoDesk's 3D Studio version 1.0 & 2.0 (PADI 4.2)"
  562.  @Option 2125 = "AutoDesk's AutoShade version 2.1 (PADI 4.2)"
  563.  
  564. @EndOption
  565.  
  566. @If (@Esc)
  567.  @Goto MenuCADsys
  568. @ElseIf (@KeyF1)
  569.  @Goto MenuACADHelp
  570. @ElseIf (2105 [=@Option)
  571.      @Goto MenuADI42
  572. @Endif
  573.  
  574. InputDirACAD:
  575. @EnableF1(0)
  576. @GetOutDrive
  577.  @Suppress A
  578.  @Suppress B
  579.  @Cls
  580.  @NameACAD @msgDDI
  581.  @msgDrive
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596. @EndOutDrive
  597. @If (@Esc) @Goto MenuACAD @Endif
  598.  
  599. @GetSubdir
  600.  @If (2120 [= @Option)
  601.   @Default = "\\3DS"
  602.  @Elseif (2125 [= @Option)
  603.   @Default = "\\SHADE"
  604.  @Elseif (2130 [= @Option)
  605.   @Default = "\\ACAD11"
  606.  @Elseif (2145 [= @Option)
  607.   @Default = "\\ACAD12"
  608.  @Endif
  609.  @Cls
  610.  @NameACAD @msgDDI
  611.  @msgDir
  612.  
  613.  
  614. @EndSubdir
  615. @If (@Esc) @Goto MenuACAD @Endif
  616.  
  617. @ClearOption(1)
  618. @ClearOption(2)
  619. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  620.  @EnableF1(0)
  621.  @GetOption
  622.   @LocalWindow (10,39) 
  623.   @Cls
  624.   @NameACAD @msgDDI
  625.   @OutDrive:@SubDir @msgDDNE
  626.   @msgCont
  627.   @Option 1 = "@Reenter"
  628.   @Option 2 = "@Cont"
  629.  @EndOption
  630. @Endif
  631.  
  632. @If (@Esc)
  633.  @Goto MenuACAD
  634. @ElseIf (1 [= @Option)
  635.   @Goto InputDirACAD
  636. @Endif
  637.  
  638. @DefineDisk
  639.  @Label = "Disk #1"
  640.  @BeginLib CELSIUS.001 
  641.  
  642.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  643.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120 
  644.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2120 
  645.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120 
  646.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  647.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  648.  @F rcelsius.exp  @O @OutDrive:\@SubDir\*.* @Option 2120
  649.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120
  650.  
  651.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  652.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125 
  653.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2125 
  654.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125 
  655.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  656.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  657.  @F rcelsius.exp  @O @OutDrive:\@SubDir\*.* @Option 2125
  658.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125
  659.  
  660.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  661.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130 
  662.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2130 
  663.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130 
  664.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  665.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  666.  @F rcelsius.exp  @O @OutDrive:\@SubDir\*.* @Option 2130
  667.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130
  668.  
  669.  @F 15x25.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  670.  @F 16x30.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  671.  @F 6x9.aqf       @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  672.  @F 8x16.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  673.  @F 12x24.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  674.  @F 12x20.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  675.  @F rcelsius.exp  @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  676.  @F 9x15.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  677.  
  678.  
  679.  @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  680.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com  
  681.  @ELSE
  682.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com 
  683.  @EndIf
  684.  
  685.  
  686.  @EndLib 
  687. @EndDisk
  688.  
  689. @If (2120 [= @Option)
  690.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  691.          "SET DSPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  692.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  693.          "SET RDPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  694.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  695.          "SET RCPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  696.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  697.          "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  698.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  699. @ElseIf (2125 [= @Option)
  700.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  701.          "SET DSPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  702.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  703.          "SET RDPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  704.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  705.          "SET RCPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  706.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SHADE",
  707.          "SET SHADE=@OutDrive:\\@SubDir\\rmansupt", "REPLACE")
  708.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  709.          "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  710.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  711. @Elseif (2130 [= @Option)
  712.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  713.          "SET DSPADI=@OutDrive:\\@SubDir\\rcelsius.exp", "REPLACE")
  714.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  715.          "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  716.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  717. @Elseif (2145 [= @Option)
  718.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  719.          "SET ACADDRV=@OutDrive:\\@SubDir\\drv\\", "REPLACE")
  720.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  721.          "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  722.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12") 
  723.  
  724. @EndIf   
  725.               
  726.  
  727.  
  728. @Goto MenuACAD
  729.  
  730. /*----------------------- ADI 4.2 Help -----------------------------------*/
  731.  
  732. MenuADI42:
  733. @ClearOption(2910)
  734. @ClearOption(2920)
  735. @ClearOption(2925) 
  736. @ClearOption(2930)
  737. @ClearOption(2933)  
  738. @ClearOption(2935)  
  739. @ClearOption(2940)
  740. @ClearOption(2950)
  741. @ClearOption(2953)  
  742. @ClearOption(2955)  
  743. @ClearOption(2960)
  744. @ClearOption(2965)
  745. @ClearOption(2970) 
  746.  @EnableF1(0)
  747.  @GetOption
  748.  @Cls
  749.     
  750.  
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759.  
  760.  
  761.  
  762.   @Option 2910 = "List of Features, Fonts, and Resolutions"
  763.   @Option 2920 = "Screen Layout and Graphics Flip Screen"
  764.   @Option 2925 = "Display List Configuration"
  765.   @Option 2930 = "Birds-Eye View" 
  766.   @Option 2933 = "Birds-Eye Icons"
  767.   @Option 2935 = "Edge Pan, Page Alarm"
  768.   @Option 2940 = "Erase Buffer and Band-Free Rendering" 
  769.   @Option 2950 = "Celsius Driver Commands Part 1"
  770.   @Option 2953 = "Celsius Driver Commands Part 2"
  771.   @Option 2955 = "Celsius Quick Reference Driver Commands"
  772.   @Option 2960 = "Custom Menu Design"
  773.   @Option 2965 = "AutoCAD Performance Tuning"
  774.   @Option 2970 = "Known Bug List and Upgrade Information"
  775.  
  776.  
  777.  
  778.   @EndOption
  779.  
  780.  
  781.  @If (@Esc)
  782.      @Goto MenuACAD
  783. @ElseIf (2910 [=@Option)
  784.      @Help ("@ExePath\\install.hlp", "HelpFeatures", "EndFeatures")
  785. @ElseIf (2920 [=@Option)
  786.      @Help ("@ExePath\\install.hlp", "HelpLayout", "EndLayout")
  787. @ElseIf (2925 [=@Option)
  788.      @Help ("@ExePath\\install.hlp", "HelpDLC", "EndDLC")
  789. @ElseIf (2930 [=@Option)
  790.      @Help ("@ExePath\\install.hlp", "HelpBird", "EndBird")
  791. @ElseIf (2933 [=@Option)
  792.      @Help ("@ExePath\\install.hlp", "HelpIcon", "EndIcon")
  793. @ElseIf (2935 [=@Option)
  794.      @Help ("@ExePath\\install.hlp", "HelpPan", "EndPan")
  795. @ElseIf (2940 [=@Option)
  796.      @Help ("@ExePath\\install.hlp", "HelpBand", "EndBand")
  797. @ElseIf (2950 [=@Option)
  798.      @Help ("@ExePath\\install.hlp", "HelpCommands", "EndCommands")
  799. @ElseIf (2953 [=@Option)
  800.      @Help ("@ExePath\\install.hlp", "HelpComtwo", "EndComtwo")
  801. @ElseIf (2955 [=@Option)
  802.      @Help ("@ExePath\\install.hlp", "HelpComquick", "EndComquick")
  803. @ElseIf (2960 [=@Option)
  804.      @Help ("@ExePath\\install.hlp", "HelpCMD", "EndCMD")
  805. @ElseIf (2965 [=@Option)
  806.      @Help ("@ExePath\\install.hlp", "HelpTuning", "EndTuning")
  807. @ElseIf (2970 [=@Option)
  808.      @Help ("@ExePath\\install.hlp", "HelpBug", "EndBug")
  809.  
  810. @endif
  811. @Goto MenuADI42
  812.  
  813.  
  814.  
  815. /*---------------------- Handle AutoCAD Help Menu -------------------------*/
  816. MenuACADHelp:
  817.  
  818. @If (2105 [= @Option)
  819.  @Help ("@ExePath\\install.hlp", "HelpADI42", "EndADI42")
  820. @ElseIf (2120 [= @Option)
  821.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  822. @Elseif (2125 [= @Option)
  823.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  824. @Elseif (2130 [= @Option)
  825.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  826. @Elseif (2145 [= @Option)
  827.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12")
  828. @EndIf   
  829.  
  830. @Goto MenuACAD
  831.  
  832. /*------------------ CADKey Driver Installation (2200) -------------------*/
  833. MenuCADKey:
  834.  
  835. @EnableF1(0)
  836. @GetOutDrive
  837.  @Suppress A
  838.  @Suppress B
  839.  @Cls
  840.  @NameCADKey @msgDDI
  841.  @msgDrive
  842. @EndOutDrive
  843. @If (@Esc) @Goto MenuCADsys @Endif
  844.  
  845. @GetSubdir
  846.  @Default = "\\CADKEY"
  847.  @Cls
  848.  @NameCADKey @msgDDI
  849.  @msgDir
  850.  
  851.  
  852. @EndSubdir
  853. @If (@Esc) @Goto MenuCADKey @Endif
  854.  
  855. @ClearOption(1)
  856. @ClearOption(2)
  857. @EnableF1(0)
  858. @GetOption
  859.  @LocalWindow (10,39) 
  860.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  861.   @Cls
  862.   @NameCADKey @msgDDI
  863.   @OutDrive:@SubDir @msgDDNE
  864.   @msgCont
  865.  @ElseIf (@Exists "@OutDrive:\\@SubDir\\grdev.dat" == 0)
  866.   @Cls
  867.   @NameCADKey @msgDDI
  868.   The grdev.dat file is not found in your input directory:
  869.   @OutDrive:@SubDir
  870.   @NameCADKey @msgNPI
  871.  @Else
  872.   @Goto CopyFileCADKey
  873.  @EndIf
  874.  @Option 1 = "@Reenter"
  875.  @Option 2 = "@Cont"
  876. @EndOption
  877. @If ((@Esc) || (1 [= @Option))
  878.   @Goto MenuCADKey
  879. @Endif
  880.  
  881. CopyFileCADKey:
  882. @Rename ("@OutDrive:\\@Subdir\\grdev.dat","grdev.000")
  883. @DefineDisk
  884.  @Label = "Disk #1"
  885.  @BeginLib CELSIUS.001 
  886.  @F ck_agx.exe  @O @OutDrive:\@SubDir\*.*
  887.  @F grdev.dat   @O @OutDrive:\@SubDir\*.orc 
  888.  @EndLib 
  889. @EndDisk
  890.  
  891. @Delete ("@OutDrive:\\@Subdir\\grdev.dat")
  892. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.000")
  893. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.orc")
  894. @Delete ("@OutDrive:\\@Subdir\\grdev.orc")
  895.                   
  896. @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  897. @Goto MenuCADsys
  898.  
  899. /*----------------- DataCAD Driver Installation (2300) -------------------*/
  900. MenuDataCAD:
  901.  
  902. @EnableF1(0)
  903. @GetOutDrive
  904.  @Suppress A
  905.  @Suppress B
  906.  @Cls
  907.  @NameDataCAD @msgDDI
  908.  @msgDrive
  909. @EndOutDrive
  910. @If (@Esc) @Goto MenuCADsys @Endif
  911.  
  912. @GetSubdir
  913.  @Default = "\\MTEC\\DRV"
  914.  @Cls
  915.  @NameDataCAD @msgDDI
  916.  @msgDir
  917.  
  918.  
  919. @EndSubdir
  920. @If (@Esc) @Goto MenuDataCAD @Endif
  921.  
  922. @ClearOption(1)
  923. @ClearOption(2)
  924. @EnableF1(0)
  925. @GetOption
  926.  @LocalWindow (10,39) 
  927.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  928.   @Cls
  929.   @NameDataCAD @msgDDI
  930.   @OutDrive:@SubDir @msgDDNE
  931.   @msgCont
  932.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\drivers.gd2" == 0) 
  933.       (@Exists "@OutDrive:\\@SubDir\\drivers.gd4" == 0))
  934.   @Cls
  935.   @NameDataCAD @msgDDI
  936.   The drivers.gd2/drivers.gd4 file is not found in your input directory:
  937.   @OutDrive:@SubDir
  938.   DataCAD @msgNPI
  939.  @Else
  940.   @Goto CopyFileDataCAD
  941.  @EndIf
  942.  @Option 1 = "@Reenter"
  943.  @Option 2 = "@Cont"
  944. @EndOption
  945. @If ((@Esc) || (1 [= @Option))
  946.   @Goto MenuDataCAD
  947. @Endif
  948.  
  949. CopyFileDataCAD:
  950. @Rename ("@OutDrive:\\@Subdir\\drivers.gd2","drivers.oc2")
  951. @Rename ("@OutDrive:\\@Subdir\\drivers.gd4","drivers.oc4")
  952. @Delete ("@OutDrive:\\@Subdir\\drivers.gd2")
  953. @Delete ("@OutDrive:\\@Subdir\\drivers.gd4")
  954.  
  955. @DefineDisk
  956.  @Label = "Disk #1"
  957.  @BeginLib CELSIUS.001 
  958.  @F ck_911.exe   @O @OutDrive:\@SubDir\*.*
  959.  @F dl_911.exe   @O @OutDrive:\@SubDir\*.*
  960.  @F drivers.gd2  @O @OutDrive:\@SubDir\orchid.*
  961.  @F drivers.gd4  @O @OutDrive:\@SubDir\orchid.*
  962.  @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  963.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com  
  964.  @ELSE
  965.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com 
  966.  @EndIf
  967.  
  968.  @EndLib 
  969. @EndDisk
  970.  
  971. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\drivers.oc2")
  972. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\orchid.gd2")
  973. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\drivers.oc4")
  974. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\orchid.gd4")
  975. @Delete ("@OutDrive:\\@Subdir\\orchid.gd2")
  976. @Delete ("@OutDrive:\\@Subdir\\orchid.gd4")
  977.  
  978. @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  979. @Goto MenuCADsys
  980.  
  981.  
  982. /*------------------ PCAD Driver Instllation (2400) --------------*/
  983. MenuPCAD:
  984. @EnableF1(1)
  985. @GetOutDrive
  986.  @Suppress A
  987.  @Suppress B
  988.  @Cls
  989.  @NamePCAD @msgDDI
  990.  @msgDrive
  991. @EndOutDrive
  992. @If (@Esc) @Goto MenuCADsys @Endif
  993.  
  994. @GetSubdir
  995.  @Default = "\\PCCARDS"
  996.  @Cls
  997.  @NamePCAD @msgDDI
  998.  @msgDir
  999.  
  1000.  
  1001. @EndSubdir
  1002. @If (@Esc) @Goto MenuPCAD @Endif
  1003.  
  1004. @ClearOption(1)
  1005. @ClearOption(2)
  1006. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1007.  @EnableF1(0)
  1008.  @GetOption
  1009.   @LocalWindow (10,39)
  1010.   @Cls
  1011.   @NamePCAD @msgDDI
  1012.   @OutDrive:@SubDir @msgDDNE
  1013.   @msgCont
  1014.   @Option 1 = "@Reenter"
  1015.   @Option 2 = "@Cont"
  1016.  @EndOption
  1017. @Endif
  1018.  
  1019. @If ((@Esc) || (1 [= @Option))
  1020.  @Goto MenuPCAD
  1021. @Endif
  1022.  
  1023. @DefineDisk
  1024.  @Label = "Disk #1"
  1025.  @BeginLib CELSIUS.001 
  1026.   @F PCADAGX.DRV     @O @OutDrive:\@SubDir\*.*
  1027.   
  1028.   @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  1029.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com  
  1030.   @ELSE
  1031.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com 
  1032.   @EndIf
  1033.   
  1034.  @EndLib 
  1035. @EndDisk
  1036.  
  1037.  
  1038. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  1039.         "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  1040.  
  1041. @Help ("@ExePath\\install.hlp", "HelpPCAD", "EndPCAD")
  1042.  
  1043. @Goto MenuCADsys
  1044.  
  1045.  
  1046.  
  1047.  
  1048. /*--- MicroStation Driver (protected mode) Instllation (2600) ---*/
  1049. MenuMicroCAD:
  1050. @EnableF1(1)
  1051. @GetOutDrive
  1052.  @Suppress A
  1053.  @Suppress B
  1054.  @Cls
  1055.  @NameMicroCAD @msgDDI
  1056.  @msgDrive
  1057. @EndOutDrive
  1058. @If (@Esc) @Goto MenuCADsys @Endif
  1059.  
  1060. @GetSubdir
  1061.  @Default = "\\USTATION\\DRIVERS"
  1062.  @Cls
  1063.  @NameMicroCAD @msgDDI
  1064.  @msgDir
  1065.  
  1066.  
  1067. @EndSubdir
  1068. @If (@Esc) @Goto MenuMicroCAD @Endif
  1069.  
  1070. @ClearOption(1)
  1071. @ClearOption(2)
  1072. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1073.  @EnableF1(0)
  1074.  @GetOption
  1075.   @LocalWindow (10,39)
  1076.   @Cls
  1077.   @NameMicroCAD @msgDDI
  1078.   @OutDrive:@SubDir @msgDDNE
  1079.   @msgCont
  1080.   @Option 1 = "@Reenter"
  1081.   @Option 2 = "@Cont"
  1082.  @EndOption
  1083. @Endif
  1084.  
  1085. @If ((@Esc) || (1 [= @Option))
  1086.  @Goto MenuMicroCAD
  1087. @Endif
  1088.  
  1089. @DefineDisk
  1090.  @Label = "Disk #1"
  1091.  @BeginLib CELSIUS.001 
  1092.   @F mglagx.exp   @O @OutDrive:\@SubDir\*.*
  1093.   @F mglagx.ma    @O @OutDrive:\@SubDir\*.*
  1094.   @F mglagx.mgl   @O @OutDrive:\@SubDir\*.* 
  1095.   
  1096.   @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  1097.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com  
  1098.   @ELSE
  1099.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com 
  1100.   @EndIf
  1101.  
  1102.  @EndLib 
  1103. @EndDisk
  1104.  
  1105. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  1106.         "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  1107.  
  1108.  
  1109. @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1110.  
  1111. @Goto MenuCADsys
  1112.  
  1113.  
  1114. /*-------------- VersaCAD Driver Installation (2700) ---------------------*/
  1115. MenuVersaCAD:
  1116.  
  1117. @EnableF1(1)
  1118. @ClearOption (2710)
  1119. @ClearOption (2750)
  1120. @GetOption @Cls
  1121.  @NameVersaCAD @msgDDI
  1122.  @msgPSAV
  1123.  @Option 2750 = "VersaCAD 386 (Protected Mode)"
  1124.  @Option 2710 = "VersaCAD Designer (Real Mode)"
  1125. @EndOption
  1126.  
  1127. @If (@Esc)
  1128.  @Goto MenuCADsys
  1129. @Elseif (@KeyF1)
  1130.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1131.  @Goto MenuVersaCAD
  1132. @Endif
  1133.  
  1134. InputDirVersaCAD:
  1135. @EnableF1(0)
  1136. @GetOutDrive
  1137.  @Suppress A
  1138.  @Suppress B
  1139.  @Cls
  1140.  @NameVersaCAD @msgDDI
  1141.  @msgDrive
  1142. @EndOutDrive
  1143. @If (@Esc) @Goto MenuVersaCAD @Endif
  1144.  
  1145. @GetSubdir
  1146.  @Default = "\\VCAD386"
  1147.  @Cls
  1148.  @NameVersaCAD @msgDDI
  1149.  @msgDir
  1150.  
  1151.  
  1152. @EndSubdir
  1153. @If (@Esc) @Goto InputDirVersaCAD @Endif
  1154.  
  1155. @ClearOption(1)
  1156. @ClearOption(2)
  1157. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1158.  @EnableF1(0)
  1159.  @GetOption
  1160.  @LocalWindow (10,39)
  1161.  @Cls
  1162.   @NameVersaCAD @msgDDI
  1163.   @OutDrive:@SubDir @msgDDNE
  1164.   @msgCont
  1165.   @Option 1 = "@Reenter"
  1166.   @Option 2 = "@Cont"
  1167.  @EndOption
  1168. @Endif
  1169. @If ((@Esc) || (1 [= @Option))
  1170.  @Goto InputDirVersaCAD
  1171. @Endif
  1172.  
  1173. @DefineDisk
  1174.  @Label = "Disk #1"
  1175.  @BeginLib CELSIUS.001 
  1176.  @F vc2_agx.com   @O @OutDrive:\@SubDir\*.* @Option 2710
  1177.  @F vcadreal.cfg  @O @OutDrive:\@SubDir\*.* @Option 2710
  1178.  @F vcadreal.bat  @O @OutDrive:\*.* @Option 2710
  1179.  @F vc3_agx.com   @O @OutDrive:\@SubDir\*.* @Option 2750
  1180.  @F vcad386.cfg   @O @OutDrive:\@SubDir\*.* @Option 2750
  1181.  @F vcad386.bat   @O @OutDrive:\*.* @Option 2750
  1182.  
  1183.  @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  1184.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com  
  1185.  @ELSE
  1186.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com 
  1187.  @EndIf
  1188.  
  1189.  @EndLib 
  1190. @EndDisk
  1191.                   
  1192. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  1193.         "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  1194.  
  1195. @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1196. @Goto MenuCADsys
  1197.  
  1198.  
  1199. /*----------------- WordPerfect Driver Installation (5100) ---------------*/
  1200. MenuWordProcess:
  1201.  
  1202. @EnableF1(0)
  1203. @GetOutDrive
  1204.  @Suppress A
  1205.  @Suppress B
  1206.   @Cls
  1207.   @NameWP @msgDDI
  1208.   @msgDrive
  1209. @EndOutDrive
  1210. @If (@Esc) @Goto MenuMain @Endif
  1211.  
  1212. @GetSubdir
  1213.  @Default = "\\WP"
  1214.  @Cls
  1215.  @NameWP @msgDDI
  1216.  @msgDir
  1217.  
  1218.  
  1219. @EndSubdir
  1220. @If (@Esc) @Goto MenuMain @Endif
  1221.  
  1222. @ClearOption(1)
  1223. @ClearOption(2)
  1224. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1225.  @EnableF1(0)
  1226.  @GetOption @Cls
  1227.   @LocalWindow (10,39) 
  1228.   @NameWP @msgDDI
  1229.   @OutDrive:@SubDir @msgDDNE
  1230.   @msgCont
  1231.   @Option 1 = "@Reenter"
  1232.   @Option 2 = "@Cont"
  1233.  @EndOption
  1234. @Endif
  1235.  
  1236. @If ((@Esc) || (1 [= @Option))
  1237.  @Goto MenuWordProcess
  1238. @Endif
  1239.  
  1240. @DefineDisk
  1241.  @Label = "Disk #1"
  1242.  @BeginLib CELSIUS.001 
  1243.  @F CGRAPH.VRS    @O @OutDrive:\@SubDir\*.* 
  1244.  @F CTEXT.VRS     @O @OutDrive:\@SubDir\*.* 
  1245.  
  1246.  @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 2)  /* SIERRA DAC 135MHz */
  1247.    @F VESA2.COM @O @OutDrive:\@SubDir\cvlbvesa.com  
  1248.  @ELSE
  1249.    @F VESA1.COM @O @OutDrive:\@SubDir\cvlbvesa.com 
  1250.  @EndIf
  1251.  
  1252.  @EndLib 
  1253. @EndDisk
  1254.  
  1255.  
  1256. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "cvlbvesa.com",
  1257.          "@OutDrive:\\@SubDir\\cvlbvesa.com", "REPLACE")
  1258.  
  1259.  
  1260. @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1261. @Goto MenuMain
  1262.  
  1263.  
  1264.  
  1265.