/****************************************************************/
/*  INSTALL.DAT                                                 */
/*                                                              */
/*  Copyright (c) 1995 Computer Associates International        */
/*  All Rights Reserved                                         */
/*                                                              */
/*  Clipper 5.2e U.S. version script                            */
/*  Last revision:   03/13/95   $RMJ                            */
/****************************************************************/

@DefineProject
   @Group     = "A"
   @Requires  @HardDisk
   @Name      = "CA-Clipper 5.2e / ExoSpace 1.0g"
   @Version   = "5.2e"
   @OutDrive  = C
   @Subdir    = "\\CLIPPER5"
@EndProject

@DefineVars
   @Integer @InDisk    = 0      /* change for proper input disk type */
   @Integer @IsExo     = 1      /* is ExoSpace installed */
   @Drive @ClpDrive    = @OutDrive
   @Drive @NgDrive     = @OutDrive
   @Dir @ClpDir        = @SubDir
   @Dir @Bin           = "@SubDir\\BIN"
   @Dir @Include       = "@SubDir\\INCLUDE"
   @Dir @Lib           = "@SubDir\\LIB"
   @Dir @Obj           = "@SubDir\\OBJ"
   @Dir @Source        = "SubDir\\Source"
   @Dir @Dbu           = "@SubDir\\SOURCE\\DBU"
   @Dir @Rl            = "@SubDir\\SOURCE\\RL"
   @Dir @Pe            = "@SubDir\\SOURCE\\PE"
   @Dir @Sys           = "@SubDir\\SOURCE\\SYS"
   @Dir @Sample        = "@SubDir\\SOURCE\\SAMPLE"
   @Dir @Ng            = "\\NG"
   @Dir @ExoBin        = "@SubDir\\BIN"
   @Dir @ExoLib        = "@SubDir\\LIB"
   @Dir @Error         = "@SubDir\\SOURCE\\ERROR"
   @Dir @Filesys       = "@SubDir\\SOURCE\\FILESYS"
   @Dir @Item          = "@SubDir\\SOURCE\\ITEM"
   @Dir @Sdx           = "@SubDir\\SOURCE\\SDX"
   @Dir @Vm            = "@SubDir\\SOURCE\\VM"
   @Dir @Arrays        = "@SubDir\\SOURCE\\TBROW\\ARRAYS"
   @Dir @Brotext       = "@SubDir\\SOURCE\\TBROW\\BROTEXT"
   @Dir @General       = "@SubDir\\SOURCE\\TBROW\\GENERAL"
   @Dir @TBLib         = "@SubDir\\SOURCE\\TBROW\\LIB"
   @Dir @Ncommdr       = "@SubDir\\SOURCE\\TBROW\\N_COMMDR"
   @Dir @Skipdbf       = "@SubDir\\SOURCE\\TBROW\\SKIPDBF"
   @Dir @Sprdsht       = "@SubDir\\SOURCE\\TBROW\\SPRDSHT"
   @Dir @TBrnet        = "@SubDir\\SOURCE\\TBROW\\TBRNET"
   @Dir @Errorsys      = "@SubDir\\SOURCE\\ERRORSYS"
   @Dir @Getsys        = "@SubDir\\SOURCE\\GETSYS"

   @Qstring @NewLine   = "\n"
   @Qstring @Pkbkp     = "/O"
   @Qstring @InstName  = @Name

@EndVars

@If (@RAMAvail < 525K )
 @Display
 @Move(15,5)

     There may not be enough free DOS conventional memory to successfully
     install the CA-Clipper 5.2e update !!!

     Check and ensure that there is atleast 525Kb of FREE DOS conventional
     memory as reported by DOS's MEM utility.

 @ChDrive(@StartUpDrive)
 @ChDir("@StartUpDir")
 @Abort
 @EndDisplay
@Endif

@Display
@Cls
                               @InstName Patch
       ßßßßßßßßßßßßßßß
     ßßßßßßßßßßßßßßßß       This program will upgrade the CA-Clipper
    ßß                      version 5.20, 5.2a, 5.2b, 5.2c or 5.2d files
   ßßß       ßßßßßßßßß      on your computer system to 5.2e. It will also
   ßßß     ßßßßßßßßßßß      upgrade CA-Clipper/Exospace to version 1.0g
    ßß    ßßß      ßßß      if ExoSpace is already installed on your
     ßßßßßßßßßßßßßßßßß      computer.  The basic steps in the procedure
       ßßßßßßßßßßßßßßß      are as follows:
       ßßß         ßßß
      ßßß          ßßß      þ 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
       ßßßßßßßßßßßßßßß    @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß
   ßßß       ßßßßßßßßß    Exit Patch and Perform a backup?
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß
                           @Option 10 = "Exit"
                           @Option 11 = "Continue"
@NewLine
@NewLine
      You should backup your current versions of CA-Clipper 5.2 and
      ExoSpace (if installed). Please read the file 52EUS.TXT contained
      in the 52EUS.EXE file. This 52EUS.TXT file has specific instructions
      on applying this update.

@EndOption

@If ( 10 [= @Option )
   @ChDrive(@StartUpDrive)
   @ChDir("@StartUpDir")
   @Exit
@Endif


DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
       ßßßßßßßßßßßßßßß      @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                      Select Target Drive:
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß





     Use  and  to highlight the drive where CLIPPER 5.2 is installed,
     then press ÄÙ to continue. Press Esc to exit.

@EndOutDrive

@ClpDrive = @OutDrive
@NgDrive  = @ClpDrive

@If (@DiskFree(@ClpDrive) < 5000K )
 @Display
 @Move(13,5)
     There are only @DiskFree(@ClpDrive) bytes of FREE disk space on drive @ClpDrive: !!!

     PATCH.EXE may not successfully update the Clipper directories.

     Please ensure that there is atleast 5Mb of FREE DISK SPACE for
     PATCH.EXE's swap files then try executing INSTALL.EXE again.
 @ChDrive(@StartUpDrive)
 @ChDir("@StartUpDir")
 @Abort
 @EndDisplay
@Endif

@GetSubdir
@LocalWindow(7,56)
@Cls
       ßßßßßßßßßßßßßßß      @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                      Select Clipper 5.2 Directory:
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß


     Type the directory name where CLIPPER 5.2 is installed, then
     press ÄÙ to continue. Press Esc to exit.

@EndSubdir

@ClpDir     = @SubDir
@Source     = "@ClpDir\\Source"

@Bin        = "@ClpDir\\BIN"
@Lib        = "@ClpDir\\LIB"
@Include    = "@ClpDir\\INCLUDE"
@Obj        = "@ClpDir\\OBJ"
@Dbu        = "@Source\\Dbu"
@Rl         = "@Source\\Rl"
@Pe         = "@Source\\Pe"
@Sys        = "@Source\\Sys"
@Sample     = "@Source\\Sample"
@Error      = "@Source\\Error"
@Filesys    = "@Source\\Filesys"
@Item       = "@Source\\Item"
@Sdx        = "@Source\\Sdx"
@Vm         = "@Source\\Vm"
@Arrays     = "@Source\\TBROW\\ARRAYS"
@Brotext    = "@Source\\TBROW\\BROTEXT"
@General    = "@Source\\TBROW\\GENERAL"
@TBLib      = "@Source\\TBROW\\LIB"
@Ncommdr    = "@Source\\TBROW\\N_COMMDR"
@Skipdbf    = "@Source\\TBROW\\SKIPDBF"
@Sprdsht    = "@Source\\TBROW\\SPRDSHT"
@TBrnet     = "@Source\\TBROW\\TBRNET"
@Errorsys   = "@Source\\ERRORSYS"
@Getsys     = "@Source\\GETSYS"

@GetOption
@LocalWindow(8,40)

@Cls
       ßßßßßßßßßßßßßßß    @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß
   ßßß       ßßßßßßßßß    Do you have ExoSpace installed?
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß
                           @Option 50 = "  Yes  "
                           @Option 51 = "  No   "
@Newline
@Newline
    Select 'Yes' if you have CA-Clipper/ExoSpace installed.  You will be
    prompted for the directory name where the EXOSPACE.EXE is installed.
    You should NOT press 'Yes' if you do not have ExoSpace installed on
    your computer.

@EndOption

@If ( 51 [= @Option )
   @IsExo = 0
   @InstName = "CA-Clipper 5.2e"
@Endif

@If ( @IsExo != 0 )
@ExoBin = @Bin
@GetSubdir @ExoBin
@LocalWindow(7,56)
@Cls
       ßßßßßßßßßßßßßßß      @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                      Select ExoSpace.EXE Directory
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß


     Type a directory name, and press ÄÙ to continue. Press Esc to exit.

@EndSubdir
@ExoLib = @Lib
@Endif

GetMainInfo:
@GetOption
@LocalWindow(7,40)

@Cls
       ßßßßßßßßßßßßßßß      @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                      Patch files in the following directories?
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß
                           @Option 101 = "  Yes  "
                           @Option 102 = "  No   "

@Move(11,1)
                         Executables  =>  @ClpDrive:@Bin
                         Libraries    =>  @ClpDrive:@Lib
                         Header files =>  @ClpDrive:@Include
                         Obj files    =>  @ClpDrive:@Obj
                         Norton guide =>  @NgDrive:@Ng

@If ( @IsExo != 0 )
   @Move(16,1)
                         ExoSpace.EXE =>  @ClpDrive:@ExoBin
@Endif
      Select 'Yes' to proceed with patch installation using directories
      shown above.  If you select 'No', you will be prompted for the
      drives and directory.
@EndOption

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@ClpDrive:@Bin" ) ) )
DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
       ßßßßßßßßßßßßßßß     @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                     Select Target Drive:
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß





     Use  and  to highlight the drive where the CLIPPER 5.2 BIN
     directory is located, then press ÄÙ to continue. Press Esc to exit.

@EndOutDrive

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
  @ClpDrive = @OutDrive
  @If ( ! @DirExists( "@ClpDrive:@Bin" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Bin" ) ) / 2, "@ClpDrive:@Bin DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetBinPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Lib" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Lib" ) ) / 2, "@ClpDrive:@Lib DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetLibPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Include" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Include" ) ) / 2, "@ClpDrive:@Include DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetIncludePath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Obj" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Obj" ) ) / 2, "@ClpDrive:@Obj DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetObjPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@NgDrive:@Ng" ) ) )
DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
       ßßßßßßßßßßßßßßß     @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                     Select Target Drive:
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß





     Use  and  to highlight the drive where the CLIPPER 5.2 NG
     directory is located, then press ÄÙ to continue. Press Esc to exit.

@EndOutDrive

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
  @NgDrive = @OutDrive
  @If ( ! @DirExists( "@NgDrive:@Ng" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Ng" ) ) / 2, "@NgDrive:@Ng DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetNgPath
  @Endif
@EndIf

@If ( @IsExo != 0 )
@If ( ( 102 [= @Option ) || ( ! @Exists( "@ClpDrive:@ExoBin\\EXOSPACE.EXE" ) ) )
GetExoBinPath:
  @GetSubdir @ExoBin
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the ExoSpace.EXE directory, then
                press ÄÙ to continue.  Press Esc to exit.

  @EndSubdir
  @If ( ! @Exists( "@ClpDrive:@ExoBin\\EXOSPACE.EXE" ) )
    @Display
    @Move( 12, ( 53 - @StrLen( "@ClpDrive:@ExoBin" ) ) / 2, "@ClpDrive:@ExoBin\\EXOSPACE.EXE (LINKER) NOT FOUND" )
    @Move( 16, 10 )
                                       @Pause
    @EndDisplay
    @Goto GetExoBinPath
  @Endif
@Endif
@ExoLib = @Lib
@Endif

@If (102 [= @Option)
 @ClearOption(102)
 @GoTo GetMainInfo
@Endif

GetSuppInfo:
@GetOption
@LocalWindow(6,40)

@Cls
       ßßßßßßßßßßßßßßß    @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                    Patch files in the following directories?
   ßßß       ßßßßßßßßß
   ßßß     ßßßßßßßßßßß
    ßß    ßßß      ßßß
     ßßßßßßßßßßßßßßßßß
       ßßßßßßßßßßßßßßß
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß
                           @Option 201 = "  Yes  "
                           @Option 202 = "  No   "

@Move(11,1)
                         Dbu files          =>  @ClpDrive:@Dbu
                         RL files           =>  @ClpDrive:@Rl
                         Sys files          =>  @ClpDrive:@Sys
                         Sample files       =>  @ClpDrive:@Sample
                         Error API sample   =>  @ClpDrive:@Error
                         Filesys API sample =>  @ClpDrive:@Filesys
                         Item API sample    =>  @ClpDrive:@Item
                         SDX API sample     =>  @ClpDrive:@Sdx
                         VM API sample      =>  @ClpDrive:@Vm
      Select 'Yes' to proceed or 'No' to change the above directories.
@EndOption

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Dbu" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Dbu" ) ) / 2, "@ClpDrive:@Dbu DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetDbuPath
  @Endif
@Endif

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Rl" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Rl" ) ) / 2, "@ClpDrive:@Rl DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetRlPath
  @Endif
@Pe = @Rl
@Endif

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Sys" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Sys" ) ) / 2, "@ClpDrive:@Sys DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetSysPath
  @Endif
@Endif

@If ( ( 202 [= @Option ) || ( ! @DirExists( "@ClpDrive:@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( "@ClpDrive:@Sample" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Sample" ) ) / 2, "@ClpDrive:@Sample DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetSamplePath
  @Endif
@Endif

    // Make new directories
    @MkDir( "@ClpDrive:@Arrays" )
    @MkDir( "@ClpDrive:@Brotext" )
    @MkDir( "@ClpDrive:@General" )
    @MkDir( "@ClpDrive:@TBLib" )
    @MkDir( "@ClpDrive:@Ncommdr" )
    @MkDir( "@ClpDrive:@Skipdbf" )
    @MkDir( "@ClpDrive:@Sprdsht" )
    @MkDir( "@ClpDrive:@TBrnet" )
    @MkDir( "@ClpDrive:@Errorsys" )
    @MkDir( "@ClpDrive:@Getsys" )

@If ( 202 [= @Option )
    @Goto GetErrorPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@ClpDrive:@Error" ) ) )
MakeErrorDir:
    @MkDir( "@ClpDrive:@Error" )
    @If ( ! @DirExists( "@ClpDrive:@Error" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Error" ) ) / 2, "CAN NOT CREATE @ClpDrive:@Error DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetErrorPath:
        @GetSubdir @Error
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the ERROR directory, then
                press ÄÙ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeErrorDir
    @Endif
@Endif

@If ( 202 [= @Option )
    @Goto GetFilesysPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@ClpDrive:@Filesys" ) ) )
MakeFilesysDir:
    @MkDir( "@ClpDrive:@Filesys" )
    @If ( ! @DirExists( "@ClpDrive:@Filesys" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Filesys" ) ) / 2, "CAN NOT CREATE @ClpDrive:@Filesys DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetFilesysPath:
        @GetSubdir @Filesys
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the FILESYS directory, then
                press ÄÙ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeFilesysDir
    @Endif
@Endif

@If ( 202 [= @Option )
    @Goto GetItemPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@ClpDrive:@Item" ) ) )
MakeItemDir:
    @MkDir( "@ClpDrive:@Item" )
    @If ( ! @DirExists( "@ClpDrive:@Item" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Item" ) ) / 2, "CAN NOT CREATE @ClpDrive:@Item DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetItemPath:
        @GetSubdir @Item
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the ITEM directory, then
                press ÄÙ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeItemDir
    @Endif
@Endif

@If ( 202 [= @Option )
    @Goto GetSdxPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@ClpDrive:@Sdx" ) ) )
MakeSdxDir:
    @MkDir( "@ClpDrive:@Sdx" )
    @If ( ! @DirExists( "@ClpDrive:@Sdx" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Sdx" ) ) / 2, "CAN NOT CREATE @ClpDrive:@Sdx DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetSdxPath:
        @GetSubdir @Sdx
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the SDX directory, then
                press ÄÙ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeSdxDir
    @Endif
@Endif

@If ( 202 [= @Option )
    @Goto GetVmPath
@Elseif ( ( 201 [= @Option ) || ( ! @DirExists( "@ClpDrive:@Vm" ) ) )
MakeVmDir:
    @MkDir( "@ClpDrive:@Vm" )
    @If ( ! @DirExists( "@ClpDrive:@Vm" ) )
      @Display
      @Move( 12, ( 53 - @StrLen( "@Vm" ) ) / 2, "CAN NOT CREATE @ClpDrive:@Vm DIRECTORY" )
      @Move( 16, 1 )
                                       @Pause
      @EndDisplay

GetVmPath:
        @GetSubdir @Vm
        @LocalWindow(9,48)
        @Move(12,1)
                Enter the path to the VM directory, then
                press ÄÙ to continue.  Press Esc to exit.

        @EndSubdir
        @Goto MakeVmDir
    @Endif
@Endif
@If (202 [= @Option)
  @ClearOption(202)
  @GoTo GetSuppInfo
@Endif

@ChDrive(@InDrive)
 @DefineDisk
    @Label = "Update Disk"

    @BeginLib 52EINC.LIF
       @FILE *.* @Out @ClpDrive:@Include
     @EndLib

     @BeginLib 52EOBJ.LIF
       @FILE *.* @Out @ClpDrive:@Obj
     @EndLib

     @BeginLib 52ERL.LIF
       @FILE *.* @Out @ClpDrive:@Rl
     @EndLib

     @BeginLib 52EPE.LIF
       @FILE *.* @Out @ClpDrive:@Pe
     @EndLib

     @BeginLib 52ESYS.LIF
       @FILE *.* @Out @ClpDrive:@Sys
     @EndLib

     @BeginLib 52EERROR.LIF
       @FILE *.* @Out @ClpDrive:@Error
     @EndLib

     @BeginLib 52EFISYS.LIF
       @FILE *.* @Out @ClpDrive:@Filesys
     @EndLib

     @BeginLib 52EITEM.LIF
       @FILE *.* @Out @ClpDrive:@Item
     @EndLib

     @BeginLib 52ESDX.LIF
       @FILE *.* @Out @ClpDrive:@Sdx
     @EndLib

     @BeginLib 52EVM.LIF
       @FILE *.* @Out @ClpDrive:@Vm
     @EndLib

     @BeginLib ARRAYS.LIF
       @FILE *.* @Out @ClpDrive:@Arrays
     @EndLib

     @BeginLib BROTEXT.LIF
       @FILE *.* @Out @ClpDrive:@Brotext
     @EndLib

     @BeginLib GENERAL.LIF
       @FILE *.* @Out @ClpDrive:@General
     @EndLib

     @BeginLib TBLIB.LIF
       @FILE *.* @Out @ClpDrive:@TBLib
     @EndLib

     @BeginLib N_COMMDR.LIF
       @FILE *.* @Out @ClpDrive:@Ncommdr
     @EndLib

     @BeginLib SKIPDBF.LIF
       @FILE *.* @Out @ClpDrive:@Skipdbf
     @EndLib

     @BeginLib SPRDSHT.LIF
       @FILE *.* @Out @ClpDrive:@Sprdsht
     @EndLib

     @BeginLib TBRNET.LIF
       @FILE *.* @Out @ClpDrive:@TBrnet
     @EndLib

     @BeginLib ERRORSYS.LIF
       @FILE *.* @Out @ClpDrive:@Errorsys
     @EndLib

     @BeginLib GETSYS.LIF
       @FILE *.* @Out @ClpDrive:@Getsys
     @EndLib


  @EndDisk

@Finish
@Cls

@ChDrive(@InDrive)
@If (@SPAWN("PATCH @ClpDrive:@Bin CL52EBIN")) != 0
  @ChDrive(@ClpDrive)
  @ChDir("@Bin")
  @Move(15,5)
  @InstName Installation was NOT completed successfully !

  Please check the PATCH.ERR file in the @ClpDrive:@Bin directory
  for the reason.
  @Abort
@Endif
@Pause

@If (@SPAWN("PATCH @ClpDrive:@Lib CL52ELIB")) != 0
  @ChDrive(@ClpDrive)
  @ChDir("@Lib")
  @Move(15,5)
  @InstName Installation was NOT completed successfully !

  Please check the PATCH.ERR file in the @ClpDrive:@Lib directory
  for the reason.
  @Abort
@Endif
@Pause

@If (@SPAWN("PATCH @ClpDrive:@Sample CL52ESMP")) != 0
  @ChDrive(@ClpDrive)
  @ChDir("@Sample")
  @Move(15,5)
  @InstName Installation was NOT completed successfully !

  Please check the PATCH.ERR file in the @ClpDrive:@Sample directory
  for the reason.
  @Abort
@Endif
@Pause

@If (@SPAWN("PATCH @ClpDrive:@Dbu CL52EDBU")) != 0
  @ChDrive(@ClpDrive)
  @ChDir("@Dbu")
  @Move(15,5)
  @InstName Installation was NOT completed successfully !

  Please check the PATCH.ERR file in the @ClpDrive:@Dbu directory
  for the reason.
  @Abort
@Endif
@Pause

@If (@SPAWN("PATCH @NgDrive:@Ng CL52ENG")) != 0
  @ChDrive(@NgDrive)
  @ChDir("@Ng")
  @Move(15,5)
  @InstName Installation was NOT completed successfully !

  Please check the PATCH.ERR file in the @NgDrive:@Ng directory
  for the reason.
  @Abort
@Endif
@Pause

@If ( @IsExo != 0 )
@If (@SPAWN("PATCH @ClpDrive:@ExoBin EX10GBIN")) != 0
    @ChDrive(@ClpDrive)
    @ChDir("@ExoBin")
    @Move(15,5)
    @InstName Installation was NOT completed successfully !

    Please check the PATCH.ERR file in the @ClpDrive:@ExoBin directory
    for the reason.
    @Abort
@Endif
@Pause

@If (@SPAWN("PATCH @ClpDrive:@ExoLib EX10GLIB")) != 0
    @ChDrive(@ClpDrive)
    @ChDir("@ExoLib")
    @Move(15,5)
    @InstName Installation was NOT completed successfully !

    Please check the PATCH.ERR file in the @ClpDrive:@ExoLib directory
    for the reason.
    @Abort
@Endif
@Pause

@If (@SPAWN("PATCH @NgDrive:@Ng EX10GNG")) != 0
    @ChDrive(@NgDrive)
    @ChDir("@Ng")
    @Move(15,5)
    @InstName Installation was NOT completed successfully !

    Please check the PATCH.ERR file in the @NgDrive:@Ng directory
    for the reason.
    @Abort
@Endif
@Pause

@Endif  // Endif ISEXO

@Copy("@InDrive:\\52EUS.EXE", "@ClpDrive:@SubDir\\52EUS.EXE")
@ChDrive(@ClpDrive)
@ChDir("@SubDir")
@If (@SPAWN("52EUS.EXE")) != 0
    @Move(15,5)
    Could not extract the 52EUS.TXT file.
    @Pause
@Endif
@Delete("@ClpDrive:@SubDir\\52EUS.EXE")

@ChDrive(@StartUpDrive)
@ChDir("@StartUpDir")

@Cls
       ßßßßßßßßßßßßßßß    @InstName Installation
     ßßßßßßßßßßßßßßßß
    ßß                    The CA-Clipper 5.2e update has been installed on
   ßßß       ßßßßßßßßß    your computer. Before using the product, view the
   ßßß     ßßßßßßßßßßß    @ClpDrive:@SubDir\52EUS.TXT file.
    ßß    ßßß      ßßß    This file contains the latest product information
     ßßßßßßßßßßßßßßßßß    as well as instructions on how to re-compile DBU,
       ßßßßßßßßßßßßßßß    RL, PE utilities and the pre-linked library.
       ßßß         ßßß
      ßßß          ßßß
     ßßß           ßßß


IMPORTANT:
   In order to ensure that the CA-Clipper 5.2e / ExoSpace 1.0g patch
   has been successfully installed, you should compare the FILE SIZES,
   DATE and TIME stamps of the updated files against the file list in the
   52EUS.TXT file.

   If you have encountered a problem that you are unable to correct, please
   contact CA-Clipper Technical Support by calling 1-516-342-4612 or visit
   the CA-Clipper forum on CompuServe (GO CLIPPER or GO CLIPGER).
@Pause

@EndFinish
