/*
 *   F-PROT Professional Installation Program
 *   Copyright (C) 1993,94,95 Command Software Systems
 *
 *   Edited by Command Software GC,SPB
 *   Date      = June 13,1995
 *   #Disk     = 1
 */
@DefineProject
    @Name = "F-PROT Professional"
    @Version = "2.21.3"
    /* Default Drive and Directory */
    @OutDrive = C               // DRIVE
    @SubDir = "\\F-PROT"        // DIRECTORY
@EndProject

@DefineVars

    /*
     * SILENT specifies no interaction, defaults are automatically used
     * and no pauses are used. INTERACT allows the user to answer questions
     * involving the installation
     */
    @QString @Mode          = "INTERACT"   // SILENT, INTERACT

    /* The drive MS Windows is located on */
    @Drive   @WinDrive      = C           // DRIVE A,B,C,D

    /* The Directory where MS Windows is located   */
    @Dir     @WinDir        = "\\WINDOWS" // DIRECTORY

       /* Specifies whether or not to install the Windows interface for the
	* F-PROT program */
       @QString @FPWIN         = "YES"     // YES,NO

       /* Specifies whether or not to load the DOS interface for the F-PROT
	* program */
       @QString @FPDOS         = "YES"    // YES, NO

       /* Specifies whether or not to load F-PROT from the AUTOEXEC.BAT */
       @QString @FPAuto        = "YES"   // YES, NO

       /* Load the VIRSTOP TSR from what location */
       @QString @TSRPlace      = "AUTOEXEC"   // AUTOEXEC, CONFIG

       /* What type of NETWORK is used for the broadcasting TSR  */
       @QString @Network       = "NONE" // NOVELL, BANYAN, NONE

       /* This is directly related to the above, it should be set to
	* novcast unless the network type is BANYAN, then it should be set
	* to BANCAST. */
       @QString @BroadCaster   = "NOVCAST"

       @QString @DVPWIN        = "F-PROT DVP"

       /* Do you want to install the Data Integrity Checker, CHECK */
       @QString @UtilCheck     = "YES"

       /* Do you want to install the LOGIN.COM file so you can load TSR's
	* ( VIRSTOP )from the system login script */
       @QString @UtilLogin     = "YES"

       /* Do you want to install the software REBOOT program */
	@QString @UtilReboot    = "YES"

       /* Do you wish to install the F-PROT batch files */
       @QString @UtilBatch     = "YES"

    /* Sets the FPDATA path including the FILENAME. Use skip as an
     * option if you do not want this set command in your AUTOEXEC.BAT */
    @QString @FPData        = "SKIP" // SKIP, [PATH,FILENAME]

    /* Settings for the F-PROT placed in the AUTOEXEC.BAT file */
    @QString @FPOptions     = "/HARD /TODAY" //FP manual pg.19

    /* This sets the modify your boot up files options: YES, F-PROT goes
     * ahead and changes your AUTOEXEC.BAT and CONFIG.SYS, NO, F-PROT does
     * not, SAVE F-PROT saves the changes to a file with the extension NEW(
     * AUTOEXEC.NEW, CONFIG.NEW ) for later.  */
    @QString @ModifyBoot    = "YES"   // YES, NO, SAVE

    /* @BatSetup if set to true will place lines for the AUTOEXEC.BAT
     * file above the last line in the AUTOEXEC.BAT file; if set to false
     * it will place lines at the bottom of the AUTOEXEC.BAT file.*/
    @Integer @Batsetup      = @TRUE

    @QString @Foreign       = "YES"
    /* Used by the program it should always be set to NO */
    @QString @Core          = "NO"

    /* In house use, should not be touched */
    @QString @ModAuto       = "NO"
    @QString @GetWin        = " "
    @QString @ZIPOPT        = ""
@EndVars


WELCOME:

@GetWin = @GetEnv "windir"

@If( @StrLen( @GetWin ) > 3 )
   @Display
      @CLS


      @Name's Installation will not run within a Windows
      environment.  Please use the SETUP program to execute
      @Name's Windows installation program.

      Please go to the FILE menu in the PROGRAM MANAGER, choose RUN,
      and type the source directory of the @Name files
      followed by \SETUP.EXE. This will execute @Name's
      installation for Windows.

      @Pause
   @EndDisplay
   @Exit
@Endif

@If( @StrFind( @Mode, "SILENT")==0)
   @Goto Install
@Endif

   @Display
      @Cls

			  F-PROT Professional @Version

    Welcome to the @Name installation program!
    This program will install @Name v@Version
    on your computer. To continue this installation
    press ENTER. To quit the install program at any time
    press ESC.

      @PAUSE
   @EndDisplay

MAIN:

   // Display the main screen
   @FlushGroups()
   @GetGroups
   @CLS
		   @Name v@Version Installation

   F-PROT Directory----@OutDrive:@SubDir
   Windows Directory---@WinDrive:@WinDir














   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the desired menu selection and then press [Enter].
 @Endif @Set i = "        INSTALL F-PROT "
      @Set d = "Customize F-PROT/Windows Directory"
      @Set f = "Customize F-PROT DOS/Windows Options"
      @Set r = "Customize Real-Time TSR Options"
      @Set u = "Customize Utility/Integrity Options"
      @LocalWindow( 12, 36 )
   @EndGroups
   @if ('d' [= @Group)
	 @ClearGroup(d)
	 @Goto FPDir
   @EndIf
   @if ('f' [= @Group)
	 @ClearGroup(f)
	 @Goto FPROT
   @EndIf
   @if ('r' [= @Group)
	 @ClearGroup(r)
	 @Goto TSR
   @EndIf
   @if ('u' [= @Group)
	 @ClearGroup(u)
	 @Goto UTIL
   @EndIf
   @if('i' [= @Group)
	 @ClearGroup(i)
	 @Goto Install
   @EndIf
@Goto MAIN      // GO BACK TO MAIN MENU

FPDir:
  @FlushGroups()
  @GetGroups
  @CLS
  @MoveCStr( 1,2,30, "F-PROT v@Version")
  F-PROT Drive      : @OutDrive
  F-PROT Directory  : @SubDir
  Windows Drive     : @WinDrive
  Windows Directory : @WinDir













   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the desired menu selection and then press [Enter].
  @Set m = "Return to Main Menu"
  @Set f = "F-PROT Drive"
  @Set p = "F-PROT Directory"
  @Set w = "Windows Drive"
  @Set d = "Windows Directory"
  @LocalWindow( 12, 39 )
  @EndGroups
  @If ( 'f' [= @Group )
     @ClearGroup(f)
     @Goto FPDRIVE
  @Endif
  @If ( 'p' [= @Group )
     @ClearGroup(p)
     @Goto FPDirect
  @Endif
  @If ( 'w' [= @Group )
     @ClearGroup(w)
     @Goto WindowsDrive
  @Endif
  @If ( 'd' [= @Group )
     @ClearGroup(d)
     @Goto WindowsDirectory
  @Endif
  @If ( 'm' [= @Group )
     @ClearGroup(m)
     @Goto Main
  @Endif
@Goto FPDir

FPDRIVE:
  @GetOutDrive @OutDrive                      // get the output drive
    @Suppress A                             // skip A
    @Suppress B                             // skip B
    @CLS
    @MoveCStr( 1,2,30, "F-PROT v@Version")
    @MoveCStr( 2,2,11, "F-PROT Drive      : @OutDrive")
  F-PROT Directory  : @SubDir
  Windows Drive     : @WinDrive
  Windows Directory : @WinDir











	    Please select the drive to install @Name.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the disk drive to install to and then press [Enter].
      @LocalWindow( 10, 38 )
      @EndOutDrive

@Goto FPDir

FPDirect:
      @GetSubdir @SubDir
	 @CLS
	 @MoveCStr( 1,2,30, "F-PROT v@Version")
  F-PROT Drive      : @OutDrive
   @MoveCStr( 3,2,11, "F-PROT Directory  : @SubDir")
  Windows Drive     : @WinDrive
  Windows Directory : @WinDir



	 @Default = "@SubDir"  // GET THE DIRECTORY
	 @Prompt = "Enter the name of the sub-directory for F-PROT"
      @EndSubdir
@Goto FPDir

WindowsDrive:
      // Get the drive Windows is located on
      @GetOutDrive @WinDrive           // get the output drive
	 @Cls
	 @Suppress A                             // skip A
	 @Suppress B                             // skip B
	 @CLS
	 @MovecStr( 1,2,30, "F-PROT v@Version")
  F-PROT Drive      : @OutDrive
  F-PROT Directory  : @SubDir
  @MovecStr(4,2,11, "Windows Drive     : @WinDrive")
  Windows Directory : @WinDir











	    Select the drive where Microsoft Windows is installed.

    Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
    bar to the disk drive to install to and then press [Enter].
	 @LocalWindow(10,38)
      @EndOutDrive
@Goto FPDir

WindowsDirectory:
      //Get the directory Windows is located within
      @GetSubDir @WinDir
	 @CLS
	 @MoveCStr( 1,2,30, "F-PROT v@Version")
  F-PROT Drive      : @OutDrive
  F-PROT Directory  : @SubDir
  Windows Drive     : @WinDrive
  @MoveCStr( 5,2,11, "Windows Directory : @WinDir")



	 @Default = "@WinDir"  //GET THE OUTPUT DIRECTORY
	 @Prompt = "Enter the Windows directory"
      @EndSubdir
   @Endif
@Goto FPDir                       // GOTO MAIN MENU


FPROT:
  @FlushGroups()
  @GetGroups
  @CLS
  @MoveCStr( 1,3,30, "F-PROT v@Version")
   F-PROT for DOS    : @FPDOS
   F-PROT for Windows: @FPWIN
   F-PROT in AUTOEXEC: @FPAUTO










   Press Enter when the selection is highlighted to toggle the selection
   between YES and NO. The current setting of the item is located in the
   upper left hand corner.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the desired option and then press [Enter] to toggle YES or NO.
  @Set m = "Return to Main Menu"
  @Set f = "F-PROT for DOS"
  @Set p = "F-PROT for Windows"
  @Set w = "F-PROT in AUTOEXEC"
  @LocalWindow( 10, 39 )
  @EndGroups
  @If ( 'f' [= @Group )
     @ClearGroup(f)
     @If( @StrFind( @FPDOS, "YES")==0)
	@FPDOS="NO"
     @Else
	@FPDOS = "YES"
     @Endif
     @Goto FPROT
  @Endif
  @If ( 'p' [= @Group )
     @ClearGroup(p)
     @If( @StrFind( @FPWIN, "YES")==0)
	@FPWIN="NO"
     @Else
	@FPWIN = "YES"
     @Endif
     @Goto FPROT
  @Endif
  @If ( 'w' [= @Group )
     @ClearGroup(w)
     @If( @StrFind( @FPAUTO, "YES")==0)
	@FPAUTO="NO"
     @Else
	@FPAUTO = "YES"
     @Endif
     @Goto FPROT
  @Endif
  @If ( 'm' [= @Group )
     @ClearGroup(m)
     @Goto Main
  @Endif
@Goto FPROT

TSR:
  @FlushGroups()
  @GetGroups
  @CLS
  @MoveCStr( 1,2,30, "F-PROT v@Version")
  TSR Placement     : @TSRPlace
  Network Type      : @Network
  Windows Protection: @DVPWIN














   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the desired menu selection and then press [Enter].
  @Set m = "Return to Main Menu"
  @Set f = "TSR Placement"
  @Set p = "Network Type"
  @Set d = "Windows Protection"
  @LocalWindow( 10, 39 )
  @EndGroups
  @If ( 'f' [= @Group )
     @ClearGroup(f)
     @Goto TSRPlace
  @Endif
  @If ( 'p' [= @Group )
     @ClearGroup(p)
     @Goto NetType
  @Endif
  @If ( 'd' [= @Group )
      @ClearGroup(d)
      @Goto FPDVP
  @Endif
  @If ( 'm' [= @Group )
     @ClearGroup(m)
     @Goto Main
  @Endif
@Goto TSR

TSRPlace:
   @GetGroups
	@CLS
	@MoveCStr( 1,2,30, "F-PROT v@Version")
  @MoveCStr( 2,2,11, "TSR Placement     : @TSRPlace")
  Network Type      : @Network
  Windows Protection: @DVPWIN







		  Where would you like VIRSTOP to load from.

   VIRSTOP is the real-time anti-virus protection program that is loaded
   into memory when the computer is booted.  One can load VIRSTOP from
   the CONFIG.SYS or the AUTOEXEC.BAT.  There is an additional prompt
   later, to confirm the changing of the boot files.  If NONE is
   chosen, the VIRSTOP files are not loaded to the hard drive.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the option you wish to choose and then press [Enter]. @LocalWindow(10,38) @Set c = "AUTOEXEC"
	 @Set a = "CONFIG"
	 @Set n = "NONE"
      @EndGroups
      @If ('c' [= @Group )
	 @TSRPlace = "AUTOEXEC"
	 @Goto BatchSetup
      @Elseif ( 'a' [= @Group )
	 @TSRPlace = "CONFIG"
	 @Goto BatchSetup
      @Elseif ( 'n' [= @Group )
	 @TSRPlace = "NONE"
      @Endif
      @FlushGroups()
@Goto TSR

NetType:
   @GetGroups         //  GET THE TYPE OF NETWORK BEING USED
	 @CLS
	 @MoveCStr(1,3,30,"F-PROT v@Version")
   TSR Placement     : @TSRPlace
  @MoveCStr( 3,3,11, "Network Type      : @Network")
   Windows Protection: @DVPWIN








	   What type of Network are you running on your system.

   If you are using NOVELL or BANYAN please indicate by selecting the
   corresponding menu selection. If you are not using a network, or you
   are using a network not listed above; please select NONE.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the option you wish to choose and then press [Enter].
	 @LocalWindow(10,38)
	 @Set n = "NOVELL"
	 @Set b = "BANYAN"
	 @Set z = "NONE"
      @EndGroups
      @If ('b' [= @Group )
	 @Network = "BANYAN"
	 @BroadCaster ="BANCAST" // Set the appropriate broadcasting TSR
      @Elseif ( 'n' [= @Group )
	 @Network = "NOVELL"
	 @Broadcaster = "NOVCAST"
      @Else
	 @Network = "NONE"
	 @BroadCaster ="NOVCAST"
      @Endif
      @FlushGroups()
@GOTO TSR

FPDVP:
   @GetGroups
	@CLS
	@MoveCStr( 1,2,30, "F-PROT v@Version")
  TSR Placement     : @TSRPlace
  Network Type      : @Network
  @MoveCStr( 4,2,11, "Windows Protection: @DVPWIN")









       Which real-time protection whould you prefer under Windows?

    F-PROT DVP will replace VIRSTOP in Windows. It is recommended
    that the DVP be chosen because it is a native Windows product.

    Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
    bar to the option you wish to choose and then press [Enter].
	 @LocalWindow(10,38)
    @Set d = "F-PROT DVP"
    @Set v = "WVIRSTOP"
    @Set n = "NONE"
    @EndGroups
    @If ('v' [= @Group )
      @DVPWIN = "WVIRSTOP"
    @Elseif ( 'd' [= @Group )
      @DVPWIN = "F-PROT DVP"
    @Elseif ( 'n' [= @Group )
      @DVPWIN = "NONE"
    @Endif
    @FlushGroups()
@Goto TSR

BatchSetup:
      @FlushGroups()
      @GetGroups
      @CLS

       Does your computer boot to Microsoft Windows or a menu system?












    If you answer "Yes" lines will be added just before the last line of
    your AUTOEXEC.BAT. If you answer "No", then the lines will be added
    at the end of your AUTOEXEC.BAT.

    Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move
    the bar to the option you wish to choose and then press [Enter].
	       @LocalWindow(10,38)
		@Set a = "Yes"
		@Set b = "No"
     @Endgroups
     @If ('a' [= @Group)
       @BatSetup = @True
     @Else
       @BatSetup = @False
     @EndIf
@Goto TSR

UTIL:
  @FlushGroups()
  @GetGroups
  @CLS
  @MoveCStr( 1,3,30, "F-PROT v@Version")
   Integrity Checker : @UtilCheck
   LOGIN.COM         : @UtilLogin
   REBOOT.COM        : @UtilReboot
   BATCH files       : @UtilBatch









   Press Enter when the selection is highlighted to toggle the selection
   between YES and NO. The current setting of the item is located in the
   upper left hand corner.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the desired option and then press [Enter] to toggle YES or NO.
  @Set m = "Return to Main Menu"
  @Set f = "Integrity Checker"
  @Set p = "LOGIN.COM"
  @Set r = "REBOOT.COM"
  @Set b = "BATCH Files"
  @LocalWindow( 11, 39 )
  @EndGroups
  @If ( 'f' [= @Group )
     @ClearGroup(f)
     @If( @StrFind( @UtilCheck, "YES")==0)
	@UtilCheck="NO"
     @Else
	@UtilCheck = "YES"
     @Endif
     @Goto UTIL
  @Endif
  @If ( 'p' [= @Group )
     @ClearGroup(p)
     @If( @StrFind( @UtilLogin, "YES")==0)
	@UtilLogin="NO"
     @Else
	@UtilLogin = "YES"
     @Endif
     @Goto UTIL
  @Endif
  @If ( 'b' [= @Group )
     @ClearGroup(b)
     @If( @StrFind( @UtilBatch, "YES")==0)
	@UtilBatch="NO"
     @Else
	@UtilBatch="YES"
     @Endif
     @Goto UTIL
  @Endif
  @If ( 'r' [= @Group )
     @ClearGroup(r)
     @If( @StrFind( @UtilReboot, "YES")==0)
	@UtilReboot="NO"
     @Else
	@UtilReboot = "YES"
     @Endif
     @Goto UTIL
  @Endif
  @If ( 'm' [= @Group )
     @ClearGroup(m)
     @Goto Main
  @Endif
@Goto UTIL

Install:

@If( @DiskFree(@OutDrive) < 2000k)
   @GetGroups
   @CLS














   @OutDrive drive does not have enough memory to install this program.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the option you wish to choose and then press [Enter].
      @LocalWindow( 10, 38)
      @Set a = "Cancel Install"
      @Set b = "Change Drive"
   @EndGroups
   @if ( 'a' [= @Group )
      @Exit
   @EndIf
   @if ( 'b' [= @Group )
      @Goto MAIN
   @EndIf
@Endif

@If(@StrFind( @Mode, "SILENT")!=0)
   @If (@Exists "@OutDrive:\\@SubDir\\SIGN.DEF")
    @FlushGroups()
    @GetGroups
    @CLS
		      Existing Version of F-PROT found









    @Name appears to be installed in:
    @MoveCStr(12,4,30,"@OutDrive:@SubDir")

    Select          @MoveCStr(14,11, 30, "Continue")if you are installing an update or have some
    files you wish to re-install,                  @MoveCStr( 15, 34, 30, "Change Directory" )to make a new
    directory to install F-PROT, or        @MoveCStr( 16, 36, 30, "Cancel" )to quit the install.

    Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move
    the bar to the option you wish to choose and then press [Enter].
	    @LocalWindow(7, 38)
	    @Set c = "Continue"
	    @Set d = "Change Directory"
	    @Set q = "Cancel Install"

    @EndGroups
    @If ('c'[= @Group )
    @Endif
    @If ('d' [= @Group )
       @Goto MAIN
    @Endif
    @If ( 'q' [= @Group )
       @Exit
    @EndIf
   @Endif
@Endif

FILEDO:

Disk1:
   @MkDir("@OutDrive:\\@SubDir")
   @DefineDisk
     @Label = "Disk 1 of 1"
     @File COMPRESS.EXE
     @File COMEXIT.COM
     @File FPUNZIP.BAT
   @EndDisk
   @If( @StrFind( @FPWIN, "YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File SETUP.EXE
       @File ~INS0762.LIB
       @File SETUP.LGO
     @EndDisk
   @Endif
   @If( @StrFind( @UtilLogin,"YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File LOGIN.COM
     @EndDisk
   @Endif
   @If( @StrFind( @UtilReboot,"YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File REBOOT.COM
     @EndDisk
   @Endif
   @If( @StrFind( @UtilBatch,"YES")==0)
     @Copy("@StartupDrive:@StartupDir\\*.BAT","@OutDrive:@SubDir\\*.BAT")
     @Copy("@StartupDrive:@StartupDir\\SCAN.CSS","@OutDrive:@SubDir\\*.CSS")
   @Endif
   @If( @StrFind( @TSRPlace, "NONE") != 0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File F-TEST.COM
       @File VIRSTOP.EXE
       @File VSCONFIG.EXE
       @File V-CHECK.COM
       @File B-CHECK.COM
     @EndDisk
     @If( @StrFind( @Network, "BANYAN")==0)
       @DefineDisk
         @Label = "Disk 1 of 1"
	 @File BANYAN.CSS
       @EndDisk
     @Else
       @DefineDisk
         @Label = "Disk 1 of 1"
	 @File NOVCAST.CSS
       @EndDisk
     @Endif
   @Endif
   @if( @StrFind( @FPDOS, "YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File README.DOC
       @File FIXDISK.EXE
       @File F-PROT.EXE
     @EndDisk
     // Make sure the core is loaded
     @Core="YES"
   @Endif
   @if( @StrFind( @FPWIN, "YES")==0)
     @Core="YES"
   @Endif
   @If( @StrFind( @Core, "YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File ENGLISH.TX0
       @File SIGN.DEF
       @File VIR-HELP.ENG
     @EndDisk
     @If( @StrFind( @Foreign, "YES") == 0)
	@Copy("@StartupDrive:@StartupDir\\*.TX0","@OutDrive:@SubDir\\*.TX0")
     @Endif
   @Endif
   @If( @StrFind( @DVPWIN,"F-PROT DVP")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File AUTOINST.INI
       @File SETUP.EXE
       @File ~INS0762.LIB
       @File SETUP.LGO
     @EndDisk
   @Endif

   @If( @StrFind( @FPWIN, "YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File FPW.CSS
       @File FPROTW.CSS
       @File README.WRI
       @File WINSET.CSS
     @EndDisk
   @Endif
   @If( @StrFind( @UtilCheck, "YES")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File CHECK.CSS
     @EndDisk
   @EndIf
   @If( @StrFind( @DVPWIN,"F-PROT DVP")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File DVPWIN.CSS
       @File WINSET.CSS
     @EndDisk
   @EndIf
   @If( @StrFind( @DVPWIN,"WVIRSTOP")==0)
     @DefineDisk
       @Label = "Disk 1 of 1"
       @File WVIRSTOP.CSS
     @EndDisk
   @EndIf

CONFIG:
   @If( @StrFind( @TSRPlace, "CONFIG")==0)
     @ModAuto="YES"
     @If( @StrFind(@Mode,"SILENT")!=0)
	    @FlushGroups()
	    @GetGroups
	       @CLS
			      CONFIG.SYS Changes

   DEVICE=@OutDrive:@SubDir\VIRSTOP.EXE











   These are the changes to be made to the CONFIG.SYS. Choose either to
   make the changes, save the changes to a file called CONFIG.FPT, or
   discard the changes.

   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the option you wish to choose and then press [Enter].
	       @LocalWindow( 10, 38)
	       @Set a = "Make Changes to CONFIG.SYS"
	       @Set b = "Save Changes to CONFIG.FPT"
	       @Set c = "Discard Changes"
	    @EndGroups
	    @if ( 'a' [= @Group )
	       @ModifyBoot="YES"
	    @Endif
	    @if ( 'b' [= @Group )
	       @ModifyBoot="SAVE"
	    @Endif
	    @If ( 'c' [= @Group )
	       @ModifyBoot="NO"
	    @Endif
     @Endif

    @If (@StrFind( @ModifyBoot, "NO")!=0)
	    @SetConfig
	       @If (@StrFind( @ModifyBoot, "YES")==0)
		  @Overwrite
	       @Endif
	       @If (@StrFind( @ModifyBoot, "SAVE")==0)
		  @DiskProto
	       @Endif
	       @Device = "@OutDrive:\\@SubDir\\VIRSTOP.EXE"
	    @EndConfig
	 @Else
	    @TSRPlace="NOCONFIG"
	 @Endif
   @Endif

   @If( @StrFind( @FPAuto,"YES" )==0 )
    @If( @StrFind( @FPDOS, "YES")==0)
      @FPAuto="AUTO"
      @ModAuto="YES"
    @Endif
   @Endif
   @If( @StrFind( @TSRPlace, "NONE") !=0 )
      @ModAuto="YES"
   @Endif

@If( @StrFind( @ModAuto,"YES")==0)
   @If( @StrFind( @Mode, "SILENT")!=0)
      @FlushGroups()
      @GetGroups
	 @CLS
			      AUTOEXEC.BAT Changes

@If( @StrFind( @FPAUTO, "AUTO")==0)   @OutDrive:@SubDir\F-PROT @FPOptions @Endif
@If( @StrFind( @TSRPlace, "NONE")!=0)@If((@StrFind(@TSRPlace,"AUTOEXEC") == 0) || (@StrFind(@TSRPlace,"NOCONFIG")==0))   @OutDrive:@SubDir\VIRSTOP
@Endif   @OutDrive:@SubDir\@BroadCaster
@Else


   @Endif





   If one decides to make changes to the AUTOEXEC.BAT, INSTALL will
   REBOOT the computer after installation!
  @If( @StrFind( @TSRPlace, "NOCONFIG")==0)
   You have decided not to modify your CONFIG.SYS, therefore, INSTALL has
   placed VIRSTOP within the lines to be added to the AUTOEXEC.BAT.  If
   you wish to modify the CONFIG.SYS press Return to CONFIG.SYS.
  @Else @If( @StrFind( @TSRPlace, "CONFIG") == 0)
   These are the changes to be made to the AUTOEXEC.BAT.  These
   changes are necassary to support the VIRSTOP located within
   the CONFIG.SYS.
  @Else
   These are the changes to be made to the AUTOEXEC.BAT. One can have
   INSTALL make the changes, have INSTALL save the changes to a file for
   future consideration, or discard the changes needed to be made.
  @Endif @Endif
   Use the [Up Arrow], [Down Arrow], [Pg Up] and [Pg Dn] keys to move the
   bar to the option you wish to choose and then press [Enter].
    @LocalWindow( 9, 38) @Set a = "Make Changes to AUTOEXEC.BAT"
	 @Set b = "Save Changes to AUTOEXEC.FPT"
	 @If( @StrFind( @TSRPlace, "NOCONFIG") ==0 )@Set n = "Return to CONFIG.SYS" @Endif
	 @Set c = "Discard Changes"
      @EndGroups
      @if ( 'a' [= @Group )
	 @ModifyBoot="YES"
      @Endif
      @if ( 'b' [= @Group )
	 @ModifyBoot="SAVE"
      @Endif
      @If ( 'c' [= @Group )
	 @ModifyBoot="NO"
      @Endif
      @If ( 'n' [= @Group )
	 @TSRPlace="CONFIG"
	 @Goto CONFIG
      @Endif
   @Endif

   @If( @StrFind( @TSRPlace, "NOCONFIG")==0)
      @TSRPlace="AUTOEXEC"
   @Endif

   @If( @StrFind( @ModifyBoot,"NO")!=0)
      @SetAutoexec
         @If( @StrFind( @ModifyBoot, "YES")==0)
            @Overwrite
         @Else
            @DiskProto
         @Endif
         @If(@BatSetup)
            @AUTOINSERTNEXTTOLAST
         @Else
            @AUTOINSERTLAST
         @Endif
         @If ( @StrFind ( @FPDATA, "SKIP" ) != 0 )
            @Verbatim "Set FP-Data=@FPDATA"
         @EndIf
         @If( @StrFind( @FPAUTO, "AUTO")==0)
            @Verbatim "@OutDrive:@SubDir\\F-PROT @FPOptions"
         @Endif
         @If( @StrFind( @TSRPlace,"NONE")!=0)
            @If( @StrFind( @TSRPlace, "AUTOEXEC") == 0)
               @Verbatim "@OutDrive:\\@SubDir\\VIRSTOP"
            @Else
               @Verbatim "@OutDrive:\\@SubDir\\VIRSTOP /REHOOK"
            @Endif
            @Verbatim "@OutDrive:\\@SubDir\\@BROADCASTER"
         @Endif
      @EndAutoexec
   @Endif
@Endif

END:
@Finish
   @CLS
   @If( @StrFind( @Mode, "SILENT")!=0)
      @CLS
    Thank you for choosing Command Software Systems!

    To customize Virstop's alert message or default switches,
    run VSCONFIG.EXE from DOS.

    Should @Name report a virus, please refer
    to your documentation for instructions on how to proceed.

    Install will now decompress the F-PROT files in the destination
    directory. When Windows is executed next, Install will also perform
    some functions upon startup.

    @Pause
    @EndIf

    @ChDrive @OutDrive
    @ChDir   "@SubDir"
    @If( @StrFind( @ModifyBoot, "YES" )!=0)
       @Execute("COMEXIT.COM @WinDrive:@WinDir @OutDrive:@SubDir NOREBOOT")
    @Else
       @Execute("COMEXIT.COM @WinDrive:@WinDir @OutDrive:@SubDir @ZIPOPT")
    @Endif
  @EndFinish

