/* __________ DEFINE PROJECT __________ */

@DefineProject
    @Name       = "MASTERCAM"
    @Version    = "5.0"
    @Subdir     = "\\MILL5"
    @OutDrive   = C
    @Immediate  = @TRUE
    @InDiskBell = @TRUE
    @Group      = "I"
@EndProject

@DefineVars
    @Qstring @Product = "Mastercam INFO utility"
    @Qstring @AppName = "MILL5"                         /* just in case */
    @Qstring @IcoName = "MILL"                          /* just in case */
    @Integer @TempInt = -1
    @Qstring @CGroup = ""                               /* just in case */
    @Qstring @RItemM = ""                               /* just in case */
    @Qstring @AItemM = ""                               /* just in case */
    @Qstring @RItemH = ""                               /* just in case */
    @Qstring @AItemH = ""                               /* just in case */
@EndVars

/* __________ SAY HELLO __________ */

@Display
    @Cls
    This program will install @Product on your computer.
    You may press the [Esc] key at any time to abort the installation.

    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

/* __________ GET DRIVE __________ */

@GetOutDrive
    @Cls
    Select target drive for @Product ...
    @DlgCtrlSize(0,3,2,8,30)
    @Suppress(0,17)
@EndOutDrive

/* __________ GET DIRECTORY __________ */

@GetSubdir
    @Cls
    Specify directory on target drive @OutDrive ...
    @DlgCtrlSize(0,3,2,4,30)
@EndSubdir

/* __________ REMOVE DRIVE - IF ENTERED __________ */


@TempInt = @StrFind ("@SubDir", ":")
@If (@TempInt >= 0)
    @SubDir = "@StrDel ("@SubDir", 0, (@TempInt+1))"
@EndIf

/* __________ VERIFY INFORMATION __________ */


@Display
    @Cls
    Please verify installation information ...

    Product:
    @Product

    Destination:
    @OutDrive:@SubDir
    @Pause
@EndDisplay

/* __________ INFORMATION DISK __________ */

@Chain ("Info Disk", "@InDrive:\\info.dat")
