home *** CD-ROM | disk | FTP | other *** search
INSTALL Professional project | 1993-11-14 | 26.4 KB | 895 lines |
- /*-----------------------------------------------------*/
- /* Installation script for MetaStock RT version 4.0 */
- /* (C) EQUIS International, 1989-1993 */
- /*-----------------------------------------------------*/
-
- /*-----------------------------------------------------*/
- /* Group A - "New installation" */
- /* Group B - "Upgrade from 2.0" */
- /* Group C - "Upgrade from 2.5" */
- /* Group D - "Upgrade from 3.0 (RT or EOD)" */
- /* Group E - "Upgrade from 3.5 (RT or EOD)" */
- /* Group F - "Upgrade from 4.0 non-RT" */
- /* Group G - "Update 4.0 RT" */
- /* Group X - "Yes, Install sample files" */
- /* Group Y - "No, Do not install sample files" */
- /* Option 1 - Okay to overwrite existing path. */
- /* Option 2 - User wants to respecify path. */
- /* Option 3 - User wants to abort getsubdir. */
- /*-----------------------------------------------------*/
-
- /*-----------------------------------------------------*/
- /* Remove/add "RT" to the @Name to control version. */
- /*-----------------------------------------------------*/
-
- @DefineProject
- @Name = "MetaStock"
- @Version = "4.0"
- @Subdir = "\\MS"
- @OutDrive = C
- @Requires 3100000 /* Requires xxx to run (with temp files). */
- /* Varies with size of sample data! */
- @Requires @HARDDISK
- @Group = "A" /* Default to a new installation */
- @EndProject
-
- /*-------------------------------------------------------------------------*/
- /* Set @IsRealTime. */
- /*-------------------------------------------------------------------------*/
-
- @DefineVars
- /* Change @IsRealTime to @TRUE or @FALSE as required. */
- /* If you change this, you must also add/delete "RT" from the @NAME, above*/
-
- @Integer @IsRealTime = @FALSE
-
- /* Set @OurDiskSize to [3]60, [7]20, [1].2, or 1.[4] as required. */
-
- @Integer @OurDiskSize = 7
-
- /* Do not change the following expressions except on major releases. */
-
- @Integer @OurMinAvailBytes = @Eval( 512 * 1024 )
- @Integer @OurMinTotalBytes = @Eval( 635 * 1024 )
- @EndVars
-
- /*-------------------------------------------------------------------------*/
- /* Display title/welcome screen. */
- /*-------------------------------------------------------------------------*/
-
- @DISPLAY
- @CLS
-
- ╒════════════════════════════════════════════════════════════════╕
- │ (C) 1993 EQUIS International │
- ╘════════════════════════════════════════════════════════════════╛
-
- This program will install @Name on your hard disk.
-
- This program will NOT modify your AUTOEXEC.BAT or CONFIG.SYS files.
-
- You may perform a new installation or upgrade an existing version
- of MetaStock. If you have existing MetaStock data files, they will
- not be overwritten.
-
- You may press the [Esc] key at any time to abort the installation
- process.
-
- @PAUSE
- @ENDDISPLAY
-
- /*-------------------------------------------------------------------------*/
- /* Check system configuration. */
- /*-------------------------------------------------------------------------*/
-
- @IF(@OSMAJOR < 3)
- @DISPLAY
- @CLS
-
- @Name requires DOS version 3.0 or greater. You are using version
- @OSMAJOR.@OSMINOR.
-
- @ABORT
- @ENDDISPLAY
- @ENDIF
-
- @IF( @RAMTOTAL < @OurMinTotalBytes )
- @DISPLAY
- @CLS
-
- @Name requires that you have at least @Eval(@OurMinTotalBytes / 1024)K of conventional
- memory installed. Your computer only has @Eval(@RAMTOTAL / 1024)K.
-
- The installation process will continue, but you may not be able to run
- @Name.
-
- Refer to "System Requirements" in the MetaStock User's Manual for
- additional information on memory requirements.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF( @RAMAVAIL < @OurMinAvailBytes )
- @DISPLAY
- @CLS
-
- @Name requires at least @Eval(@OurMinAvailBytes / 1024)K of available conventional memory.
- Your computer only has @Eval( @RAMAVAIL / 1024 )K.
-
- The installation process will continue, but you may not be able to run
- @Name.
-
- Refer to "System Requirements" in the MetaStock User's Manual for
- additional information on memory requirements. You may need to install
- memory management software. Call EQUIS International's Customer Support
- for assistance.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF(@CPU < 286 )
- @DISPLAY
- @CLS
-
- @Name requires a computer that has an 80286 or faster CPU. Your
- computer has an 80@CPU CPU.
-
- This installation process will continue, but running MetaStock on this
- computer will probably cause MetaStock to RUN UNBEARABLY SLOW.
- @IF( @IsRealTime )
-
- If you try to collect real-time data on this computer, you will probably
- lose significant amounts of real-time data.
- @ENDIF
-
- Refer to "System Requirements" in the @Name User's Manual for
- additional information on computer requirements.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF(@NDP == 0 )
- @DISPLAY
- @CLS
-
- Your computer does not have a math coprocessor. Installing one will
- improve the performance of @Name considerably.
- @IF( @IsRealTime )
-
- If you try to collect real-time data on this computer, your computer
- may not be able to recalculate and redisplay the charts as quickly as
- data is received.
- @ENDIF
-
- Refer to "System Requirements" in the @Name User's Manual for
- additional information on coprocessors.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF( @EMMMAJOR == 0)
- @DISPLAY
- @CLS
-
- @IF( @IsRealTime )
-
- @Name requires expanded memory to collect real-time data.
-
- This installation process will continue, but running @Name on
- this computer may cause MetaStock to RUN UNBEARABLY SLOW.
-
- If you try to collect real-time data on this computer, you may lose
- significant amounts of real-time data.
- @ELSE
-
- Your computer does not have any expanded memory available. Adding
- or enabling expanded memory will improve @Name's performance.
- @ENDIF
-
- Refer to "System Requirements" and "Memory Usage" sections in the
- @Name User's Manual for additional information on expanded memory.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF( (@VIDEOCARD == 'M') || (@VIDEOCARD == 'C'))
- @DISPLAY
- @CLS
-
- MetaStock requires EGA or VGA video hardware.
-
- @IF( (@VIDEOCARD == 'M') )
- Your computer reports that it is equipped with a monochrome adapter.
- @ENDIF
-
- @IF( (@VIDEOCARD == 'C') )
- Your computer reports that it is equipped with a CGA adapter.
- @ENDIF
-
- This installation process will continue, but you may not be able to run
- MetaStock.
-
- Refer to "System Requirements" in the MetaStock User's Manual for
- additional information on video hardware requirements.
-
- @PAUSE
- @ENDDISPLAY
- @ELSE
- @DISPLAY
- @if(@VIDEORAM < 256)
- @CLS
-
- MetaStock requires that your EGA or VGA video hardware contains a
- minimum of 256k of graphic memory. Your computer reports that it
- contains an EGA or VGA adapters which has less than 256k.
-
- This installation process will continue, but you may not be able to
- run MetaStock.
-
- Refer to "System Requirements" in the MetaStock User's Manual for
- additional information on video hardware requirements.
-
- @PAUSE
- @ENDIF
- @ENDDISPLAY
- @ENDIF
-
- @GetGroups
- @CLS
- @FLUSHGROUPS()
- Select the files to install and press [Enter].
-
-
-
-
-
-
-
-
-
- If you are upgrading from an older (i.e., non-Professional) version,
- select "New Installation."
-
- Regardless of your selection, your security data files will not be
- overwritten.
-
- @SET A = "New Installation"
- @SET B = "Upgrade from MetaStock 2.0"
- @SET C = "Upgrade from MetaStock 2.5"
- @SET D = "Upgrade from MetaStock 3.0"
- @SET E = "Upgrade from MetaStock 3.5"
- @IF( @IsRealTime )
- @SET F = "Upgrade from MetaStock 4.0 (non-RT)"
- @SET G = "Update MetaStock 4.0 RT"
- @ELSE
- @SET G = "Update MetaStock 4.0"
- @ENDIF
-
- @EndGroups
-
- @IF( 'a' [= @GROUP ) /* New Installation */
- @DISPLAY
- @CLS
- Please make sure you return the enclosed registration card to be
- eligible for:
-
- EQUIS International's free customer support by phone, fax, mail,
- and CompuServe.
-
- Newsletters filled with tips and ideas about EQUIS products.
-
- Early notice of new versions and low upgrade prices.
- @IF( @IsRealTime )
- Intraday data collection from DBC Signal.
- @ENDIF
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @GetOutDrive
- @CLS
-
- Select the disk drive you want to install @Name on.
-
-
-
-
-
-
-
-
-
-
-
-
-
- Use the [Up]/[Down] keys to select the disk drive and press [Enter].
-
- @EndOutDrive
-
- GETSUBDIR:
-
- @GetSubdir
- @CLS
-
- Now you need to specify the subdirectory where @Name should
- be installed.
- @IF( 'b' [= @GROUP ) /* Upgrading from 2.0 */
- Since you are upgrading from MetaStock version 2.0, be sure to specify
- the subdirectory where your version 2.0 program files are located.
- @ELSEIF( 'c' [= @GROUP ) /* Upgrading from 2.5 */
- Since you are upgrading from MetaStock version 2.5, be sure to specify
- the subdirectory where your version 2.5 program files are located.
- @ELSEIF( 'd' [= @GROUP ) /* Upgrading 3.0 */
- Since you are upgrading from MetaStock version 3.0, be sure to specify
- the subdirectory where your version 3.0 program files are located.
- @ELSEIF( 'e' [= @GROUP ) /* Upgrading 3.5 */
- Since you are upgrading from MetaStock 3.5, be sure to specify
- the subdirectory where your existing program files are located.
- @ELSEIF( 'f' [= @GROUP ) /* Upgrading 4.0 non-RT */
- Since you are upgrading from MetaStock 4.0 EOD, be sure to specify
- the subdirectory where your existing program files are located.
- @ELSEIF( 'g' [= @GROUP ) /* Updating 4.0 */
- Since you are updating an existing copy of MetaStock 4.0, be sure
- to specify the subdirectory where your existing program files are
- located.
- @ELSE
- We suggest that you simply press [Enter] to install the program in the
- default subdirectory named below.
- @ENDIF
-
-
- @PROMPT = "Install in which subdirectory?"
-
- @EndSubdir
-
-
- @IF( 'a' [= @GROUP ) /* New Installation. */
-
- @FLUSHOPTIONS()
-
- @IF( @DirExists( "@OutDrive:\\@Subdir" ) == 1)
-
- @GETOPTION
- @CLS
-
- A subdirectory named @OutDrive:@Subdir already exists.
-
-
- @Option 1 = "Overwrite"
- @Option 2 = "Respecify subdirectory"
- @Option 3 = "Cancel installation"
-
- @ENDOPTION
-
- @ENDIF
-
- @IF( 2 [= @OPTION )
- @GOTO GETSUBDIR
- @ENDIF
-
- @IF( 3 [= @OPTION )
- @EXIT
- @ENDIF
-
- @ENDIF
-
-
-
- @IF( 'b' [= @GROUP ) /* Upgrading from 2.0 */
- @IF( (@Exists "@OutDrive:\\@Subdir\\MS20CNFG.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS20COLR.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS20PRFT.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS20PRNT.DTA" == 0) )
- @DISPLAY
- @CLS
- Some of MetaStock version 2.0's program files (i.e., MS20*.DTA) were
- not found on @OutDrive:@Subdir.
-
- You need to specify the correct subdirectory (or you may press [Esc]
- now to abort this installation process).
-
- @PAUSE
- @GOTO GETSUBDIR
-
- @ENDDISPLAY
- @ENDIF
- @ENDIF
-
- @IF( 'c' [= @GROUP ) /* Upgrading from 2.5 */
- @IF( (@Exists "@OutDrive:\\@Subdir\\MS25CNFG.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS25COLR.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MSFORMUL.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS25PRNT.DTA" == 0) )
- @DISPLAY
- @CLS
- Some of MetaStock version 2.5's program files (i.e., MS25*.DTA) were
- not found on @OutDrive:@Subdir.
-
- You need to specify the correct subdirectory (or you may press [Esc]
- now to abort this installation process).
-
- @PAUSE
- @GOTO GETSUBDIR
-
- @ENDDISPLAY
- @ENDIF
- @ENDIF
-
-
- @IF( 'd' [= @GROUP ) /* Upgrading 3.0 */
- @IF( (@Exists "@OutDrive:\\@Subdir\\MS30CNFG.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS30COLR.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS30FORM.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS30PRFT.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS30PRNT.DTA" == 0) )
- @DISPLAY
- @CLS
- Some of MetaStock version 3.0's program files (i.e., MS30*.DTA) were
- not found on @OutDrive:@Subdir.
-
- You need to specify the correct subdirectory (or you may press [Esc]
- now to abort this installation process).
-
- @PAUSE
- @GOTO GETSUBDIR
-
- @ENDDISPLAY
- @ENDIF
- @ENDIF
-
-
- @IF( 'e' [= @GROUP ) /* Upgrading 3.5 */
- @IF( (@Exists "@OutDrive:\\@Subdir\\MS35CNFG.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS35COLR.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS35FORM.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS35PRFT.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS35PRNT.DTA" == 0) )
- @DISPLAY
- @CLS
- Some of MetaStock version 3.5's program files (i.e., MS35*.DTA) were
- not found on @OutDrive:@Subdir.
-
- You need to specify the correct subdirectory (or you may press [Esc]
- now to abort this installation process).
-
- @PAUSE
- @GOTO GETSUBDIR
-
- @ENDDISPLAY
- @ENDIF
- @ENDIF
-
-
- @IF( ('f' [= @GROUP) || ('g' [= @GROUP)) /* Updating 4.0, or Upgrading 4.0 EOD */
- @IF( (@Exists "@OutDrive:\\@Subdir\\MS40CNFG.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS40COLR.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS40FORM.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS40PRFT.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS40EXPL.DTA" == 0) ||
- (@Exists "@OutDrive:\\@Subdir\\MS40PRNT.DTA" == 0))
- @DISPLAY
- @CLS
- Some of MetaStock version 4.0's program files (i.e., MS40*.DTA) were
- not found on @OutDrive:@Subdir.
-
- You need to specify the correct subdirectory (or you may press [Esc]
- now to abort this installation process).
-
- @PAUSE
- @GOTO GETSUBDIR
-
- @ENDDISPLAY
- @ENDIF
- @ENDIF
-
-
- @IF( ('b' [= @GROUP) || ('c' [= @GROUP) ) /* Upgrade from 2.0 or 2.5 */
- @DISPLAY
- @CLS
- This installation program retains your version 2.x color, configuration,
- and custom formula selections. Your existing security data files will
- not be modified.
-
- However, your existing Smart Chart files are not compatible with
- version @Version.
-
- The old MetaStock version 2.x program will be overwritten. If you want
- to keep version 2.x, you should press [Esc] now to abort the installation
- process. You should then rerun this installation program, select New
- Installation, and install the program in a new subdirectory
- (e.g., C:\MS40).
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF( ('d' [= @GROUP) || ('e' [= @GROUP)) /* Upgrade from 3.x */
- @DISPLAY
- @CLS
- This installation program retains your version 3.x color, configuration,
- custom formula, layouts, and profit systems. Your existing security data
- files will not be modified.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF( ('f' [= @GROUP) || ('g' [= @GROUP ) ) /* Upgrade/update from 4.0 */
- @DISPLAY
- @CLS
- This installation program retains your version 4.0 color, configuration,
- custom formulas, explorations, layouts, macros, system tests, and
- templates. Your existing security data files will not be modified.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @IF( 'a' [= @GROUP ) /* New Installation */
-
- /* Only ask if they want to install the security data files if there is
- * not a MASTER file in the subdir. It is almost impossible to have
- * data there, but we MUST protect their data!
- */
-
- @IF( !@Exists "@OutDrive:\\@Subdir\\DATA\\MASTER" )
- @GetGroups
- @CLS
-
- Do you want to install the Sample Data files?
-
-
-
-
- If you select "Yes," the Sample Data files will be copied into a
- subdirectory named @OutDrive:@Subdir\DATA.
-
- @SET x = "Yes, Install sample files"
- @SET y = "No, Do not install sample files"
-
- @EndGroups
-
- @ENDIF
-
- @ELSE
- @DISPLAY
- @CLS
- A special Getting Started With Your Upgrade manual has been provided to
- help you learn the new features in version 4.0 as quickly as possible.
- Please take a few moments to read it.
-
- For a guided tour of the new features, type NEW while in the MetaStock
- subdirectory.
-
- @PAUSE
- @ENDDISPLAY
- @ENDIF
-
- @DefineDisk
-
- /*----------------------------------------------------------------------*/
- /* This next block selects the appropriate disk label based on the */
- /* version (i.e., Rt or Eod) and the disk size (i.e., 3, 7, 1, 4). */
- /* This block is duplicated (with minor modifications) at the beginning */
- /* of each @DefineDisk block. */
- /*----------------------------------------------------------------------*/
-
- @If( @IsRealTime )
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock RT, Disk 1 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock RT, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock RT, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock RT, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Else
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock, Disk 1 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Endif
-
- @File README.TXT
- @File README.BAT
- @File SHOW.EXE
-
- @BeginLib MS.001
- @File MS.EXE
- @EndLib
-
- @EndDisk
-
- @DefineDisk
-
- /*----------------------------------------------------------------------*/
- /* This next block selects the appropriate disk label based on the */
- /* version (i.e., Rt or Eod) and the disk size (i.e., 3, 7, 1, 4). */
- /* This block is duplicated (with minor modifications) at the beginning */
- /* of each @DefineDisk block. */
- /*----------------------------------------------------------------------*/
-
- @If( @IsRealTime )
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock RT, Disk 2 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock RT, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock RT, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock RT, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Else
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock, Disk 2 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Endif
-
- @BeginLib MS.002
- @File MS.EXE
- @EndLib
-
- @BeginLib MS40Pre3.red
- @File *.* @Group abc
- @EndLib
-
- @BeginLib MS40Pre4.red
- @File *.* @Group abcde
- @EndLib
-
- @BeginLib MS40Strg.red
- @File *.*
- @EndLib
-
- @BeginLib MS40Tmpl.red
- @File *.* @Out TEMPLATE\*.* @Group abcde /* All but 4.0 */
- @EndLib
-
- @EndDisk
-
- @DefineDisk
-
- /*----------------------------------------------------------------------*/
- /* This next block selects the appropriate disk label based on the */
- /* version (i.e., Rt or Eod) and the disk size (i.e., 3, 7, 1, 4). */
- /* This block is duplicated (with minor modifications) at the beginning */
- /* of each @DefineDisk block. */
- /*----------------------------------------------------------------------*/
-
- @If( @IsRealTime )
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock RT, Disk 3 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock RT, Disk 2 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock RT, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock RT, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Else
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock, Disk 3 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock, Disk 2 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock, Disk 1 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Endif
-
- @BeginLib MS40Bgi2.red
- @File *.* @Out BGI\*.*
- @EndLib
-
- @BeginLib MS40Any1.red
- @File *.*
- @EndLib
-
- @BeginLib MS40Misc.red
- @File MSTo40.com
- @File *.LOD
- @File MS40Cnfg.dta @Group abcde
- @File *.pif @NoOverwrite
- @If( @IsRealTime )
- @File Master.$$$ @Out RTData\*.*
- @Endif
- @EndLib
-
- @EndDisk
-
- @DefineDisk
-
- /*----------------------------------------------------------------------*/
- /* This next block selects the appropriate disk label based on the */
- /* version (i.e., Rt or Eod) and the disk size (i.e., 3, 7, 1, 4). */
- /* This block is duplicated (with minor modifications) at the beginning */
- /* of each @DefineDisk block. */
- /*----------------------------------------------------------------------*/
-
- @If( @IsRealTime )
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock RT, Disk 4 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock RT, Disk 2 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock RT, Disk 2 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock RT, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Else
- @If( @OurDiskSize == 3 )
- @LABEL = "MetaStock, Disk 4 of 4"
- @Else
- @If( @OurDiskSize == 7 )
- @LABEL = "MetaStock, Disk 2 of 2"
- @Else
- @If( @OurDiskSize == 1 )
- @LABEL = "MetaStock, Disk 2 of 2"
- @Else
- @If( @OurDiskSize == 4 )
- @LABEL = "MetaStock, Disk 1 of 1"
- @Else
- @Cls
- Invalid \@OurDiskSize.
- @Abort
- @Endif
- @Endif
- @Endif
- @Endif
- @Endif
-
- @BeginLib MS40Bgi1.red
- @File *.* @Out BGI\*.*
- @File EGAVGA.BGI
- @EndLib
-
- @BeginLib MS40DATA.red
- @File *.* @Out DATA\*.* @Group x
- @EndLib
-
- @EndDisk
-
- @Finish
- @ChDrive @OutDrive
- @ChDir "@Subdir"
- @Cls
-
- @IF( ('b' [= @GROUP ) || ('c' [= @GROUP ) || ('d' [= @GROUP ) || ('e' [= @GROUP )) /* Pre 4.0 upgrade */
- @Spawn( "MSTo40 install" )
- @CLS
- @ENDIF
-
- @CLS
-
- @Delete( "@OutDrive:@Subdir\\msto40.com" )
-
- @If( @IsRealTime )
- @chdir "RTDATA" /* Okay if fails. */
- @Rename( "MASTER.$$$", "MASTER." ) /* Okay if fails. */
- @Delete( "@OutDrive:@Subdir\\master.$$$" )
- @chdir "@Subdir"
- @Else
- @Delete( "@OutDrive:@Subdir\\*.lod" ) /* Signal ROS files */
- @Delete( "@OutDrive:@Subdir\\MS40SHlp.dta" )/* Signal symbol help file */
- @Endif
-
- @Cls
-
- The "README" file is about to be displayed on your screen.
-
- When you are done viewing the file, press [Esc] to return to this
- installation program.
-
- @PAUSE
-
- @CLS
-
- @SYSTEM "SHOW README.TXT"
-
- @CLS
-
- You may now run @Name by typing MS as explained in the User's Manual.
- @IF( 'a' [= @GROUP ) /* New Installation */
- If you are new to @NAME, we suggest you first run it in the self-
- running "demo" mode. You can do this by typing AUTORUN at the upcoming
- DOS prompt.
-
- If you are new to technical analysis, we suggest you read the "Investing
- with Technical Analysis" section near the back of the "Demo & Tutorial"
- booklet.
- @ENDIF
-
- @PAUSE
-
- @EndFinish
-