/*
 *  FILE: INSTALL.DAT
 *
 *  REV:  1.30f
 *
 *  WHO:
 *
 *      0.20 Beta : Modified installation for GD543x Drivers by J. Wong on 01/17/94
 *      1.00 RC1  : Updated for release candidate by KAF 2/8/94
 *
 *  DESC:
 *      This script file handles the installation for the Cirrus
 *      Logic GD543X display driver and support files.
 *
 *  HISTORY:
 *
 *      920423 1.00a KAF    Created initial script
 *              920505 1.00a KAF        updated, first distribution
 *              920615 1.00b KAF        updated, added VersaCAD
 *              920623 1.00c KAF        updated ACAD, added GEM, moved RAMBIOS.
 *              920624 1.00d KAF        updated lotus, cleaned install.
 *              920821 1.00e KAF        fixed Word, Wordperfect, windows install, add OS/2
 *
 *              921110 1.20a YBK        updated to support 1.20 release drivers
 *              930412 1.30  YBK        updated to support 5.25" floppies:
 *                                      Added CLUTILS.RED,LOTUS.RED,new install.exe
 *                                      deleted \CLUTIL,INSTALL.LIB
 *              940117 1.30a AC         updated to latest utilities/drivers for 0.20 beta release
 *              940117 1.30b KAF        added TSRFONT, \VGAUTILS section, removed GEM/VP for RC1
 *                                                                              added support for installing from harddrive.
 *              940214 1.30c KAF        Integrated Panacea Install, changed to Install 3.22.04
 *                                                                              Now installs directly from hard drive without modification
 *              940217 1.30d KAF        Updated ACAD install text, changed to VGAUTIL dir, 
 *                                      updated CLMODE, CENTER, and ACAD files.
 *
 *              940615 1.30e CB/AC      Replaced @Mkdir() to @System() while creating VGAUTIL directory for 543x 1.10 Driver Kit release
 *              940620 1.30f VT         Updated Panacea Driver
 *
 *  NOTES:
 *   1.  Except where noted, all drivers support 800x600 16-colors.
 *   2.  All files are released in uncompressed format. Except Lotus
 *       3.0 and 3.1 INSTALL.DDF files
 *
 *  (C) Copyright 1991-1994, Cirrus Logic, Inc.  All rights reserved.
 *
 * -----------------------------------------------------------------------
 * 1.4Mb floppy distribution disks
 *
 *
 * Disk 1
 * ------------------------------------------------------------------------
 *        INSTALL.EXE                       ;Install program
 *        INSTALL.DAT                       ;Install script file
 *        DISK.ID                           ;Install Disk ID label
 *        READ.ME                           ;Copyright notice for INSTALL program
 * REV   DIRECTORY         DRIVER/UTILITY    DESCRIPTION
 * ----  ---------         --------------    -----------
 * v2.00p  ACADP       --> TURBODLD.RED     ;TurboDLD Classic AutoCAD
 *                         RCTURBO.EXP      ;Accelerator Software Drivers
 *                         INSTALL.DAT      ;
 *                         INSTALL.EXE      ;
 *                         READ.ME          ;Panacea product info
 * v2.60 \VGAUTIL     --> CLMODE.EXE       ;Monitor and mode setting utility
 *                         CLMODE.DAT       ;
 *                         CENTER.COM       ;Monitor centering utility
 *                         TSRFONT.COM      ;TSR Font loader for 8x14 font
 * v400a  LOTUS2X      --> AVGAGR.DRV       ;supports Lotus 123 2.x 800x600
 *                         TC132x25.DRV     ;   "       "    "   " 132x25 Chars
 *                         TC132x43.DRV     ;   "       "    "   " 132x43 Chars
 * v400a  LOTUS30      --> VGAS31CC.DRV     ;supports Lotus 123 3.x
 *                         VGAS40CC.DRV     ;   "       "    "   "
 *                         VGAS42CC.DRV     ;   "       "    "   "
 *                         VGAS54CC.DRV     ;   "       "    "   "
 *                         VGAS75CC.DRV     ;   "       "    "   "
 *                         VGAS96CC.DRV     ;   "       "    "   "
 *                         L13AVGA1.DLD     ;   "       "    "   "
 *                         L13AVGA2.DLD     ;   "       "    "   "
 *       \LOTUS.RED        INSTALL.30       ;DDF file supports Lotus 123 3.0
 *                         INSTALL.31       ;DDF file supports Lotus 123 3.1
 * v400a  WORD         --> SCREEN.VID       ;800x600  16-color WORD 5.0,5.5
 *                         SCREEN8.VID      ;1024x768 16-color WORD 5.5
 *        WP           --> CIRRUS.VRS       ;WP5.1 800x600, 1024x768 16 color
 * v400a  WORDSTAR     --> CL800.WGD        ;supports WordStar 5.0-7.0 
 *                         CL1024.WGD       ; v1.20a
 *                         PREVIEW.MSG      ;
 *                         PREVIEW.OVR      ;
 *                         GRFPIX.EXE       ;
 *
 * v1.20  RAMBIOS      --> VGA.EXE          ;supports an OEM supplied RAMBIOS
 *                                          ;  This subdirectory has not been
 *                                          ;  created. Refer to the Release
 *                                          ;  Notes document for instructions
 *                                          ;  on including a VGA.EXE.
 *
 * -----------------------------------------------------------------------
 */

// To place a @pause in the center of the display page,
// space in 38 spaces and then type @pause.  To make sure
// that the @pause is at the bottom of the display, the
// @pause should be at line 21 or better of the display.

// Standard header here...
@DefineProject
	@Name           = "GD543X Display Drivers"
	@Version        = "1.10"
	@Subdir         = "\\"
	@Immediate      = 1
	@OutDrive       = C
	@Requires   @HardDisk
@EndProject

// Define all the vars you need here
// Init all strings with "" or a hard coded string
// Init all Integers with 0 or 1

// If OEM release, set @IsOem = 1 else 0

@DefineVars
	@Integer @DDrive = 99
	@Integer @StrLens = 0
	@Integer @bannercol = 0
	@Integer @OurCol = 0
	@Integer @XX = 0
	@Integer @IsOem = 1
	@Dir @AcadDir  = "\\ACAD\\DRV"
	@Drive @AcadDrive  = C
    @Qstring @Product       = "GD543X" 
    @Qstring @NameLower     = "GD543X display drivers"
    @Qstring @Opt1020       = "AutoCAD 386 release 11, 12"
    @Qstring @Opt1040       = "AutoDesk 3D Studio Ver 1.0 - 3.0"
    @Qstring @Opt1060       = "AutoShade with RenderMan Ver 2.0"


    @Qstring @Opt1100       = "Lotus 1-2-3 Ver 2.xx" 
    @Qstring @Opt1110       = "Lotus 1-2-3 Ver 3.0"  
    @Qstring @Opt1115       = "Lotus 1-2-3 Ver 3.1"  

    @Qstring @Opt1200       = "Word Ver 5.0 800x600 16-colors"
    @Qstring @Opt1210       = "Word Ver 5.5 800x600, 1024x768 16-colors"
    @Qstring @Opt1225       = "WordPerfect Ver 5.1"
    @Qstring @Opt1230       = "VGA Utilities"
    @Qstring @Opt1250       = "Wordstar Ver 5.5, 7.0"
/*  @Qstring @Opt1890       = "[OEM VGA.EXE or VGALOCAL.EXE TEXT SCREEN VARIABLE NAME]" */
/*  @Qstring @Opt1910       = "[OEM1 TEXT SCREEN VARIABLE NAME]" */
/*  @Qstring @Opt1920       = "[OEM2 TEXT SCREEN VARIABLE NAME]" */
/*  @Qstring @Opt1930       = "[OEM3 TEXT SCREEN VARIABLE NAME]" */

    @Qstring @Line1         = "is the name of the default directory where the"
    @Qstring @Line2         = "display driver(s) will be installed."
    @Qstring @Line3         = "The program locates the subdirectory below the root directory"
    @Qstring @Line4         = "of drive"
    @Qstring @Line5         = "To choose the default, press ENTER."
    @Qstring @Line6         = "To change the directory name, backspace over the currently "
    @Qstring @Line7         = "displayed name and type a new name.  Press ENTER when finished."
    @Qstring @Line8         = "A directory already exists with the name"
    @Qstring @Line9         = "Do you want to copy the new display driver(s) over the files in this"
    @Qstring @Line10        = "directory?"
    @Qstring @Line11        = "After the driver(s) have been copied to their respective directories,"
    @Qstring @Line12        = "refer to either the application's technical reference manual or"
    @Qstring @Line13        = "the Display Drivers and Utilities manual supplied with your VGA"
    @Qstring @Line14        = "for information on using the high resolution drivers."
    @Qstring @Line15        = "An INSTALL.DDF file already exists in the directory "
    @Qstring @Line16        = "Do you want to rename the current INSTALL.DDF file to INSTALL.BAK?"
    @Qstring @Line20        = "will be installed."
	@Qstring @redprogram    = "TURBODLD.RED"
	@Qstring @thisprogram   = "RCTURBOC.EXP"
	@Qstring @namethisprogram = "TurboDLD drivers"
	@Qstring @helpcontact   = "Panacea Inc"
	@Qstring @registration  = ""
	@Qstring @registrationname = ""
	@Qstring @companyname   = ""
	@Qstring @regreturn     = ""
	@Qstring @ourhomeexp    = ""
	@Qstring @ourhomered    = ""
	@Qstring @tempstring    = ""
	@Qstring @bannername    = "AutoCAD / AutoSHADE / 3D Studio TurboDLD Drivers"

    @Dir @Opt1100Dir        = "\\123"   
    @Dir @Opt1110Dir        = "\\123R3"   
    @Dir @Opt1115Dir        = "\\123R3" 
    @Dir @Opt1200Dir        = "\\WORD5"
    @Dir @Opt1210Dir        = "\\WORD55"
    @Dir @Opt1225Dir        = "\\WP51"
    @Dir @Opt1230Dir        = "\\VGAUTIL"
    @Dir @Opt1250Dir        = "\\WS"
/*  @Dir @Opt1890Dir        = "\\RAMBIOS" */
/*  @Dir @Opt1910Dir        = "\\OEM1" */
/*  @Dir @Opt1920Dir        = "\\OEM2" */
/*  @Dir @Opt1930Dir        = "\\OEM3" */
@EndVars

@Display
	@Cls
			   @Name
				Release @Version

       Copyright (C) Cirrus Logic, Inc 1991-1994.  All rights reserved.

    This program will install the Cirrus Logic @NameLower,
    release @Version, on your computer system and verify the integrity of
    the distribution disk(s).  You may press the [Esc] key at any time to
    abort the installation.  INSTALL will ask you several questions about
    your computer hardware and then give you the option of installing all
    or selected @NameLower.

    Each question has a default answer.  If the default answer is correct,
    press the ENTER key in response to the question.  Otherwise, type the
    answer and then press the ENTER key.

    If you make a mistake while typing, press the BACKSPACE key and then
    retype the answer.

					@Pause
@EndDisplay
@GetOutDrive
  @Suppress A
  @Suppress B 
  @Cls
   On which disk drive do you wish to install the @NameLower?

@EndOutDrive

OPTIONSELECT:
@GetOption
  @CheckBox
  @Cls
	Select the @NameLower to install on drive @OutDrive:

















   - scroll up    PgUp - scroll page up    Enter     - install selections
   - scroll down  PgDn - scroll page down  Space bar - toggle Yes/No
  Y - all YES      N    - all NO            Esc       - Exit Install
  @Option 1230 = "Cirrus Logic GD543X Utilities"
  @Option 1020 = "AutoCAD 386              Rel 11,12    Multi-res  Multi-color"
  @Option 1040 = "AutoDesk 3d Studio       Ver 1.0-3.0  Multi-res  Multi-color"
  @Option 1060 = "AutoShade w/ RenderMan   Ver  2.0     Multi-res  Multi-color"
  @Option 1100 = "Lotus 1-2-3              Ver  2.x     Multi-res  16-color" 
  @Option 1110 = "Lotus 1-2-3              Ver  3.0     Multi-res  16-color"   
  @Option 1115 = "Lotus 1-2-3              Ver  3.1     Multi-res  16-color"   
/*  @Option 1140 = "OS/2 16/32-bit           Ver  2.x     Multi-res  16/256 color"*/
/*@Option 1195 = "Windows                  Ver  3.1     Multi-res  Multi-color"*/
  @Option 1200 = "Word                     Ver  5.0     800x600    16-color"
  @Option 1210 = "Word                     Ver  5.5     800x600,1024x768 16-color"
  @Option 1225 = "WordPerfect              Ver  5.1     Multi-res  16-color"
  @Option 1250 = "WordStar                 Ver  5.5,7.0 800x600    16-color"
/* @Option 1890 = "OEM RAMBIOS             Ver xx.x" */
/* @Option 1910 = "OEM1 User Application   Ver xx.x" */
/* @Option 1920 = "OEM2 User Application   Ver xx.x" */
/* @Option 1930 = "OEM3 User Application   Ver xx.x" */
@EndOption

@If (
	1000 [! @Option &&
	 1020 [! @Option &&
	 1040 [! @Option &&
	 1060 [! @Option &&
	 1085 [! @Option &&
	   1100 [! @Option && 
	   1110 [! @Option &&   
	   1115 [! @Option && 
      /*   1140 [! @Option &&*/
	 1130 [! @Option &&
	 1160 [! @Option &&
	 1170 [! @Option &&
	 1095 [! @Option &&
/*       1195 [! @Option &&*/
	 1200 [! @Option &&
	 1210 [! @Option &&
/*       1220 [! @Option &&      */
	 1225 [! @Option &&
	 1250 [! @Option  &&
	1230 [! @Option 
/*  && 1890 [! @Option */
/*  && 1910 [! @Option */
/*  && 1920 [! @Option */
/*  && 1930 [! @Option */
	)
  @Display
  @Cls

		 * * *   A selection was not detected   * * *


  At the selection menu, please use the Space bar to toggle the desired
  selections and then press Enter to begin the installation procedure.


  If no selections are desired, press Esc to exit the install program.







					@Pause
  @EndDisplay
  @Goto OPTIONSELECT

@Endif

/** OEM1 Display Screen Begins ***************************************
@If (1910 [= @Option)
  @GetSubdir @Opt1910Dir
    @Default = "\\OEM1"
    @Cls

    @Opt1910Dir @Line1
    @Opt1910 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1910Dir"))
    @GetOption
    @Line8 @OutDrive:@Opt1910Dir.






    @Line9
    @Line10

    @Option 1911 = "Yes"
    @Option 1912 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1910Dir")
  @Endif
@Endif
** OEM1 Display Screen Ends *****************************************/

/** OEM2 Display Screen Begins ***************************************
@If (1920 [= @Option)
  @GetSubdir @Opt1920Dir
    @Default = "\\OEM2"
    @Cls

    @Opt1920Dir @Line1
    @Opt1920 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1920Dir"))
    @GetOption
    @Line8 @OutDrive:@Opt1920Dir.






    @Line9
    @Line10

    @Option 1921 = "Yes"
    @Option 1922 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1920Dir")
  @Endif
@Endif
** OEM2 Display Screen Ends *****************************************/

/** OEM3 Display Screen Begins ***************************************
@If (1930 [= @Option)
  @GetSubdir @Opt1930Dir
    @Default = "\\OEM3"
    @Cls

    @Opt1930Dir @Line1
    @Opt1930 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1930Dir"))
    @GetOption
    @Line8 @OutDrive:@Opt1930Dir.






    @Line9
    @Line10

    @Option 1931 = "Yes"
    @Option 1932 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1920Dir")
  @Endif
@Endif
** OEM2 Display Screen Ends *****************************************/

/** OEM RAMBIOS Display Screen Begins ********************************
@If (1890 [= @Option)
  @GetSubdir @Opt1890Dir
    @Default = "\\RAMBIOS"
    @Cls

    @Opt1890Dir @Line1
    @Opt1890 utility will be installed.

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@Exists "@OutDrive:@Opt1890Dir")
    @GetOption
    @Line8 @OutDrive:@Opt1890Dir.






    @Line9
    @Line10

    @Option 1891 = "Yes"
    @Option 1892 = "No"

    @EndOption
  @Endif
@Endif
** OEM RAMBIOS Display Screen Ends ********************************/

@If ((1020 [= @Option)|| (1040 [= @Option)|| (1060 [= @Option))
	// setup some of the local var defs

	// Used to display the banner on all screens
	@xx = @strlen("@bannername")
	@bannercol = (38 - @xx/2)

	// get the correct string for the EXP and the RED files
	@ourhomeexp = @wherearewe(@thisprogram)
	@ourhomered = @wherearewe(@redprogram)

	// used to check for Write Protect on floppy
	@If (@IsOem == 1)
	   @goto Acad_OEM
	@Endif

	@If (@InDrive == A)
	   @xx = @homedrive(0)
	@ElseIf (@InDrive == B)
	   @xx = @homedrive(1)
	@EndIf

	@If (@xx == 1)          // if error found ...
		@tempstring = " Install must have write access to your @namethisprogram "
		@xx = @strlen(@tempstring)
		@ourcol = (38 - @xx/2)

		@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
		@movecstr(2,8,62,"Ί                                                           Ί")
		@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
		@MoveCStr(2, @bannercol, 48, @bannername)

		@movecstr(7,13,79,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	    @movecstr(7,31,207," W A R N I N G ")
		@movecstr(8,13,79,"Ί                                                 Ί")
		@movecstr(9,13,79,"Ί                                                 Ί")
		@movecstr(9,15,79," The diskette in Drive @InDrive is ")
		@movecstr(9,43,78," -WRITE PROTECTED- ")
		@movecstr(10,13,79,"Ί                                                 Ί")
		@movecstr(11,13,79,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")

		@movecstr(15,@ourcol,31, @tempstring)
		@movecstr(16,@ourcol,31," diskette in order to continue. ")

		@movecstr(19,@ourcol,31," Press any key to exit to DOS, unprotect the ")
		@movecstr(20,@ourcol,31," @namethisprogram diskette and then run INSTALL again. ")

		@move(22,0)
		@waitkey
		@exit

	@Endif

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@MoveCStr(2, @bannercol, 48, @bannername)
	
	@movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
	@movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
	@movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
	@movecstr(9,5,31,"your @name Users Guide, in particular the ")
	@movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
	@movecstr(11,5,31,"and Configuring topics.")
	@movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
	@movecstr(14,5,31,"are using AutoCAD Release 10 or 11 and follow configuration")
	@movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render") 
	@movecstr(16,5,31,"topic in your @name Users Guide.")


	@Display
		@move(21,0)
					@Pause
	@enddisplay


	// First thing to do is to check the software and 
	// register it if need to..

	@regreturn = @ckregisterinfo(@ourhomeexp)

	@If (@strlen("@regreturn") == 0)
	@GoTo Not_Registered
	@Endif

	@If (@strfind(@regreturn, "ERROR") == -1)
	@GoTo Show_Registered
	@Endif

	// If here, there must have been an error 

ShowError:

	@xx = @strlen(@regreturn)
	@ourcol = (40 - @xx/2)
	// adjust for junk on the end of the string
	@xx = (@xx - 1)

	@Display @Cls
	@move(4,0)
    There was an error detected by the install software.

	The error was:

	@movecstr(10,@ourcol,30,@strhead("@regreturn", @xx))

	@move(12,0)
	Please insure that you have the correct files on your disk.

	If you need help, please contact @helpcontact.
	@move(21,0)
					@Pause
	@Exit
	@enddisplay

	// If we are here then the software has been registered

Show_Registered:

	@regreturn = @ckregisterinfo(@ourhomeexp)

	// Clear the options out
	@clearoption(1)
	@clearoption(2)

	@xx = @strlen(@regreturn)
	@ourcol = (38 - @xx/2)

	@GetOption
	@LocalWindow(18,40)

	@movecstr(1,22,79,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,22,79,"Ί                             Ί")
	@movecstr(2,24,78,"This Copy Is Registered To:")
	@movecstr(3,22,79,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")

	@movecstr(7,@ourcol,30,@strhead("@regreturn", @xx))

	@move(9,0)
	   The program has been installed and is protected by federal
	   copyright laws.  If you need additional copies of this software 
	   please contact @helpcontact.

	 @Option 1 = "Continue"
	 @Option 2 = "Exit Install"

	@EndOption

	@If(1 [= @Option)
		@Goto Get_Acad
	@Else
	   @Exit
	@Endif

Not_Registered:

	@getstring @registration

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@MoveCStr(2, @bannercol, 48, @bannername)

	@LocalWindow(13,40)

	@movecstr(7,3,31,"Please type in your Full Name as you wish it to appear for registration")
	@movecstr(8,3,31,"purposes. For Corporate installations, you may wish to enter the name of")
	@movecstr(9,3,31,"your CAD Manager.")

	@movecstr(18,8,31,"Note: The total combined length of [Your Name] and, from the")
	@movecstr(19,8,31,"      next screen, [Company Name] cannot exceed 64 characters.")
	@movecstr(20,8,31,"      If the total is longer, [Company Name] will be truncated.")

	@prompt = "    Please Enter Your Full Name    "

	@EndString

	// get the length of the string so-far

	@strlens = (64 - @strlen("@registration"))

	@getstring @companyname

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@MoveCStr(2, @bannercol, 48, @bannername)

	@LocalWindow(13,40)

	@movecstr(7,14,31,"Please type in your Company Name as you would like")
	@movecstr(8,14,31,"to have it appear for registration purposes.")

	@movecstr(18,9,31,"Note: You have @strlens characters available for [Company Name].")
	@movecstr(19,9,31,"      If you enter a Company Name longer than @strlens characters,")
	@movecstr(20,9,31,"      the additional information will be truncated.")


	@prompt = "    Please Enter Your Company Name    "

	@EndString

	@registrationname = "@registration, @companyname"

	// Clear the options out
	@clearoption(10)
	@clearoption(20)

	@xx = @strlen(@registrationname)
	@ourcol = (40 - @xx/2)

	@GetOption

	@LocalWindow(18,40)

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@Movecstr(2, @bannercol, 48, @bannername)

	@movecstr(8,18,31,"You have entered the following information:")

	@movecstr(12, @ourcol, 62, @registrationname)


	 @Option 10 = "Information Correct"
	 @Option 20 = "Information Not Correct"

	@EndOption

	@If(20 [= @Option)
	   @Goto Not_Registered
	@Endif

	// NULL out the string b4 using again

	@tempstring = ""

	// If we are here, do the registration ....

	@regreturn = @registerit(@registrationname @ourhomeexp)

	@If (@strfind(@regreturn, "ERROR") != -1)
	@GoTo ShowError
	@Endif
Acad_OEM:
	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@MoveCStr(2, @bannercol, 48, @bannername)
	
	@movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
	@movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
	@movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
	@movecstr(9,5,31,"your @name Users Guide, in particular the ")
	@movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
	@movecstr(11,5,31,"and Configuring topics.")
	@movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
	@movecstr(14,5,31,"are using AutoCAD Release 10 or 11 and the follow configuration")
	@movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render") 
	@movecstr(16,5,31,"topic in your @name Users Guide.")

	@Display
		@move(21,0)
					@Pause
	@enddisplay

Get_Acad:
	// clear the options first
	@clearoption(1000)
	@clearoption(2000)

	@GetOption @cls
	@LocalWindow(14,40)

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@Movecstr(2, @bannercol, 48, @bannername)

	@move(8,0)
	      Please enter the Version of AutoCAD you are running:

	@Option 1000 = "    Release 12    "
	@Option 2000 = " Release 10 or 11 "

	@EndOption

	@If(2000 [= @Option)
	   @AcadDir = "TURBODLD"
	@EndIf

	@GetSubDir @AcadDir
	@Cls
	@LocalWindow(14,40)

	@If(1000 [= @Option)
		@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
		@movecstr(2,8,62,"Ί                                                           Ί")
		@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
		@Movecstr(2, @bannercol, 48, @bannername)

		@movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 12.")
		@movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
		@movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD\\DRV sub-directory name")
		@movecstr(8,5,31,"below.")
		@movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
		@movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
		@movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
		@movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
		@movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
		@movecstr(21,5,31,"to include the @namethisprogram sub-directory.")

	@Else
		@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
		@movecstr(2,8,62,"Ί                                                           Ί")
		@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
		@Movecstr(2, @bannercol, 48, @bannername)

		@movecstr(6,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 10")
		@movecstr(7,5,31,"or 11. Enter a sub-directory name on @OutDrive: for @namethisprogram")
		@movecstr(8,5,31,"files. If the sub-directory does not exist, @namethisprogram Install")
		@movecstr(9,5,31,"will create it for you.")

	@EndIf

	@EndSubDir

	// Clear the options out
	@clearoption(10)
	@clearoption(20)

	@If (@DirExists("@OutDrive:\\@AcadDir"))
	  @GoTo Report
	@Else
	  @GetOption
	  @LocalWindow(12,40)
		@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
		@movecstr(2,8,62,"Ί                                                           Ί")
		@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
		@Movecstr(2, @bannercol, 48, @bannername)
	    @move(4,0)

	@AcadDir path was not found on @OutDrive.
	
	Would you like to create @AcadDir at this time?


		 @Option 10 = "Yes, create the path"
		 @Option 20 = "No; re-enter the information"

	  @EndOption
	@Endif

	@tempstring = " Creating @OutDrive:@AcadDir, please stand-by ! "
	@xx = @strlen(@tempstring)
	@ourcol = (40 - @xx/2)

	@If(10 [= @Option)
	   @Display @Cls
		@movecstr(12,@ourcol,48,@tempstring)
		@MkDir("@OutDrive:@AcadDir")
	   @EndDisplay
	   @Goto WeBuiltPath
	@Else
	   @Goto Get_Acad
	@Endif

	// Now we know where to install TURBODLD, tell the user whats going on

Report:

	@clearoption(10)
	@clearoption(20)

	@tempstring = " @OutDrive:@AcadDir exists, do you wish to use this directory? "
	@xx = @strlen(@tempstring)
	@ourcol = (38 - @xx/2)

	@Getoption
	@localwindow(14,40)

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@Movecstr(2, @bannercol, 48, @bannername)

	@movecstr(9,@ourcol,48,@tempstring)
	 @Option 10 = "Yes, Continue"
	 @Option 20 = "No; re-enter the information"
	@Endoption

	@If(20 [= @Option)
	   @Goto Get_Acad
	@Endif

	// we get here from building the dir\sub-dir and not asking if they want to use it.

WeBuiltPath:

	// Test the amount of free room left on the dest drive

	@Display @Cls

		@if (@diskfree(@OutDrive) < 1200000)

	  @move(7,0)
      The selected output disk drive only has @diskfree(@OutDrive) bytes.

      @namethisprogram requires a minumum of 1.2mb.

      The Install program will now exit, please correct this problem

      and re-run the Install program.
	    @move(21,0)
					@Pause
		@exit
		@endif
	@enddisplay

	// Clear the options out
	@clearoption(10)
	@clearoption(20)

	@tempstring = " @OutDrive:@AcadDir "
	@xx = @strlen(@tempstring)
	@ourcol = (40 - @xx/2)

	@movecstr(12,@ourcol,63,@tempstring)

	@tempstring = " @NameThisProgram will be installed in: "
	@xx = @strlen(@tempstring)
	@ourcol = (40 - @xx/2)

	@GetOption

	@LocalWindow(17,40)

	@movecstr(1,8,62,"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»")
	@movecstr(2,8,62,"Ί                                                           Ί")
	@movecstr(3,8,62,"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ")
	@Movecstr(2, @bannercol, 48, @bannername)

	@movecstr(8,@ourcol,63,@tempstring)
	 @Option 10 = "Yes, this is the correct path"
	 @Option 20 = "No; re-enter the information"
	@endoption

	@If(10 [= @Option)
	   @Goto Start_Copy
	@Else
	   @Goto Get_Acad
	@Endif

Start_Copy:

@Display

// First check if this is v10 or 11

@If(2000 [= @Option)
//        Creating FASTACAD.BAT and PANA3DS.BAT files, please stand-by

   @Write("@OutDrive:\\@AcadDir\\FASTACAD.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
   @Write( , , "SET DSPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
   @Write( , , "SET RDPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
   @Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
@Else
//                  Creating PANA3DS.BAT file, please stand-by
@EndIf

@Write("@OutDrive:\\@AcadDir\\PANA3DS.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
@Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")

@enddisplay

// This part is a DOS style copy ...

@tempstring = "Processing @namethisprogram Install information -- Please Wait."
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)

@copy("@ourhomeexp", "@OutDrive:\\@AcadDir\\@thisprogram")
@Endif
@If (1100 [= @Option)
  @GetSubdir @Opt1100Dir
    @Default = "\\123"
    @Cls

    @Opt1100Dir @Line1
    @Opt1100 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir
  @If (@DirExists("@OutDrive:@Opt1100Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1100Dir.







    @Line9
    @Line10

    @Option 1101 = "Yes"
    @Option 1102 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1100Dir")
  @Endif
@Endif

@If (1110 [= @Option)
  @GetSubdir @Opt1110Dir
    @Default = "\\123R3"
    @Cls

    @Opt1110Dir @Line1
    @Opt1110 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1110Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1110Dir.







    @Line9
    @Line10

    @Option 1111 = "Yes"
    @Option 1112 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1110Dir")
  @Endif
@Endif
@If (1115 [= @Option)
  @GetSubdir @Opt1115Dir
    @Default = "\\123R3"
    @Cls

    @Opt1115Dir @Line1
    @Opt1115 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1115Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1115Dir.







    @Line9
    @Line10

    @Option 1116 = "Yes"
    @Option 1117 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1115Dir")
  @Endif
@Endif
/*
@If (1140 [= @Option)
  @Display
  @Cls


  The OS/2 WPS/PM version 2.x display device driver requires
  special procedures in order to correctly install on your system.

  Please refer to the display device driver section of the display drivers
  and utility user guide for more information on installing this driver.



					@Pause
  @EndDisplay
@Endif
*/
/*
@If (1195 [= @Option)
  @Display
  @Cls


  The Windows version 3.1 display device drivers requires that you
  run the setup program provided with Windows 3.1.  You may also
  want to use the Windows Install program provided on the Windows
  display drivers disk.  The install program will install a resolution
  setting utility to enable you to change resolution and select colors
  without the need to rerun the Windows Setup program.

  Please refer to the display device drivers section of the display drivers
  and utility user guide for more information on installing this driver.



					@Pause
  @EndDisplay
@Endif
*/
@If (1200 [= @Option)
  @GetSubdir @Opt1200Dir
    @Default = "\\WORD5"
    @Cls

    @Opt1200Dir @Line1
    @Opt1200 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1200Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1200Dir.







    @Line9
    @Line10

    @Option 1201 = "Yes"
    @Option 1202 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1200Dir")
  @Endif
@Endif
@If (1210 [= @Option)
  @GetSubdir @Opt1210Dir
    @Default = "\\WORD55"
    @Cls

    @Opt1210Dir @Line1
    @Opt1210 @Line20 

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1210Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1210Dir.







    @Line9
    @Line10

    @Option 1211 = "Yes"
    @Option 1212 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1210Dir")
  @Endif
@Endif
/*
@If (1220 [= @Option)
  @GetSubdir @Opt1220Dir
    @Default = "\\WP50"
    @Cls

    @Opt1220Dir @Line1
    @Opt1220 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1220Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1220Dir.







    @Line9
    @Line10

    @Option 1221 = "Yes"
    @Option 1222 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1220Dir")
  @Endif
@Endif
*/
@If (1225 [= @Option)
  @GetSubdir @Opt1225Dir
    @Default = "\\WP51"
    @Cls

    @Opt1225Dir @Line1
    @Opt1225 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1225Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1225Dir.







    @Line9
    @Line10

    @Option 1226 = "Yes"
    @Option 1227 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1225Dir")
  @Endif
@Endif
@If (1230 [= @Option)
  @GetSubdir @Opt1230Dir
    @Default = "\\VGAUTIL"
    @Cls

    @Opt1230Dir @Line1
    @Opt1230 @Line2

    @Product utilities will be installed.

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1230Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1230Dir.







    @Line9
    @Line10

    @Option 1231 = "Yes"
    @Option 1232 = "No"

    @EndOption
  @Else
/* @MkDir() was unsuccessful copying files, use @System() instead */
/*              @MkDir("@OutDrive:@Opt1230Dir") */
		@System("md @OutDrive:@Opt1230Dir")     
  @Endif
@Endif
@If (1250 [= @Option)
  @GetSubdir @Opt1250Dir
    @Default = "\\WS"
    @Cls

    @Opt1250Dir @Line1
    @Opt1250 @Line2

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1250Dir"))
    @GetOption
	@LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1250Dir.







    @Line9
    @Line10

    @Option 1251 = "Yes"
    @Option 1252 = "No"

    @EndOption
  @Else
		@MkDir("@OutDrive:@Opt1250Dir")
  @Endif
@Endif

/***********************************************************************/
@If (
	 1000 [! @Option &&
	 1020 [! @Option &&
	 1040 [! @Option &&
	 1060 [! @Option &&
	 1080 [! @Option &&
	 1085 [! @Option &&
	   1100 [! @Option &&  
	   1110 [! @Option &&    
	   1115 [! @Option &&   
	 1130 [! @Option &&
	 1160 [! @Option &&
	 1170 [! @Option &&
	 1200 [! @Option &&
	 1210 [! @Option &&
/*       1220 [! @Option &&     */
	 1225 [! @Option &&
	 1250 [! @Option &&
	 1230 [! @Option 
/*  && 1890 [! @Option */
/*  && 1910 [! @Option */
/*  && 1920 [! @Option */
/*  && 1930 [! @Option */
	)

  @Goto NOINSTALLATION
@Endif

/***********************************************************************/
@DefineDisk
  @LABEL  = "Software disk 1 of 4"
  @If ((1020 [= @Option && 1022 [! @Option)||(1040 [= @Option && 1042 [! @Option)||(1060 [= @Option && 1062 [! @Option))
   @BeginLib @ourhomered
       @File *.* @Out @OutDrive:\\@AcadDir\\*.*
   @EndLib
    @File ACADP\RCTURBOC.EXP                    @Out @OutDrive:\\@AcadDir\RCTURBOC.EXP
    @File ACADP\READ.ME                         @Out @OutDrive:\\@AcadDir\READ.ME
  @Endif
  @If (1100 [= @Option && 1102 [! @Option)
	@File LOTUS2X\AVGAGR.DRV                        @Out @Opt1100Dir\AVGAGR.DRV
	@File LOTUS2X\TC132X25.DRV                      @Out @Opt1100Dir\TC132X25.DRV
	@File LOTUS2X\TC132X43.DRV                      @Out @Opt1100Dir\TC132X43.DRV
  @Endif
  @If (1110 [= @Option && 1112 [! @Option)
	@BeginLib LOTUS.RED
	@File INSTALL.30                               @Out @Opt1110Dir\INSTALL.DDF @AskOverwrite
	@EndLib
	@File LOTUS30\VGAS31CC.VBD                      @Out @Opt1110Dir\VGAS31CC.VBD
	@File LOTUS30\VGAS40CC.VBD                      @Out @Opt1110Dir\VGAS40CC.VBD
	@File LOTUS30\VGAS42CC.VBD                      @Out @Opt1110Dir\VGAS42CC.VBD
	@File LOTUS30\VGAS54CC.VBD                      @Out @Opt1110Dir\VGAS54CC.VBD
	@File LOTUS30\VGAS75CC.VBD                      @Out @Opt1110Dir\VGAS75CC.VBD
	@File LOTUS30\VGAS96CC.VBD                      @Out @Opt1110Dir\VGAS96CC.VBD
	@File LOTUS30\L13AVGA1.DLD                      @Out @Opt1110Dir\L13AVGA1.DLD
	@File LOTUS30\L13AVGA2.DLD                      @Out @Opt1110Dir\L13AVGA2.DLD
  @Endif
  @If (1115 [= @Option && 1117 [! @Option)
	@BeginLib LOTUS.RED
	@File INSTALL.31                                @Out @Opt1115Dir\INSTALL.DDF @AskOverwrite
	@EndLib
	@File LOTUS30\VGAS31CC.VBD                      @Out @Opt1115Dir\VGAS31CC.VBD
	@File LOTUS30\VGAS40CC.VBD                      @Out @Opt1115Dir\VGAS40CC.VBD
	@File LOTUS30\VGAS42CC.VBD                      @Out @Opt1115Dir\VGAS42CC.VBD
	@File LOTUS30\VGAS54CC.VBD                      @Out @Opt1115Dir\VGAS54CC.VBD
	@File LOTUS30\VGAS75CC.VBD                      @Out @Opt1115Dir\VGAS75CC.VBD
	@File LOTUS30\VGAS96CC.VBD                      @Out @Opt1115Dir\VGAS96CC.VBD
	@File LOTUS30\L13AVGA1.DLD                      @Out @Opt1115Dir\L13AVGA1.DLD
	@File LOTUS30\L13AVGA2.DLD                      @Out @Opt1115Dir\L13AVGA2.DLD
  @Endif
  @If (1200 [= @Option && 1202 [! @Option)
      @File WORD\SCREEN.VID                     @Out @Opt1200Dir\SCREEN.VID
  @Endif
  @If (1230 [= @Option && 1232 [! @Option)
      @File VGAUTIL\TSRFONT.COM              @Out \@Opt1230Dir\TSRFONT.COM
      @File VGAUTIL\CENTER.COM               @Out \@Opt1230Dir\CENTER.COM 
      @File VGAUTIL\CLMODE.EXE               @Out \@Opt1230Dir\CLMODE.EXE
      @File VGAUTIL\CLMODE.DAT               @Out \@Opt1230Dir\CLMODE.DAT
  @Endif
  @If (1210 [= @Option && 1212 [! @Option)
      @File WORD\SCREEN.VID                     @Out @Opt1210Dir\SCREEN.VID
      @File WORD\SCREEN8.VID                     @Out @Opt1210Dir\SCREEN8.VID
  @Endif
  @If (1225 [= @Option && 1227 [! @Option)
      @File WP\CIRRUS.VRS                  @Out @Opt1225Dir\CIRRUS.VRS
  @Endif
/*  @Endif   */
  @If (1250 [= @Option && 1252 [! @Option)
	  @File WORDSTAR\CL800.WGD              @Out \@Opt1250Dir\CL800.WGD
	  @File WORDSTAR\CL1024.WGD             @Out \@Opt1250Dir\CL1024.WGD
	  @File WORDSTAR\PREVIEW.OVR            @Out \@Opt1250Dir\PREVIEW.OVR
	  @File WORDSTAR\PREVIEW.MSG            @Out \@Opt1250Dir\PREVIEW.MSG
	  @File WORDSTAR\GRFPIX.EXE             @Out \@Opt1250Dir\GRFPIX.EXE
  @Endif
/** OEM RAMBIOS File Copy Begins ************************************
  @If (1890 [= @Option && 1892 [! @Option)
    @File RAMBIOS\VGA.EXE                   @Out @Opt1890Dir\VGA.EXE
  @Endif
** OEM RAMBIOS File Copy Ends **************************************/
@EndDisk


@DefineDisk
  @LABEL  = "Software Disk 2 of 4"
@EndDisk
@DefineDisk
  @LABEL  = "Software Disk 3 of 4"
@EndDisk


/** OEM Disk Installation Start Begins ******************************
@DefineDisk
@LABEL  = "OEM DISPLAY DRIVERS"
** OEM Disk Installation Start Ends  ********************************/

/** OEM1 File Copy Begins *******************************************
  @If (1910 [= @Option && 1912 [! @Option)
    @File OEM1\FILE1.EXT                        @Out @Opt1910Dir\FILE1.EXT
    @File OEM1\FILE2.EXT                        @Out @Opt1910Dir\FILE2.EXT
  @Endif
** OEM1 File Copy Ends *********************************************/

/** OEM2 File Copy Begins *******************************************
  @If (1920 [= @Option && 1922 [! @Option)
    @File OEM2\FILE1.EXT                        @Out @Opt1920Dir\FILE1.EXT
    @File OEM2\FILE2.EXT                        @Out @Opt1920Dir\FILE2.EXT
  @Endif
** OEM2 File Copy Ends *********************************************/

/** OEM3 File Copy Begins *******************************************
  @If (1930 [= @Option && 1932 [! @Option)
    @File OEM3\FILE1.EXT                        @Out @Opt1930Dir\FILE1.EXT
    @File OEM3\FILE2.EXT                        @Out @Opt1930Dir\FILE2.EXT
  @Endif
** OEM3 File Copy Ends *********************************************/

/** OEM Disk Installation Finish Begins *****************************
@EndDisk
** OEM Disk Installation Finish Ends *******************************/

/***********************************************************************/
/** OEM RAMBIOS AUTOEXEC.BAT File Modification Begins ********
@If (1890 [= @Option && 1892 [! @Option)
  @SetAutoexec
    @AskOverwrite
    @Verbatim "@Opt1890Dir\\RAMBIOS"
  @EndAutoexec
@Endif
** OEM RAMBIOS AUTOEXEC.BAT File Modification Ends ***********/

/***********************************************************************/
@Finish
  @Cls
	The @NameLower installation is complete.
/** OEM RAMBIOS Reboot Message Begins ****************************
	@If (1890 [= @Option && 1892 [! @Option)
    Reboot the system to activate the RAMBIOS.
	@Endif
** OEM RAMBIOS Reboot Message Ends ******************************/
  @If(2000 [= @Option)
      @move(2,0)
     You have successfully installed @namethisprogram for use with 
     AutoCADRelease 10 or 11. Before you can use @namethisprogram you 
     must run the FASTACAD.BAT file copied to your @OutDrive:@AcadDir 
     sub-directory and then reconfigure AutoCAD to use @namethisprogram.
     You may wish to add FASTACAD.BAT to your AutoCAD start-up file.


     To reconfigure AutoCAD to use @namethisprogram start AutoCAD and
     select the "P386 ...." display option and then follow the
     on-screen directions.

    @move(21,0)
  @Goto DONE
@Endif
@If(1000 [= @Option)
      @move(2,0)
     You have successfully installed @namethisprogram for AutoCAD
     Release 12.  Before you can use @namethisprogram you must
     reconfigure AutoCAD. To reconfigure, start AutoCAD with "ACAD -r"
     and change the current display device. Choose @namethisprogram
     from the list of available display drivers and then follow the
     on-screen instructions. Refer to your @name
     Users Guide for detailed configuration instructions.

     If you have chosen to install @namethisprogram into a sub-directory
     other than ACAD\DRV, you must append the following path to your
     "SET ACADDRV=...." environment variable.  
	     
				 @OutDrive:@AcadDir

  @move(21,0)
  @Goto DONE
@EndIf
@Goto DONE
NOINSTALLATION:
	The selected @NameLower were not installed.
	Please refer to the user manual for additional instructions.

DONE:
					@Pause
  @ChDrive @OutDrive
  @ChDir "\\"
@EndFinish

// end-of-file

