Liren Large Software Subsidy 5/05.iso/a/a009/2.ddi/INSTALL.DAT

INSTALL Professional project | 1991-04-15 | 22.2 KB | 942 lines

/****************************************************************/
/*  INSTALL.DAT                                                 */
/*                                                              */
/*  Notice    : Copyright (c) 1990 Nantucket Corporation        */
/*              All Rights Reserved                             */
/*  Date      : 04/02/91                                        */
/*  Version   : 1.00                                            */
/*  Revision  :                                                 */
/*  Usage     :                                                 */
/*  Operation :                                                 */
/*  Notes     :                                                 */
/****************************************************************/

@DefineProject
   @Group     = "A"
   @Requires  @HardDisk
   @Name      = "Clipper 5.01"
   @Version   = "5.01"
   @OutDrive  = C
   @Subdir    = "\\CLIPPER5"
   @Terse
@EndProject

@DefineVars
   @Integer @InDisk  = 0      /* change for proper input disk type */
   @Integer @Success = 0
   @Integer @Totsize = 0
   @Integer @Asize   = 2800
   @Integer @Bsize   = 1000
   @Integer @Csize   =  400
   @Integer @Dsize   = 1500
/* Maxsize is the sum of A, B, C, and Dsize.  Must be updated if any of those
   are changed!!! */
   @Integer @Maxsize = 5700
   @Dir @Bin         = "\\BIN"
   @Dir @Include     = "\\INCLUDE"
   @Dir @Lib         = "\\LIB"
   @Dir @Pll         = "\\PLL"
   @Dir @Obj         = "\\OBJ"
   @Dir @Dbu         = "\\SOURCE\\DBU"
   @Dir @Pe          = "\\SOURCE\\PE"
   @Dir @Rl          = "\\SOURCE\\RL"
   @Dir @Sample      = "\\SOURCE\\SAMPLE"
   @Dir @Sys         = "\\SOURCE\\SYS"
   @Dir @Ng          = "\\NG"
   @Qstring @NewLine = "\n"
   @Qstring @Qs1     = "System Files (BIN, INCLUDE, LIB)      "
   @Qstring @Qs2     = "Utilities (DBU, PE, RL, PLL)          "
   @Qstring @Qs3     = "Sample Programs (PRG)                 "
   @Qstring @Qs4     = "On-line Documentation Databases (NG)  "

@EndVars

@Display
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     This program will install @Name on your computer
   ▄▄▄▄▄▄▄▄────     system and verify the integrity of the distribution
   ▄▄▄▄▄▄▄▄▄▄──     disks.  The basic steps in the installation
   ▄▄▄▄▄▄▄▄▄▄▄▄     procedure are as follows:
    Nantucket
                       ■ Select target drive and directory
                       ■ Select files you want to install
                       ■ Install selected files
                       ■ Update AUTOEXEC.BAT and CONFIG.SYS
                       ■ Make Clipper Utilities

                    You will be prompted step by step through the
                    procedure and, when you are finished, @Name
                    will be installed on your hard disk.  Press Esc
                    at any time to stop the installation.

                    @Pause

@EndDisplay

@Codelabel @DrivePick
@GetOutDrive
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Select Target Drive:
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket












   Use  and  to highlight a drive, and press ─┘ to select and continue.
                            Press Esc to exit.
@EndOutDrive

@GetSubdir
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Enter Target Directory
   ▄▄▄▄▄▄▄▄────     @Prompt = "═"
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket


                                  WARNING!

    The installation will overwrite the files in the target directory.  If
    Clipper 5.0 is installed in the target directory that is displayed,
    you may want to install @Name into a different directory to
    prevent losing files.

    Type a directory name, and press ─┘ to continue.  Press Esc to exit.
@EndSubdir

@Codelabel @GroupPick
@Assign (0) @Totsize

@GetGroups
   @ClearGroup
   @CheckBox
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Select Groups to Install:
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket


    ■ System Files (@Asize KB disk space required) are the basic files that
      are needed to compile, link and debug programs.
    ■ Utilities (@Bsize KB disk space required) are additional utilities to
      aid you in application development.
    ■ Sample Programs (@Csize KB disk space required) are the source code
      files for the sample programs and replaceable system files.
    ■ On-line Documentation (@Dsize KB disk space required) consists of all
      the programs needed to access the @Name on-line documentation.
    ■ @Maxsize KB is required to install all groups.

   Use  and  to highlight a group, and press Space to change its status.
                    Press ─┘ to continue or Esc to exit.
   @Set A = "@Qs1"
   @Set B = "@Qs2"
   @Set C = "@Qs3"
   @Set D = "@Qs4"
@EndGroups

/* Calculate installation disk space size */

@If ('A' [= @Group)
   @Assign (@Totsize + @Asize) @Totsize
@EndIf
@If ('B' [= @Group)
   @Assign (@Totsize + @Bsize) @Totsize
@EndIf
@If ('C' [= @Group)
   @Assign (@Totsize + @Csize) @Totsize
@EndIf
@If ('D' [= @Group)
   @Assign (@Totsize + @Dsize) @Totsize
@EndIf
@Assign (@Totsize * 1024) @Totsize


@If (@Totsize > @DiskFree @OutDrive)
   @GetOption
   @ClearOption
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Select an Action:
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket
                    @Option 1 = "Select a different drive"
                    @Option 2 = "Select different file groups"
                    @Option 3 = "Continue with installation"
                    @Option 4 = "Exit to DOS"

@NewLine
                                  WARNING!

    There is not enough disk space to complete this installation.  The
    installation requires @Totsize and @OutDrive has @DiskFree @OutDrive.






   Use  and  to highlight an option, and press ─┘ to select and continue.
                             Press Esc to exit.
   @EndOption

   @If (1 [= @Option)
      @Goto @DrivePick
   @EndIf
   @If (2 [= @Option)
      @Goto @GroupPick
   @EndIf
   @If (4 [= @Option)
      @Display
         @Cls
         @Abort
      @EndDisplay
   @EndIf
@EndIf

@If (@DiskSize @InDrive     < 400000)
   @Assign (360) @InDisk
@ElseIf (@DiskSize @InDrive < 750000)
   @Assign (720) @InDisk
@ElseIf (@DiskSize @InDrive < 1300000)
   @Assign (1200) @InDisk
@ElseIf (@DiskSize @InDrive < 1500000)
   @Assign (1440) @InDisk
@Else
   @Assign (0) @InDisk
@EndIf

@If ('B' [= @Group)
   @GetOption
   @CheckBox
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Create the Following Utilities:
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

   @Option 10 = "Pre-linked Library--BASE50.PLL"
   @Option 11 = "Report and Label Utility--RL.EXE"
   @Option 12 = "Program Editor--PE.EXE"
   @Option 13 = "Database Utility--DBU.EXE"



@NewLine
@NewLine
   The Utilities Group contains additional utilities that are available
   to aid you in application development.  Later on in the installation
   process the source code will be compiled and linked to create executable
   files.  The source code files for the utilities will be installed in
   @Subdir\PLL, @Subdir\SOURCE\DBU, @Subdir\SOURCE\RL, and
   @Subdir\SOURCE\PE.

   Use  and  to highlight a group, and press Space to change its status.
                   Press ─┘ to continue or Esc to exit.
   @EndOption
@EndIf

@If (@InDisk == 360)

   @DefineDisk
      @Label = "Disk 1"

      @File README.    @Group A

      @BeginLib CLIPPER
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 2"

      @BeginLib BIN1
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib
   @Enddisk

   @DefineDisk
      @Label = "Disk 3"

      @BeginLib LIB1
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 4"

      @BeginLib DOC
         @File *.* @Out *.* @Group A
      @EndLib

      @BeginLib INCLUDE
         @File *.* @Out @Include\\*.* @Group A
      @EndLib

      @BeginLib LIB2
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib

      @BeginLib PLL
         @File *.* @Out @Pll\\*.* @Group B
      @EndLib

      @BeginLib SYS
         @File *.* @Out @Sys\\*.* @Group C
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 5"

      @BeginLib DBU
         @File *.* @Out @Dbu\\*.* @Group B
      @EndLib

      @BeginLib PE
         @File *.* @Out @Pe\\*.* @Group B
      @EndLib

      @BeginLib RL
         @File *.* @Out @Rl\\*.* @Group B
      @EndLib

      @BeginLib SAMPLE
         @File *.* @Out @Sample\\*.* @Group C
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 6"

      @BeginLib NG1.001
         @File NG1.001 @Out \\NG\\C5G01A.NG @Group D
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 7"

      @BeginLib NG1.002
         @File NG1.002 @AppendTo \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib NG2
         @File *.* @Out \\NG\\*.* @Group D
      @EndLib
   @EndDisk

@ElseIf (@InDisk == 720)

   @DefineDisk
      @Label = "Disk 1"

      @File README.    @Group A

      @BeginLib DOC
         @File *.* @Out *.* @Group A
      @EndLib

      @BeginLib BIN1
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 2"

      @BeginLib LIB1
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib

      @BeginLib LIB2
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib

   @EndDisk

   @DefineDisk
      @Label = "Disk 3"

      @BeginLib CLIPPER
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib

      @BeginLib DBU
         @File *.* @Out @Dbu\\*.* @Group B
      @EndLib

      @BeginLib INCLUDE
         @File *.* @Out @Include\\*.* @Group A
      @EndLib

      @BeginLib PE
         @File *.* @Out @Pe\\*.* @Group B
      @EndLib

      @BeginLib PLL
         @File *.* @Out @Pll\\*.* @Group B
      @EndLib

      @BeginLib RL
         @File *.* @Out @Rl\\*.* @Group B
      @EndLib

      @BeginLib SAMPLE
         @File *.* @Out @Sample\\*.* @Group C
      @EndLib

      @BeginLib SYS
         @File *.* @Out @Sys\\*.* @Group C
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 4"

      @BeginLib NG1.001
         @File NG1.001 @Out \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib NG1.002
         @File NG1.002 @AppendTo \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib NG2
         @File *.* @Out \\NG\\*.* @Group D
      @EndLib
   @EndDisk

@ElseIf (@InDisk == 1440 || @InDisk == 1200)

   @DefineDisk
      @Label = "Disk 1"

      @File README.    @Group A

      @BeginLib DOC
         @File *.* @Out *.* @Group A
      @EndLib

      @BeginLib BIN1
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib

      @BeginLib CLIPPER
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib

      @BeginLib INCLUDE
         @File *.* @Out @Include\\*.* @Group A
      @EndLib

      @BeginLib DBU
         @File *.* @Out @Dbu\\*.* @Group B
      @EndLib

      @BeginLib PE
         @File *.* @Out @Pe\\*.* @Group B
      @EndLib

      @BeginLib PLL
         @File *.* @Out @Pll\\*.* @Group B
      @EndLib

      @BeginLib RL
         @File *.* @Out @Rl\\*.* @Group B
      @EndLib

      @BeginLib SYS
         @File *.* @Out @Sys\\*.* @Group C
      @EndLib

      @BeginLib NG2
         @File *.* @Out \\NG\\*.* @Group D
      @EndLib
   @EndDisk

   @DefineDisk
      @Label = "Disk 2"

      @BeginLib NG1.001
         @File NG1.001 @Out \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib NG1.002
         @File NG1.002 @AppendTo \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib LIB1
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib

      @BeginLib LIB2
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib

      @BeginLib SAMPLE
         @File *.* @Out @Sample\\*.* @Group C
      @EndLib
   @EndDisk

@ElseIf (@InDisk == 0)                 /* hard disk */

   @DefineDisk
      @Label = "Disk 1"

      @File README.    @Group A

      @BeginLib DOC
         @File *.* @Out *.* @Group A
      @EndLib

      @BeginLib BIN1
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib

      @BeginLib CLIPPER
         @File *.* @Out @Bin\\*.* @Group A
      @EndLib

      @BeginLib DBU
         @File *.* @Out @Dbu\\*.* @Group B
      @EndLib

      @BeginLib INCLUDE
         @File *.* @Out @Include\\*.* @Group A
      @EndLib

      @BeginLib NG2
         @File *.* @Out \\NG\\*.* @Group D
      @EndLib

      @BeginLib PE
         @File *.* @Out @Pe\\*.* @Group B
      @EndLib

      @BeginLib PLL
         @File *.* @Out @Pll\\*.* @Group B
      @EndLib

      @BeginLib RL
         @File *.* @Out @Rl\\*.* @Group B
      @EndLib

      @BeginLib SAMPLE
         @File *.* @Out @Sample\\*.* @Group C
      @EndLib

      @BeginLib SYS
         @File *.* @Out @Sys\\*.* @Group C
      @EndLib

      @BeginLib NG1.001
         @File NG1.001 @Out \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib NG1.002
         @File NG1.002 @AppendTo \\NG\\C5G01A.NG @Group D
      @EndLib

      @BeginLib NG2
         @File *.* @Out \\NG\\*.* @Group D
      @EndLib

      @BeginLib LIB1
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib

      @BeginLib LIB2
         @File *.* @Out @Lib\\*.* @Group A
      @EndLib
   @EndDisk

@Else

   ERROR:  Invalid input disk size.  Install terminated.
   @Pause
   @Abort

@Endif

@SetAutoexec
   @If ('A' [= @Group)
      @AskOverwrite
      @Path = "@OutDrive:@SubDir\\@Bin;@OutDrive:\\@Ng"
      @Verbatim "SET INCLUDE=@OutDrive:@SubDir\\@Include"
      @Verbatim "SET LIB=@OutDrive:@SubDir\\@Lib"
      @Verbatim "SET OBJ=@OutDrive:@SubDir\\@Obj"
      @Verbatim "SET PLL=@OutDrive:@SubDir\\@Pll"
   @Endif
@EndAutoexec

@SetConfig
   @If ('A' [= @Group)
      @AskOverwrite
      @Files   = 20
      @Buffers = 15
   @Endif
@EndConfig

@Display
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Installing files.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

                    The following groups will be installed:

@If ('A' [= @Group)                    @Qs1 @EndIf
@If ('B' [= @Group)                    @Qs2 @EndIf
@If ('C' [= @Group)                    @Qs3 @EndIf
@If ('D' [= @Group)                    @Qs4 @EndIf
@EndDisplay

@Finish
   @Assign (0) @Success
   @ChDrive @OutDrive

   @If ('A' [= @Group)
      @MkDir "@OutDrive:@SubDir\\@Obj"
   @EndIf

   @If ('B' [= @Group)
      @PutEnv "PATH=@OutDrive:@SubDir\\@Bin"
      @PutEnv "LIB=@OutDrive:@SubDir\\@Lib"
      @PutEnv "INCLUDE=@OutDrive:@SubDir\\@Include"
      @PutEnv "OBJ=@OutDrive:@SubDir\\@Obj"
      @PutEnv "PLL=@OutDrive:@SubDir\\@Pll"
      @PutEnv "RTLINKCMD=/SILENT"
      @PutEnv "CLIPPERCMD=/m"

@If (10 [= @Option)
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Pre-linked Library BASE50.PLL.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@ChDir "@SubDir\\@Pll"
@System "RTLINK \@BASE50 /SILENT >> @SubDir\\_error.txt"
@If (@ChildRet == 0)
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     BASE50.PLL created successfully.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket
@Else
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     ERROR:  Creating BASE50.PLL.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket
@Assign (@Success + 1) @Success
@Pause
@Endif
@EndIf

@If (11 [= @Option)
@ChDir "@SubDir\\@Rl"
   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Report and Label Utility RL.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER Rlfront /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Report and Label Utility RL.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER Rlback /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Report and Label Utility RL.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER Rldialg /m >> @SubDir\\_error.txt"
@System "RTLINK FI RLFRONT, RLBACK, RLDIALG OUT RL /SILENT; >> @SubDir\\_error.txt"

@If (@ChildRet == 0)
@System  "COPY RL.EXE @OutDrive:@SubDir\\@Bin > NUL"
@System  "DEL RL.EXE"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     RL.EXE created successfully.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@Else

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     ERROR:  Creating RL.EXE.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@Assign (@Success + 1) @Success
@Pause
@Endif
@EndIf

@If (12 [= @Option)
@ChDir "@SubDir\\@Pe"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Program Editor PE.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER PE /m/n >> @SubDir\\_error.txt"
@System "RTLINK FI PE OUT PE /SILENT; >> @SubDir\\_error.txt"

@If (@ChildRet == 0)
@System  "COPY PE.EXE @OutDrive:@SubDir\\@Bin > NUL"
@System  "DEL PE.EXE"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     PE.EXE created successfully.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@Else

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     ERROR:  Creating PE.EXE.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@Assign (@Success + 1) @Success
@Pause
@Endif
@Endif

@If (13 [= @Option)
@ChDir "@SubDir\\@Dbu"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBU /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUUTIL /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUHELP /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUVIEW /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUINDX /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUEDIT /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUCOPY /m >> @SubDir\\_error.txt"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     Creating Database Utility DBU.EXE.  Please wait...
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@System "CLIPPER DBUSTRU /m >> @SubDir\\_error.txt"
@System "RTLINK FI DBU, DBUUTIL, DBUHELP, DBUVIEW, DBUINDX, DBUEDIT, DBUCOPY, DBUSTRU OUT DBU /SILENT; >> @SubDir\\_error.txt"

@If (@ChildRet == 0)
@System  "COPY DBU.EXE @OutDrive:@SubDir\\@Bin > NUL"
@System  "COPY DBU.HLP @OutDrive:@SubDir\\@Bin > NUL"
@System  "DEL DBU.EXE"

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     DBU.EXE created successfully.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@Else

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     ERROR:  Creating DBU.EXE.
   ▄▄▄▄▄▄▄▄────
   ▄▄▄▄▄▄▄▄▄▄──
   ▄▄▄▄▄▄▄▄▄▄▄▄
    Nantucket

@Assign (@Success + 1) @Success
@Pause
@Endif
@Endif
@Endif

@ChDir "@SubDir"
@If (@Success == 0)

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     @Name installed successfully 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
    Nantucket       the latest product information.

@System  "DEL @OutDrive:@SubDir\\_ERROR.TXT > NUL"
@Else

   @Cls
   ▄▄──────────     @Name Installation
   ▄▄▄▄────────
   ▄▄▄▄▄▄──────     @Name encountered @Success error(s) during the
   ▄▄▄▄▄▄▄▄────     installation process.  Please view _Error.txt for
   ▄▄▄▄▄▄▄▄▄▄──     details.  You will find additional information
   ▄▄▄▄▄▄▄▄▄▄▄▄     regarding installation problems in the README file.
    Nantucket       Both files should be located in the @SubDir
                    directory.  If you cannot find README on your hard
                    disk, check the @Name Distribution Disk 1.
@Endif
@Pause
@EndFinish

/*---------------------* EOF INSTALL.DAT *--------------------*/