home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 October
/
Pcwk1097.iso
/
ARTISOFT
/
MSHARE
/
DOS
/
INSTALL.DAT
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
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