home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
clipper
/
52cus.zip
/
INSTALL.DAT
< prev
next >
Wrap
Text File
|
1993-08-06
|
12KB
|
406 lines
/****************************************************************/
/* INSTALL.DAT */
/* */
/* Copyright (c) 1993 Computer Associates International */
/* All Rights Reserved */
/* */
/* Last revision: 07/30/93 */
/****************************************************************/
@DefineProject
@Group = "A"
@Requires @HardDisk
@Name = "CA-Clipper 5.2c"
@Version = "5.2c"
@OutDrive = C
@Subdir = "\\CLIPPER5"
@EndProject
@DefineVars
@Integer @InDisk = 0 /* change for proper input disk type */
@Dir @Bin = "@SubDir\\BIN"
@Dir @Include = "@SubDir\\INCLUDE"
@Dir @Lib = "@SubDir\\LIB"
@Dir @Obj = "@SubDir\\OBJ"
@Dir @Dbu = "@SubDir\\SOURCE\\DBU"
@Dir @Rl = "@SubDir\\SOURCE\\RL"
@Dir @Sys = "@SubDir\\SOURCE\\SYS"
@Dir @Sample = "@SubDir\\SOURCE\\SAMPLE"
@Dir @Ng = "\\NG"
@Qstring @NewLine = "\n"
@Qstring @Pkbkp = "/O"
@Qstring @Patchbkp = "/NOBACKUP"
@EndVars
@Display
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @Name Patch
█ Computer █
█ Associates █ This program will upgrade the CA-Clipper
█ International █ version 5.20, 5.2a or 5.2b files on your
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█ computer system to 5.2c. The basic steps in
▄▄▄▄▄▄▄▄▄ the procedure are as follows:
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ Specify backup options
■ Specify target directories
■ Install patch files to hard disk
■ Execute patch files
Press Esc at any time to stop the installation.
@Pause
@EndDisplay
@GetOption
@LocalWindow(9,38)
@Cls
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @Name Installation
█ Computer █
█ Associates █
█ International █ Specify Patch option:
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
@Option 10 = "No Backup"
@Option 11 = "Backup"
@Newline
Select the Patch option which causes PATCH to make backup copies
of any files affected by the updating process. If BACKUP directory
does not exist, PATCH will create it.
NOTE: If there is insufficient space for backup files,
PATCH will NOT apply any patches.
@EndOption
DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @Name Installation
█ Computer █
█ Associates █ Select Clipper 5.2 Drive:
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Use and to highlight the drive where CLIPPER 5.2 is installed,
then press ─┘ to continue. Press Esc to exit.
@EndOutDrive
@GetSubdir
@LocalWindow(6,56)
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @Name Installation
█ Computer █
█ Associates █ Select Clipper 5.2 Directory:
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Type the directory name where CLIPPER 5.2 is installed, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@GetOption
@LocalWindow(7,38)
@Cls
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @Name Installation
█ Computer █
█ Associates █ Patch files in the following directories?
█ International █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
▄▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ @Option 101 = " Yes "
@Option 102 = " No "
@Newline
Executables => @Subdir\BIN
Libraries => @Subdir\LIB
Header files => @SubDir\INCLUDE
Obj files => @SubDir\OBJ
Dbu files => @Subdir\SOURCE\DBU
RL files => @Subdir\SOURCE\RL
Sys files => @Subdir\SOURCE\SYS
Sample files => @Subdir\SOURCE\SAMPLE
Norton guide => \NG
Select 'Yes' to proceed with patch installation using directories
shown above. If you select 'No', you will be prompted for each
of the above directories.
@EndOption
@Bin = "@Subdir\\Bin"
@Lib = "@Subdir\\Lib"
@Include = "@Subdir\\Include"
@Obj = "@Subdir\\Obj"
@Dbu = "@Subdir\\Source\\Dbu"
@Rl = "@Subdir\\Source\\Rl"
@Sys = "@Subdir\\Source\\Sys"
@Sample = "@Subdir\\Source\\Sample"
@Ng = "\\NG"
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Bin" ) ) )
GetBinPath:
@GetSubdir @Bin
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the BIN directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Bin" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetBinPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Lib" ) ) )
GetLibPath:
@GetSubdir @Lib
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the LIB directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Lib" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetLibPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Include" ) ) )
GetIncludePath:
@GetSubdir @Include
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the INCLUDE directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Include" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetIncludePath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Obj" ) ) )
GetObjPath:
@GetSubdir @Obj
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the OBJ directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Obj" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Obj" ) ) / 2, "@OutDrive:@Obj DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetObjPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Dbu" ) ) )
GetDbuPath:
@GetSubdir @Dbu
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the DBU directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Dbu" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Dbu" ) ) / 2, "@OutDrive:@Dbu DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetDbuPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Rl" ) ) )
GetRlPath:
@GetSubdir @Rl
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the RL directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Rl" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Rl" ) ) / 2, "@OutDrive:@Rl DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetRlPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sys" ) ) )
GetSysPath:
@GetSubdir @Sys
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the SYS directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Sys" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Sys" ) ) / 2, "@OutDrive:@Sys DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetSysPath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sample" ) ) )
GetSamplePath:
@GetSubdir @Sample
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the SAMPLE directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Sample" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Sample" ) ) / 2, "@OutDrive:@Sample DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetSamplePath
@Endif
@Endif
@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Ng" ) ) )
GetNgPath:
@GetSubdir @Ng
@LocalWindow(9,48)
@Move(12,1)
Enter the path to the NG directory, then
press ─┘ to continue. Press Esc to exit.
@EndSubdir
@If ( ! @DirExists( "@OutDrive:@Ng" ) )
@Display
@Move( 12, ( 60 - @StrLen( "@OutDrive:@Ng" ) ) / 2, "@OutDrive:@Ng DIRECTORY NOT FOUND" )
@Move( 16, 10 )
@Pause
@EndDisplay
@Goto GetNgPath
@Endif
@EndIf
@DefineDisk
@Label = "Update Disk"
@BeginLib 52COBJ.LIF
@FILE *.* @Out @OutDrive:@Obj
@EndLib
@BeginLib 52CRL.LIF
@FILE *.* @Out @OutDrive:@Rl
@EndLib
@BeginLib 52CDBU.LIF
@FILE *.* @Out @OutDrive:@Dbu
@EndLib
@BeginLib 52CSAMPL.LIF
@FILE *.* @Out @OutDrive:@Sample
@EndLib
@BeginLib 52CSYS.LIF
@FILE *.* @Out @OutDrive:@Sys
@EndLib
@EndDisk
@Finish
@Cls
@ChDrive(@StartUpDrive)
@If (10 [= @Option)
@SPAWN("PATCH @OutDrive:@Bin CLP52BIN @patchbkp")
@Pause
@SPAWN("PATCH @OutDrive:@Lib CLP52LIB @patchbkp")
@Pause
@SPAWN("PATCH @OutDrive:@Include CLP52INC @patchbkp")
@Pause
@SPAWN("PATCH @OutDrive:@Ng CLP52NG @patchbkp")
@Pause
@Endif
@If (11 [= @Option)
@SPAWN("PATCH @OutDrive:@Bin CLP52BIN")
@Pause
@SPAWN("PATCH @OutDrive:@Lib CLP52LIB")
@Pause
@SPAWN("PATCH @OutDrive:@Include CLP52INC")
@Pause
@SPAWN("PATCH @OutDrive:@Ng CLP52NG")
@Pause
@Endif
@Cls
█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ @Name Installation
█ Computer █
█ Associates █ CA-Clipper 5.2c has been successfully installed
█ International █ on your computer. Before using the product,
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█ view the README file located in the @SubDir
▄▄▄▄▄▄▄▄▄ directory using your word processor or the DOS
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ TYPE command. This file contains the latest
product information.
@Pause
@EndFinish