home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 April / IMM0495.ISO / driver / cirrus / disk1 / install.dat < prev    next >
Text File  |  1994-06-20  |  47KB  |  1,656 lines
  1. /*
  2.  *  FILE: INSTALL.DAT
  3.  *
  4.  *  REV:  1.30f
  5.  *
  6.  *  WHO:
  7.  *
  8.  *      0.20 Beta : Modified installation for GD543x Drivers by J. Wong on 01/17/94
  9.  *      1.00 RC1  : Updated for release candidate by KAF 2/8/94
  10.  *
  11.  *  DESC:
  12.  *      This script file handles the installation for the Cirrus
  13.  *      Logic GD543X display driver and support files.
  14.  *
  15.  *  HISTORY:
  16.  *
  17.  *      920423 1.00a KAF    Created initial script
  18.  *              920505 1.00a KAF        updated, first distribution
  19.  *              920615 1.00b KAF        updated, added VersaCAD
  20.  *              920623 1.00c KAF        updated ACAD, added GEM, moved RAMBIOS.
  21.  *              920624 1.00d KAF        updated lotus, cleaned install.
  22.  *              920821 1.00e KAF        fixed Word, Wordperfect, windows install, add OS/2
  23.  *
  24.  *              921110 1.20a YBK        updated to support 1.20 release drivers
  25.  *              930412 1.30  YBK        updated to support 5.25" floppies:
  26.  *                                      Added CLUTILS.RED,LOTUS.RED,new install.exe
  27.  *                                      deleted \CLUTIL,INSTALL.LIB
  28.  *              940117 1.30a AC         updated to latest utilities/drivers for 0.20 beta release
  29.  *              940117 1.30b KAF        added TSRFONT, \VGAUTILS section, removed GEM/VP for RC1
  30.  *                                                                              added support for installing from harddrive.
  31.  *              940214 1.30c KAF        Integrated Panacea Install, changed to Install 3.22.04
  32.  *                                                                              Now installs directly from hard drive without modification
  33.  *              940217 1.30d KAF        Updated ACAD install text, changed to VGAUTIL dir, 
  34.  *                                      updated CLMODE, CENTER, and ACAD files.
  35.  *
  36.  *              940615 1.30e CB/AC      Replaced @Mkdir() to @System() while creating VGAUTIL directory for 543x 1.10 Driver Kit release
  37.  *              940620 1.30f VT         Updated Panacea Driver
  38.  *
  39.  *  NOTES:
  40.  *   1.  Except where noted, all drivers support 800x600 16-colors.
  41.  *   2.  All files are released in uncompressed format. Except Lotus
  42.  *       3.0 and 3.1 INSTALL.DDF files
  43.  *
  44.  *  (C) Copyright 1991-1994, Cirrus Logic, Inc.  All rights reserved.
  45.  *
  46.  * -----------------------------------------------------------------------
  47.  * 1.4Mb floppy distribution disks
  48.  *
  49.  *
  50.  * Disk 1
  51.  * ------------------------------------------------------------------------
  52.  *        INSTALL.EXE                       ;Install program
  53.  *        INSTALL.DAT                       ;Install script file
  54.  *        DISK.ID                           ;Install Disk ID label
  55.  *        READ.ME                           ;Copyright notice for INSTALL program
  56.  * REV   DIRECTORY         DRIVER/UTILITY    DESCRIPTION
  57.  * ----  ---------         --------------    -----------
  58.  * v2.00p  ACADP       --> TURBODLD.RED     ;TurboDLD Classic AutoCAD
  59.  *                         RCTURBO.EXP      ;Accelerator Software Drivers
  60.  *                         INSTALL.DAT      ;
  61.  *                         INSTALL.EXE      ;
  62.  *                         READ.ME          ;Panacea product info
  63.  * v2.60 \VGAUTIL     --> CLMODE.EXE       ;Monitor and mode setting utility
  64.  *                         CLMODE.DAT       ;
  65.  *                         CENTER.COM       ;Monitor centering utility
  66.  *                         TSRFONT.COM      ;TSR Font loader for 8x14 font
  67.  * v400a  LOTUS2X      --> AVGAGR.DRV       ;supports Lotus 123 2.x 800x600
  68.  *                         TC132x25.DRV     ;   "       "    "   " 132x25 Chars
  69.  *                         TC132x43.DRV     ;   "       "    "   " 132x43 Chars
  70.  * v400a  LOTUS30      --> VGAS31CC.DRV     ;supports Lotus 123 3.x
  71.  *                         VGAS40CC.DRV     ;   "       "    "   "
  72.  *                         VGAS42CC.DRV     ;   "       "    "   "
  73.  *                         VGAS54CC.DRV     ;   "       "    "   "
  74.  *                         VGAS75CC.DRV     ;   "       "    "   "
  75.  *                         VGAS96CC.DRV     ;   "       "    "   "
  76.  *                         L13AVGA1.DLD     ;   "       "    "   "
  77.  *                         L13AVGA2.DLD     ;   "       "    "   "
  78.  *       \LOTUS.RED        INSTALL.30       ;DDF file supports Lotus 123 3.0
  79.  *                         INSTALL.31       ;DDF file supports Lotus 123 3.1
  80.  * v400a  WORD         --> SCREEN.VID       ;800x600  16-color WORD 5.0,5.5
  81.  *                         SCREEN8.VID      ;1024x768 16-color WORD 5.5
  82.  *        WP           --> CIRRUS.VRS       ;WP5.1 800x600, 1024x768 16 color
  83.  * v400a  WORDSTAR     --> CL800.WGD        ;supports WordStar 5.0-7.0 
  84.  *                         CL1024.WGD       ; v1.20a
  85.  *                         PREVIEW.MSG      ;
  86.  *                         PREVIEW.OVR      ;
  87.  *                         GRFPIX.EXE       ;
  88.  *
  89.  * v1.20  RAMBIOS      --> VGA.EXE          ;supports an OEM supplied RAMBIOS
  90.  *                                          ;  This subdirectory has not been
  91.  *                                          ;  created. Refer to the Release
  92.  *                                          ;  Notes document for instructions
  93.  *                                          ;  on including a VGA.EXE.
  94.  *
  95.  * -----------------------------------------------------------------------
  96.  */
  97.  
  98. // To place a @pause in the center of the display page,
  99. // space in 38 spaces and then type @pause.  To make sure
  100. // that the @pause is at the bottom of the display, the
  101. // @pause should be at line 21 or better of the display.
  102.  
  103. // Standard header here...
  104. @DefineProject
  105.     @Name           = "GD543X Display Drivers"
  106.     @Version        = "1.10"
  107.     @Subdir         = "\\"
  108.     @Immediate      = 1
  109.     @OutDrive       = C
  110.     @Requires   @HardDisk
  111. @EndProject
  112.  
  113. // Define all the vars you need here
  114. // Init all strings with "" or a hard coded string
  115. // Init all Integers with 0 or 1
  116.  
  117. // If OEM release, set @IsOem = 1 else 0
  118.  
  119. @DefineVars
  120.     @Integer @DDrive = 99
  121.     @Integer @StrLens = 0
  122.     @Integer @bannercol = 0
  123.     @Integer @OurCol = 0
  124.     @Integer @XX = 0
  125.     @Integer @IsOem = 1
  126.     @Dir @AcadDir  = "\\ACAD\\DRV"
  127.     @Drive @AcadDrive  = C
  128.     @Qstring @Product       = "GD543X" 
  129.     @Qstring @NameLower     = "GD543X display drivers"
  130.     @Qstring @Opt1020       = "AutoCAD 386 release 11, 12"
  131.     @Qstring @Opt1040       = "AutoDesk 3D Studio Ver 1.0 - 3.0"
  132.     @Qstring @Opt1060       = "AutoShade with RenderMan Ver 2.0"
  133.  
  134.  
  135.     @Qstring @Opt1100       = "Lotus 1-2-3 Ver 2.xx" 
  136.     @Qstring @Opt1110       = "Lotus 1-2-3 Ver 3.0"  
  137.     @Qstring @Opt1115       = "Lotus 1-2-3 Ver 3.1"  
  138.  
  139.     @Qstring @Opt1200       = "Word Ver 5.0 800x600 16-colors"
  140.     @Qstring @Opt1210       = "Word Ver 5.5 800x600, 1024x768 16-colors"
  141.     @Qstring @Opt1225       = "WordPerfect Ver 5.1"
  142.     @Qstring @Opt1230       = "VGA Utilities"
  143.     @Qstring @Opt1250       = "Wordstar Ver 5.5, 7.0"
  144. /*  @Qstring @Opt1890       = "[OEM VGA.EXE or VGALOCAL.EXE TEXT SCREEN VARIABLE NAME]" */
  145. /*  @Qstring @Opt1910       = "[OEM1 TEXT SCREEN VARIABLE NAME]" */
  146. /*  @Qstring @Opt1920       = "[OEM2 TEXT SCREEN VARIABLE NAME]" */
  147. /*  @Qstring @Opt1930       = "[OEM3 TEXT SCREEN VARIABLE NAME]" */
  148.  
  149.     @Qstring @Line1         = "is the name of the default directory where the"
  150.     @Qstring @Line2         = "display driver(s) will be installed."
  151.     @Qstring @Line3         = "The program locates the subdirectory below the root directory"
  152.     @Qstring @Line4         = "of drive"
  153.     @Qstring @Line5         = "To choose the default, press ENTER."
  154.     @Qstring @Line6         = "To change the directory name, backspace over the currently "
  155.     @Qstring @Line7         = "displayed name and type a new name.  Press ENTER when finished."
  156.     @Qstring @Line8         = "A directory already exists with the name"
  157.     @Qstring @Line9         = "Do you want to copy the new display driver(s) over the files in this"
  158.     @Qstring @Line10        = "directory?"
  159.     @Qstring @Line11        = "After the driver(s) have been copied to their respective directories,"
  160.     @Qstring @Line12        = "refer to either the application's technical reference manual or"
  161.     @Qstring @Line13        = "the Display Drivers and Utilities manual supplied with your VGA"
  162.     @Qstring @Line14        = "for information on using the high resolution drivers."
  163.     @Qstring @Line15        = "An INSTALL.DDF file already exists in the directory "
  164.     @Qstring @Line16        = "Do you want to rename the current INSTALL.DDF file to INSTALL.BAK?"
  165.     @Qstring @Line20        = "will be installed."
  166.     @Qstring @redprogram    = "TURBODLD.RED"
  167.     @Qstring @thisprogram   = "RCTURBOC.EXP"
  168.     @Qstring @namethisprogram = "TurboDLD drivers"
  169.     @Qstring @helpcontact   = "Panacea Inc"
  170.     @Qstring @registration  = ""
  171.     @Qstring @registrationname = ""
  172.     @Qstring @companyname   = ""
  173.     @Qstring @regreturn     = ""
  174.     @Qstring @ourhomeexp    = ""
  175.     @Qstring @ourhomered    = ""
  176.     @Qstring @tempstring    = ""
  177.     @Qstring @bannername    = "AutoCAD / AutoSHADE / 3D Studio TurboDLD Drivers"
  178.  
  179.     @Dir @Opt1100Dir        = "\\123"   
  180.     @Dir @Opt1110Dir        = "\\123R3"   
  181.     @Dir @Opt1115Dir        = "\\123R3" 
  182.     @Dir @Opt1200Dir        = "\\WORD5"
  183.     @Dir @Opt1210Dir        = "\\WORD55"
  184.     @Dir @Opt1225Dir        = "\\WP51"
  185.     @Dir @Opt1230Dir        = "\\VGAUTIL"
  186.     @Dir @Opt1250Dir        = "\\WS"
  187. /*  @Dir @Opt1890Dir        = "\\RAMBIOS" */
  188. /*  @Dir @Opt1910Dir        = "\\OEM1" */
  189. /*  @Dir @Opt1920Dir        = "\\OEM2" */
  190. /*  @Dir @Opt1930Dir        = "\\OEM3" */
  191. @EndVars
  192.  
  193. @Display
  194.     @Cls
  195.                @Name
  196.                 Release @Version
  197.  
  198.        Copyright (C) Cirrus Logic, Inc 1991-1994.  All rights reserved.
  199.  
  200.     This program will install the Cirrus Logic @NameLower,
  201.     release @Version, on your computer system and verify the integrity of
  202.     the distribution disk(s).  You may press the [Esc] key at any time to
  203.     abort the installation.  INSTALL will ask you several questions about
  204.     your computer hardware and then give you the option of installing all
  205.     or selected @NameLower.
  206.  
  207.     Each question has a default answer.  If the default answer is correct,
  208.     press the ENTER key in response to the question.  Otherwise, type the
  209.     answer and then press the ENTER key.
  210.  
  211.     If you make a mistake while typing, press the BACKSPACE key and then
  212.     retype the answer.
  213.  
  214.                     @Pause
  215. @EndDisplay
  216. @GetOutDrive
  217.   @Suppress A
  218.   @Suppress B 
  219.   @Cls
  220.    On which disk drive do you wish to install the @NameLower?
  221.  
  222. @EndOutDrive
  223.  
  224. OPTIONSELECT:
  225. @GetOption
  226.   @CheckBox
  227.   @Cls
  228.     Select the @NameLower to install on drive @OutDrive:
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.    - scroll up    PgUp - scroll page up    Enter     - install selections
  247.    - scroll down  PgDn - scroll page down  Space bar - toggle Yes/No
  248.   Y - all YES      N    - all NO            Esc       - Exit Install
  249.   @Option 1230 = "Cirrus Logic GD543X Utilities"
  250.   @Option 1020 = "AutoCAD 386              Rel 11,12    Multi-res  Multi-color"
  251.   @Option 1040 = "AutoDesk 3d Studio       Ver 1.0-3.0  Multi-res  Multi-color"
  252.   @Option 1060 = "AutoShade w/ RenderMan   Ver  2.0     Multi-res  Multi-color"
  253.   @Option 1100 = "Lotus 1-2-3              Ver  2.x     Multi-res  16-color" 
  254.   @Option 1110 = "Lotus 1-2-3              Ver  3.0     Multi-res  16-color"   
  255.   @Option 1115 = "Lotus 1-2-3              Ver  3.1     Multi-res  16-color"   
  256. /*  @Option 1140 = "OS/2 16/32-bit           Ver  2.x     Multi-res  16/256 color"*/
  257. /*@Option 1195 = "Windows                  Ver  3.1     Multi-res  Multi-color"*/
  258.   @Option 1200 = "Word                     Ver  5.0     800x600    16-color"
  259.   @Option 1210 = "Word                     Ver  5.5     800x600,1024x768 16-color"
  260.   @Option 1225 = "WordPerfect              Ver  5.1     Multi-res  16-color"
  261.   @Option 1250 = "WordStar                 Ver  5.5,7.0 800x600    16-color"
  262. /* @Option 1890 = "OEM RAMBIOS             Ver xx.x" */
  263. /* @Option 1910 = "OEM1 User Application   Ver xx.x" */
  264. /* @Option 1920 = "OEM2 User Application   Ver xx.x" */
  265. /* @Option 1930 = "OEM3 User Application   Ver xx.x" */
  266. @EndOption
  267.  
  268. @If (
  269.     1000 [! @Option &&
  270.      1020 [! @Option &&
  271.      1040 [! @Option &&
  272.      1060 [! @Option &&
  273.      1085 [! @Option &&
  274.        1100 [! @Option && 
  275.        1110 [! @Option &&   
  276.        1115 [! @Option && 
  277.       /*   1140 [! @Option &&*/
  278.      1130 [! @Option &&
  279.      1160 [! @Option &&
  280.      1170 [! @Option &&
  281.      1095 [! @Option &&
  282. /*       1195 [! @Option &&*/
  283.      1200 [! @Option &&
  284.      1210 [! @Option &&
  285. /*       1220 [! @Option &&      */
  286.      1225 [! @Option &&
  287.      1250 [! @Option  &&
  288.     1230 [! @Option 
  289. /*  && 1890 [! @Option */
  290. /*  && 1910 [! @Option */
  291. /*  && 1920 [! @Option */
  292. /*  && 1930 [! @Option */
  293.     )
  294.   @Display
  295.   @Cls
  296.  
  297.          * * *   A selection was not detected   * * *
  298.  
  299.  
  300.   At the selection menu, please use the Space bar to toggle the desired
  301.   selections and then press Enter to begin the installation procedure.
  302.  
  303.  
  304.   If no selections are desired, press Esc to exit the install program.
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.                     @Pause
  313.   @EndDisplay
  314.   @Goto OPTIONSELECT
  315.  
  316. @Endif
  317.  
  318. /** OEM1 Display Screen Begins ***************************************
  319. @If (1910 [= @Option)
  320.   @GetSubdir @Opt1910Dir
  321.     @Default = "\\OEM1"
  322.     @Cls
  323.  
  324.     @Opt1910Dir @Line1
  325.     @Opt1910 @Line2
  326.  
  327.     @Line3
  328.     @Line4 @OutDrive:
  329.  
  330.     @Line5
  331.  
  332.     @Line6
  333.     @Line7
  334.  
  335.     @Line11
  336.     @Line12
  337.     @Line13
  338.     @Line14
  339.  
  340.     @PROMPT = " Which directory? "
  341.   @EndSubdir
  342.  
  343.   @If (@DirExists("@OutDrive:@Opt1910Dir"))
  344.     @GetOption
  345.     @Line8 @OutDrive:@Opt1910Dir.
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.     @Line9
  353.     @Line10
  354.  
  355.     @Option 1911 = "Yes"
  356.     @Option 1912 = "No"
  357.  
  358.     @EndOption
  359.   @Else
  360.         @MkDir("@OutDrive:@Opt1910Dir")
  361.   @Endif
  362. @Endif
  363. ** OEM1 Display Screen Ends *****************************************/
  364.  
  365. /** OEM2 Display Screen Begins ***************************************
  366. @If (1920 [= @Option)
  367.   @GetSubdir @Opt1920Dir
  368.     @Default = "\\OEM2"
  369.     @Cls
  370.  
  371.     @Opt1920Dir @Line1
  372.     @Opt1920 @Line2
  373.  
  374.     @Line3
  375.     @Line4 @OutDrive:
  376.  
  377.     @Line5
  378.  
  379.     @Line6
  380.     @Line7
  381.  
  382.     @Line11
  383.     @Line12
  384.     @Line13
  385.     @Line14
  386.  
  387.     @PROMPT = " Which directory? "
  388.   @EndSubdir
  389.  
  390.   @If (@DirExists("@OutDrive:@Opt1920Dir"))
  391.     @GetOption
  392.     @Line8 @OutDrive:@Opt1920Dir.
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.     @Line9
  400.     @Line10
  401.  
  402.     @Option 1921 = "Yes"
  403.     @Option 1922 = "No"
  404.  
  405.     @EndOption
  406.   @Else
  407.         @MkDir("@OutDrive:@Opt1920Dir")
  408.   @Endif
  409. @Endif
  410. ** OEM2 Display Screen Ends *****************************************/
  411.  
  412. /** OEM3 Display Screen Begins ***************************************
  413. @If (1930 [= @Option)
  414.   @GetSubdir @Opt1930Dir
  415.     @Default = "\\OEM3"
  416.     @Cls
  417.  
  418.     @Opt1930Dir @Line1
  419.     @Opt1930 @Line2
  420.  
  421.     @Line3
  422.     @Line4 @OutDrive:
  423.  
  424.     @Line5
  425.  
  426.     @Line6
  427.     @Line7
  428.  
  429.     @Line11
  430.     @Line12
  431.     @Line13
  432.     @Line14
  433.  
  434.     @PROMPT = " Which directory? "
  435.   @EndSubdir
  436.  
  437.   @If (@DirExists("@OutDrive:@Opt1930Dir"))
  438.     @GetOption
  439.     @Line8 @OutDrive:@Opt1930Dir.
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.     @Line9
  447.     @Line10
  448.  
  449.     @Option 1931 = "Yes"
  450.     @Option 1932 = "No"
  451.  
  452.     @EndOption
  453.   @Else
  454.         @MkDir("@OutDrive:@Opt1920Dir")
  455.   @Endif
  456. @Endif
  457. ** OEM2 Display Screen Ends *****************************************/
  458.  
  459. /** OEM RAMBIOS Display Screen Begins ********************************
  460. @If (1890 [= @Option)
  461.   @GetSubdir @Opt1890Dir
  462.     @Default = "\\RAMBIOS"
  463.     @Cls
  464.  
  465.     @Opt1890Dir @Line1
  466.     @Opt1890 utility will be installed.
  467.  
  468.     @Line3
  469.     @Line4 @OutDrive:
  470.  
  471.     @Line5
  472.  
  473.     @Line6
  474.     @Line7
  475.  
  476.     @Line11
  477.     @Line12
  478.     @Line13
  479.     @Line14
  480.  
  481.     @PROMPT = " Which directory? "
  482.   @EndSubdir
  483.  
  484.   @If (@Exists "@OutDrive:@Opt1890Dir")
  485.     @GetOption
  486.     @Line8 @OutDrive:@Opt1890Dir.
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493.     @Line9
  494.     @Line10
  495.  
  496.     @Option 1891 = "Yes"
  497.     @Option 1892 = "No"
  498.  
  499.     @EndOption
  500.   @Endif
  501. @Endif
  502. ** OEM RAMBIOS Display Screen Ends ********************************/
  503.  
  504. @If ((1020 [= @Option)|| (1040 [= @Option)|| (1060 [= @Option))
  505.     // setup some of the local var defs
  506.  
  507.     // Used to display the banner on all screens
  508.     @xx = @strlen("@bannername")
  509.     @bannercol = (38 - @xx/2)
  510.  
  511.     // get the correct string for the EXP and the RED files
  512.     @ourhomeexp = @wherearewe(@thisprogram)
  513.     @ourhomered = @wherearewe(@redprogram)
  514.  
  515.     // used to check for Write Protect on floppy
  516.     @If (@IsOem == 1)
  517.        @goto Acad_OEM
  518.     @Endif
  519.  
  520.     @If (@InDrive == A)
  521.        @xx = @homedrive(0)
  522.     @ElseIf (@InDrive == B)
  523.        @xx = @homedrive(1)
  524.     @EndIf
  525.  
  526.     @If (@xx == 1)          // if error found ...
  527.         @tempstring = " Install must have write access to your @namethisprogram "
  528.         @xx = @strlen(@tempstring)
  529.         @ourcol = (38 - @xx/2)
  530.  
  531.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  532.         @movecstr(2,8,62,"║                                                           ║")
  533.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  534.         @MoveCStr(2, @bannercol, 48, @bannername)
  535.  
  536.         @movecstr(7,13,79,"╔═════════════════════════════════════════════════╗")
  537.         @movecstr(7,31,207," W A R N I N G ")
  538.         @movecstr(8,13,79,"║                                                 ║")
  539.         @movecstr(9,13,79,"║                                                 ║")
  540.         @movecstr(9,15,79," The diskette in Drive @InDrive is ")
  541.         @movecstr(9,43,78," -WRITE PROTECTED- ")
  542.         @movecstr(10,13,79,"║                                                 ║")
  543.         @movecstr(11,13,79,"╚═════════════════════════════════════════════════╝")
  544.  
  545.         @movecstr(15,@ourcol,31, @tempstring)
  546.         @movecstr(16,@ourcol,31," diskette in order to continue. ")
  547.  
  548.         @movecstr(19,@ourcol,31," Press any key to exit to DOS, unprotect the ")
  549.         @movecstr(20,@ourcol,31," @namethisprogram diskette and then run INSTALL again. ")
  550.  
  551.         @move(22,0)
  552.         @waitkey
  553.         @exit
  554.  
  555.     @Endif
  556.  
  557.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  558.     @movecstr(2,8,62,"║                                                           ║")
  559.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  560.     @MoveCStr(2, @bannercol, 48, @bannername)
  561.     
  562.     @movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
  563.     @movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
  564.     @movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
  565.     @movecstr(9,5,31,"your @name Users Guide, in particular the ")
  566.     @movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
  567.     @movecstr(11,5,31,"and Configuring topics.")
  568.     @movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
  569.     @movecstr(14,5,31,"are using AutoCAD Release 10 or 11 and follow configuration")
  570.     @movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render") 
  571.     @movecstr(16,5,31,"topic in your @name Users Guide.")
  572.  
  573.  
  574.     @Display
  575.         @move(21,0)
  576.                     @Pause
  577.     @enddisplay
  578.  
  579.  
  580.     // First thing to do is to check the software and 
  581.     // register it if need to..
  582.  
  583.     @regreturn = @ckregisterinfo(@ourhomeexp)
  584.  
  585.     @If (@strlen("@regreturn") == 0)
  586.     @GoTo Not_Registered
  587.     @Endif
  588.  
  589.     @If (@strfind(@regreturn, "ERROR") == -1)
  590.     @GoTo Show_Registered
  591.     @Endif
  592.  
  593.     // If here, there must have been an error 
  594.  
  595. ShowError:
  596.  
  597.     @xx = @strlen(@regreturn)
  598.     @ourcol = (40 - @xx/2)
  599.     // adjust for junk on the end of the string
  600.     @xx = (@xx - 1)
  601.  
  602.     @Display @Cls
  603.     @move(4,0)
  604.     There was an error detected by the install software.
  605.  
  606.     The error was:
  607.  
  608.     @movecstr(10,@ourcol,30,@strhead("@regreturn", @xx))
  609.  
  610.     @move(12,0)
  611.     Please insure that you have the correct files on your disk.
  612.  
  613.     If you need help, please contact @helpcontact.
  614.     @move(21,0)
  615.                     @Pause
  616.     @Exit
  617.     @enddisplay
  618.  
  619.     // If we are here then the software has been registered
  620.  
  621. Show_Registered:
  622.  
  623.     @regreturn = @ckregisterinfo(@ourhomeexp)
  624.  
  625.     // Clear the options out
  626.     @clearoption(1)
  627.     @clearoption(2)
  628.  
  629.     @xx = @strlen(@regreturn)
  630.     @ourcol = (38 - @xx/2)
  631.  
  632.     @GetOption
  633.     @LocalWindow(18,40)
  634.  
  635.     @movecstr(1,22,79,"╔═════════════════════════════╗")
  636.     @movecstr(2,22,79,"║                             ║")
  637.     @movecstr(2,24,78,"This Copy Is Registered To:")
  638.     @movecstr(3,22,79,"╚═════════════════════════════╝")
  639.  
  640.     @movecstr(7,@ourcol,30,@strhead("@regreturn", @xx))
  641.  
  642.     @move(9,0)
  643.        The program has been installed and is protected by federal
  644.        copyright laws.  If you need additional copies of this software 
  645.        please contact @helpcontact.
  646.  
  647.      @Option 1 = "Continue"
  648.      @Option 2 = "Exit Install"
  649.  
  650.     @EndOption
  651.  
  652.     @If(1 [= @Option)
  653.         @Goto Get_Acad
  654.     @Else
  655.        @Exit
  656.     @Endif
  657.  
  658. Not_Registered:
  659.  
  660.     @getstring @registration
  661.  
  662.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  663.     @movecstr(2,8,62,"║                                                           ║")
  664.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  665.     @MoveCStr(2, @bannercol, 48, @bannername)
  666.  
  667.     @LocalWindow(13,40)
  668.  
  669.     @movecstr(7,3,31,"Please type in your Full Name as you wish it to appear for registration")
  670.     @movecstr(8,3,31,"purposes. For Corporate installations, you may wish to enter the name of")
  671.     @movecstr(9,3,31,"your CAD Manager.")
  672.  
  673.     @movecstr(18,8,31,"Note: The total combined length of [Your Name] and, from the")
  674.     @movecstr(19,8,31,"      next screen, [Company Name] cannot exceed 64 characters.")
  675.     @movecstr(20,8,31,"      If the total is longer, [Company Name] will be truncated.")
  676.  
  677.     @prompt = "    Please Enter Your Full Name    "
  678.  
  679.     @EndString
  680.  
  681.     // get the length of the string so-far
  682.  
  683.     @strlens = (64 - @strlen("@registration"))
  684.  
  685.     @getstring @companyname
  686.  
  687.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  688.     @movecstr(2,8,62,"║                                                           ║")
  689.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  690.     @MoveCStr(2, @bannercol, 48, @bannername)
  691.  
  692.     @LocalWindow(13,40)
  693.  
  694.     @movecstr(7,14,31,"Please type in your Company Name as you would like")
  695.     @movecstr(8,14,31,"to have it appear for registration purposes.")
  696.  
  697.     @movecstr(18,9,31,"Note: You have @strlens characters available for [Company Name].")
  698.     @movecstr(19,9,31,"      If you enter a Company Name longer than @strlens characters,")
  699.     @movecstr(20,9,31,"      the additional information will be truncated.")
  700.  
  701.  
  702.     @prompt = "    Please Enter Your Company Name    "
  703.  
  704.     @EndString
  705.  
  706.     @registrationname = "@registration, @companyname"
  707.  
  708.     // Clear the options out
  709.     @clearoption(10)
  710.     @clearoption(20)
  711.  
  712.     @xx = @strlen(@registrationname)
  713.     @ourcol = (40 - @xx/2)
  714.  
  715.     @GetOption
  716.  
  717.     @LocalWindow(18,40)
  718.  
  719.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  720.     @movecstr(2,8,62,"║                                                           ║")
  721.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  722.     @Movecstr(2, @bannercol, 48, @bannername)
  723.  
  724.     @movecstr(8,18,31,"You have entered the following information:")
  725.  
  726.     @movecstr(12, @ourcol, 62, @registrationname)
  727.  
  728.  
  729.      @Option 10 = "Information Correct"
  730.      @Option 20 = "Information Not Correct"
  731.  
  732.     @EndOption
  733.  
  734.     @If(20 [= @Option)
  735.        @Goto Not_Registered
  736.     @Endif
  737.  
  738.     // NULL out the string b4 using again
  739.  
  740.     @tempstring = ""
  741.  
  742.     // If we are here, do the registration ....
  743.  
  744.     @regreturn = @registerit(@registrationname @ourhomeexp)
  745.  
  746.     @If (@strfind(@regreturn, "ERROR") != -1)
  747.     @GoTo ShowError
  748.     @Endif
  749. Acad_OEM:
  750.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  751.     @movecstr(2,8,62,"║                                                           ║")
  752.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  753.     @MoveCStr(2, @bannercol, 48, @bannername)
  754.     
  755.     @movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
  756.     @movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
  757.     @movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
  758.     @movecstr(9,5,31,"your @name Users Guide, in particular the ")
  759.     @movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
  760.     @movecstr(11,5,31,"and Configuring topics.")
  761.     @movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
  762.     @movecstr(14,5,31,"are using AutoCAD Release 10 or 11 and the follow configuration")
  763.     @movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render") 
  764.     @movecstr(16,5,31,"topic in your @name Users Guide.")
  765.  
  766.     @Display
  767.         @move(21,0)
  768.                     @Pause
  769.     @enddisplay
  770.  
  771. Get_Acad:
  772.     // clear the options first
  773.     @clearoption(1000)
  774.     @clearoption(2000)
  775.  
  776.     @GetOption @cls
  777.     @LocalWindow(14,40)
  778.  
  779.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  780.     @movecstr(2,8,62,"║                                                           ║")
  781.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  782.     @Movecstr(2, @bannercol, 48, @bannername)
  783.  
  784.     @move(8,0)
  785.           Please enter the Version of AutoCAD you are running:
  786.  
  787.     @Option 1000 = "    Release 12    "
  788.     @Option 2000 = " Release 10 or 11 "
  789.  
  790.     @EndOption
  791.  
  792.     @If(2000 [= @Option)
  793.        @AcadDir = "TURBODLD"
  794.     @EndIf
  795.  
  796.     @GetSubDir @AcadDir
  797.     @Cls
  798.     @LocalWindow(14,40)
  799.  
  800.     @If(1000 [= @Option)
  801.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  802.         @movecstr(2,8,62,"║                                                           ║")
  803.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  804.         @Movecstr(2, @bannercol, 48, @bannername)
  805.  
  806.         @movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 12.")
  807.         @movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
  808.         @movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD\\DRV sub-directory name")
  809.         @movecstr(8,5,31,"below.")
  810.         @movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
  811.         @movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
  812.         @movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
  813.         @movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
  814.         @movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
  815.         @movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
  816.  
  817.     @Else
  818.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  819.         @movecstr(2,8,62,"║                                                           ║")
  820.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  821.         @Movecstr(2, @bannercol, 48, @bannername)
  822.  
  823.         @movecstr(6,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 10")
  824.         @movecstr(7,5,31,"or 11. Enter a sub-directory name on @OutDrive: for @namethisprogram")
  825.         @movecstr(8,5,31,"files. If the sub-directory does not exist, @namethisprogram Install")
  826.         @movecstr(9,5,31,"will create it for you.")
  827.  
  828.     @EndIf
  829.  
  830.     @EndSubDir
  831.  
  832.     // Clear the options out
  833.     @clearoption(10)
  834.     @clearoption(20)
  835.  
  836.     @If (@DirExists("@OutDrive:\\@AcadDir"))
  837.       @GoTo Report
  838.     @Else
  839.       @GetOption
  840.       @LocalWindow(12,40)
  841.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  842.         @movecstr(2,8,62,"║                                                           ║")
  843.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  844.         @Movecstr(2, @bannercol, 48, @bannername)
  845.         @move(4,0)
  846.  
  847.     @AcadDir path was not found on @OutDrive.
  848.     
  849.     Would you like to create @AcadDir at this time?
  850.  
  851.  
  852.          @Option 10 = "Yes, create the path"
  853.          @Option 20 = "No; re-enter the information"
  854.  
  855.       @EndOption
  856.     @Endif
  857.  
  858.     @tempstring = " Creating @OutDrive:@AcadDir, please stand-by ! "
  859.     @xx = @strlen(@tempstring)
  860.     @ourcol = (40 - @xx/2)
  861.  
  862.     @If(10 [= @Option)
  863.        @Display @Cls
  864.         @movecstr(12,@ourcol,48,@tempstring)
  865.         @MkDir("@OutDrive:@AcadDir")
  866.        @EndDisplay
  867.        @Goto WeBuiltPath
  868.     @Else
  869.        @Goto Get_Acad
  870.     @Endif
  871.  
  872.     // Now we know where to install TURBODLD, tell the user whats going on
  873.  
  874. Report:
  875.  
  876.     @clearoption(10)
  877.     @clearoption(20)
  878.  
  879.     @tempstring = " @OutDrive:@AcadDir exists, do you wish to use this directory? "
  880.     @xx = @strlen(@tempstring)
  881.     @ourcol = (38 - @xx/2)
  882.  
  883.     @Getoption
  884.     @localwindow(14,40)
  885.  
  886.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  887.     @movecstr(2,8,62,"║                                                           ║")
  888.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  889.     @Movecstr(2, @bannercol, 48, @bannername)
  890.  
  891.     @movecstr(9,@ourcol,48,@tempstring)
  892.      @Option 10 = "Yes, Continue"
  893.      @Option 20 = "No; re-enter the information"
  894.     @Endoption
  895.  
  896.     @If(20 [= @Option)
  897.        @Goto Get_Acad
  898.     @Endif
  899.  
  900.     // we get here from building the dir\sub-dir and not asking if they want to use it.
  901.  
  902. WeBuiltPath:
  903.  
  904.     // Test the amount of free room left on the dest drive
  905.  
  906.     @Display @Cls
  907.  
  908.         @if (@diskfree(@OutDrive) < 1200000)
  909.  
  910.       @move(7,0)
  911.       The selected output disk drive only has @diskfree(@OutDrive) bytes.
  912.  
  913.       @namethisprogram requires a minumum of 1.2mb.
  914.  
  915.       The Install program will now exit, please correct this problem
  916.  
  917.       and re-run the Install program.
  918.         @move(21,0)
  919.                     @Pause
  920.         @exit
  921.         @endif
  922.     @enddisplay
  923.  
  924.     // Clear the options out
  925.     @clearoption(10)
  926.     @clearoption(20)
  927.  
  928.     @tempstring = " @OutDrive:@AcadDir "
  929.     @xx = @strlen(@tempstring)
  930.     @ourcol = (40 - @xx/2)
  931.  
  932.     @movecstr(12,@ourcol,63,@tempstring)
  933.  
  934.     @tempstring = " @NameThisProgram will be installed in: "
  935.     @xx = @strlen(@tempstring)
  936.     @ourcol = (40 - @xx/2)
  937.  
  938.     @GetOption
  939.  
  940.     @LocalWindow(17,40)
  941.  
  942.     @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  943.     @movecstr(2,8,62,"║                                                           ║")
  944.     @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  945.     @Movecstr(2, @bannercol, 48, @bannername)
  946.  
  947.     @movecstr(8,@ourcol,63,@tempstring)
  948.      @Option 10 = "Yes, this is the correct path"
  949.      @Option 20 = "No; re-enter the information"
  950.     @endoption
  951.  
  952.     @If(10 [= @Option)
  953.        @Goto Start_Copy
  954.     @Else
  955.        @Goto Get_Acad
  956.     @Endif
  957.  
  958. Start_Copy:
  959.  
  960. @Display
  961.  
  962. // First check if this is v10 or 11
  963.  
  964. @If(2000 [= @Option)
  965. //        Creating FASTACAD.BAT and PANA3DS.BAT files, please stand-by
  966.  
  967.    @Write("@OutDrive:\\@AcadDir\\FASTACAD.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
  968.    @Write( , , "SET DSPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  969.    @Write( , , "SET RDPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  970.    @Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  971. @Else
  972. //                  Creating PANA3DS.BAT file, please stand-by
  973. @EndIf
  974.  
  975. @Write("@OutDrive:\\@AcadDir\\PANA3DS.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
  976. @Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  977.  
  978. @enddisplay
  979.  
  980. // This part is a DOS style copy ...
  981.  
  982. @tempstring = "Processing @namethisprogram Install information -- Please Wait."
  983. @xx = @strlen(@tempstring)
  984. @ourcol = (40 - @xx/2)
  985.  
  986. @copy("@ourhomeexp", "@OutDrive:\\@AcadDir\\@thisprogram")
  987. @Endif
  988. @If (1100 [= @Option)
  989.   @GetSubdir @Opt1100Dir
  990.     @Default = "\\123"
  991.     @Cls
  992.  
  993.     @Opt1100Dir @Line1
  994.     @Opt1100 @Line2
  995.  
  996.     @Line3
  997.     @Line4 @OutDrive:
  998.  
  999.     @Line5
  1000.  
  1001.     @Line6
  1002.     @Line7
  1003.  
  1004.     @Line11
  1005.     @Line12
  1006.     @Line13
  1007.     @Line14
  1008.  
  1009.     @PROMPT = " Which directory? "
  1010.   @EndSubdir
  1011.   @If (@DirExists("@OutDrive:@Opt1100Dir"))
  1012.     @GetOption
  1013.     @LocalWindow(14,40)
  1014.     @Line8 @OutDrive:@Opt1100Dir.
  1015.  
  1016.  
  1017.  
  1018.  
  1019.  
  1020.  
  1021.  
  1022.     @Line9
  1023.     @Line10
  1024.  
  1025.     @Option 1101 = "Yes"
  1026.     @Option 1102 = "No"
  1027.  
  1028.     @EndOption
  1029.   @Else
  1030.         @MkDir("@OutDrive:@Opt1100Dir")
  1031.   @Endif
  1032. @Endif
  1033.  
  1034. @If (1110 [= @Option)
  1035.   @GetSubdir @Opt1110Dir
  1036.     @Default = "\\123R3"
  1037.     @Cls
  1038.  
  1039.     @Opt1110Dir @Line1
  1040.     @Opt1110 @Line2
  1041.  
  1042.     @Line3
  1043.     @Line4 @OutDrive:
  1044.  
  1045.     @Line5
  1046.  
  1047.     @Line6
  1048.     @Line7
  1049.  
  1050.     @Line11
  1051.     @Line12
  1052.     @Line13
  1053.     @Line14
  1054.  
  1055.     @PROMPT = " Which directory? "
  1056.   @EndSubdir
  1057.  
  1058.   @If (@DirExists("@OutDrive:@Opt1110Dir"))
  1059.     @GetOption
  1060.     @LocalWindow(14,40)
  1061.     @Line8 @OutDrive:@Opt1110Dir.
  1062.  
  1063.  
  1064.  
  1065.  
  1066.  
  1067.  
  1068.  
  1069.     @Line9
  1070.     @Line10
  1071.  
  1072.     @Option 1111 = "Yes"
  1073.     @Option 1112 = "No"
  1074.  
  1075.     @EndOption
  1076.   @Else
  1077.         @MkDir("@OutDrive:@Opt1110Dir")
  1078.   @Endif
  1079. @Endif
  1080. @If (1115 [= @Option)
  1081.   @GetSubdir @Opt1115Dir
  1082.     @Default = "\\123R3"
  1083.     @Cls
  1084.  
  1085.     @Opt1115Dir @Line1
  1086.     @Opt1115 @Line2
  1087.  
  1088.     @Line3
  1089.     @Line4 @OutDrive:
  1090.  
  1091.     @Line5
  1092.  
  1093.     @Line6
  1094.     @Line7
  1095.  
  1096.     @Line11
  1097.     @Line12
  1098.     @Line13
  1099.     @Line14
  1100.  
  1101.     @PROMPT = " Which directory? "
  1102.   @EndSubdir
  1103.  
  1104.   @If (@DirExists("@OutDrive:@Opt1115Dir"))
  1105.     @GetOption
  1106.     @LocalWindow(14,40)
  1107.     @Line8 @OutDrive:@Opt1115Dir.
  1108.  
  1109.  
  1110.  
  1111.  
  1112.  
  1113.  
  1114.  
  1115.     @Line9
  1116.     @Line10
  1117.  
  1118.     @Option 1116 = "Yes"
  1119.     @Option 1117 = "No"
  1120.  
  1121.     @EndOption
  1122.   @Else
  1123.         @MkDir("@OutDrive:@Opt1115Dir")
  1124.   @Endif
  1125. @Endif
  1126. /*
  1127. @If (1140 [= @Option)
  1128.   @Display
  1129.   @Cls
  1130.  
  1131.  
  1132.   The OS/2 WPS/PM version 2.x display device driver requires
  1133.   special procedures in order to correctly install on your system.
  1134.  
  1135.   Please refer to the display device driver section of the display drivers
  1136.   and utility user guide for more information on installing this driver.
  1137.  
  1138.  
  1139.  
  1140.                     @Pause
  1141.   @EndDisplay
  1142. @Endif
  1143. */
  1144. /*
  1145. @If (1195 [= @Option)
  1146.   @Display
  1147.   @Cls
  1148.  
  1149.  
  1150.   The Windows version 3.1 display device drivers requires that you
  1151.   run the setup program provided with Windows 3.1.  You may also
  1152.   want to use the Windows Install program provided on the Windows
  1153.   display drivers disk.  The install program will install a resolution
  1154.   setting utility to enable you to change resolution and select colors
  1155.   without the need to rerun the Windows Setup program.
  1156.  
  1157.   Please refer to the display device drivers section of the display drivers
  1158.   and utility user guide for more information on installing this driver.
  1159.  
  1160.  
  1161.  
  1162.                     @Pause
  1163.   @EndDisplay
  1164. @Endif
  1165. */
  1166. @If (1200 [= @Option)
  1167.   @GetSubdir @Opt1200Dir
  1168.     @Default = "\\WORD5"
  1169.     @Cls
  1170.  
  1171.     @Opt1200Dir @Line1
  1172.     @Opt1200 @Line2
  1173.  
  1174.     @Line3
  1175.     @Line4 @OutDrive:
  1176.  
  1177.     @Line5
  1178.  
  1179.     @Line6
  1180.     @Line7
  1181.  
  1182.     @Line11
  1183.     @Line12
  1184.     @Line13
  1185.     @Line14
  1186.  
  1187.     @PROMPT = " Which directory? "
  1188.   @EndSubdir
  1189.  
  1190.   @If (@DirExists("@OutDrive:@Opt1200Dir"))
  1191.     @GetOption
  1192.     @LocalWindow(14,40)
  1193.     @Line8 @OutDrive:@Opt1200Dir.
  1194.  
  1195.  
  1196.  
  1197.  
  1198.  
  1199.  
  1200.  
  1201.     @Line9
  1202.     @Line10
  1203.  
  1204.     @Option 1201 = "Yes"
  1205.     @Option 1202 = "No"
  1206.  
  1207.     @EndOption
  1208.   @Else
  1209.         @MkDir("@OutDrive:@Opt1200Dir")
  1210.   @Endif
  1211. @Endif
  1212. @If (1210 [= @Option)
  1213.   @GetSubdir @Opt1210Dir
  1214.     @Default = "\\WORD55"
  1215.     @Cls
  1216.  
  1217.     @Opt1210Dir @Line1
  1218.     @Opt1210 @Line20 
  1219.  
  1220.     @Line3
  1221.     @Line4 @OutDrive:
  1222.  
  1223.     @Line5
  1224.  
  1225.     @Line6
  1226.     @Line7
  1227.  
  1228.     @Line11
  1229.     @Line12
  1230.     @Line13
  1231.     @Line14
  1232.  
  1233.     @PROMPT = " Which directory? "
  1234.   @EndSubdir
  1235.  
  1236.   @If (@DirExists("@OutDrive:@Opt1210Dir"))
  1237.     @GetOption
  1238.     @LocalWindow(14,40)
  1239.     @Line8 @OutDrive:@Opt1210Dir.
  1240.  
  1241.  
  1242.  
  1243.  
  1244.  
  1245.  
  1246.  
  1247.     @Line9
  1248.     @Line10
  1249.  
  1250.     @Option 1211 = "Yes"
  1251.     @Option 1212 = "No"
  1252.  
  1253.     @EndOption
  1254.   @Else
  1255.         @MkDir("@OutDrive:@Opt1210Dir")
  1256.   @Endif
  1257. @Endif
  1258. /*
  1259. @If (1220 [= @Option)
  1260.   @GetSubdir @Opt1220Dir
  1261.     @Default = "\\WP50"
  1262.     @Cls
  1263.  
  1264.     @Opt1220Dir @Line1
  1265.     @Opt1220 @Line2
  1266.  
  1267.     @Line3
  1268.     @Line4 @OutDrive:
  1269.  
  1270.     @Line5
  1271.  
  1272.     @Line6
  1273.     @Line7
  1274.  
  1275.     @Line11
  1276.     @Line12
  1277.     @Line13
  1278.     @Line14
  1279.  
  1280.     @PROMPT = " Which directory? "
  1281.   @EndSubdir
  1282.  
  1283.   @If (@DirExists("@OutDrive:@Opt1220Dir"))
  1284.     @GetOption
  1285.     @LocalWindow(14,40)
  1286.     @Line8 @OutDrive:@Opt1220Dir.
  1287.  
  1288.  
  1289.  
  1290.  
  1291.  
  1292.  
  1293.  
  1294.     @Line9
  1295.     @Line10
  1296.  
  1297.     @Option 1221 = "Yes"
  1298.     @Option 1222 = "No"
  1299.  
  1300.     @EndOption
  1301.   @Else
  1302.         @MkDir("@OutDrive:@Opt1220Dir")
  1303.   @Endif
  1304. @Endif
  1305. */
  1306. @If (1225 [= @Option)
  1307.   @GetSubdir @Opt1225Dir
  1308.     @Default = "\\WP51"
  1309.     @Cls
  1310.  
  1311.     @Opt1225Dir @Line1
  1312.     @Opt1225 @Line2
  1313.  
  1314.     @Line3
  1315.     @Line4 @OutDrive:
  1316.  
  1317.     @Line5
  1318.  
  1319.     @Line6
  1320.     @Line7
  1321.  
  1322.     @Line11
  1323.     @Line12
  1324.     @Line13
  1325.     @Line14
  1326.  
  1327.     @PROMPT = " Which directory? "
  1328.   @EndSubdir
  1329.  
  1330.   @If (@DirExists("@OutDrive:@Opt1225Dir"))
  1331.     @GetOption
  1332.     @LocalWindow(14,40)
  1333.     @Line8 @OutDrive:@Opt1225Dir.
  1334.  
  1335.  
  1336.  
  1337.  
  1338.  
  1339.  
  1340.  
  1341.     @Line9
  1342.     @Line10
  1343.  
  1344.     @Option 1226 = "Yes"
  1345.     @Option 1227 = "No"
  1346.  
  1347.     @EndOption
  1348.   @Else
  1349.         @MkDir("@OutDrive:@Opt1225Dir")
  1350.   @Endif
  1351. @Endif
  1352. @If (1230 [= @Option)
  1353.   @GetSubdir @Opt1230Dir
  1354.     @Default = "\\VGAUTIL"
  1355.     @Cls
  1356.  
  1357.     @Opt1230Dir @Line1
  1358.     @Opt1230 @Line2
  1359.  
  1360.     @Product utilities will be installed.
  1361.  
  1362.     @Line3
  1363.     @Line4 @OutDrive:
  1364.  
  1365.     @Line5
  1366.  
  1367.     @Line6
  1368.     @Line7
  1369.  
  1370.     @Line11
  1371.     @Line12
  1372.     @Line13
  1373.     @Line14
  1374.  
  1375.     @PROMPT = " Which directory? "
  1376.   @EndSubdir
  1377.  
  1378.   @If (@DirExists("@OutDrive:@Opt1230Dir"))
  1379.     @GetOption
  1380.     @LocalWindow(14,40)
  1381.     @Line8 @OutDrive:@Opt1230Dir.
  1382.  
  1383.  
  1384.  
  1385.  
  1386.  
  1387.  
  1388.  
  1389.     @Line9
  1390.     @Line10
  1391.  
  1392.     @Option 1231 = "Yes"
  1393.     @Option 1232 = "No"
  1394.  
  1395.     @EndOption
  1396.   @Else
  1397. /* @MkDir() was unsuccessful copying files, use @System() instead */
  1398. /*              @MkDir("@OutDrive:@Opt1230Dir") */
  1399.         @System("md @OutDrive:@Opt1230Dir")     
  1400.   @Endif
  1401. @Endif
  1402. @If (1250 [= @Option)
  1403.   @GetSubdir @Opt1250Dir
  1404.     @Default = "\\WS"
  1405.     @Cls
  1406.  
  1407.     @Opt1250Dir @Line1
  1408.     @Opt1250 @Line2
  1409.  
  1410.     @Line3
  1411.     @Line4 @OutDrive:
  1412.  
  1413.     @Line5
  1414.  
  1415.     @Line6
  1416.     @Line7
  1417.  
  1418.     @Line11
  1419.     @Line12
  1420.     @Line13
  1421.     @Line14
  1422.  
  1423.     @PROMPT = " Which directory? "
  1424.   @EndSubdir
  1425.  
  1426.   @If (@DirExists("@OutDrive:@Opt1250Dir"))
  1427.     @GetOption
  1428.     @LocalWindow(14,40)
  1429.     @Line8 @OutDrive:@Opt1250Dir.
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437.     @Line9
  1438.     @Line10
  1439.  
  1440.     @Option 1251 = "Yes"
  1441.     @Option 1252 = "No"
  1442.  
  1443.     @EndOption
  1444.   @Else
  1445.         @MkDir("@OutDrive:@Opt1250Dir")
  1446.   @Endif
  1447. @Endif
  1448.  
  1449. /***********************************************************************/
  1450. @If (
  1451.      1000 [! @Option &&
  1452.      1020 [! @Option &&
  1453.      1040 [! @Option &&
  1454.      1060 [! @Option &&
  1455.      1080 [! @Option &&
  1456.      1085 [! @Option &&
  1457.        1100 [! @Option &&  
  1458.        1110 [! @Option &&    
  1459.        1115 [! @Option &&   
  1460.      1130 [! @Option &&
  1461.      1160 [! @Option &&
  1462.      1170 [! @Option &&
  1463.      1200 [! @Option &&
  1464.      1210 [! @Option &&
  1465. /*       1220 [! @Option &&     */
  1466.      1225 [! @Option &&
  1467.      1250 [! @Option &&
  1468.      1230 [! @Option 
  1469. /*  && 1890 [! @Option */
  1470. /*  && 1910 [! @Option */
  1471. /*  && 1920 [! @Option */
  1472. /*  && 1930 [! @Option */
  1473.     )
  1474.  
  1475.   @Goto NOINSTALLATION
  1476. @Endif
  1477.  
  1478. /***********************************************************************/
  1479. @DefineDisk
  1480.   @LABEL  = "Software disk 1 of 4"
  1481.   @If ((1020 [= @Option && 1022 [! @Option)||(1040 [= @Option && 1042 [! @Option)||(1060 [= @Option && 1062 [! @Option))
  1482.    @BeginLib @ourhomered
  1483.        @File *.* @Out @OutDrive:\\@AcadDir\\*.*
  1484.    @EndLib
  1485.     @File ACADP\RCTURBOC.EXP                    @Out @OutDrive:\\@AcadDir\RCTURBOC.EXP
  1486.     @File ACADP\READ.ME                         @Out @OutDrive:\\@AcadDir\READ.ME
  1487.   @Endif
  1488.   @If (1100 [= @Option && 1102 [! @Option)
  1489.     @File LOTUS2X\AVGAGR.DRV                        @Out @Opt1100Dir\AVGAGR.DRV
  1490.     @File LOTUS2X\TC132X25.DRV                      @Out @Opt1100Dir\TC132X25.DRV
  1491.     @File LOTUS2X\TC132X43.DRV                      @Out @Opt1100Dir\TC132X43.DRV
  1492.   @Endif
  1493.   @If (1110 [= @Option && 1112 [! @Option)
  1494.     @BeginLib LOTUS.RED
  1495.     @File INSTALL.30                               @Out @Opt1110Dir\INSTALL.DDF @AskOverwrite
  1496.     @EndLib
  1497.     @File LOTUS30\VGAS31CC.VBD                      @Out @Opt1110Dir\VGAS31CC.VBD
  1498.     @File LOTUS30\VGAS40CC.VBD                      @Out @Opt1110Dir\VGAS40CC.VBD
  1499.     @File LOTUS30\VGAS42CC.VBD                      @Out @Opt1110Dir\VGAS42CC.VBD
  1500.     @File LOTUS30\VGAS54CC.VBD                      @Out @Opt1110Dir\VGAS54CC.VBD
  1501.     @File LOTUS30\VGAS75CC.VBD                      @Out @Opt1110Dir\VGAS75CC.VBD
  1502.     @File LOTUS30\VGAS96CC.VBD                      @Out @Opt1110Dir\VGAS96CC.VBD
  1503.     @File LOTUS30\L13AVGA1.DLD                      @Out @Opt1110Dir\L13AVGA1.DLD
  1504.     @File LOTUS30\L13AVGA2.DLD                      @Out @Opt1110Dir\L13AVGA2.DLD
  1505.   @Endif
  1506.   @If (1115 [= @Option && 1117 [! @Option)
  1507.     @BeginLib LOTUS.RED
  1508.     @File INSTALL.31                                @Out @Opt1115Dir\INSTALL.DDF @AskOverwrite
  1509.     @EndLib
  1510.     @File LOTUS30\VGAS31CC.VBD                      @Out @Opt1115Dir\VGAS31CC.VBD
  1511.     @File LOTUS30\VGAS40CC.VBD                      @Out @Opt1115Dir\VGAS40CC.VBD
  1512.     @File LOTUS30\VGAS42CC.VBD                      @Out @Opt1115Dir\VGAS42CC.VBD
  1513.     @File LOTUS30\VGAS54CC.VBD                      @Out @Opt1115Dir\VGAS54CC.VBD
  1514.     @File LOTUS30\VGAS75CC.VBD                      @Out @Opt1115Dir\VGAS75CC.VBD
  1515.     @File LOTUS30\VGAS96CC.VBD                      @Out @Opt1115Dir\VGAS96CC.VBD
  1516.     @File LOTUS30\L13AVGA1.DLD                      @Out @Opt1115Dir\L13AVGA1.DLD
  1517.     @File LOTUS30\L13AVGA2.DLD                      @Out @Opt1115Dir\L13AVGA2.DLD
  1518.   @Endif
  1519.   @If (1200 [= @Option && 1202 [! @Option)
  1520.       @File WORD\SCREEN.VID                     @Out @Opt1200Dir\SCREEN.VID
  1521.   @Endif
  1522.   @If (1230 [= @Option && 1232 [! @Option)
  1523.       @File VGAUTIL\TSRFONT.COM              @Out \@Opt1230Dir\TSRFONT.COM
  1524.       @File VGAUTIL\CENTER.COM               @Out \@Opt1230Dir\CENTER.COM 
  1525.       @File VGAUTIL\CLMODE.EXE               @Out \@Opt1230Dir\CLMODE.EXE
  1526.       @File VGAUTIL\CLMODE.DAT               @Out \@Opt1230Dir\CLMODE.DAT
  1527.   @Endif
  1528.   @If (1210 [= @Option && 1212 [! @Option)
  1529.       @File WORD\SCREEN.VID                     @Out @Opt1210Dir\SCREEN.VID
  1530.       @File WORD\SCREEN8.VID                     @Out @Opt1210Dir\SCREEN8.VID
  1531.   @Endif
  1532.   @If (1225 [= @Option && 1227 [! @Option)
  1533.       @File WP\CIRRUS.VRS                  @Out @Opt1225Dir\CIRRUS.VRS
  1534.   @Endif
  1535. /*  @Endif   */
  1536.   @If (1250 [= @Option && 1252 [! @Option)
  1537.       @File WORDSTAR\CL800.WGD              @Out \@Opt1250Dir\CL800.WGD
  1538.       @File WORDSTAR\CL1024.WGD             @Out \@Opt1250Dir\CL1024.WGD
  1539.       @File WORDSTAR\PREVIEW.OVR            @Out \@Opt1250Dir\PREVIEW.OVR
  1540.       @File WORDSTAR\PREVIEW.MSG            @Out \@Opt1250Dir\PREVIEW.MSG
  1541.       @File WORDSTAR\GRFPIX.EXE             @Out \@Opt1250Dir\GRFPIX.EXE
  1542.   @Endif
  1543. /** OEM RAMBIOS File Copy Begins ************************************
  1544.   @If (1890 [= @Option && 1892 [! @Option)
  1545.     @File RAMBIOS\VGA.EXE                   @Out @Opt1890Dir\VGA.EXE
  1546.   @Endif
  1547. ** OEM RAMBIOS File Copy Ends **************************************/
  1548. @EndDisk
  1549.  
  1550.  
  1551. @DefineDisk
  1552.   @LABEL  = "Software Disk 2 of 4"
  1553. @EndDisk
  1554. @DefineDisk
  1555.   @LABEL  = "Software Disk 3 of 4"
  1556. @EndDisk
  1557.  
  1558.  
  1559. /** OEM Disk Installation Start Begins ******************************
  1560. @DefineDisk
  1561. @LABEL  = "OEM DISPLAY DRIVERS"
  1562. ** OEM Disk Installation Start Ends  ********************************/
  1563.  
  1564. /** OEM1 File Copy Begins *******************************************
  1565.   @If (1910 [= @Option && 1912 [! @Option)
  1566.     @File OEM1\FILE1.EXT                        @Out @Opt1910Dir\FILE1.EXT
  1567.     @File OEM1\FILE2.EXT                        @Out @Opt1910Dir\FILE2.EXT
  1568.   @Endif
  1569. ** OEM1 File Copy Ends *********************************************/
  1570.  
  1571. /** OEM2 File Copy Begins *******************************************
  1572.   @If (1920 [= @Option && 1922 [! @Option)
  1573.     @File OEM2\FILE1.EXT                        @Out @Opt1920Dir\FILE1.EXT
  1574.     @File OEM2\FILE2.EXT                        @Out @Opt1920Dir\FILE2.EXT
  1575.   @Endif
  1576. ** OEM2 File Copy Ends *********************************************/
  1577.  
  1578. /** OEM3 File Copy Begins *******************************************
  1579.   @If (1930 [= @Option && 1932 [! @Option)
  1580.     @File OEM3\FILE1.EXT                        @Out @Opt1930Dir\FILE1.EXT
  1581.     @File OEM3\FILE2.EXT                        @Out @Opt1930Dir\FILE2.EXT
  1582.   @Endif
  1583. ** OEM3 File Copy Ends *********************************************/
  1584.  
  1585. /** OEM Disk Installation Finish Begins *****************************
  1586. @EndDisk
  1587. ** OEM Disk Installation Finish Ends *******************************/
  1588.  
  1589. /***********************************************************************/
  1590. /** OEM RAMBIOS AUTOEXEC.BAT File Modification Begins ********
  1591. @If (1890 [= @Option && 1892 [! @Option)
  1592.   @SetAutoexec
  1593.     @AskOverwrite
  1594.     @Verbatim "@Opt1890Dir\\RAMBIOS"
  1595.   @EndAutoexec
  1596. @Endif
  1597. ** OEM RAMBIOS AUTOEXEC.BAT File Modification Ends ***********/
  1598.  
  1599. /***********************************************************************/
  1600. @Finish
  1601.   @Cls
  1602.     The @NameLower installation is complete.
  1603. /** OEM RAMBIOS Reboot Message Begins ****************************
  1604.     @If (1890 [= @Option && 1892 [! @Option)
  1605.     Reboot the system to activate the RAMBIOS.
  1606.     @Endif
  1607. ** OEM RAMBIOS Reboot Message Ends ******************************/
  1608.   @If(2000 [= @Option)
  1609.       @move(2,0)
  1610.      You have successfully installed @namethisprogram for use with 
  1611.      AutoCADRelease 10 or 11. Before you can use @namethisprogram you 
  1612.      must run the FASTACAD.BAT file copied to your @OutDrive:@AcadDir 
  1613.      sub-directory and then reconfigure AutoCAD to use @namethisprogram.
  1614.      You may wish to add FASTACAD.BAT to your AutoCAD start-up file.
  1615.  
  1616.  
  1617.      To reconfigure AutoCAD to use @namethisprogram start AutoCAD and
  1618.      select the "P386 ...." display option and then follow the
  1619.      on-screen directions.
  1620.  
  1621.     @move(21,0)
  1622.   @Goto DONE
  1623. @Endif
  1624. @If(1000 [= @Option)
  1625.       @move(2,0)
  1626.      You have successfully installed @namethisprogram for AutoCAD
  1627.      Release 12.  Before you can use @namethisprogram you must
  1628.      reconfigure AutoCAD. To reconfigure, start AutoCAD with "ACAD -r"
  1629.      and change the current display device. Choose @namethisprogram
  1630.      from the list of available display drivers and then follow the
  1631.      on-screen instructions. Refer to your @name
  1632.      Users Guide for detailed configuration instructions.
  1633.  
  1634.      If you have chosen to install @namethisprogram into a sub-directory
  1635.      other than ACAD\DRV, you must append the following path to your
  1636.      "SET ACADDRV=...." environment variable.  
  1637.          
  1638.                  @OutDrive:@AcadDir
  1639.  
  1640.   @move(21,0)
  1641.   @Goto DONE
  1642. @EndIf
  1643. @Goto DONE
  1644. NOINSTALLATION:
  1645.     The selected @NameLower were not installed.
  1646.     Please refer to the user manual for additional instructions.
  1647.  
  1648. DONE:
  1649.                     @Pause
  1650.   @ChDrive @OutDrive
  1651.   @ChDir "\\"
  1652. @EndFinish
  1653.  
  1654. // end-of-file
  1655.  
  1656.