home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 December
/
IMM1295.ISO
/
driver
/
cirrus
/
disk1
/
install.dat
< prev
next >
Wrap
Text File
|
1994-06-20
|
47KB
|
1,656 lines
/*
* 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