home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1998 November (Power Rangers) / Rangers.bin / SUPPORT / ORCHID / _F511.EXE / INSTALL.DAT < prev    next >
Text File  |  1993-10-18  |  47KB  |  2,038 lines
  1. /*-
  2.   File Name: install.dat
  3.  
  4.   History: Robert Gilsdorf (August 27, 1992) File created
  5.  
  6.   Description: This is a script file that automates the installation process 
  7.            of the Fahrenheit VA display drivers.
  8. */
  9. @DefineProject
  10.     @Name           = "Fahrenheit"
  11.     @Version        = "5.11"
  12.     @Immediate      = 1 
  13.     @Subdir         = "\\"
  14.     @OutDrive       = C
  15.     @AssumeHardDisk = 1
  16. @EndProject
  17.  
  18. @DefineVars
  19.  @Dir @orcdir            = "\\ORCHID\\"
  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 @NameCADvance = "CADVance"
  37.  @Qstring @NameDataCAD  = "DataCAD"
  38.  @Qstring @NameGenCADD  = "Generic CADD"
  39.  @Qstring @NameMicroCAD = "MicroStation"
  40.  @Qstring @NameVersaCAD = "VersaCAD"
  41.  @Qstring @NameDesk     = "Desktop Publishing"
  42.  @Qstring @NameGem      = "GEM Desktop"
  43.  @Qstring @NameVentura  = "Ventura Publisher"
  44.  @Qstring @NameLotus    = "Lotus 1-2-3"
  45.  @Qstring @NameWord     = "Word Processing"
  46.  @Qstring @NameWP       = "WordPerfect"
  47.  @Qstring @NameMSWord   = "Microsoft Word"
  48.  @Qstring @NameUtil     = "Orchid Utilities"
  49.  @Qstring @NameMore     = "More...."
  50.  @Qstring @NameOS2       = "IBM OS/2"
  51.  @Qstring @NameSCO       = "SCO Unix"
  52.  @Qstring @NameIntractv  = "Interactive Unix"
  53.  @Qstring @NameOtherp    = "Other Orchid Products"
  54.  @Qstring @NameTchsupt   = "Technical Support"
  55.  @Qstring @NameSample    = "Build Voice Notes Playback Diskette" 
  56.  @EndVars
  57.  
  58. @Display
  59. @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  60.   @Goto MenuJumper
  61. @Elseif (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  62.   @Goto MenuJumper
  63. @Elseif (@CheckCard ("c000", "00F6", "Fahrenheit 1280 Plus") == 1)
  64.   @Goto MenuJumper
  65. @Else
  66.  @Cls
  67.  
  68.         █████████████████ ERROR ████████████████
  69.         █                                      █
  70.         █  An Orchid Fahrenheit video adapter  █
  71.         █  is not detected in your system.     █
  72.         █                                      █
  73.         █  If you choose to continue this      █
  74.         █  installation, the driver may not    █
  75.         █  respond correctly.                  █
  76.         █                                      █
  77.         █  If you are using a Network Server,  █
  78.         █  Just PRESS <ENTER> to continue.     █
  79.         █                                      █
  80.         █  PRESS F3 TO ABORT INSTALLATION      █
  81.         █                                      █
  82.         █                                      █
  83.         █                                      █
  84.         ████████████████████████████████████████
  85.  
  86.  @Pause
  87. @Endif
  88.  
  89.  
  90.     
  91.  
  92. MenuJumper:
  93. @cls
  94. @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  95.  
  96.  
  97.  
  98.  
  99.  
  100.            Orchid Fahrenheit VA Series Video Adapter
  101.  
  102.  
  103.               Display Driver Installation Program
  104.  
  105.  
  106.                    Disk Release 5.11
  107.  
  108.  
  109.  
  110.  
  111.   @Pause
  112. @Elseif (@CheckCard ("C000", "011C", "Fahrenheit 1280") == 1)
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.               Orchid Fahrenheit 1280 Video Adapter
  120.  
  121.  
  122.               Display Driver Installation Program
  123.  
  124.  
  125.                    Disk Release 5.11
  126.  
  127.  
  128.  
  129.  
  130.  
  131.   @Pause
  132.  
  133. @Elseif (@CheckCard ("C000", "00F6", "Fahrenheit 1280 Plus") == 1)
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.            Orchid Fahrenheit 1280 Plus Video Adapter
  141.  
  142.  
  143.               Display Driver Installation Program
  144.  
  145.  
  146.                    Disk Release 5.11
  147.  
  148.  
  149.  
  150.  
  151.   @Pause
  152.  
  153.  
  154. @Cls
  155. @Endif
  156.  
  157. @If (@Chk2e8)
  158.  
  159.         ████████████████ Warning ███████████████
  160.         █                                      █
  161.         █  Fax Modem OR Serial Port OR Scanner █
  162.         █  Adapter is utlizing the I/O port of █
  163.         █  Fahrenheit Video Adapter.           █
  164.         █                                      █
  165.         █  Please reconfigure your Fax Modem   █
  166.         █  OR Serial Port OR Scanner at other  █
  167.         █  I/O port address, i.e. Avoid I/O    █
  168.         █  port address 2e8.                   █
  169.         █                                      █  
  170.         █  Note: If you are using a VESA Local █
  171.         █        BUS card, just continue, no   █               
  172.         █        conflict will occur.          █ 
  173.         █                                      █ 
  174.         █  You may continue the Installation,  █
  175.         █  and reconfigure your I/O port       █
  176.         █  address after Installation is       █
  177.         █  completed.                          █
  178.         █                                      █
  179.         ████████████████████████████████████████
  180. @Pause
  181. @Endif
  182.  
  183. @EndDisplay
  184.  
  185.  
  186.  
  187. @If ("@Indrive"=="C")
  188.     @Display
  189.  
  190.     The Install Program must be run from a Floppy Drive.  Please use the  
  191.     <ESC> key and start over from the Floppy drive.
  192.  
  193.      @Pause
  194.     @Abort
  195.    @EndDisplay
  196. @EndIf
  197.  
  198.  
  199. MenuMain:
  200.  @FlushOptions
  201.  @EnableF1(1)
  202.  @GetOption
  203.  @Cls
  204.   @Option 1000 = "@NameWin"
  205.   @Option 4000 = "@NameLotus"
  206.   @Option 2000 = "@NameCADsys"
  207.   @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  208.    @Option 3000 = "@NameDesk"  
  209.   @Endif
  210.   @Option 5000 = "@NameWord"
  211.   @Option 5500 = "@NameSample"
  212.   @Option 6000 = "@NameUtil"
  213.   @Option 7000 = "@NameMore"
  214.  
  215.  @EndOption
  216.  
  217.  @If (@Esc)
  218.      @Exit
  219.  @Elseif (@KeyF1)
  220.      @Goto MenuMainHelp
  221.  @ElseIf (1000 [= @Option)
  222.      @Goto MenuWin
  223.  @ElseIf (2000 [= @Option)
  224.      @Goto MenuCADsys
  225.  @ElseIf (3000 [= @Option)
  226.      @Goto MenuDesktop
  227.  @ElseIf (4000 [= @Option)
  228.      @Goto MenuLotus
  229.  @ElseIf (5000 [= @Option)
  230.      @Goto MenuWordProcess
  231.  @ElseIf (5500 [= @Option)
  232.      @Goto MenuSample
  233.  @ElseIf (6000 [= @Option)
  234.      @Goto MenuUtility
  235.  @ElseIf (7000 [= @Option)
  236.      @Goto MenuInfo
  237.  @Else
  238.      @Goto MenuMain
  239.  @Endif
  240.  
  241.  
  242. MenuInfo:
  243. @ClearOption(7010)
  244. @ClearOption(7020)
  245. @ClearOption(7030)
  246. @ClearOption(7040)
  247. @ClearOption(7045) 
  248. @ClearOption(7050)
  249.  @EnableF1(0)
  250.  @GetOption
  251.  @Cls
  252.     
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.   @Option 7010 = "@NameOS2"
  266.   @Option 7020 = "@NameSCO"
  267.   @Option 7030 = "@NameIntractv"
  268.   @Option 7040 = "@NameOtherp"
  269.   @Option 7045 = "Other Orchid Video Products"
  270.   @Option 7050 = "@NameTchsupt"
  271.  
  272.  
  273.   @EndOption
  274.  
  275.  
  276.  @If (@Esc)
  277.      @Goto MenuMain
  278. @ElseIf (7010 [=@Option)
  279.      @Help ("@ExePath\\install.hlp", "HelpOS2", "EndOS2")
  280. @ElseIf (7020 [=@Option)
  281.      @Help ("@ExePath\\install.hlp", "HelpSCO", "EndSCO")
  282. @ElseIf (7030 [=@Option)
  283.      @Help ("@ExePath\\install.hlp", "HelpIntractv", "EndIntractv")
  284. @ElseIf (7040 [=@Option)
  285.      @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
  286. @ElseIf (7045 [=@Option)
  287.      @Help ("@ExePath\\install.hlp", "HelpFah", "EndFah")
  288. @ElseIf (7050 [=@Option)
  289.      @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")
  290.  
  291. @endif
  292. @Goto MenuInfo
  293.  
  294.  
  295.  
  296. MenuMainHelp:
  297.  
  298. @If (1000 [= @Option)  
  299.   @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  300. @ElseIf (4000 [= @Option) 
  301.   @Help ("@ExePath\\install.hlp", "HelpLotus", "HelpLotusInst")
  302. @Elseif (2000 [= @Option) 
  303.   @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
  304. @Elseif (3000 [= @Option) 
  305.   @Help ("@ExePath\\install.hlp", "HelpDeskMain", "EndDeskMain")
  306. @Elseif (5000 [= @Option) 
  307.   @Help ("@ExePath\\install.hlp", "HelpWordPMain", "EndWordPMain")
  308. @Elseif (5500 [= @Option) 
  309.   @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  310. @Elseif (6000 [= @Option) 
  311.   @Help ("@ExePath\\install.hlp", "HelpUtilMain", "EndUtilMain")
  312. @Elseif (7000 [= @Option) 
  313.   @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
  314. @EndIf   
  315.  
  316. @Goto MenuMain
  317.  
  318.  
  319. MenuWin:
  320.  
  321. @ClearOption (1010) 
  322. @ClearOption (1020)
  323. @EnableF1(1)
  324. @GetOption @Cls
  325.  @NameWin @msgDDI
  326.  @msgPSAO
  327.  @Option 1010 = "Microsoft Windows Standard Installation"
  328.  @Option 1020 = "Microsoft Windows Network Server Installation"
  329. @EndOption
  330.  
  331. @If (@Esc)
  332.  @Goto MenuMain
  333. @ElseIf (@KeyF1)
  334.  @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin") 
  335.  @Goto MenuWin
  336. @Endif
  337.  
  338.  
  339. MenuWindow:
  340. @EnableF1(0)
  341. @GetOutDrive
  342.  @Suppress A
  343.  @Suppress B 
  344.  @Cls
  345.  @NameWin @msgDDI
  346.  @msgDrive
  347. @EndOutDrive
  348. @If (@Esc) @Goto MenuWin @EndIf
  349.  
  350. @GetSubdir
  351.  @Default = "\\WINDOWS"    
  352.  @Cls
  353.  @NameWin @msgDDI
  354.  @msgDir
  355.  
  356.  
  357. @EndSubdir
  358. @If (@Esc) @Goto MenuWindow @EndIf
  359.  
  360. @ClearOption(1)
  361. @ClearOption(2)
  362. @EnableF1(0)
  363. @GetOption
  364.  @LocalWindow (10,39) 
  365.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  366.   @Cls
  367.   @NameWin @msgDDI
  368.   @OutDrive:@SubDir @msgDDNE
  369.   @msgCont
  370.  @ElseIf (1020 [= @Option)
  371.   @Goto MenuCopyFileWin
  372.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
  373.      (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  374.   @Cls
  375.   @NameWin @msgDDI
  376.   @msgNoFile
  377.   @OutDrive:@SubDir
  378.   @NameWin @msgNPI
  379.  @Else
  380.   @Goto MenuCopyFileWin
  381.  @EndIf
  382.  @Option 1 = "@Reenter"
  383.  @Option 2 = "@Cont"
  384. @EndOption
  385. @If ((@Esc) || (1 [= @Option))
  386.   @Goto MenuWindow
  387. @Endif
  388.  
  389.  
  390.  
  391.  
  392. MenuCopyFileWin:
  393. @DefineDisk
  394. @Label = "Disk #1"
  395. @BeginLib FAHDRVVA.001 
  396.  
  397.  @F orchidf.cpl  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  398.  @F orchidf.hlp  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  399.  @F orchidf.2gr  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  400.  @F orchidf.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  401.  @F orchidv.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  402.  @F orckey.dll   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  403.  @F magnify.exe  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  404.  @F vmp_mm.dll   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  405.  @F vctl.dll     @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  406.  @F orchhook.dll @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  407.  
  408.  @F orchidf.cpl  @O @OutDrive:\@SubDir\*.*  @Option 1020
  409.  @F orchidf.hlp  @O @OutDrive:\@SubDir\*.*  @Option 1020
  410.  @F orchidf.2gr  @O @OutDrive:\@SubDir\*.*  @Option 1020
  411.  @F orchidf.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
  412.  @F orchidv.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
  413.  @F orckey.dll   @O @OutDrive:\@SubDir\*.*  @Option 1020
  414.  @F magnify.exe  @O @OutDrive:\@SubDir\*.*  @Option 1020
  415.  @F vmp_mm.dll   @O @OutDrive:\@SubDir\*.*  @Option 1020
  416.  @F vctl.dll     @O @OutDrive:\@SubDir\*.*  @Option 1020
  417.  @F orchhook.dll @O @OutDrive:\@SubDir\*.*  @Option 1020
  418.  
  419.  
  420.  @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  421.   @F orchnote.exe @O @OutDrive:\orchid\*.* 
  422.  @EndIf
  423.  
  424.  
  425.  @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  426.     @F orc91124.drv  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  427.  @Else
  428.     @F orc80124.drv  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  429.  @Endif
  430.  
  431.  
  432.  @If (1020 [= @Option)   
  433.   @F orc91124.drv @O @OutDrive:\@SubDir\*.*
  434.   @F orc80124.drv @O @OutDrive:\@SubDir\*.* 
  435.  @Endif
  436.  
  437.  
  438.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  439.   @F orchid.exe  @O @OutDrive:\@SubDir\*.*
  440.   @F orchd30.inf @O @OutDrive:\@SubDir\SYSTEM\orchidf.inf
  441.   @F orchd30.386 @O @OutDrive:\@SubDir\SYSTEM\*.* 
  442.   @F orchd30.3gr @O @OutDrive:\@SubDir\SYSTEM\*.* 
  443.   @F fva.exe     @O @OutDrive:\@SubDir\SYSTEM\*.*
  444.  @Else
  445.   @F orchidf.inf @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  446.   @F orchidf.386 @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  447.   @F orchidf.3gr @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  448.   
  449.   @F orchidf.inf @O @OutDrive:\@SubDir\*.* @Option 1020
  450.   @F orchidf.386 @O @OutDrive:\@SubDir\*.* @Option 1020
  451.   @F orchidf.3gr @O @OutDrive:\@SubDir\*.* @Option 1020
  452.   
  453.   @F fva.exe     @O @OutDrive:\@SubDir\*.*
  454.  @Endif
  455.  
  456.  
  457.  
  458.  
  459. @EndLib 
  460. @EndDisk
  461.  
  462.  
  463.  
  464.  
  465.  
  466. @Display
  467.  
  468.  @Cls
  469.  @System "@OutDrive:\\@SubDir\\fva.exe"
  470.  @Delete ("@OutDrive:\\@SubDir\\fva.exe")
  471.  @Cls
  472.  
  473. @EndDisplay
  474.               
  475.  
  476.  @If (1020 [= @Option)
  477.    @Goto MenuVOICE
  478.  @Elseif (@CheckCard ("0000", "04e8", "Ç") == 0)
  479.    @Goto MenuModify
  480.  @Elseif (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  481.    @Goto MenuModify
  482.  @Else
  483. MenuVOICE:
  484.     @ClearOption(60) 
  485.     @ClearOption(61)  
  486.     @ClearOption(62)
  487.     @EnableF1(1)
  488.  
  489.     @GetOption
  490.      @LocalWindow (10,40)
  491.      @Cls
  492.      Would you like Voice Notes....
  493.      (Hit the <F1> Key for more information.)
  494.      (Network Server users, please read Help file <F1> Key.)
  495.      @Option 60 = "Loaded and INSTALLED in Windows"
  496.      @Option 61 = "Loaded, but NOT ACTIVATED in Windows"
  497.      @Option 62 = "NOT LOADED AT ALL!"
  498.     @EndOption
  499.  
  500.     @If (@Esc)
  501.       @Goto MenuVOICE
  502.     @Elseif (@KeyF1)
  503.       @Help ("@ExePath\\install.hlp","HelpVOICE","EndVOICE")
  504.     @Elseif (60 [= @Option)
  505.       @Goto MenuVOICENOTE
  506.     @Elseif (61 [= @Option)
  507.       @Goto MenuVOICENOTE
  508.     @Elseif (62 [= @Option)
  509.       @Goto MenuModify
  510.  @Endif
  511.    @Goto MenuVOICE 
  512.  @Endif   
  513.  
  514. MenuVOICENOTE:
  515. @EnableF1(0)
  516. @GetOutDrive
  517.  @Suppress A
  518.  @Suppress B 
  519.  @Cls
  520.  Voicenotes @msgDDI
  521.  @msgDrive
  522. @EndOutDrive
  523. @If (@Esc) @Goto MenuVoice @EndIf
  524.  
  525. @GetSubdir @orcdir
  526.  @Default = "\\ORCHID"    
  527.  @Cls
  528.  Voicenotes @msgDDI
  529.  @msgDir
  530.  
  531.  
  532. @EndSubdir
  533. @If (@Esc) @Goto MenuVOICENOTE @EndIf
  534.  
  535. @ClearOption(1)
  536. @ClearOption(2)
  537. @EnableF1(0)
  538. @GetOption
  539.  @LocalWindow (10,39) 
  540.  @If (@Exists "@OutDrive:\\@orcdir" == 0)
  541.   @Cls
  542.   Voicenote @msgDDI
  543.   @OutDrive:@SubDir @msgDDNE
  544.   @msgCont
  545.  @Else
  546.   @Goto MenuFileVoice
  547.  @EndIf
  548.  @Option 1 = "@Reenter"
  549.  @Option 2 = "@Cont"
  550. @EndOption
  551. @If ((@Esc) || (1 [= @Option))
  552.   @Goto MenuVOICENOTE
  553. @Endif
  554.    
  555. MenuFileVoice:
  556.    @DefineDisk
  557.     @Label = "Disk #1"
  558.     @BeginLib FAHDRVVA.001 
  559.    
  560.     @F orchnote.exe @O @OutDrive:\@orcdir\*.* 
  561.     @F vmp_mm.dll   @O @OutDrive:\@orcdir\*.* 
  562.     @F vctl.dll     @O @OutDrive:\@orcdir\*.* 
  563.     @F orchhook.dll @O @OutDrive:\@orcdir\*.* 
  564.     @F ovn.hlp      @O @OutDrive:\@orcdir\*.*
  565.     @F orckey.dll   @O @OutDrive:\@orcdir\*.*  
  566.     
  567.     @F orcsnd.drv   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  568.     @F sndsetup.cpl @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  569.     @F sndsetup.hlp @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  570.     
  571.     @F orcsnd.drv   @O @OutDrive:\@SubDir\*.* @Option 1020
  572.     @F sndsetup.cpl @O @OutDrive:\@SubDir\*.* @Option 1020
  573.     @F sndsetup.hlp @O @OutDrive:\@SubDir\*.* @Option 1020
  574.  
  575.     @F orchinst.exe @O @OutDrive:\@SubDir\*.*
  576.     @F orchinst.dat @O @OutDrive:\@SubDir\*.*
  577.     @F orcdde.dll   @O @OutDrive:\@SubDir\*.*
  578.     
  579.     @EndLib 
  580.    @EndDisk
  581.  
  582.  
  583. MenuModify: 
  584. @Display
  585.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  586.   Modifying WIN.INI of Windows 3.0.
  587.   @DeleteStr ("@OutDrive:\\@SubDir\\win.ini", "windows", "run", "orchid.exe")
  588.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchid.exe", "APPEND")
  589.  @Elseif (@Exists "@OutDrive:\\@SubDir\\orchid.ini" == 0)
  590.   Modifying WIN.INI of Windows 3.1
  591.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "run=", "control.exe", "APPEND")
  592.  @Elseif (@Exists "@OutDrive:\\@SubDir\\progman.orc" == 0)
  593.   @CatFiles ("@OutDrive:\\@SubDir\\progman.ini", "@OutDrive:\\@SubDir\\progman.orc")
  594.  @Endif
  595.  
  596.  @If (60 [= @Option)
  597.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "StartUp", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  598.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "VoiceNote", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  599.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  600.   @WriteFile ("@OutDrive:\\@SubDir\\system.ini", "drivers", "Wave=", "WAVE=ORCSND.DRV", "REPLACE")
  601.  @Endif
  602.  
  603.  @If (61 [= @Option)
  604.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "Group", "Group1=", "Group1=NoteUSED", "REPLACE")
  605.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "VoiceNote", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  606.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  607.  @Endif
  608.  
  609.  @If (1020 [= @Option)
  610.   @WriteFile ("@OutDrive:\\@SubDir\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE")
  611.   @Goto MenuWinEnd
  612.  @EndIf
  613.  
  614.  @If (@CheckCard ("0000", "04e8", "Ç") == 1)
  615.   @WriteFile ("@OutDrive:\\@SubDir\\system\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE")
  616.  @EndIf
  617.  
  618.  @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  619.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.drv") 
  620.    @Cls
  621.  @Endif
  622.  
  623.  @If (@CheckCard ("C000", "00F6", "Fahrenheit 1280 Plus") == 1)
  624.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.drv")  
  625.    @Cls
  626.  @Endif
  627.  
  628.  @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  629.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidv.drv")
  630.    @Cls
  631.  @Endif
  632.  
  633.  
  634. @EndDisplay
  635. MenuWinEnd:
  636. @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  637. @Display
  638. @Cls
  639.  
  640.  
  641.  
  642.  
  643. ***************************************************************************
  644. *** The installation of the Orchid Window HyperDriver is now completed. ***
  645. ***************************************************************************
  646.  
  647.  
  648. @Pause
  649. @EndDisplay
  650. @Goto MenuMain
  651.  
  652.  
  653. MenuLotus:
  654.  
  655.  
  656.  
  657. @Help ("@ExePath\\install.hlp", "HelpLotusInst", "EndLotus")
  658. @Goto MenuMain
  659.  
  660.  
  661. MenuUtility:
  662.  
  663. @ClearOption(6100) 
  664. @ClearOption(6200) 
  665. @ClearOption(6300) 
  666. @ClearOption(6400) 
  667. @EnableF1(1)
  668.  
  669. @GetOption
  670.  @Cls
  671.  @NameUtil Installation:
  672.  @msgPSAA
  673.  @Option 6100 = " FSCAN.COM"
  674.  @Option 6200 = " FMODE.EXE"
  675.  @Option 6300 = " FDEMO.EXE"
  676.  @Option 6400 = "All of Above"
  677. @EndOption
  678.  
  679. @If (@Esc)
  680.  @Goto MenuMain
  681. @Elseif (@KeyF1)
  682.  @Help ("@ExePath\\install.hlp","HelpUtilMain","EndUtilMain")
  683.  @Goto MenuUtility
  684. @Endif
  685.  
  686. InputDirUtil:
  687. @EnableF1(0)
  688. @GetOutDrive
  689.  @Suppress A
  690.  @Suppress B
  691.  @Cls
  692.  @NameUtil Installation:
  693.  @msgDrive
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705.  
  706.  
  707.  
  708. @EndOutDrive
  709. @If (@Esc) @Goto MenuUtility @Endif
  710.  
  711. @GetSubdir
  712.  @Default = "\\FAH_UTIL"
  713.  @Cls
  714.  @NameUtil Installation
  715.  @msgDir
  716.  
  717.  
  718. @EndSubdir
  719. @If (@Esc) @Goto MenuUtility @Endif
  720.  
  721. @ClearOption(1)
  722. @ClearOption(2)
  723. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  724.  @EnableF1(0)
  725.  @GetOption
  726.   @LocalWindow (10,39) 
  727.   @Cls
  728.   @NameUtil Installation
  729.   @OutDrive:@SubDir @msgDDNE
  730.   @msgCont
  731.   @Option 1 = "@Reenter"
  732.   @Option 2 = "@Cont"
  733.  @EndOption
  734. @Endif
  735.  
  736. @If (@Esc)
  737.  @Goto MenuUtility
  738. @ElseIf (1 [= @Option)
  739.   @Goto InputDirUtil
  740. @Endif
  741.  
  742. @DefineDisk
  743.  @Label = "Disk #1"
  744.  @BeginLib FAHDRVVA.001 
  745.  
  746.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6100 
  747.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6200 
  748.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6300 
  749.  
  750.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6400 
  751.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  752.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  753.  
  754.  @EndLib
  755. @EndDisk
  756.  
  757. @Help ("@ExePath\\install.hlp","HelpUtilFin","EndUtilFin")
  758. @Goto MenuUtility
  759.  
  760.  
  761. MenuCADsys:
  762. @ClearOption(2100) 
  763. @ClearOption(2200)
  764. @ClearOption(2300) 
  765. @ClearOption(2400) 
  766. @ClearOption(2500) 
  767. @ClearOption(2600) 
  768. @ClearOption(2700)
  769. @EnableF1(1)
  770.  
  771. @GetOption
  772.  @LocalWindow (10,40)
  773.  @Cls
  774.  @NameCADsys @msgDDI
  775.  @msgPSAA
  776.  @Option 2100 = "@NameACAD"
  777.  @Option 2200 = "@NameCADKey"
  778.  @Option 2300 = "@NameDataCAD"
  779.  @Option 2400 = "@NameCADVance"
  780.  @Option 2500 = "@NameGenCADD"
  781.  @Option 2600 = "@NameMicroCAD"
  782.  @Option 2700 = "@NameVersaCAD"
  783. @EndOption
  784.  
  785. @If (@Esc)
  786.  @Goto MenuMain
  787. @Elseif (@KeyF1)
  788.  @Goto MenuCADsysHelp
  789. @ElseIf (2100 [= @Option)
  790.  @Goto MenuACAD
  791. @ElseIf (2200 [= @Option)
  792.  @Goto MenuCADKey
  793. @ElseIf (2300 [= @Option)
  794.  @Goto MenuDataCAD
  795. @ElseIf (2400 [= @Option)
  796.  @Goto MenuCADVance
  797. @ElseIf (2500 [= @Option)
  798.  @Goto MenuGenCADD
  799. @ElseIf (2600 [= @Option)
  800.  @Goto MenuMicroCAD
  801. @ElseIf (2700 [= @Option)
  802.  @Goto MenuVersaCAD
  803. @Endif
  804.  
  805.  
  806. MenuCADsysHelp:
  807.  
  808. @If (2100 [= @Option)
  809.  @Goto MenuACAD
  810. @Elseif (2200 [= @Option)
  811.  @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  812. @Elseif (2300 [= @Option)
  813.  @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  814. @Elseif (2400 [= @Option)
  815.  @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  816. @Elseif (2500 [= @Option)
  817.  @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  818. @Elseif (2600 [= @Option)
  819.  @Goto MenuMicroCAD
  820. @Elseif (2700 [= @Option)
  821.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  822. @Endif
  823.  
  824. @Goto MenuCADsys
  825.  
  826.  
  827. MenuACAD:
  828. @ClearOption (2105)
  829. @ClearOption (2110)
  830. @ClearOption (2120)
  831. @ClearOption (2125)
  832. @ClearOption (2130)
  833. @ClearOption (2145)
  834. @EnableF1(1)
  835.  
  836. @GetOption @Cls
  837.  @NameACAD @msgDDI
  838.  @msgPSAV
  839.  @Option 2105 = "ADI 4.2 Features and Commands Help Menu (Reading Recommended)"
  840.  @Option 2130 = "AutoCAD Release 11 (Protected Mode ADI 4.2)"
  841.  @Option 2145 = "AutoCAD Release 12 (Protected Mode ADI 4.2)"
  842.  @Option 2120 = "AutoDesk's 3D Studio version 1.0 & 2.0 (PADI 4.2)"
  843.  @Option 2125 = "AutoDesk's AutoShade version 2.1 (PADI 4.2)"
  844.  @Option 2110 = "AutoCAD Release 10 & 11 (Real Mode ADI 4.1)"
  845. @EndOption
  846.  
  847. @If (@Esc)
  848.  @Goto MenuCADsys
  849. @ElseIf (@KeyF1)
  850.  @Goto MenuACADHelp
  851. @ElseIf (2105 [=@Option)
  852.      @Goto MenuADI42
  853. @Endif
  854.  
  855. InputDirACAD:
  856. @EnableF1(0)
  857. @GetOutDrive
  858.  @Suppress A
  859.  @Suppress B
  860.  @Cls
  861.  @NameACAD @msgDDI
  862.  @msgDrive
  863.  
  864.  
  865.  
  866.  
  867.  
  868.  
  869.  
  870.  
  871.  
  872.  
  873.  
  874.  
  875.  
  876. @EndOutDrive
  877. @If (@Esc) @Goto MenuACAD @Endif
  878.  
  879. @GetSubdir
  880.  @If (2110 [= @Option)
  881.   @Default = "\\ACAD"
  882.  @Elseif (2120 [= @Option)
  883.   @Default = "\\3DS"
  884.  @Elseif (2125 [= @Option)
  885.   @Default = "\\SHADE"
  886.  @Elseif (2130 [= @Option)
  887.   @Default = "\\ACAD11"
  888.  @Elseif (2145 [= @Option)
  889.   @Default = "\\ACAD12"
  890.  @Endif
  891.  @Cls
  892.  @NameACAD @msgDDI
  893.  @msgDir
  894.  
  895.  
  896. @EndSubdir
  897. @If (@Esc) @Goto MenuACAD @Endif
  898.  
  899. @ClearOption(1)
  900. @ClearOption(2)
  901. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  902.  @EnableF1(0)
  903.  @GetOption
  904.   @LocalWindow (10,39) 
  905.   @Cls
  906.   @NameACAD @msgDDI
  907.   @OutDrive:@SubDir @msgDDNE
  908.   @msgCont
  909.   @Option 1 = "@Reenter"
  910.   @Option 2 = "@Cont"
  911.  @EndOption
  912. @Endif
  913.  
  914. @If (@Esc)
  915.  @Goto MenuACAD
  916. @ElseIf (1 [= @Option)
  917.   @Goto InputDirACAD
  918. @Endif
  919.  
  920. @DefineDisk
  921.  @Label = "Disk #1"
  922.  @BeginLib FAHDRVVA.001 
  923.  
  924.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  925.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120 
  926.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2120 
  927.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120 
  928.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120
  929.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  930.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  931.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2120
  932.  
  933.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  934.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125 
  935.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2125 
  936.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125 
  937.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125
  938.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  939.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  940.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2125
  941.  
  942.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  943.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130 
  944.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2130 
  945.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130 
  946.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130
  947.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  948.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  949.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2130
  950.  
  951.  @F 15x25.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  952.  @F 16x30.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  953.  @F 6x9.aqf       @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  954.  @F 8x16.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  955.  @F 9x15.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  956.  @F 12x24.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  957.  @F 12x20.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  958.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  959.  
  960.  @F fadi.exe    @O @OutDrive:\@SubDir\*.* @Option 2110
  961.  
  962.  
  963.  @EndLib 
  964. @EndDisk
  965.  
  966. @If (2110 [= @Option)
  967.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  968. @Elseif (2120 [= @Option)
  969.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  970.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  971.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  972.          "SET RDPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  973.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  974.          "SET RCPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  975.  
  976.  
  977.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  978. @ElseIf (2125 [= @Option)
  979.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  980.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  981.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  982.          "SET RDPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  983.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  984.          "SET RCPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  985.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SHADE",
  986.          "SET SHADE=@OutDrive:\\@SubDir\\rmansupt", "REPLACE")
  987.  
  988.  
  989.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  990. @Elseif (2130 [= @Option)
  991.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  992.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  993.  
  994.  
  995.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  996. @Elseif (2145 [= @Option)
  997.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  998.          "SET ACADDRV=@OutDrive:\\@SubDir\\drv\\", "REPLACE")
  999.  
  1000.  
  1001.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12") 
  1002.  
  1003. @EndIf   
  1004.               
  1005. @Goto MenuACAD
  1006.  
  1007.  
  1008. MenuADI42:
  1009. @ClearOption(2910)
  1010. @ClearOption(2920)
  1011. @ClearOption(2925) 
  1012. @ClearOption(2930)
  1013. @ClearOption(2933)  
  1014. @ClearOption(2935)  
  1015. @ClearOption(2940)
  1016. @ClearOption(2950)
  1017. @ClearOption(2953)  
  1018. @ClearOption(2955)  
  1019. @ClearOption(2960)
  1020. @ClearOption(2965)
  1021. @ClearOption(2970) 
  1022.  @EnableF1(0)
  1023.  @GetOption
  1024.  @Cls
  1025.     
  1026.  
  1027.  
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034.  
  1035.  
  1036.  
  1037.  
  1038.   @Option 2910 = "List of Features, Fonts, and Resolutions"
  1039.   @Option 2920 = "Screen Layout and Graphics Flip Screen"
  1040.   @Option 2925 = "Display List Configuration"
  1041.   @Option 2930 = "Birds-Eye View" 
  1042.   @Option 2933 = "Birds-Eye Icons"
  1043.   @Option 2935 = "Edge Pan, Page Alarm"
  1044.   @Option 2940 = "Erase Buffer and Band-Free Rendering" 
  1045.   @Option 2950 = "Fahrenheit Driver Commands Part 1"
  1046.   @Option 2953 = "Fahrenheit Driver Commands Part 2"
  1047.   @Option 2955 = "Fahrenheit Quick Reference Driver Commands"
  1048.   @Option 2960 = "Custom Menu Design"
  1049.   @Option 2965 = "AutoCAD Performance Tuning"
  1050.   @Option 2970 = "Known Bug List and Upgrade Information"
  1051.  
  1052.  
  1053.  
  1054.   @EndOption
  1055.  
  1056.  
  1057.  @If (@Esc)
  1058.      @Goto MenuACAD
  1059. @ElseIf (2910 [=@Option)
  1060.      @Help ("@ExePath\\install.hlp", "HelpFeatures", "EndFeatures")
  1061. @ElseIf (2920 [=@Option)
  1062.      @Help ("@ExePath\\install.hlp", "HelpLayout", "EndLayout")
  1063. @ElseIf (2925 [=@Option)
  1064.      @Help ("@ExePath\\install.hlp", "HelpDLC", "EndDLC")
  1065. @ElseIf (2930 [=@Option)
  1066.      @Help ("@ExePath\\install.hlp", "HelpBird", "EndBird")
  1067. @ElseIf (2933 [=@Option)
  1068.      @Help ("@ExePath\\install.hlp", "HelpIcon", "EndIcon")
  1069. @ElseIf (2935 [=@Option)
  1070.      @Help ("@ExePath\\install.hlp", "HelpPan", "EndPan")
  1071. @ElseIf (2940 [=@Option)
  1072.      @Help ("@ExePath\\install.hlp", "HelpBand", "EndBand")
  1073. @ElseIf (2950 [=@Option)
  1074.      @Help ("@ExePath\\install.hlp", "HelpCommands", "EndCommands")
  1075. @ElseIf (2953 [=@Option)
  1076.      @Help ("@ExePath\\install.hlp", "HelpComtwo", "EndComtwo")
  1077. @ElseIf (2955 [=@Option)
  1078.      @Help ("@ExePath\\install.hlp", "HelpComquick", "EndComquick")
  1079. @ElseIf (2960 [=@Option)
  1080.      @Help ("@ExePath\\install.hlp", "HelpCMD", "EndCMD")
  1081. @ElseIf (2965 [=@Option)
  1082.      @Help ("@ExePath\\install.hlp", "HelpTuning", "EndTuning")
  1083. @ElseIf (2970 [=@Option)
  1084.      @Help ("@ExePath\\install.hlp", "HelpBug", "EndBug")
  1085.  
  1086. @endif
  1087. @Goto MenuADI42
  1088.  
  1089.  
  1090.  
  1091. MenuACADHelp:
  1092.  
  1093. @If (2110 [= @Option)
  1094.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  1095. @Elseif (2105 [= @Option)
  1096.  @Help ("@ExePath\\install.hlp", "HelpADI42", "EndADI42")
  1097. @ElseIf (2120 [= @Option)
  1098.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  1099. @Elseif (2125 [= @Option)
  1100.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  1101. @Elseif (2130 [= @Option)
  1102.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  1103. @Elseif (2145 [= @Option)
  1104.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12")
  1105. @EndIf   
  1106.  
  1107. @Goto MenuACAD
  1108.  
  1109.  
  1110. MenuCADKey:
  1111.  
  1112. @EnableF1(0)
  1113. @GetOutDrive
  1114.  @Suppress A
  1115.  @Suppress B
  1116.  @Cls
  1117.  @NameCADKey @msgDDI
  1118.  @msgDrive
  1119. @EndOutDrive
  1120. @If (@Esc) @Goto MenuCADsys @Endif
  1121.  
  1122. @GetSubdir
  1123.  @Default = "\\CADKEY"
  1124.  @Cls
  1125.  @NameCADKey @msgDDI
  1126.  @msgDir
  1127.  
  1128.  
  1129. @EndSubdir
  1130. @If (@Esc) @Goto MenuCADKey @Endif
  1131.  
  1132.  
  1133. @ClearOption(1)
  1134. @ClearOption(2)
  1135. @EnableF1(0)
  1136. @GetOption
  1137.  @LocalWindow (10,39) 
  1138.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1139.   @Cls
  1140.   @NameCADKey @msgDDI
  1141.   @OutDrive:@SubDir @msgDDNE
  1142.   @msgCont
  1143.  @ElseIf (@Exists "@OutDrive:\\@SubDir\\grdev.dat" == 0)
  1144.   @Cls
  1145.   @NameCADKey @msgDDI
  1146.   The grdev.dat file is not found in your input directory:
  1147.   @OutDrive:@SubDir
  1148.   @NameCADKey @msgNPI
  1149.  @Else
  1150.   @Goto CopyFileCADKey
  1151.  @EndIf
  1152.  @Option 1 = "@Reenter"
  1153.  @Option 2 = "@Cont"
  1154. @EndOption
  1155. @If ((@Esc) || (1 [= @Option))
  1156.   @Goto MenuCADKey
  1157. @Endif
  1158.  
  1159. CopyFileCADKey:
  1160. @Rename ("@OutDrive:\\@Subdir\\grdev.dat","grdev.000")
  1161. @DefineDisk
  1162.  @Label = "Disk #1"
  1163.  @BeginLib FAHDRVVA.001 
  1164.  @F ck_911.exe  @O @OutDrive:\@SubDir\*.*
  1165.  @F grdev.dat   @O @OutDrive:\@SubDir\*.orc 
  1166.  @EndLib 
  1167. @EndDisk
  1168.  
  1169. @Delete ("@OutDrive:\\@Subdir\\grdev.dat")
  1170. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.000")
  1171. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.orc")
  1172. @Delete ("@OutDrive:\\@Subdir\\grdev.orc")
  1173.                   
  1174. @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  1175. @Goto MenuCADsys
  1176.  
  1177.  
  1178.  
  1179. MenuDataCAD:
  1180.  
  1181. @EnableF1(0)
  1182. @GetOutDrive
  1183.  @Suppress A
  1184.  @Suppress B
  1185.  @Cls
  1186.  @NameDataCAD @msgDDI
  1187.  @msgDrive
  1188. @EndOutDrive
  1189. @If (@Esc) @Goto MenuCADsys @Endif
  1190.  
  1191. @GetSubdir
  1192.  @Default = "\\MTEC\\DRV"
  1193.  @Cls
  1194.  @NameDataCAD @msgDDI
  1195.  @msgDir
  1196.  
  1197.  
  1198. @EndSubdir
  1199. @If (@Esc) @Goto MenuDataCAD @Endif
  1200.  
  1201.  
  1202. @ClearOption(1)
  1203. @ClearOption(2)
  1204. @EnableF1(0)
  1205. @GetOption
  1206.  @LocalWindow (10,39) 
  1207.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1208.   @Cls
  1209.   @NameDataCAD @msgDDI
  1210.   @OutDrive:@SubDir @msgDDNE
  1211.   @msgCont
  1212.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\drivers.gd2" == 0) ||
  1213.       (@Exists "@OutDrive:\\@SubDir\\drivers.gd4" == 0))
  1214.   @Cls
  1215.   @NameDataCAD @msgDDI
  1216.   The drivers.gd2/drivers.gd4 file is not found in your input directory:
  1217.   @OutDrive:@SubDir
  1218.   DataCAD @msgNPI
  1219.  @Else
  1220.   @Goto CopyFileDataCAD
  1221.  @EndIf
  1222.  @Option 1 = "@Reenter"
  1223.  @Option 2 = "@Cont"
  1224. @EndOption
  1225. @If ((@Esc) || (1 [= @Option))
  1226.   @Goto MenuDataCAD
  1227. @Endif
  1228.  
  1229. CopyFileDataCAD:
  1230. @Rename ("@OutDrive:\\@Subdir\\drivers.gd2","drivers.oc2")
  1231. @Rename ("@OutDrive:\\@Subdir\\drivers.gd4","drivers.oc4")
  1232. @Delete ("@OutDrive:\\@Subdir\\drivers.gd2")
  1233. @Delete ("@OutDrive:\\@Subdir\\drivers.gd4")
  1234.  
  1235. @DefineDisk
  1236.  @Label = "Disk #1"
  1237.  @BeginLib FAHDRVVA.001 
  1238.  @F ck_911.exe   @O @OutDrive:\@SubDir\*.*
  1239.  @F dl_911.exe   @O @OutDrive:\@SubDir\*.*
  1240.  @F drivers.gd2  @O @OutDrive:\@SubDir\orchid.*
  1241.  @F drivers.gd4  @O @OutDrive:\@SubDir\orchid.*
  1242.  @EndLib 
  1243. @EndDisk
  1244.  
  1245. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\drivers.oc2")
  1246. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\orchid.gd2")
  1247. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\drivers.oc4")
  1248. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\orchid.gd4")
  1249. @Delete ("@OutDrive:\\@Subdir\\orchid.gd2")
  1250. @Delete ("@OutDrive:\\@Subdir\\orchid.gd4")
  1251.  
  1252. @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  1253. @Goto MenuCADsys
  1254.  
  1255.  
  1256. MenuCADVance:
  1257.  
  1258. @EnableF1(0)
  1259. @GetOutDrive
  1260.  @Suppress A
  1261.  @Suppress B
  1262.  @Cls
  1263.  @NameCADVance @msgDDI
  1264.  @msgDrive
  1265. @EndOutDrive
  1266. @If (@Esc) @Goto MenuCADsys @Endif
  1267.  
  1268. @GetSubdir
  1269.  @Default = "\\CADVANCE"
  1270.  @Cls
  1271.  @NameCADVance @msgDDI
  1272.  @msgDir
  1273.  
  1274.  
  1275. @EndSubdir
  1276. @If (@Esc) @Goto MenuCADVance @Endif
  1277.  
  1278.  
  1279. @ClearOption(1)
  1280. @ClearOption(2)
  1281. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1282.   @EnableF1(0)
  1283.   @GetOption
  1284.   @LocalWindow (10,39)
  1285.   @Cls
  1286.   @NameCADVance @msgDDI
  1287.   @OutDrive:@SubDir @msgDDNE
  1288.   @msgCont
  1289.   @Option 1 = "@Reenter"
  1290.   @Option 2 = "@Cont"
  1291.   @EndOption
  1292. @Endif
  1293.  
  1294. @If ((@Esc) || (1 [= @Option))
  1295.   @Goto MenuCADVance
  1296. @Endif
  1297.  
  1298. @DefineDisk
  1299.  @Label = "Disk #1"
  1300.  @BeginLib FAHDRVVA.001 
  1301.  @F cdv911.drv      @O @OutDrive:\@SubDir\*.*
  1302.  @EndLib 
  1303. @EndDisk
  1304.  
  1305. @Goto SetS3911
  1306.  
  1307. EndCADVance:
  1308. @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  1309. @Goto MenuCADsys
  1310.  
  1311.  
  1312. MenuGenCADD:
  1313.  
  1314. @EnableF1(0)
  1315. @GetOutDrive
  1316.  @Suppress A
  1317.  @Suppress B
  1318.   @Cls
  1319.   @NameGenCADD @msgDDI
  1320.   @msgDrive
  1321. @EndOutDrive
  1322. @If (@Esc) @Goto MenuCADsys @Endif
  1323.  
  1324. @GetSubdir
  1325.  @Default = "\\GENERIC"
  1326.  @Cls
  1327.  @NameGenCADD @msgDDI
  1328.  @msgDir
  1329.  
  1330.  
  1331. @EndSubdir
  1332. @If (@Esc) @Goto MenuGenCADD @Endif
  1333.  
  1334. @ClearOption(1)
  1335. @ClearOption(2)
  1336. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1337.  @EnableF1(0)
  1338.  @GetOption @Cls
  1339.   @LocalWindow (10,39) 
  1340.   @NameGenCADD @msgDDI
  1341.   @OutDrive:@SubDir @msgDDNE
  1342.   @msgCont
  1343.  
  1344.   @Option 1 = "@Reenter"
  1345.   @Option 2 = "@Cont"
  1346.  @EndOption
  1347. @Endif
  1348.  
  1349. @If ((@Esc) || (1 [= @Option))
  1350.  @Goto MenuGenCADD
  1351. @Endif
  1352.  
  1353. @DefineDisk
  1354.  @Label = "Disk #1"
  1355.  @BeginLib FAHDRVVA.001 
  1356.  @F f1280l.vgd  @O @OutDrive:\@SubDir\*.*
  1357.  @EndLib 
  1358. @EndDisk
  1359.  
  1360.  
  1361. @Goto SetS3911
  1362.  
  1363. EndGenCADD:
  1364. @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  1365. @Goto MenuCADsys
  1366.  
  1367. MenuMicroCAD:
  1368.  
  1369. @ClearOption (2610) 
  1370. @ClearOption (2620)
  1371. @EnableF1(1)
  1372. @GetOption @Cls
  1373.  @NameMicroCAD @msgDDI
  1374.  @msgPSAV
  1375.  @Option 2610 = "MicroStation (Real Mode)"
  1376.  @Option 2620 = "MicroStation (Protected Mode)"
  1377. @EndOption
  1378.  
  1379. @If (@Esc)
  1380.  @Goto MenuCADsys
  1381. @ElseIf (@KeyF1)
  1382.  @Goto MenuMicroCADHelp
  1383. @Endif
  1384.  
  1385. InputDirMicroCAD:
  1386. @EnableF1(0)
  1387. @GetOutDrive
  1388.  @Suppress A
  1389.  @Suppress B
  1390.  @Cls
  1391.  @NameMicroCAD @msgDDI
  1392.  @msgDrive
  1393. @EndOutDrive
  1394. @If (@Esc) @Goto MenuMicroCAD @Endif
  1395.  
  1396. @GetSubdir
  1397.  @Default = "\\USTATION\\DRIVERS"
  1398.  @Cls
  1399.  @NameMicroCAD @msgDDI
  1400.  @msgDir
  1401.  
  1402.  
  1403. @EndSubdir
  1404. @If (@Esc) @Goto InputDirMicroCAD @Endif
  1405.  
  1406. @ClearOption(1)
  1407. @ClearOption(2)
  1408. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1409.  @EnableF1(0)
  1410.  @GetOption
  1411.   @LocalWindow (10,39)
  1412.   @Cls
  1413.   @NameMicroCAD @msgDDI
  1414.   @OutDrive:@SubDir @msgDDNE
  1415.   @msgCont
  1416.   @Option 1 = "@Reenter"
  1417.   @Option 2 = "@Cont"
  1418.  @EndOption
  1419. @Endif
  1420.  
  1421. @If ((@Esc) || (1 [= @Option))
  1422.  @Goto InputDirMicroCAD
  1423. @Endif
  1424.  
  1425. @DefineDisk
  1426.  @Label = "Disk #1"
  1427.  @BeginLib FAHDRVVA.001 
  1428.   @F mgls3.exe   @O @OutDrive:\@SubDir\*.* @Option 2610
  1429.   @F mgls3.mgl   @O @OutDrive:\@SubDir\*.* @Option 2610
  1430.   @F remove.exe  @O @OutDrive:\@SubDir\*.* @Option 2610
  1431.  
  1432.   @F mgl911.exp  @O @OutDrive:\@SubDir\*.* @Option 2620
  1433.   @F mgl911.ma   @O @OutDrive:\@SubDir\*.* @Option 2620
  1434.   @F mgl911.mgl  @O @OutDrive:\@SubDir\*.* @Option 2620 
  1435.  @EndLib 
  1436. @EndDisk
  1437.  
  1438. @Goto SetS3911
  1439.  
  1440. EndMicroCAD:
  1441.  
  1442. @If (2610 [= @Option)
  1443.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1444. @ElseIf (2620 [= @Option)
  1445.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1446. @EndIf   
  1447.  
  1448. @Goto MenuCADsys
  1449.  
  1450.  
  1451. MenuMicroCADHelp:
  1452.  
  1453. @If (2610 [= @Option)
  1454.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1455. @ElseIf (2620 [= @Option)
  1456.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1457. @EndIf   
  1458.  
  1459. @Goto MenuMicroCAD
  1460.  
  1461.  
  1462. MenuVersaCAD:
  1463.  
  1464. @EnableF1(1)
  1465. @ClearOption (2710)
  1466. @ClearOption (2750)
  1467. @GetOption @Cls
  1468.  @NameVersaCAD @msgDDI
  1469.  @msgPSAV
  1470.  @Option 2750 = "VersaCAD 386 (Protected Mode)"
  1471.  @Option 2710 = "VersaCAD Designer (Real Mode)"
  1472. @EndOption
  1473.  
  1474. @If (@Esc)
  1475.  @Goto MenuCADsys
  1476. @Elseif (@KeyF1)
  1477.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1478.  @Goto MenuVersaCAD
  1479. @Endif
  1480.  
  1481. InputDirVersaCAD:
  1482. @EnableF1(0)
  1483. @GetOutDrive
  1484.  @Suppress A
  1485.  @Suppress B
  1486.  @Cls
  1487.  @NameVersaCAD @msgDDI
  1488.  @msgDrive
  1489. @EndOutDrive
  1490. @If (@Esc) @Goto MenuVersaCAD @Endif
  1491.  
  1492. @GetSubdir
  1493.  @Default = "\\VCAD"
  1494.  @Cls
  1495.  @NameVersaCAD @msgDDI
  1496.  @msgDir
  1497.  
  1498.  
  1499. @EndSubdir
  1500. @If (@Esc) @Goto InputDirVersaCAD @Endif
  1501.  
  1502. @ClearOption(1)
  1503. @ClearOption(2)
  1504. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1505.  @EnableF1(0)
  1506.  @GetOption
  1507.  @LocalWindow (10,39)
  1508.  @Cls
  1509.   @NameVersaCAD @msgDDI
  1510.   @OutDrive:@SubDir @msgDDNE
  1511.   @msgCont
  1512.   @Option 1 = "@Reenter"
  1513.   @Option 2 = "@Cont"
  1514.  @EndOption
  1515. @Endif
  1516. @If ((@Esc) || (1 [= @Option))
  1517.  @Goto InputDirVersaCAD
  1518. @Endif
  1519.  
  1520. @DefineDisk
  1521.  @Label = "Disk #1"
  1522.  @BeginLib FAHDRVVA.001 
  1523.  @F remove.exe  @O @OutDrive:\@SubDir\*.*
  1524.  @F vc2_911.com @O @OutDrive:\@SubDir\*.* @Option 2710
  1525.  @F vcadreal.cfg  @O @OutDrive:\@SubDir\*.* @Option 2710
  1526.  @F vc3_911.com @O @OutDrive:\@SubDir\*.* @Option 2750
  1527.  @F vcad386.cfg @O @OutDrive:\@SubDir\*.* @Option 2750
  1528.  @F vcad386.bat @O @OutDrive:\*.* @Option 2750
  1529.  @EndLib 
  1530. @EndDisk
  1531.                   
  1532. @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1533. @Goto MenuCADsys
  1534.  
  1535. MenuDesktop:
  1536.  
  1537. @ClearOption(3100)
  1538. @ClearOption(3200)
  1539. @EnableF1(1)
  1540. @GetOption
  1541. @Cls
  1542.  @NameDesk @msgDDI
  1543.  @msgPSAA
  1544.  @Option 3100 = "@NameVentura"
  1545.  @Option 3200 = "@NameGem"
  1546. @EndOption
  1547.  
  1548. @If (@Esc)
  1549.  @Goto MenuMain
  1550. @Elseif (@KeyF1)
  1551.  @Goto MenuDesktopHelp 
  1552. @Elseif (3100 [= @Option)
  1553.  @Goto MenuVentura
  1554. @Else
  1555.  @Goto MenuGem
  1556. @Endif
  1557.  
  1558.  
  1559. MenuDesktopHelp:
  1560.  
  1561. @If (3100 [= @Option)
  1562.  @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
  1563. @Elseif (3200 [= @Option)
  1564.  @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
  1565. @Endif
  1566.  
  1567. @Goto MenuDesktop
  1568.  
  1569.  
  1570. MenuVentura:
  1571.  
  1572. @EnableF1(0)
  1573. @GetOutDrive
  1574.  @Suppress A
  1575.  @Suppress B
  1576.   @Cls
  1577.   @NameVentura @msgDDI
  1578.   @msgDrive
  1579. @EndOutDrive
  1580. @If (@Esc) @Goto MenuDesktop @Endif
  1581.  
  1582. @GetSubdir
  1583.  @Default = "\\VENTURA"
  1584.  @Cls
  1585.  @NameVentura @msgDDI
  1586.  @msgDir
  1587.  
  1588.  
  1589. @EndSubdir
  1590. @If (@Esc) @Goto MenuVentura @Endif
  1591.  
  1592. @ClearOption(1)
  1593. @ClearOption(2)
  1594. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1595.  @EnableF1(0)
  1596.  @GetOption @Cls
  1597.   @LocalWindow (10,39) 
  1598.   @NameVentura @msgDDI
  1599.   @OutDrive:@SubDir @msgDDNE
  1600.   @msgCont
  1601.   @Option 1 = "@Reenter"
  1602.   @Option 2 = "@Cont"
  1603.  @EndOption
  1604. @Endif
  1605.  
  1606. @If ((@Esc) || (1 [= @Option))
  1607.  @Goto MenuVentura
  1608. @Endif
  1609.  
  1610. @DefineDisk
  1611.  @Label = "Disk #1"
  1612.  @BeginLib FAHDRVVA.001 
  1613.  @F sdgemvp.vga @O @OutDrive:\@SubDir\*.*
  1614.  @F sysfont.bg  @O @OutDrive:\@SubDir\*.*
  1615.  @EndLib 
  1616. @EndDisk
  1617.  
  1618.  
  1619. @Goto SetS3911
  1620.  
  1621. EndVentura:                               
  1622. @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
  1623. @Goto MenuDesktop
  1624.  
  1625.  
  1626. MenuGem:
  1627.  
  1628. @EnableF1(0)
  1629. @GetOutDrive
  1630.  @Suppress A
  1631.  @Suppress B
  1632.   @Cls
  1633.   @NameGem @msgDDI
  1634.   @msgDrive
  1635. @EndOutDrive
  1636. @If (@Esc) @Goto MenuDesktop @Endif
  1637.  
  1638. @GetSubdir
  1639.  @Default = "\\GEMAPPS\\GEMSYS"
  1640.  @Cls
  1641.  @NameGem @msgDDI
  1642.  @msgDir
  1643.  
  1644.  
  1645. @EndSubdir
  1646. @If (@Esc) @Goto MenuGem @Endif
  1647.  
  1648.  
  1649. @ClearOption(1)
  1650. @ClearOption(2)
  1651. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1652.  @EnableF1(0)
  1653.  @GetOption @Cls
  1654.   @LocalWindow (10,39) 
  1655.   @NameGem @msgDDI
  1656.   @OutDrive:@SubDir @msgDDNE
  1657.   @msgCont
  1658.   @Option 1 = "@Reenter"
  1659.   @Option 2 = "@Cont"
  1660.  @EndOption
  1661. @Endif
  1662.  
  1663. @If ((@Esc) || (1 [= @Option))
  1664.  @Goto MenuGem
  1665. @Endif
  1666.  
  1667. @Rename ("@OutDrive:\\@SubDir\\sd*.vga","sd*.bak")
  1668. @DefineDisk
  1669.  @Label = "Disk #1"
  1670.  @BeginLib FAHDRVVA.001 
  1671.  @F sdgemvp.vga @O @OutDrive:\@SubDir\*.*
  1672.  @F sysfont.bg  @O @OutDrive:\@SubDir\*.*
  1673.  @EndLib 
  1674. @EndDisk
  1675.  
  1676.  
  1677. @Goto SetS3911
  1678.  
  1679. EndGem:
  1680. @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
  1681. @Goto MenuDesktop
  1682.  
  1683.  
  1684. MenuWordProcess:
  1685.  
  1686. @ClearOption(5100)
  1687. @ClearOption(5200)
  1688. @EnableF1(1)
  1689. @GetOption
  1690. @Cls
  1691.  @NameWord @msgDDI
  1692.  @msgPSAA
  1693.  @Option 5100 = "@NameWP"
  1694.  @Option 5200 = "@NameMSWord"
  1695. @EndOption
  1696.  
  1697. @If (@Esc)
  1698.  @Goto MenuMain
  1699. @Elseif (@KeyF1)
  1700.  @Goto MenuWordHelp
  1701. @Elseif (5100 [= @Option)
  1702.  @Goto MenuWP
  1703. @Elseif (5200 [= @Option)
  1704.  @Goto MenuMSWord
  1705. @Endif
  1706.  
  1707.  
  1708. MenuWordHelp:
  1709.  
  1710. @If (5100 [= @Option)
  1711.  @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1712. @Elseif (5200 [= @Option)
  1713.  @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1714. @Endif
  1715.  
  1716. @Goto MenuWordProcess
  1717.  
  1718.  
  1719. MenuWP:
  1720.  
  1721. @EnableF1(0)
  1722. @GetOutDrive
  1723.  @Suppress A
  1724.  @Suppress B
  1725.   @Cls
  1726.   @NameWP @msgDDI
  1727.   @msgDrive
  1728. @EndOutDrive
  1729. @If (@Esc) @Goto MenuWordProcess @Endif
  1730.  
  1731. @GetSubdir
  1732.  @Default = "\\WP"
  1733.  @Cls
  1734.  @NameWP @msgDDI
  1735.  @msgDir
  1736.  
  1737.  
  1738. @EndSubdir
  1739. @If (@Esc) @Goto MenuWP @Endif
  1740.  
  1741. @ClearOption(1)
  1742. @ClearOption(2)
  1743. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1744.  @EnableF1(0)
  1745.  @GetOption @Cls
  1746.   @LocalWindow (10,39) 
  1747.   @NameWP @msgDDI
  1748.   @OutDrive:@SubDir @msgDDNE
  1749.   @msgCont
  1750.   @Option 1 = "@Reenter"
  1751.   @Option 2 = "@Cont"
  1752.  @EndOption
  1753. @Endif
  1754.  
  1755. @If ((@Esc) || (1 [= @Option))
  1756.  @Goto MenuWP
  1757. @Endif
  1758.  
  1759. @DefineDisk
  1760.  @Label = "Disk #1"
  1761.  @BeginLib FAHDRVVA.001 
  1762.  @F wpgraph.vrs @O @OutDrive:\@SubDir\*.* 
  1763.  @F wptext.vrs @O @OutDrive:\@SubDir\*.* 
  1764.  @EndLib 
  1765. @EndDisk
  1766.  
  1767. @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1768. @Goto MenuWordProcess
  1769.  
  1770.  
  1771. MenuMSWord:
  1772.  
  1773. @EnableF1(0)
  1774. @GetOutDrive
  1775.  @Suppress A
  1776.  @Suppress B
  1777.   @Cls
  1778.   @NameMSWord @msgDDI
  1779.   @msgDrive
  1780. @EndOutDrive
  1781. @If (@Esc) @Goto MenuWordProcess @Endif
  1782.  
  1783. @GetSubdir
  1784.  @Default = "\\WORD"
  1785.  @Cls
  1786.  @NameMSWord @msgDDI
  1787.  @msgDir
  1788.  
  1789.  
  1790. @EndSubdir
  1791. @If (@Esc) @Goto MenuMSWord @Endif
  1792.  
  1793. @ClearOption(1)
  1794. @ClearOption(2)
  1795. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1796.  @EnableF1(0)
  1797.  @GetOption @Cls
  1798.   @LocalWindow (10,39) 
  1799.   @NameMSWord @msgDDI
  1800.   @OutDrive:@SubDir @msgDDNE
  1801.   @msgCont
  1802.   @Option 1 = "@Reenter"
  1803.   @Option 2 = "@Cont"
  1804.  @EndOption
  1805. @Endif
  1806.  
  1807. @If ((@Esc) || (1 [= @Option))
  1808.  @Goto MenuMSWord
  1809. @Endif
  1810.  
  1811. @DefineDisk
  1812.  @Label = "Disk #1"
  1813.  @BeginLib FAHDRVVA.001 
  1814.  @F screen.vid @O @OutDrive:\@SubDir\*.* 
  1815.  @EndLib 
  1816. @EndDisk
  1817.  
  1818. @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1819. @Goto MenuWordProcess
  1820.  
  1821.  
  1822. SetS3911:
  1823.  
  1824. @ClearOption (0)
  1825. @ClearOption (1)
  1826. @ClearOption (2)
  1827. @ClearOption (3)
  1828. @ClearOption (4)
  1829. @ClearOption (5)
  1830. @ClearOption (7)
  1831. @EnableF1(0)
  1832. @GetOption
  1833.  @If (2400 [= @Option)
  1834.   @Cls
  1835.   @NameCADVance @msgDDI
  1836.   Please Select a Resolution:
  1837.  @Elseif (2500 [= @Option)
  1838.   @Cls
  1839.   @NameGenCADD @msgDDI
  1840.   Please Select a Resolution:
  1841.  @Elseif (2600 [= @Option)
  1842.   @Cls
  1843.   @NameMicroCAD @msgDDI
  1844.   Please Select a Resolution:
  1845.  @Elseif (3100 [= @Option)
  1846.   @Cls
  1847.   @NameVentura @msgDDI
  1848.   Please Select a Resolution:
  1849.  @Elseif (3200 [= @Option)
  1850.   @Cls
  1851.   @NameGem @msgDDI
  1852.   Please Select a Resolution:
  1853.  @Endif
  1854.    @Option 4 = "1024 x 768,  256 colors"
  1855.    @Option 2 = "800  x 600,  256 colors"
  1856.    @Option 0 = "640  x 480,  256 colors"     
  1857.    @Option 7 = "1280 x 1024, 16  colors"
  1858.    @Option 5 = "1280 x 960,  16  colors"
  1859.    @Option 3 = "1024 x 768,  16  colors"
  1860.    @Option 1 = "800  x 600,  16  colors"
  1861. @EndOption
  1862.  
  1863. @If (@Esc)
  1864.  @Goto EndS3911
  1865. @Elseif (0 [= @Option)
  1866.  @Value(0)
  1867. @Elseif (1 [= @Option)
  1868.  @Value(1)
  1869. @Elseif (2 [= @Option)
  1870.  @Value(2)
  1871. @Elseif (3 [= @Option)
  1872.  @Value(3)
  1873. @Elseif (4 [= @Option)
  1874.  @Value(4)
  1875. @Elseif (5 [= @Option)
  1876.  @Value(5)
  1877. @Else
  1878.  @Value(7)
  1879. @Endif
  1880.  
  1881. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "S31_911",
  1882.         "SET S31_911=@Value()", "REPLACE")
  1883.  
  1884. EndS3911:
  1885.  
  1886. @If (2400 [= @Option)
  1887.  @Goto EndCADVance
  1888. @Elseif (2500 [= @Option)
  1889.  @Goto EndGenCADD
  1890. @Elseif (2600 [= @Option)
  1891.  @Goto EndMicroCAD
  1892. @Elseif (3100 [= @Option)
  1893.  @Goto EndVentura
  1894. @Elseif (3200 [= @Option)
  1895.  @Goto EndGem
  1896. @Else
  1897.  @Goto MenuCADsys
  1898. #Endif
  1899.  
  1900.  
  1901.  
  1902. MenuSample:
  1903. @ClearOption(9010)
  1904. @ClearOption(9020)
  1905. @ClearOption(9030)
  1906. @ClearOption(9040) 
  1907.  @EnableF1(1)
  1908.  @GetOption
  1909.  @Cls
  1910.  @LocalWindow (10,39)   
  1911.   @Option 9010 = "Copy files from Master Drive A: to a Formatted Floppy Drive A:"
  1912.   @Option 9020 = "Copy files from Master Drive A: to a Formatted Floppy Drive B:"
  1913.   @Option 9030 = "Copy files from Master Drive B: to a Formatted Floppy Drive A:"
  1914.   @Option 9040 = "Copy files from Master Drive B: to a Formatted Floppy Drive B:"
  1915.  
  1916.  @EndOption
  1917.  
  1918.  
  1919.  @If (@Esc)
  1920.      @Goto MenuMain
  1921.   @Elseif (@KeyF1)
  1922.      @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1923.   @ElseIf (9010 [=@Option)
  1924.      @Goto MenuAA
  1925.   @ElseIf (9020 [=@Option)
  1926.      @Goto MenuBB
  1927.   @ElseIf (9030 [=@Option)
  1928.      @Goto MenuAA
  1929.   @ElseIf (9040 [=@Option)
  1930.      @Goto MenuBB
  1931. @endif
  1932. @Goto MenuSample
  1933.  
  1934.  
  1935. MenuAA:
  1936. @EnableF1(0)
  1937. @If (!@DriveExists(C))
  1938.     @Display
  1939.        This program requires a Hard Disk Drive to complete this copy.
  1940.  
  1941.       @Pause
  1942.     @Goto MenuMain
  1943.     @EndDisplay
  1944. @EndIf
  1945. @DefineDisk 
  1946.  @Label = "Disk #1"
  1947.  @BeginLib FAHDRVVA.001 
  1948.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  1949.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  1950.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  1951.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  1952.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  1953.   @F copya.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  1954.  
  1955.  @EndLib
  1956.  @F Finstall.exe   @O C:\Fahrenva\temp\install.exe 
  1957. @EndDisk
  1958.  
  1959. @Display                    
  1960.  @Cls
  1961.   @System "C:\\Fahrenva\\temp\\makedisk.bat"
  1962.  @Cls
  1963.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1964.  @Cls
  1965.  
  1966.  
  1967.  
  1968.  
  1969.  
  1970.  
  1971.  Voice Notes Playback Diskette Copy Now Completed....
  1972.     
  1973.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  1974.  
  1975.            Press any key to return to the Main Menu.
  1976.  
  1977.  
  1978.  
  1979.  
  1980.  
  1981.   @Pause
  1982. @EndDisplay
  1983.  
  1984. @Goto MenuMain
  1985.  
  1986.  
  1987. MenuBB:
  1988. @EnableF1(0)
  1989. @If (!@DriveExists(C))
  1990.     @Display
  1991.        This program requires a Hard Disk Drive to complete this copy.
  1992.  
  1993.       @Pause
  1994.     @Goto MenuMain
  1995.     @EndDisplay
  1996. @EndIf
  1997.  
  1998. @DefineDisk 
  1999.  @Label = "Disk #1"
  2000.  @BeginLib FAHDRVVA.001 
  2001.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  2002.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  2003.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  2004.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  2005.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  2006.   @F copyb.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  2007.  
  2008.  @EndLib
  2009.  @F finstall.exe   @O C:\fahrenva\temp\install.exe 
  2010. @EndDisk
  2011.  
  2012. @Display                    
  2013.  @Cls
  2014.   @System "C:\\fahrenva\\temp\\makedisk.bat"
  2015.  @Cls
  2016.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  2017.  @Cls
  2018.  
  2019.  
  2020.  
  2021.  
  2022.  
  2023.  
  2024.  Voice Notes Playback Diskette Copy Now Completed....
  2025.     
  2026.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  2027.  
  2028.            Press any key to return to the Main Menu.
  2029.  
  2030.  
  2031.  
  2032.  
  2033.  
  2034.   @Pause
  2035. @EndDisplay
  2036.  
  2037. @Goto MenuMain
  2038.