PC World Komputer 1997 October/Pcwk1097.iso/ARTISOFT/MSHARE/DOS/INSTALL.DAT

INSTALL Professional project | 1997-02-27 | 51.5 KB | 1,976 lines

//****************************************************************************
//   FILE:                                                                   *
//        INSTALL.DAT                                                        *
//                                                                           *
//   DESCRIPTION:                                                            *
//                                                                           *
//        This file is used for installing INSYNC ModemShare (DOS ONLY)               *
//                                                                           *
//   LAST UPDATE:                                                            *
//                                                                           *
//        3/08/96                                                             *
//                                                                           *
//****************************************************************************

//****************************************************************************
// Define the project variables                                              *
//****************************************************************************

@DefineProject
  @Name = "INSYNC ModemShare"
  @Version  = "7.00"
  @Subdir   = "\\Insync\\Mshare\\"
  @OutDrive = C
  @Requires @HardDisk
  @AssumeHardDisk = 1
  @Immediate = 1
@EndProject

@Backgroundmode(3,@RGB(128,0,128),@RGB(128,0,128))

//****************************************************************************
// Show the opening display                                                  *
//****************************************************************************

@If(@Platform != 3) // DOS installation

@Display

@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║                     Welcome to INSYNC ModemShare                         ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


     ModemShare is an easy software solution for sharing data/fax
     modems and their attached phone lines across a local area network.
     It works seamlessly in a DOS, Windows 3.1x or Windows 95
     environment  -  or in all three.




   @Pause

@EndDisplay
@EndIf

/////////////////////////////////////////////////////////////////////////
// Opening screen for Windows - Ask to Install or Uninstall
/////////////////////////////////////////////////////////////////////////

INSTALL:

@If(@Platform == 3) // if Windows installation.

@DlgCtrlSize(0,8,11,10,42)  // set coordinates & size of list box
@GetOption @Prompt = "Select Install or Uninstall"

Congratulations on your purchase of @Name!

This installation program will install @Name Version @Version
on your computer system and verify the integrity of the distribution
diskette files.

Options:

@Option 500 = "Install @Name"
@Option 501 = "Uninstall @name"

@EndOption

@Else // DOS  installation.

@GetOption @Prompt = "Select Install or Uninstall"  @LocalWindow(19,40)

@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

  NOTE:  This installation program installs only ModemShare for DOS.
       To install ModemShare for Windows 3.x or Windows 95, you'll
       need to quit this program and use the Windows diskettes
       that came in this package.

       To begin installing ModemShare for DOS, Select Install INSYNC
       ModemShare and press <ENTER>.

       If ModemShare is already installed on this computer and you
       want to remove it, select Uninstall INSYNC ModemShare and
       press <ENTER>.




 To Quit, press <ESC>
@Option 500 = "Install @Name"
@Option 501 = "Uninstall @name"

@EndOption

@EndIf // DOS


/////////////////////////////////////////////////////////////////////////
// Check for Install or Uninstall
/////////////////////////////////////////////////////////////////////////

@If (500 [= @Option)
 @Else
  @Goto Uninstall
@EndIf



//****************************************************************************
// If the user has not installed before, see what network is in use          *
//****************************************************************************
NETWORK:

@ClearOption(128)
@ClearOption(127)
@ClearOption(126)

// WINDOWS

@If(@Platform ==3)
  @GetOption
    @DlgCtrlSize(0,4,10,9,60) @Prompt = "Select the network operating system"
Please select the network operating system you are using.

Options:
    @Option 128 = "Novell Netware (IPX/SPX)"
    @Option 200 = "Novell Netware running Windows for Workgroups"
    @Option 126 = "Windows for Workgroups (NetBEUI)"
    @Option 127 = "LANtastic or other NetBEUI or NetBIOS Networks"
    @Option 99 = "Quit"

  @EndOption
@EndIf

// DOS

@If(@Platform ==1)
@GetOption @Prompt = "Select Network Operating System"  @LocalWindow(12,36)
@Cls
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


   Select the network type you're using:














 To Quit, press <ESC>
    @Option 127 = "LANtastic or NetBEUI/NetBIOS Networks"
    @Option 128 = "Novell Netware (IPX/SPX)"




  @EndOption


@EndIf


//****************************************************************************
// Show Network Selected                                                     *
//****************************************************************************

@If(@Platform == 3)
 @DlgCtrlSize(0,6,12,8,40)
 @GetOption @Prompt = "Selected Network Summary"
 You have selected the following network.

 @If(128 [= @Option) Novell Netware (IPX/SPX) @Else @EndIf @If(126 [= @Option) Windows for Workgroups (NetBeui) @Else @EndIf
 @If(127 [= @Option) LANtastic or other NetBEUI/NetBIOS Networks @Else @EndIf @If(200 [= @Option) Novell Netware running Windows for Workgroups @Else @EndIf

 You may:
 @Option 1600 = "Continue"
 @Option 1700 = "Reselect Options"

 @EndOption
@EndIf

@If(@Platform == 1)
 @GetOption @Prompt = "Selected Network Summary" @LocalWindow(17,30)
  @Cls
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


  You've selected the following network:

 @If(127 [= @Option) LANtastic or NetBEUI/NetBIOS Networks @Else @EndIf
 @If(128 [= @Option) Novell Netware (IPX/SPX) @Else @EndIf


  If this is correct, select Continue.
  To change your network type, choose Reselect Network.







 To Quit, Press <ESC>
 @Option 1600 = "Continue"
 @Option 1700 = "Reselect Network"

  @EndOption
 @EndIf
@EndIf

@If(1700 [= @Option) @Goto NETWORK @EndIf

//****************************************************************************
// Is this a Server or Client install?                                       *
//****************************************************************************

@If(@Platform == 3)
 @GetOption
   @DlgCtrlSize(0,4,0,6,50) @Prompt = "Where am I?"
Right now I am installing ModemShare:

@Option 1 = "on a PC with a modem attached (the Modem Server)"
@Option 2 = "on a PC with no modem (the Modem Client)"
@EndOption
@Endif

@If(@Platform == 1)
 @GetOption  @LocalWindow(12,38)
@CLS

@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


  Select the connection type that matches your configuration:













 To Quit, press <ESC>
 @Option 1 = "There is a modem(s) attached to this computer (ModemShare Server)"
 @Option 2 = "There is no modem attached to this computer (ModemShare Client)"

 @EndOption
@Endif

//****************************************************************************
// Define the variables                                                      *
//****************************************************************************

@If (1 [= @Option)

  @DefineVars
    @Qstring @StaType = "SERVER"
    @Qstring @SType = "MSERVER"
    @Drive @BatDrive = C
    @Dir @BatDir = "\\"
    @Drive @WinDrive = @WindowsDrive
    @Dir @WinDir = "@WindowsDir"
    @Qstring @DrvVal = ""
    @Qstring @LftVal = ""
    @Qstring @NewVal = ""
    @Qstring @ComNam = ""
    @Qstring @COMVal = ""
    @Qstring @DrvNam = ""
    @Qstring @CG     = "" // used for CreateGroup command
    @Qstring @AI1   = "" // used for Adding Item 1 command
    @Qstring @AI2   = "" // used for Adding Item 2 command
    @Qstring @AI3   = "" // used for Adding Item 3 command
    @Qstring @AI4   = "" // used for Adding Item 4 command
    @Qstring @AI5   = "" // used for Adding Item 5 command
    @Qstring @AI6   = "" // used for Adding Item 6 command
    @Qstring @AI7   = "" // used for Adding Item 7 command
    @Qstring @AI8   = "" // used for Adding Item 8 command
    @Qstring @AI9   = "" // used for Adding Item 9 command
    @Qstring @AI10   = "" // used for Adding Item 10 command
    @Qstring @SG    = "" // used for Show Group command
    @Qstring @PMLIST= "" // used for the @ProgramManager command
    @Integer @CNLen = 0
    @Integer @LastS = 0
    @Integer @StrL  = 0
    @Integer @LefL  = 0
    @Integer @Green = @RGB(0,255,0) //DEFINE COLOR GREEN
    @Integer @Blue  = @RGB(0,0,255) //DEFINE COLOR BLUE
    @Integer @Black = @RGB(0,0,0)   //DEFINE COLOR BLACK
  @EndVars

@Else

  @DefineVars
    @Qstring @StaType = "Client"
    @Qstring @SType = "MCLIENT"
    @Drive @BatDrive = C
    @Dir @BatDir = "\\"
    @Drive @WinDrive = @WindowsDrive
    @Dir @WinDir = "@WindowsDir"
    @Qstring @DrvVal = ""
    @Qstring @LftVal = ""
    @Qstring @NewVal = ""
    @Qstring @ComNam = ""
    @Qstring @COMVal = ""
    @Qstring @DrvNam = ""
    @Qstring @CG     = "" // used for CreateGroup command
    @Qstring @AI1   = "" // used for Adding Item 1 command
    @Qstring @AI2   = "" // used for Adding Item 2 command
    @Qstring @AI3   = "" // used for Adding Item 3 command
    @Qstring @AI4   = "" // used for Adding Item 4 command
    @Qstring @AI5   = "" // used for Adding Item 5 command
    @Qstring @AI6   = "" // used for Adding Item 6 command
    @Qstring @AI7   = "" // used for Adding Item 7 command
    @Qstring @AI8   = "" // used for Adding Item 8 command
    @Qstring @AI9   = "" // used for Adding Item 9 command
    @Qstring @AI10   = "" // used for Adding Item 10 command
    @Qstring @SG    = "" // used for Show Group command
    @Qstring @PMLIST= "" // used for the @ProgramManager command
    @Integer @CNLen = 0
    @Integer @LastS = 0
    @Integer @StrL  = 0
    @Integer @LefL  = 0
    @Integer @Green = @RGB(0,255,0) //DEFINE COLOR GREEN
    @Integer @Blue  = @RGB(0,0,255) //DEFINE COLOR BLUE
    @Integer @Black = @RGB(0,0,0)   //DEFINE COLOR BLACK
  @EndVars

@Endif

//****************************************************************************
//  Delete any existing ModemShare Group                           *
//****************************************************************************

@If (@Platform == 3)
  @If (@Exists "@WinDrive:\\@Windir\\MODEMASS.GRP")
    @CG = "[DeleteGroup(ModemShare)]"
    @ProgramManager("@CG")
  @Endif
@Endif

//****************************************************************************
// See if the user wants to build a DOS batch file                           *
//****************************************************************************

@If (2 [= @Option && @Platform == 3)
  @Else
   @If(@Platform == 3)
    @GetOption
     @DlgCtrlSize(0,5,1,7,70) @Prompt = "Batch File Options"
Please choose one of these batch file options to invoke
the @Name @StaType program:

    @Option 50 = "Create a batch file in the program directory"
    @Option 60 = "Add commands to the end of the AUTOEXEC.BAT file"
    @EndOption

   @Endif

  @If(@Platform == 1)
@GetOption @LocalWindow(11,38)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


  Select one of the following batch file options:














 To Quit, press <ESC>
@Option 50 = "Create a batch file (@StaType.BAT) to run the @StaType software"
@Option 60 = "Add the @StaType startup command to your existing AUTOEXEC.BAT file"

    @EndOption
 @EndIf
@EndIf

//****************************************************************************
// Get the disk and directory information                                    *
//****************************************************************************

GETDRIVE:

@If(@Platform == 3)
  @GetOutDrive
     @DlgCtrlSize(0,7,15,17,28) @Prompt = "Enter target drive"
 Please select the drive where you wish the @Name
 @StaType files to be installed. Any available drive (including
 network drives) can be used assuming you have access rights to
 the drive.

Drives:
  @EndOutDrive

  @GetSubdir
     @DlgCtrlSize(0,5,1,6,70) @Prompt = "Enter target subdirectory"
  Please select the subdirectory PATH where you want
  the @Name @StaType files to be installed.

  @EndSubdir
@EndIf

// DOS

@If(@Platform == 1)
  @GetOutDrive @LocalWindow(15,35)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

   Select the drive where you want to install the ModemShare files.
   You can use any drive (including a network drive) to which you
   have access.













 To Quit, press <ESC>
  @EndOutDrive

  @GetSubdir @LocalWindow(17,45)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


   ModemShare will be installed to the following directory:

   @OutDrive:\INSYNC\MSHARE

   If this is correct, press <ENTER>.

   To change the location, type the new information in the Subdirectory
   Name field, then press <ENTER>.







 To Quit, press <ESC>
  @EndSubdir
@EndIf

//****************************************************************************
// Show Drive and Subdirector  Selected                                                     *
//****************************************************************************

@If(@Platform == 3)
 @DlgCtrlSize(0,5,12,7,40)
 @GetOption @Prompt = "Drive and Subdirectory Summary"
 You have selected the Drive and Subdirectory:

@Outdrive:@Subdir

 You may:
 @Option 1800 = "Continue"
 @Option 1900 = "Reselect Options"

 @EndOption
@EndIf


//**********************************************
// Check to see if Network or Hard drive install
//**********************************************
@If(@Platform ==3)
 @GetOption @DlgCtrlSize(0,4,12,6,35) @Prompt = "Network or Local Drive?"
 Are you installing the @Name Files to a Network
 drive or to a local drive?





NOTE: Selecting "Network Drive" will install all @Name
files and will allow for Client installations from the
network. Selecting "Local Drive" will only install the necessary
@SType files for this workstation.


 @Option 1400 = "Network Drive"
 @Option 1401 = "Local Drive"

 @EndOption
@EndIf

//***************************************************************************
// Check to see if EXE files already exists
//***************************************************************************

@If(@Platform == 3)
  @If (@Exists "@OutDrive:\\@SubDir\\@SType.EXE")
     @GetOption @DlgCtrlSize(0,4,25,6,30) @Prompt = "@SType already exists"
The @StaType already exists in @OutDrive:@SubDir.
Do You want to write over the existing executable files?




WARNING: If you have @Name installed on a network
drive for shared use, you will need to have all Windows users of
@Name exit Windows before proceeding. Failure to
do so will result in file installation errors.

       @Option 11 = "Yes"
       @Option 10 = "No"
     @EndOption
  @Endif
@Endif

@If(@Platform == 1)
  @If (@Exists "@OutDrive:\\@SubDir\\@SType.EXE")
    @GetOption @LocalWindow(13,30)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

       The @StaType already exists in @OutDrive:@SubDir.
       Do You want to write over the existing executable files?


       @Option 11 = "Yes"
       @Option 10 = "No"
     @EndOption
  @Endif
@Endif


  @If (10 [= @Option)
    @Abort
  @Endif

//***************************************************************************
// Check to see if CON files already exists
//***************************************************************************

@If(@Platform == 3)
  @If (@Exists "@OutDrive:\\@SubDir\\CLIENT.CON")
   @SetOption(27)
  @Else
   @SetOption(28)
  @Endif
@EndIf

// DOS

@If(@Platform == 1)
  @If (@Exists "@OutDrive:\\@SubDir\\CLIENT.CON")
   @SetOption(27)
  @Else
   @SetOption(28)
  @Endif
@EndIf


//************************************************************************
// Call the Program Manager to create the ModemShare Group               *
// We will add the icons later                                           *
//************************************************************************

@If (@Platform == 3)
  @CG = "[CreateGroup(ModemShare)]"
  @ProgramManager("@CG")
@Endif

//****************************************************************************
// See what com ports and default speeds the Server is to use                *
//****************************************************************************

@If (2 [! @Option)
  @SetOption(1)
@Endif

@If (1 [! @Option)
  @SetOption(2)
@Endif

@If (27 [= @Option)
@Else
  @If (1 [= @Option)

   @If(@Platform == 3)
    @GetOption  @DlgCtrlSize(0,3,1,6,70) @Prompt = "Server Configuration"
Please choose one of these Server configuration options:

@Option 12 = "Server uses standard COM ports with modems attached"
@Option 13 = "Server uses standard COM ports without modems (direct connects)"
@Option 14 = "Server uses multi-port boards"

    @EndOption
   @Endif

   @If(@Platform == 1)
    @GetOption @LocalWindow(12,40)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


      Select one of the following configuration options:














 To Quit, press <ESC>
@Option 12 = "Server uses standard COM ports with modems attached"
@Option 13 = "Server uses standard COM ports without modems attached"
@Option 14 = "Server uses multi-port boards"
    @EndOption
   @Endif


@If (12 [= @Option || 13 [= @Option)

  @If(@Platform == 3)
    @GetOption @DlgCtrlSize(0,4,10,12,30) @Prompt = "COM port selection"
      Please select the COM port or combination of
      COM ports to be used by the Server:

      @Option 15 = "COM1"
      @Option 16 = "COM2"
      @Option 17 = "COM3"
      @Option 18 = "COM4"
      @Option 19 = "COM1 and COM2"
      @Option 20 = "COM1 and COM4"
      @Option 21 = "COM2 and COM3"
      @Option 22 = "COM3 and COM4"
    @EndOption

  @Endif

  @If(@Platform == 1)
    @GetOption @LocalWindow(13,35)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


      Select the COM port(s) that others will use to access your modem:














 To Quit, press <ESC>
      @Option 15 = "COM1"
      @Option 16 = "COM2"
      @Option 17 = "COM3"
      @Option 18 = "COM4"
      @Option 19 = "COM1 and COM2"
      @Option 20 = "COM1 and COM4"
      @Option 21 = "COM2 and COM3"
      @Option 22 = "COM3 and COM4"
    @EndOption

  @Endif
@Endif

@If (12 [= @Option)

  @If(@Platform == 3)
    @GetOption @DlgCtrlSize(0,3,9,7,32) @Prompt = "Default baud rate"
      Please select the default baud rate for the modem(s):

      @Option 125 = "28800"
      @Option 124 = "14400"
      @Option 123 = "9600"
      @Option 122 = "2400"

    @EndOption
  @Endif

  @If(@Platform == 1)
    @GetOption @LocalWindow(13,35)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


      Select the default baud rate for the modem. If you have more than
      one modem attached, select the baud rate of the slowest one:













 To Quit, press <ESC>
      @Option 125 = "28800"
      @Option 124 = "14400"
      @Option 123 = "9600"
      @Option 122 = "2400"

    @EndOption
  @Endif
@Endif

@If (14 [= @Option)
 @If(@Platform ==3)
    @Display
      @Cls

To simplify the setup of your Multi-Port card, several sample
parameter files (MULTI4.CON, MULTI8.CON & MULTI16.CON), for you to
use as models, will be installed. After Installation is complete,
examine the appropriate CON file using the PAREDIT program and
make changes if necessary.



      @Pause
    @EndDisplay
 @EndIf

 @If(@Platform ==1)
    @Display @CLS
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")


  To simplify the setup of your Multi-Port card, several sample
  parameter files (MULTI4.CON, MULTI8.CON & MULTI16.CON), for you to
  use as models, will be installed. After Installation is complete,
  examine the appropriate CON file using the PAREDIT program and
  make changes if necessary.



      @Pause
    @EndDisplay
 @EndIf
@Endif
@EndIf
@EndIf

//****************************************************************************
// Check for a previous Windows install and ask permission to update files   *
//****************************************************************************

@If (@Platform == 3)

  @DrvVal = @GetINI("boot","comm.drv","system.ini")
  @StrL = @StrLen("@DrvVal")
  @If (@StrL == 0)

    @ComNam = "COMM.DRV"

  @Else

    @LastS = @StrRFind("@DrvVal","\\")
    @LefL = @Eval(@LastS + 1)
    @If(@LastS == @StrL)
      @ComNam = "@DrvVal"
    @Else
      @CNLen = @Eval(@StrL - @LefL)
      @ComNam = @StrTail("@DrvVal",@CNLen)
      @LftVal = @StrHead("@DrvVal",@LefL)
    @Endif
  @EndIf
@EndIf

@If(@Platform ==3)
  @If (1 [= @Option)
    @If (@Exists "@WinDrive:\\@Windir\\MCLIENT.INI")
      @Display
@Name has previously been installed for Windows on
this machine. This installation will update files and
the Windows parameters for operation with the current
version of @Name.
    @Pause
      @EndDisplay
      @SetOption(44)
    @Else
      @GetOption
       @DlgCtrlSize(0,18,38,20,43) @Prompt = "Windows Changes"
When acting as a Client at the non-dedicated @Name
Server, two changes are necessary to support Windows
communications programs:

1) The comm.drv= statement in the [boot] section of
the SYSTEM.INI file must point to the @Name
communications driver (MACOMM.DRV).

2) The MCLIENT.INI file must be installed in the
@WinDrive:@WinDir directory.

The @Name redirector does not "replace" your
current communications driver (@DrvVal).  Any request
not sent to the @Name "redirected" com port
will be passed to @DrvVal.

Do you want to make these changes?

       @Option 44 = "Yes"
       @Option 43 = "No"

      @EndOption
      @Display
    @Cls

   IMPORTANT: If you plan to run Windows on this machine while the
   @Name Server is active, we STRONGLY RECOMMEND
   the use of a 16550 UART (rather that 8250 or 16450). Use of an
   8250 UART while Windows is active can result in data overruns for
   incoming data.

   You can check your UART type by running the DOS MSD program
   and selecting the "C" option (for COM ports). The bottom of the
   display will show the UART type.
   @Pause
      @EndDisplay
    @Endif
 @EndIf
@EndIf

@If (@Platform == 3)
 @If (2 [= @Option)
    @If (@Exists "@WinDrive:\\@Windir\\MCLIENT.INI")
      @Display
    @Cls

    @Name has been previously installed for Windows on
    this machine. This execution of Install will make any necessary
    changes to the Windows parameters.



    @Pause
      @EndDisplay
      @SetOption(44)
    @Else
      @GetOption
       @DlgCtrlSize(0,20,38,22,43) @Prompt = "Windows Changes"
The following changes will enable the Client to support
Windows communications programs:

1) The comm.drv= statement in the [boot] section of the
SYSTEM.INI file must point to the @Name
communications driver (MACOMM.DRV).

The @Name redirector does not "replace" your
current communications driver (@DrvVal).  Any request
not sent to the @Name "redirected" com port
will be passed to @DrvVal.

2) The MCLIENT.INI file must be installed in the
@WinDrive:@WinDir directory.

3) A device=@OutDrive:@SubDir\MCLIENT.EXE statement must
be added to the [386Enh] section of the SYSTEM.INI file.

Do you want to make these changes?

       @Option 44 = "Yes"
       @Option 43 = "No"
      @EndOption
    @Endif
  @Endif
@EndIf

@If (@Platform == 3)
  @If (43 [= @Option)

    @GetOption
    @DlgCtrlSize(0,10,15,12,20)
      Install will continue without making the changes necessary for
      supporting Non-NASI/INT14 Windows communications programs. You can
      use DOS and Windows programs only if they support NASI or INT14.

      Do you want Install to continue?

       @Option 45 = "No"
       @Option 46 = "Yes"
      @EndOption
  @Endif

  @If (45 [= @Option)
    @Abort
  @Endif
@EndIf

@If(@Platform ==3)
  @If (44 [= @Option)
     @If (2 [= @Option)
    @Copy("UPINI.EXE","@WinDrive:\\@Windir")
    @WinExec("@WinDrive:\\@Windir\\UPINI.EXE @WinDrive:\\@WinDir,-",1)
    @WinExec("@WinDrive:\\@Windir\\UPINI.EXE @WinDrive:\\@Windir,@WinDrive:\\@WinDir",1)
    @Copy("@WinDrive:\\@Windir\\SYSTEM.INI","@WinDrive:\\@Windir\\SYSTEM.MA")
    @Delete("@WinDrive:\\@Windir\\System.CMG")
    @Display
      @Cls

      Your SYSTEM.INI file was saved as SYSTEM.MA
      @Pause
    @EndDisplay
      @Endif
  @Else
      @Copy("@WinDrive:\\@Windir\\SYSTEM.INI","@WinDrive:\\@Windir\\SYSTEM.MA")
  @Endif
@Endif

@If(@Platform ==3)
    @If (2 [= @Option)
      @If (@Exists "@WinDrive:\\@Windir\\SYSTEM.MA")
    @Delete("@WinDrive:\\@Windir\\UPINI.EXE")
      @Else
    @Display
      @Cls

      Install was unable to update your SYSTEM.INI file. Please
      insert the following statement in the [386Enh] section:

           device=@OutDrive:@SubDir\MCLIENT.EXE


      @Pause


    @EndDisplay
      @Endif
    @Endif
@EndIf

@If(@Platform ==3)
  @If (44 [= @Option)
    @If (@Exists "@WinDrive:\\@Windir\\MCLIENT.INI")
      @NewVal = @GetINI("Redirector","CommDriver","mclient.ini")
    @Else
      @Copy("mclient.INI","@WinDrive:\\@Windir")
      @If("@ComNam" == "comm.drv" || "@ComNam" == "COMM.DRV")
    @If(@Exists "@WinDrive:\\@Windir\\COMM.DRV")
      @Copy("@WinDrive:\\@Windir\\COMM.DRV","@WinDrive:\\@Windir\\MSCOMM.DRV")
    @Else
      @Copy("@WinDrive:\\@Windir\\SYSTEM\\COMM.DRV","@WinDrive:\\@Windir\\SYSTEM\\MSCOMM.DRV")
    @Endif
       @ComNam = "mscomm.drv"
       @NewVal = "@LftVal@ComNam"
      @Else
       @NewVal = "@DrvVal"
      @Endif
    @Endif

    @SetINI("Redirector","CommDriver","@NewVal","mclient.ini")
    @SetINI("boot","comm.drv","@WinDrive:\\@WinDir\\macomm.drv","system.ini")

    @GetOption
      @DlgCtrlSize(0,7,25,11,33) @Prompt = "Redirected Port Selection"
      @If (1 [= @Option)
      Please select the "COM" port that will be redirected by the Local
      Client to use the shared modem pool. To continue using local devices
      on your PC you should select a port that does not physically exist.
      @Else
      Please select the "COM" port that will be redirected by the Client
      to use the shared modem pool. To continue using local devices on
      your PC you should select a port that does not physically exist.
      @Endif

      @Option 69 = "COM 4"
      @Option 68 = "COM 3"
      @Option 67 = "COM 2"
      @Option 66 = "COM 1"

    @EndOption

      @SetINI("Redirector","ClientDLL","@OutDrive:\\@SubDir\\mclient.dll","mclient.ini")
      @SetINI("ClientParms","FileName","@OutDrive:\\@SubDir\\client.con","mclient.ini")

    @If (66 [= @Option)
      @SetINI("Redirector","RedirectPorts","1","mclient.ini")
    @Endif
    @If (67 [= @Option)
      @SetINI("Redirector","RedirectPorts","2","mclient.ini")
    @Endif
    @If (68 [= @Option)
      @SetINI("Redirector","RedirectPorts","3","mclient.ini")
    @Endif
    @If (69 [= @Option)
      @SetINI("Redirector","RedirectPorts","4","mclient.ini")
    @Endif

    @If (1 [= @Option)
      @GetOption
      @DlgCtrlSize(0,9,20,11,25) @Prompt = "Create/Edit WINSTART.BAT?"
    Would you like to automatically load the Local Client each time
    you load Windows by creating an entry in the WINSTART.BAT file?
    If you use DOS communications programs outside of Windows, you
    should not select this option.

    Do you want Install to create or edit the WINSTART.BAT?

    @Option 71 = "Yes"
    @Option 70 = "No"
      @EndOption
      @If (71 [= @Option)
    @Write("@WinDrive:\\@Windir\\WINSTART.BAT","wt","@@Echo off\n")
    @Write( ,  , "@OutDrive:\\@Subdir\\MLCLIENT.EXE @OutDrive:\\@Subdir\\CLIENT.CON\n")
      @Endif
    @Endif
  @Endif
@Endif
@EndIf
@EndIf
//**************************************************************************
// We set the variables to add the Icons to the ModemShare group           *
// and the command to show the group                                       *
//**************************************************************************

@If (@Platform == 3)
  @AI1 = "[AddItem(@Outdrive:\\@Subdir\\inhost.exe,Inbound Service, @OutDrive:\\@Subdir\\inbound.ico, 0)]"
  @AI2 = "[AddItem(NOTEPAD.EXE @OutDrive:\\@SubDir\\README.TXT,Read Me,@OutDrive:\\@Subdir\\readme.ico, 0)]"
  @AI3 = "[AddItem(@Outdrive:\\@Subdir\\paredit.exe,Parameter Editor, @OutDrive:\\@Subdir\\paredit.ico, 0)]"
  @AI4 = "[AddItem(@Outdrive:\\@Subdir\\mlights.exe,Modem View, , 0)]"
  @AI5 = "[AddItem(@Outdrive:\\@Subdir\\mlights.exe,Modem View, , 0)]"
  @AI6 = "[AddItem(@Outdrive:\\@Subdir\\portsetc.exe,Port Status & Setup, , 0)]"
  @AI9 = "[AddItem(@Outdrive:\\@Subdir\\Install.exe,Client Install/UnInstall, , 0)]"
  @AI10 = "[AddItem(@Outdrive:\\@Subdir\\winmon.exe,Remote Monitor, , 0)]"
  @If (1 [= @Option)
    @AI7 = "[AddItem(@Outdrive:\\@Subdir\\monitor.exe,Server Monitor, @OutDrive:\\@Subdir\\monitor.ico, 0)]"
  @Endif
  @SG  = "[ShowGroup(ModemShare, 6)]"

@Endif

@If (@Platform == 3 && 69 [= @Option)
  @AI8 = "[AddItem(TERMINAL.EXE @OutDrive:\\@SubDir\\MODEM4.TRM,Terminal Com4,, 0)]"
@Endif

@If (@Platform == 3 && 68 [= @Option)
  @AI8 = "[AddItem(TERMINAL.EXE @OutDrive:\\@SubDir\\MODEM3.TRM,Terminal Com3,, 0)]"
@Endif

@If (@Platform == 3 && 67 [= @Option)
  @AI8 = "[AddItem(TERMINAL.EXE @OutDrive:\\@SubDir\\MODEM2.TRM,Terminal Com2,, 0)]"
@Endif

@If (@Platform == 3 && 66 [= @Option)
  @AI8 = "[AddItem(TERMINAL.EXE @OutDrive:\\@SubDir\\MODEM1.TRM,Terminal Com1,, 0)]"
@Endif

@Endif

//****************************************************************************
// Select the files to install                                               *
//****************************************************************************

@If (2 [! @Option)
  @SetOption(1)
@Endif

@If (1 [! @Option)
  @SetOption(2)
@Endif

@If (200 [= @Option)
  @SetOption(128)
@Endif


@DefineDisk

  @Label = "Disk 1"

@If (@Platform == 3)

  @File UPINI.EXE
  @File INSTALL.EXE
  @File DISK.ID
  @File README.TXT

  @BeginLib COMMON.SYN
    @File     PAREDIT.EXE
    @File     PEDIT.MSG
    @File     PEDIT.NDX
    @File     MACOMM.DRV
    @File     MACOMM.DRV @Out @WindowsDrive:\@WindowsDir\Macomm.drv
    @File     INHOST.EXE
    @File     INHOST.HLP
    @File     INBOUND.ICO
    @File     README.ICO
    @File     MONITOR.ICO
    @File     PAREDIT.ICO
    @File     TERMTEST.EXE
    @File     MENU.EXE
    @File     MLIGHTS.EXE
    @File     PROCHOOK.DLL
    @File     PORTSETC.EXE
    @File     PORTSETC.HLP
    @File     INSTALL.DAT
    @File     MODEM1.TRM
    @File     MODEM2.TRM
    @File     MODEM3.TRM
    @File     MODEM4.TRM
    @File     WINMON.EXE
    @File     MACI16.DLL
  @EndLib
@EndIf


@If(@Platform != 3)

  @File README.TXT

  @BeginLib COMMON.SYN
    @File     PAREDIT.EXE
    @File     PEDIT.MSG
    @File     PEDIT.NDX
    @File     INHOST.EXE
    @File     TERMTEST.EXE
    @File     MENU.EXE
    @File     CM.DAT
  @EndLib
@EndIf

@If (27 [= @Option)
      @Else
    @BeginLib COMMON.SYN
     @File     CLIENT.CON
    @EndLib
@Endif

//EndDisk

//DefineDisk

//  @Label = "Disk 2"

// Install Server for IPX

@If (1 [= @Option && 128 [= @Option || 128 [= @Option && 1400 [=@Option)
     @BeginLib ISERVER.SYN
      @File     MSERVER.EXE
      @File     MLCLIENT.EXE
      @File     MONITOR.EXE
    @EndLib
@EndIf

// Install Server for NETBEUI/NETBIOS

@If (1 [= @Option || 1400 [= @Option)
@If (126 [= @Option || 127 [= @Option)
    @BeginLib NSERVER.SYN
      @File     MSERVER.EXE
      @File     MLCLIENT.EXE
      @File     MONITOR.EXE
    @EndLib
 @EndIf
@EndIf


    @If (27 [= @Option)
    @Else


      @If (12 [= @Option && 15 [= @Option && 122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_1.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  15 [= @Option && 123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_1.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  15 [= @Option &&  124 [= @Option)
@BeginLib SERVER.SYN
      @File     CON_1.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  15 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_1.19 @Out SERVER.CON
    @EndLib

      @Endif
      @If (12 [= @Option &&  16 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_2.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  16 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_2.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  16 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_2.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  16 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_2.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  17 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_3.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  17 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_3.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  17 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_3.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  17 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_3.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  18 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_4.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  18 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_4.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  18 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_4.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  18 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_4.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  19 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_12.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  19 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_12.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  19 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_12.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  19 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_12.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  20 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_14.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  20 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_14.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  20 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_14.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  20 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_14.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  21 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_23.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  21 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_23.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  21 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_23.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  21 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_23.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  22 [= @Option &&  122 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_34.24 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  22 [= @Option &&  123 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_34.96 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  22 [= @Option &&  124 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_34.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (12 [= @Option &&  22 [= @Option &&  125 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_34.19 @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  15 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_1.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  16 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_2.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  17 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_3.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  18 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_4.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  19 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_12.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  20 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_14.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  21 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_23.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (13 [= @Option &&  22 [= @Option)

    @BeginLib SERVER.SYN
      @File     CON_34.NO @Out SERVER.CON
    @EndLib

      @Endif

      @If (14 [= @Option)

    @BeginLib SERVER.SYN
      @File     MULTI4.CON @Out SERVER.CON
      @File     MULTI4.CON
      @File     MULTI8.CON
      @File     MULTI16.CON
    @EndLib

      @Endif
    @Endif
  @Endif

// Install Client for IPX

  @If (2 [= @Option && 128 [= @Option && @Platform == 3 || 128 [= @Option && 1400 [= @Option && @Platform ==3)

    @BeginLib ICLIENT.SYN
      @File     MCLIENT.EXE
      @File     MCLIENT.EXE @Out @WindowsDrive:\@WindowsDir\MCLIENT.EXE
      @File     MCLIENT.DLL
    @EndLib

  @Endif

  @If (2 [= @Option && 128 [= @Option && @Platform == 1)

    @BeginLib ICLIENT.SYN
      @File     MCLIENT.EXE
    @EndLib

  @Endif

// Install Client for NETBIOS

@If (2 [= @Option && @Platform == 3 || 1400 [= @Option && @Platform ==3)
@If (126 [= @Option || 127 [= @Option)

    @BeginLib NCLIENT.SYN
      @File     MCLIENT.EXE @Out @WindowsDrive:\@WindowsDir\MCLIENT.EXE
      @File     MCLIENT.EXE
      @File     MCLIENT.DLL
    @EndLib

  @Endif
@Endif

@If (2 [= @Option && @Platform == 1)
@If (126 [= @Option || 127 [= @Option)

    @BeginLib NCLIENT.SYN
      @File     MCLIENT.EXE
    @EndLib
  @Endif
@Endif

@EndDisk

//****************************************************************************
// Create/update any DOS batch files the user requested                      *
//****************************************************************************

@If (126 [= @Option && 1 [= @Option && 60 [= @Option)

  @SetAutoexec
    @Overwrite
    @Verbatim "NET START NETBEUI"
    @Verbatim "@OutDrive:"
    @Verbatim "CD @Subdir"
    @Verbatim "@SType"
  @EndAutoexec

  @SetINI("NetBeui","NCBS","30","Protocol.ini")
  @SetINI("NetBeui","SESSIONS","15","Protocol.ini")
// @SetINI("386ENH","NetHeapSize","128","System.INI")

@Endif

@If (126 [= @Option && 1 [= @Option && 50 [= @Option)

    @MkDir("@Outdrive:\\@Subdir")
    @Write("@OutDrive:\\@Subdir\\@STaType.bat","wt","Net Start NETBEUI\n")
    @Write( , ,"@OutDrive:\n")
    @Write( , ,"CD @Subdir\n")
    @Write( , ,"@SType\n")

  @SetINI("NetBeui","NCBS","30","Protocol.ini")
  @SetINI("NetBeui","SESSIONS","15","Protocol.ini")

@Endif

@If (128 [= @Option && 1 [= @Option && 60 [= @Option)

  @SetAutoexec
    @Overwrite
    @Verbatim "@OutDrive:"
    @Verbatim "CD @Subdir"
    @Verbatim "@SType"
  @EndAutoexec

@Endif

@If (128 [= @Option && 1 [= @Option && 50 [= @Option)

    @MkDir("@Outdrive:\\@Subdir")
    @Write("@OutDrive:\\@Subdir\\@StaType.bat","wt","@OutDrive:\n")
    @Write( , ,"CD @Subdir\n")
    @Write( , ,"@SType\n")

@Endif

@If (127 [= @Option && 1 [= @Option && 60 [= @Option)

  @SetAutoexec
    @Overwrite
    @Verbatim "@OutDrive:"
    @Verbatim "CD @Subdir"
    @Verbatim "@SType"
  @EndAutoexec

@Endif

@If (127 [= @Option && 1 [= @Option && 50 [= @Option)

    @MkDir("@Outdrive:\\@Subdir")
    @Write("@OutDrive:\\@Subdir\\@StaType.bat","wt","@OutDrive:\n")
    @Write( , ,"CD @Subdir\n")
    @Write( , ,"@SType\n")

@Endif

@If(2 [= @Option && 60 [= @Option)

  @SetAutoexec
    @Overwrite
    @Verbatim "@OutDrive:"
    @Verbatim "CD @Subdir"
    @Verbatim "@SType"
  @EndAutoexec

@EndIf

@If(2 [= @Option && 50 [= @Option)

    @MkDir("@Outdrive:\\@Subdir")
    @Write("@OutDrive:\\@Subdir\\@StaType.bat","wt","@OutDrive:\n")
    @Write( ,  , "CD @Subdir\n")
    @Write( ,  , "@SType\n")
@Endif


//****************************************************************************
// See if the user wants to look at the readme file                          *
//****************************************************************************



@If(@Platform == 3)
  @GetOption @DlgCtrlSize(0,9,15,11,28) @Prompt = "View README.TXT?"

The readme file contains tips on using @Name and changes
in each release. You should review the README.TXT file before
using @Name.

View the README.TXT file as soon as the installation has
finished?


   @Option 30 = "Yes"
   @Option 29 = "No"

  @EndOption
@Endif

@If (@Platform == 3)

  @If (1 [= @Option)
    @PMLIST = "@AI1@AI2@AI3@AI4@AI5@AI6@AI7@AI8"
  @Else
    @PMLIST = "@AI1@AI2@AI3@AI4@AI5@AI6@AI8@AI9@AI10"
  @Endif

  @ProgramManager("@PMLIST")
  @PMLIST = "@SG"

@Endif

//*************************************
// Uninstall routine
//*************************************
Uninstall:

@If (501 [=@Option)
 @If(@Platform == 3)
  @GetOption @DlgCtrlSize(0,10,15,12,45) @Prompt = "Uninstall"
WARNING: To uninstall @Name files from a shared network
drive, you must first do the following:

- Run the INSTALL.EXE program (Install\UnInstall) from each
  Client on your network and select uninstall @Name.

This will ensure correct Windows operation at the Client
after @name has been removed from the network.

@Option 510 = "Continue with uninstall"
@Option 511 = "Cancel uninstall"

  @EndOption

 @If(511 [=@Option)
    @Exit
 @Endif

@GetOutDrive @DlgCtrlSize(0,4,15,14,28) @Prompt = "Uninstall from drive"
Please select the drive where the @Name files are
currently installed.

Drives:
  @EndOutDrive

  @GetSubdir
     @DlgCtrlSize(0,5,1,6,70) @Prompt = "Uninstall from subdirectory"
    Please select the subdirectory PATH where the @Name
    files are currently installed.

  @EndSubdir

  @GetOption
     @DlgCtrlSize(0,6,27,8,33) @Prompt = "Proceed with uninstall"
UnInstall will now remove references to @Name from the
Windows SYSTEM.INI file and the @Name files will be
removed from @OutDrive:@SubDir.

Proceed with uninstall?:

   @Option 600 = "Yes"
   @Option 601 = "No"

  @EndOption
 @Endif

@If (600 [= @Option)
   @If (@Exists "@OutDrive:\\@Subdir\\CLIENT.CON")
    @Delete("@OutDrive:\\@Subdir\\*.*")
    @RmDir("@OutDrive:\\@Subdir")
    @Delete("@WindowsDrive:\\@Windowsdir\\MACOMM.DRV")
    @Delete("@WindowsDrive:\\@Windowsdir\\MCLIENT.EXE")
    @Delete("@WindowsDrive:\\@Windowsdir\\MCLIENT.INI")
    @SetINI("Boot", "comm.drv", "comm.drv", "system.ini")
    @Delete("@WindowsDrive:\\@WindowsDir\\system.ma")
    @Delete("@WindowsDrive:\\@WindowsDir\\Winstart.bat")
    @WinExec("UPINI.EXE @WindowsDrive:\\@WindowsDir,-",1)
    @ProgramManager("[DeleteGroup (ModemShare)]")
   @Else
     @Display
      Files where not found in the @OutDrive:@Subdir
      Location. Check your drive and directory and run
      uninstall again
      @Pause
     @EndDisplay
    @Goto Install
   @Endif
@Else
//   @Abort
@Endif
@EndIf
@EndIF

@If (501 [=@Option)
 @If(@Platform == 1)
    @GetOutDrive @LocalWindow(13,35)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                             UNINSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

   Select the drive where the @Name files are
   currently installed.














 To Quit, press <ESC>
  @EndOutDrive

    @GetSubdir @LocalWindow(16,40) @SetOption(600)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                             UNINSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

   ModemShare will be uninstalled from the following directory:

   @OutDrive:\INSYNC\MSHARE

   If this is correct, press <ENTER>

   To change the location, type the new information in the Subdirectory
   Name field, then press <ENTER>







 To Quit, press <ESC>
  @EndSubdir

@EndIf

@If(@Platform == 1)
 @If (600 [= @Option)
   @If (@Exists "@OutDrive:\\@Subdir\\CLIENT.CON")
    @Delete("@OutDrive:\\@Subdir\\*.*")
    @RmDir("@OutDrive:\\@Subdir")
   @Else
     @Display @LocalWindow(13,35)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                             UNINSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

      Files where not found in the @OutDrive:@Subdir
      Location. Check your drive and directory and run
      Uninstall again.


      @Pause
     @EndDisplay
    @Goto Install
   @Endif
 @Else
   @Abort
@Endif
@EndIf
@EndIF

@If (600 [= @Option)
 @If(@Platform ==3)
 @Display
   All @Name files deleted Successfully!
   Uninstall complete.
 @Pause
 @Exit
 @EndDisplay
 @Endif

 @If(@Platform ==1)
    @Display @LocalWindow(13,35)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                             UNINSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

   Uninstall Successful.

   All @Name files were removed from your computer.



 @Pause
 @Exit
 @EndDisplay
 @Endif
@EndIf

@If(@Platform == 3)
  @If(2 [=@Option)
   @Display
If you have installed the Client files to a network drive,
subsequent Client installations can be performed by running the
INSTALL.EXE program from the @OutDrive:@Subdir
subdirectory.

   @Pause
   @EndDisplay
 @EndIf
@EndIf

@Finish

  @If(@Platform == 3)
    Installation successful.

    Be sure to register your copy of @Name. Technical support
    is available ONLY to registered users.

    Please REBOOT your PC to activate the changes made for
    @Name.
    @Pause
  @EndIf

  @If(@Platform == 1)
@MoveCStr(1,2,95,"╔══════════════════════════════════════════════════════════════════════════╗")
@MoveCStr(2,2,95,"║      INSYNC ModemShare  v7.0                               INSTALL       ║")
@MoveCStr(3,2,95,"╚══════════════════════════════════════════════════════════════════════════╝")

    Installation successful.

    Be sure to register your copy of @Name. Technical support
    is available ONLY to registered users.

    The README.TXT file contains tips on using @Name and changes
    in each release. You should review the README.TXT file before
    using @Name.
   @Pause
  @EndIf

 @If (30 [= @Option)
    @WinExec("NOTEPAD.EXE @OutDrive:\\@SubDir\\README.TXT",1)
 @Endif

@Exit
@EndFinish