@DefineProject
   @If (@FULLINST == 0)
        @NAME           = "AutoCAD 386"  /* Must match ACAD R12 disks */
        @VERSION        = "R-12"         /* Must match ACAd R12 disks */ 
        @Language = @EN @Endlang
        @ABANNER        = " Advanced Modeling Extension "
        @SUBDIR         = "\\ACAD"
        @OUTDRIVE       = C
        @GROUP          = "Z"
        @Requires       @HardDisk
        @UPDATE         = (0)    /* Bugfix = 1, Regular = 0 */
/* For updates,  set disk label in @if at end of file */
   @Endif
@EndProject

@If (@FullINST == 0)
@DefineVars
        @Dir            @Subdir2        = ""    /* directory type */

/* For updates,  set disk label in @if at end of file */

/* Remember to also update the space requirements in the user messages */
        @Integer        @AMEEXE         =  3500000
        @Integer        @AMEAPI         =  1600000
        @Integer        @Temp           =        0
        @Integer        @Free           =        0
        @Integer        @International  = 0
@EndVars

@WELCOME
        @CLS

@if (@Language == @EN)
@DATXMSG(106,"\tThis program will install the ENGLISH version of AME")
@DATXMSG(107,"\tR2.1 on your computer.")
@endif


@pause
    @If (@CPU < 386)
@DATXMSG(1,"\t@Name requires an 80386 or 80486 CPU.  ")
@DATXMSG(2,"\tYour computer is running on a 80@CPU CPU.")
                   

        @Pause
     @Endif

     @If ((@OSMajor * 100 + @OSMinor) < 330)
@DATXMSG(3,"\t@NAME requires DOS version 3.30 or higher.")

        @Pause
     @Endif
 
        @CLS

@DATXMSG(105,"\tThis program installs AME R2.1 on your computer ")
@DATXMSG(5,"\tsystem and checks the distribution disks for errors.  ")
@DATXMSG(6,"\tYou can specify the drive and directory where you want to")
@DATXMSG(7,"\tinstall @NAME.  The program creates the directory for you.  ")
@DATXMSG(8,"\tYou can choose to copy only selected parts of the software.")

@DATXMSG(9,"\tEach screen of this program offers a choice and a default response.")
@DATXMSG(10,"\tPress the RETURN key to accept the default.  Otherwise type or ")
@DATXMSG(11,"\tselect another response and then press the RETURN key.")
@DATXMSG(12,"\tIf you make a mistake while typing, press the BACKSPACE key")
@DATXMSG(13,"\tand retype the entry.")
        
@DATXMSG(14,"\tYou can press the ESC key at any time to cancel installation     ")
@DATXMSG(15,"\tand return to the operating system.")

@PAUSE
@EndWelcome

@IF (@update == 1)
    @SetGroup(A)    /* Install all files on Updates */
@Else

SELECTAME: 
@Getgroups
        @CheckBox
@DATXMSG(99,"\tHere you select the parts of AME you want to install.")









        @SET Z = "@DATXMSG(101,"Install all AME files (5,100,000 bytes)")"
        @SET G = "@DATXMSG(102,"AME Executable/Support/Sample files (3,500,000 bytes)")"
        @SET H = "@DATXMSG(96,"AME API Source/Sample files (1,600,000 bytes)")"      
@DATXMSG(57,"\tUse the up and down cursor keys to scroll through the list.  Use")
@DATXMSG(58,"\tthe SPACE_BAR key to toggle the YES/NO state of the current")
@DATXMSG(59,"\tselection.  Press the RETURN key to accept the selection(s).")
@DATXMSG(60,"\tPress the ESC key to abort.")
@EndGroups

@Display
        @Cls
        @If ('Z' [= @Group || 'G' [= @Group || 'H' [= @Group)


@DATXMSG(82,"\tSELECTED FOR INSTALLATION:")

        @If ('Z' [= @Group) @DATXMSG(103,"Install all AME files.") @EndIf
        @If ('G' [= @Group) @DATXMSG(104,"AME Executable/Support/Sample files.") @EndIf
        @If ('H' [= @Group) @DATXMSG(70,"AME API Source/Samples.") @EndIf

        @Pause
        @IF ('Z' [= @GROUP) 
            @SETGROUP(G)
            @SETGROUP(H)
        @Endif
        @ELSE
@DATXMSG(71,"No files were selected for installation.")
           @Pause
           @GOTO SELECTAME
        @Endif
@EndDisplay

/* Compute amount of disk space needed to install selected files */

@If ('G' [= @Group)  
        @Equal(@FREE = @AMEEXE)  
@Endif

@If ('H' [= @Group)  
        @Equal(@TEMP = @AMEAPI + @FREE)
        @Equal(@FREE = @TEMP)
@Endif
@Endif /* Not an update */

SelectDrv:
@GetOutDrive
        @Suppress A      /* don't display A: */
        @Suppress B      /* or B:            */
        @CLS
@DATXMSG(16,"\tOn which disk drive do you want to install the selected files?")
















@DATXMSG(17,"\tUse the up and down cursor keys to scroll through the")
@DATXMSG(18,"\tlist of disk drives.  Press the RETURN key when you have ")
@DATXMSG(19,"\tselected a drive.")

@EndOutDrive

@If (@update == 0)   /* Can't check space avaiable on updates */

   @If (@DiskFree  @OutDrive < @FREE) 
           @GetOption

@DATXMSG(72,"\tThe selected output disk drive only has @DiskFree @OutDrive bytes free.")
@DATXMSG(73,"\tTo install the files you have selected, @FREE bytes are ")
@DATXMSG(74,"\trequired.")

@DATXMSG(75,"\tDo you want to install on this drive anyway or select another drive?")
           @LocalWindow(12,40)
                 @Option  10 = "@DATXMSG(76,"Continue")"
                 @option  11 = "@DATXMSG(77,"Select another drive")"
           @EndOption
   @EndIf

   @If(11 [= @Option)
         @ClearOption(11)
         @GoTO SelectDRV
   @Endif
@Endif

Selectsubdir:
@GetSubdir
        @CLS

@DATXMSG(20,"\tHere you specify the name of the directory where the selected files")
@DATXMSG(21,"\twill be installed.  By default, the name of this directory is:")
       @SUBDIR.  
@DATXMSG(22,"\tThe program locates it below the root directory of the disk")
@DATXMSG(23,"\tdrive you selected.  If you have no preference, choose the")
@DATXMSG(24,"\tdefault by pressing the RETURN key.")

@DATXMSG(25,"\tTo change the directory name, backspace over the directory name")
@DATXMSG(26,"\tand type a new name.  Press the RETURN key when you have finished ")
@DATXMSG(27,"\ttyping the name.")






        @PROMPT = "@DATXMSG(28," Which subdirectory ? ")"
@EndSubdir

@If ('G' [= @Group)  /* Need Support directory */
@GetSubdir @Subdir2
        @Default = "@Subdir\\SUPPORT\\"
        @CLS

@DATXMSG(29,"\tHere you specify the name of the directory where @NAME")
@DATXMSG(30,"\tsupport files will be installed.  By default, the name of this ")
@DATXMSG(31,"\tdirectory is:")
       @SUBDIR2
 
@DATXMSG(32,"\tThe program locates it below the root directory of the disk")
@DATXMSG(33,"\tdrive you selected.  If you have no preference, choose the")
@DATXMSG(34,"\tdefault by pressing the RETURN key.")
 
@DATXMSG(35,"\tTo change the directory name, backspace over the directory name")
@DATXMSG(36,"\tand type a new name.  Press the RETURN key when you have finished")
@DATXMSG(37,"\ttyping the name.")
 
 
 
 
 
 
        @PROMPT = "@DATXMSG(38," Support files subdirectory ? ")"
@EndSubdir

@ENDIF /* Not Full Install */
@Endif /* Support directory needed */

        /*AME Disk 1*/
@DefineDisk    
        @LABEL = "AME 1"
        @File   AME1.MID                         @Group AG
        @File   Readme.ame                       @Group AG
        @BeginLib  AME1.LIB
           @File   AME.exp                          @Group AG
           @File   AMELINK.EXP    @Out SAMPLE\\*.*  @gROUP ag
        @EndLib
@EndDisk

@IF (@UPDATE == 1)
  /*  @Chain = "disk_label" */
@Else
    @Chain = "AME 2"
@Endif

