





@DefineProject
  @Name = "LANtastic"
  @Version = "7.0"
  @Subdir = "\\LANTASTI"
  @OutDrive = C
  @InDiskBell = @True
  @AssumeHardDisk = 1
@EndProject

@If (@False)
 @Display
  Copyright (c) 1996 by Artisoft, Inc.
 @EndDisplay
@EndIf

@DefineVars
     @Qstring @Beta         = "~"
     @Qstring @Registered   = "(R)"
     @Qstring @Copyright    = "(c)"
     @Qstring @Trademark    = "(tm)"
     @Qstring @Reg = "r"
     @Qstring @DriveLet = ""
     @Integer @Position  =  0

  @Qstring @SLverMajor      = "7"
  @Qstring @SLverMinor      = "0"
  @Qstring @SLverMinorMinor = "019"
  @Integer @MemAvail        = (@RAMAvail/1024)
  @Integer @MemNeeded       = 435
  @Integer @MemExtra        = 60
  @Integer @Time0           = @SystemDate
  @Integer @Time1           = 0
  @Integer @Time2           = 0

  @If (@Strlen("@CommandLine") > 0)
    @Qstring @s0 = @StrConvert("@CommandLine","UC")
    @Integer @Describe = (@StrFind(@s0,"/DESC") >= 0)
    @Integer @Help = ((@StrFind(@s0,"?") >= 0)
	     ||(@StrFind(@s0,"/H") >= 0)
	     ||(@StrFind(@s0,"HELP") >= 0))
    @Integer @InfHelp = (@StrFind(@s0,"INF") >= 0)
    @Integer @ExtractMode = (@StrFind(@s0,"EXTRACT") >= 0)
    @Integer @ToFloppyOK  = (@StrFind(@s0,"FLOPPY") >= 0)
    @Integer @ToNetworkOK = (@StrFind(@s0,"REMOTE") >= 0)
    @Integer @StartUpTemp = (@StrFind(@s0,"TEMP=") >= 0)
    @Integer @BWMode      = (@StrFind(@s0,"BW") >= 0)
    @Integer @MONOMode    = (@StrFind(@s0,"MONO") >= 0)
  @Else
    @Integer @Describe = @False
    @Integer @Help     = @False
    @Integer @InfHelp  = @False
    @Integer @ExtractMode = @False
    @Integer @ToFloppyOK = @False
    @Integer @ToNetworkOK = @False
    @Integer @StartUpTemp = @False
    @Integer @BWMode     = @False
    @Integer @MONOMode   = @False
  @EndIf
  @Integer @CommandLineError  =    @False
  @Integer @Red        = @RGB(255,0,0)
  @Integer @Green      = @RGB(0,255,0)
  @Integer @Blue       = @RGB(0,0,255)
  @Integer @Black      = @RGB(0,0,0)
  @Integer @Grey       = @RGB(255,255,255)
  @Integer @Yellow     = @RGB(255,255,0)
  @Integer @Magenta    = @RGB(255,0,255)
  @Integer @Cyan       = @RGB(0,255,255)
  @Integer @White      = @Grey
  @Integer @V          = @VideoCard

  @Qstring @ScrnTitle      = ""
  @Qstring @ScrnTitle2     = "                                           "
  @Qstring @DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @Integer @DosHeadingRow  = 0
  @Integer @DosHeadingCol  = 1
  @Integer @DosHeadingCol1 = 1
  @If (@ExtractMode)
    @Integer @WinColor   = @Cyan
    @Integer @DosHeadingColor = 11
  @Else
    @Integer @WinColor   = @Red
    @Integer @DosHeadingColor = 30
  @EndIf
  @Integer @DebugColor   = @Magenta
  @Integer @FColor       = @Red
  @Integer @BColor       = @Blue
  @Integer @DosColor     = 73

  @Drive    @EnterDrive  = A
@EndVars

@HelpEsc = 0

@BackgroundMode(3,@WinColor,@Black)
@PleaseWait("- Initializing")

  @If  (@MemAvail  >=  @MemNeeded)
    @Goto ENOUGH_FOR_MENU
  @EndIf

MEMORY_ABORT:
@Display
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

  This program needs @Eval(@MemNeeded + @MemExtra)@!K of available memory to install
  @Name. Your computer only has @MemAvail@!K.

  Remove drivers or TSRs to make more DOS memory available.
  @FlushKeyboard() @Pause
@EndDisplay
@Exit

ENOUGH_FOR_MENU:

@DefineVars



  @Qstring @InfHeader = ""

  @Qstring @InfMode   = ""
  @Qstring @InfType   = ""
  @Qstring @InfComputerName = ""
  @Qstring @InfInstallPath  = ""
  @Qstring @InfExecutePath  = ""
  @Qstring @InfWindows = ""
  @Qstring @InfShare   = ""
  @Qstring @InfLogouts = ""
  @Qstring @InfLogins = ""
  @Qstring @InfPOname  = ""
  @Qstring @InfNcp     = ""
  @Qstring @InfSmb     = ""
  @Qstring @InfJetDirect  =  ""
  @Qstring @InfMShare  =  ""
  @Qstring @InfMShareServer = ""
  @Qstring @InfIRQ     =  ""
  @Qstring @InfIO            =  ""
  @Qstring @InfTCPIP   =  ""
  @Qstring @InfInstallServices = ""
  @Qstring @InfAdapter = ""
  @Qstring @InfConnect = ""
  @Qstring @InfChangeSystemFiles = ""
  @Qstring @ComputerName = ""
  @Qstring @InstallDir   = ""
  @Qstring @SharePath    = ""
  @Qstring @XSharePath   = ""
  @Qstring @NOSdir       = ""
  @Qstring @CTLdir       = ""
  @Qstring @InstallPath  = ""
  @Qstring @SupportPath  = "@SupportDrive:\\@SupportDir"
  @Qstring @ExecutePath  = ""
  @Qstring @LicensePath  = ""
  @Qstring @LicenseNum  = ""
  @Qstring @LicenseCheck = ""
  @Qstring @LicenseCheck2 = ""
  @Integer @LicenseUpgrade = @False
  @Integer @LicenseFull = @False
  @Qstring @ScriptTempPath = "@SupportDrive:@SupportDir"
  @Qstring @RedirTempPath = "@SupportDrive:@SupportDir"
  @Drive @OldRedirDrive = C
  @Dir @OldRedirSubdir = ""
  @Qstring @StartUpTempPath = ""
  @Qstring @TempPath     = @GetEnv("TEMP")
  @Qstring @NdisInstallPath = ""
  @Qstring @NetCFGFile = ""
  @Qstring @WindowsPath  = "@WindowsDrive:@WindowsDir"
  @If ("@StartupDir" == "\\")
    @Qstring @StartupPath = "@StartupDrive:"
  @Else
    @Qstring @StartupPath = "@StartupDrive:@StartupDir"
  @Endif
  @Drive @ScriptDrive    = (@StrIndex("@ScriptFile",0))
  @Qstring @ScriptPath   = @StrHead(@ScriptFile,@StrRFind(@ScriptFile,"\\"))
  @Qstring @ScriptDir    = "@SourceDir"
  @Integer @ScriptXfered = @False
  @Integer @RedirX         = @False
  @Integer @HighDensity  = @False
  @Integer @DD360        = @False
  @Integer @LowDensity   = @False
  @Integer @NumDisks     = 0
  @Integer @NewTemp      = @False
  @Qstring @LibName      = ""
  @Integer @NetEnabled   = @True
  @Qstring @DisabledFile = "DISABLED"
  @Integer @ShareEnabled = @True
  @Qstring @NoShareFile  = "NOSHARE"
  @Integer @NcpEnabled   = 0
  @Integer @SmbEnabled   = 0
  @Integer @TcpEnabled   = @False
  @Integer @JetSupport  =  0
  @Integer @MShareEnabled  =  0
  @Integer @ModemServerEnabled    =  0
  @Integer @InstallServices = @False
  @Integer @PermConnect  = @False
  @Integer @SetConnect   = @True
  @Qstring @DriveLetter1 = ""
  @Qstring @DriveServer1 = ""
  @Qstring @DriveName1   = ""
  @Qstring @DriveLetter2 = ""
  @Qstring @DriveServer2 = ""
  @Qstring @DriveName2   = ""
  @Qstring @PrintPort1   = ""
  @Qstring @PrintServer1 = ""
  @Qstring @PrintName1   = ""
  @Qstring @PrintPort2   = ""
  @Qstring @PrintServer2 = ""
  @Qstring @PrintName2   = ""
  @Qstring @ValidDrives  = "DEFGHIJKLMNOPQRSTUVWXYZ"
  @Qstring @ChosenDrives = ""
  @Qstring @AvailableDrives = ""
  @Qstring @ExistingFloppy = ""
  @Qstring @ExistingRemote = ""
  @Qstring @FirstAvailable = ""
  @Qstring @SecondAvailable = ""
  @Qstring @FirstRemote  =  ""
  @Qstring @IOAddress    = ""
  @Qstring @IRQNum       = ""

  @Qstring @InstallProg  = "INSTALL.EXE"
  @Qstring @InstallScript = "INSTALL.DAT"
  @Qstring @InstallInfo   = "INSTALL.INF"
  @Qstring @InitControlProg = "INITCTL.EXE"
  @Qstring @InitControlArg = "-K"
  @Qstring @LconfigFile   = "LANTASTI.CFG"
  @Qstring @Config         = "@BootDrive:\\CONFIG.SYS"
  @Qstring @AutoExec       = "@BootDrive:\\AUTOEXEC.BAT"
  @Dir @Root               = "\\"

  @Qstring @AdapterNif   = ""
  @Qstring @AdapterName  = ""
  @Qstring @AdapterProg  = ""
  @Qstring @AdapterArgs  = ""
  @Qstring @AdapterProgX = ""
  @Qstring @AdapterArgsX = ""
  @Integer @Our2mb       = @False
  @Integer @OurMport     = @False


  @Integer @Aopt = 0
  @Qstring @AdapterSet    = ""
  @Qstring @AdapterNameFull = ""
  @Qstring @AdapterSel      = ""
  @Qstring @AdapterName1b = "Artisoft NodeRunner 2000 Series Ethernet Adapter,NATIVE,NR.EXE"
  @Qstring @AdapterProg1  = "NR.EXE"
  @Qstring @AdapterNif1b  = "NRODI"
  @Integer @NodeRunner    = @False
  @Qstring @AdapterNameNPRO = "Artisoft NodeRunner Pro Adapter,NATIVE,NPRO.EXE"
  @Qstring @AdapterProgNPRO = "NPRO.EXE"
  @Qstring @AdapterNifNPRO  = "EPROODI"
  @Integer @NodeRunnerPro   = @False
  @Qstring @AdapterName4  = "Artisoft AE-2 or AE-3 Ethernet Adapter (ISA),NATIVE,AEX.EXE`IRQ=15 IOBASE=300,AEX.AIF"
  @Qstring @AdapterProg4  = "AEX.EXE"
  @Qstring @AdapterName5  = "Central Station PC/Ethernet (CSPPORT),NATIVE,CSPPORT.EXE`IRQ=7 PORT=LPT1,CSPPORT.AIF"
  @Qstring @AdapterProg5  = "CSPPORT.EXE"
  @Qstring @AdapterNameOther = "Other LANtastic Compatible Adapter,"
  @Qstring @AdapterProgOther = "ECHO.`Insert @AdapterNameOther here.~ECHO.`DRIVER.EXE IRQ=? IOBASE=??? RAMBASE=????"
  @Qstring @AdapterName7  = "3C503MM 3COM 3C503 Ethernet Adapter,NATIVE,3C503MM.EXE`IRQ=3 IOBASE=300 TRANSCEIVER_TYPE=ON-BOARD,3C503MM.AIF"
  @Qstring @AdapterProg7  = "3C503MM.EXE`IRQ=3 IOBASE=300 TRANSCEIVER_TYPE=ON-BOARD"
  @Qstring @AdapterName8  = "3COM507 3COM 3C507 Ethernet Adapter,NATIVE,3COM507.EXE"
  @Qstring @AdapterProg8  = "3COM507.EXE"
  @Qstring @AdapterName9  = "3COM523 3COM 3C523 Ethernet Adapter,NATIVE,3COM523.EXE"
  @Qstring @AdapterProg9  = "3COM523.EXE"
  @Qstring @AdapterName10 = "ARCNET SMC ARCNET Compatible 8-bit or 16-bit,NATIVE,ARCNET.EXE`IRQ=2 IOBASE=2E0 RAMBASE=D000,ARCNET.AIF"
  @Qstring @AdapterProg10 = "ARCNET.EXE"
  @Qstring @AdapterName11a = "NEX0MC Novell NE/2 Micro Channel or Compatible,NATIVE,NEX000.EXE"
  @Qstring @AdapterProg11a = "NEX000.EXE"
  @Qstring @AdapterName11b = "NEX008 Novell NE1000 8-bit ISA bus or Compatible,NATIVE,NEX000.EXE`IRQ=3 IOBASE=300,NEX1000.AIF"
  @Qstring @AdapterProg11b = "NEX000.EXE`IRQ=3 IOBASE=300"
  @Qstring @AdapterName11c = "NEX016 Novell NE2000 16-bit ISA bus or Compatible,NATIVE,NEX000.EXE`16-BIT IRQ=3 IOBASE=300,NEX2000.AIF"
  @Qstring @AdapterProg11c = "NEX000.EXE`16-BIT IRQ=3 IOBASE=300"
  @Qstring @AdapterName12 = "PATCC Xircom PA02B6 Pocket ARCNET,NATIVE,PATCC.EXE`IRQ=7 LPT=1,PE.AIF"
  @Qstring @AdapterProg12 = "PATCC.EXE`IRQ=7 LPT=1"
  @Qstring @AdapterName13 = "PE Xircom PE10B2 Pocket Ethernet,NATIVE,PE.EXE`IRQ=7 LPT=1,PE.AIF"
  @Qstring @AdapterProg13 = "PE.EXE`IRQ=7 LPT=1"
  @Qstring @AdapterName14 = "SMCARC SMC ARCNET 220 500WS (short),NATIVE,SMCARC.EXE`IRQ=2 IOBASE=2E0 RAMBASE=D000,ARCNET.AIF"
  @Qstring @AdapterProg14 = "SMCARC.EXE`IRQ=2 IOBASE=2E0 RAMBASE=D000"
  @Qstring @AdapterName15 = "TCARC Thomas-Conrad ARC-CARD/CE /AT & /MC,NATIVE,TCARC.EXE`IRQ=2 RAMBASE=D000,ARCNET.AIF"
  @Qstring @AdapterProg15 = "TCARC.EXE`IRQ=2 RAMBASE=D000"
  @Qstring @AdapterName17 = "WD8003 SMC (Western Digital) WD8003/WD8013 Ethernet Adapters,"
  @Qstring @AdapterProg17 = "WD8003.EXE`IRQ=3 IOBASE=280 RAMBASE=D000"

  @Qstring @AdapterNameAEX = "NDIS Support for AE-Series adapter,ASFTNDIS,AEXNDIS.DOS`IRQ=15 IOBASE=300,"
  @Qstring @AdapterProgAEX = "AEXNDIS.DOS"
  @Qstring @AdapterNifAEX  = "AEXNDIS_NIF"
  @Qstring @AdapterNameNRX = "NDIS Support for NodeRunner adapter,ASFTNDIS,AEXNDIS.DOS`IRQ=15 IOBASE=300,"
  @Qstring @AdapterProgNRX = "AEXNDIS.DOS"
  @Qstring @AdapterNifNRX  = "AEXNDIS_NIF"
  @Qstring @AdapterNameEPRO = "NDIS Support for NodeRunner Pro Adapter,ASFTNDIS,EPRO.DOS"
  @Qstring @AdapterProgEPRO = "EPRO.DOS"
  @Qstring @AdapterNifEPRO  = "EPRODOS_NIF"
  @Qstring @AdapterNameNdis = "NDIS Support for non-Artisoft adapter,"
  @Qstring @AdapterSetNDIS    = ""
  @Qstring @AdapterProgNdis = ""

  @Qstring @NetbiosProg = "AILANBIO.EXE"
  @Qstring @NdisProg    = "AI-NDIS.EXE"
  @Qstring @ProtmanProg = "PROTMAN.DOS"
  @Qstring @ServerProg  = "SERVER.EXE"
  @Qstring @RedirProg   = "REDIR.EXE"
  @Qstring @EditProg    = "\\DOS\\EDIT.COM"
  @Qstring @ShareProg   = "\\DOS\\SHARE.EXE"
  @Qstring @ShareArgs   = ""

  @Qstring @DefaultNetPath = "C:\\LANTASTI"
  @Qstring @SysDrive    = ""
  @Qstring @SysDir      = ""
  @Qstring @SysFile     = ""
  @Qstring @StartPath   = ""
  @Qstring @InfPath   = "@ScriptPath\\@InstallInfo"
  @Qstring @NdisPath    = ""
  @Qstring @LicPath   =   ""
  @Qstring @LoginParam  = ""
  @Qstring @NetbiosParam = ""
  @Qstring @DDEstring   = ""
  @Integer @SysBuffers  = 20
  @Integer @SysFiles    = 50
  @Integer @Ncbs        = 13
  @Integer @LinkExtra   = 10
  @Integer @Sessions    = 20
  @Integer @RxBuffers   = 10
  @Integer @Logouts     = 15
  @Integer @Logins      = 10
  @Qstring @ParamFile   = ""
  @Qstring @ParamPath   = ""
  @Qstring @SetPath     = ""
  @Qstring @ConnectPath = ""
  @Qstring @SamplePath  = ""
  @Qstring @ModemPath   = ""
  @Qstring @Loadhigh    = ""
  @Qstring @Echo        = ""
  @Qstring @Call        = ""
  @Qstring @Illegal     = "*?/%;:+=.,[]|><'\"\t\\"
  @Qstring @Illegal0    = "*?/%;:+=,[]|><'\"\@\t"
  @Qstring @Illegal1    = "*?/%;+=,[]|><'\"\t"
  @Qstring @BadChar     = " You typed a character that isn't allowed."
  @Integer @Qemm        = @False
  @Integer @Add         = @False

  @Qstring @Ext         = ""

  @Integer @InstallMode = @False
  @Integer @NewInstall  = @False
  @Integer @KeepInstall = @True
  @Integer @MenuMode    = @False
  @Integer @ForceName   = @False
  @Integer @ChangeSystemFiles = @True
  @Integer @AlreadyKeep = @False

  @Integer @FromFloppy  = @False
  @Integer @FromHard    = @False
  @Integer @ToFloppy    = @False
  @Integer @ToHard      = @False
  @Integer @ToNetwork   = @False
  @Qstring @EnvLanCfg   = @GetEnv("LAN_CFG")
  @Qstring @EnvLanDir   = @GetEnv("LAN_DIR")

  @Integer @DebugMode    = @Exists("@StartupPath\\DEBUG")
  @Integer @EditMode     = @Exists("@StartupPath\\EDIT")
  @Integer @NoRebootMode = @Exists("@StartupPath\\NOREBOOT")
  @Integer @NoFilesMode  = @Exists("@StartupPath\\NOFILES")
  @Integer @AlphaMode    = @Exists("@StartupPath\\ALPHA")
  @Integer @InfFileMode  = @Exists("@InfPath")

  @Integer @DosInstalled = @False
  @Integer @PrevNOS      = @False
  @Integer @SimplyNOS    = @False
  @Integer @AutoExecChanged  = @False
  @Integer @ConfigChanged    = @False
  @Integer @StartNetChanged  = @False
  @Integer @ProtocolIniChanged = @False
  @Integer @Share          = @True
  @Integer @ShareExe       = @False
  @Integer @NdisSelected   = @False
  @Integer @AexNdisSelected = @False
  @Integer @NOSdate         = 0

  @Qstring @AutoExecMsg   = ""
  @Qstring @ConfigMsg     = ""
  @Qstring @StartNetMsg   = ""
  @Qstring @ProtocolIniMsg = ""

  @Qstring @Param    = ""
  @Qstring @Options0 = ""
  @Qstring @Options1 = ""
  @Qstring @Options2 = ""
  @Qstring @Options3 = ""
  @Qstring @s1  = ""
  @Qstring @s2  = ""
  @Qstring @s3  = ""
  @Qstring @s4  = ""
  @Qstring @s5  = ""
  @Qstring @s6  = ""
  @Qstring @s7  = ""
  @Qstring @s8  = ""
  @Qstring @s9  = ""
  @Qstring @s10 = ""
  @Qstring @s11 = ""
  @Qstring @x1  = ""
  @Qstring @x2  = ""
  @Qstring @x3  = ""
  @Qstring @x4  = ""
  @Qstring @x5  = ""
  @Qstring @key = "press ENTER"
  @Qstring @fin   = "Finishing up"
  @Qstring @old   = "Old "
  @Qstring @Warning  = "W A R N I N G        W A R N I N G"
  @Qstring @Underline10 = "__________"
  @Qstring @Underline20 = "_____________________"
  @Qstring @Underline40 = "@Underline20@Underline20"
  @Qstring @AtSign      = "@@"
  @Qstring @AndSign = "&"
  @Qstring @action = ""
  @Qstring @your   = "your"
  @Qstring @my     = "my"
  @Qstring @keep   = ""
  @Qstring @increase = ""
  @Qstring @setmax = ""
  @Integer @t = 0
  @Integer @b = 0
  @Integer @i = 0
  @Integer @k = 0
  @Integer @n = 0
  @Drive   @d = Z

  @Qstring @Ex1 = ""
  @Qstring @Nd1 = ""

  @Integer @MinDosMajor = 3
  @Integer @MinDosMinor = 1
  @Integer @MinWinMajor = 3
  @Integer @MinWinMinor = 1

  @Qstring @PromptName  = ""
  @Qstring @PromptNdis  = ""
  @Qstring @PromptSub   = ""

  @Qstring @NifList = ""
  @Qstring @NifPath = ""
  @Qstring @NifDir  = ""
  @Qstring @NifFile = ""
  @Integer @NifFound = @True
  @Integer @NifVersion = 0

  @Qstring @NdisDrivers = ""
  @Qstring @NdisDriver = ""
  @Qstring @NdisDevice = ""
  @Qstring @NdisTitle  = ""
  @Qstring @NdisType   = ""
  @Qstring @NdisDDir   = ""
  @Qstring @NdisCopyFiles = ""
  @Qstring @NdisDriverPath = ""
  @Qstring @NdisDriverDir = ""
  @Qstring @NdisDriverFile = ""
  @Qstring @NdisDriverTSR  = ""
  @Qstring @NdisDriverArg  = ""

  @Qstring @NdisProtocolFile = "PROTOCOL.INI"
  @Qstring @NdisProtocolDir  = ""
  @Qstring @ProtocolOrg = ""
  @Qstring @PromptPath  =  ""

  @Integer @HeaderFixed = @False
  @Integer @NdisOK      = @False

@EndVars





@If ((@OSMajor < @MinDosMajor) ||
     ((@OSMajor == @MinDosMajor) && (@OSMinor < @MinDosMinor)))
  @BackgroundMode(3,@Red,@Red)
  @Display
     @Cls
     The version of DOS running on this computer -- @OSMajor.@OSMinor -- is
     not sufficient for installing or running @Name Version @Version.

     You should upgrade your DOS to at least version @MinDosMajor.@MinDosMinor.
     @FlushKeyboard() @Pause @Abort
  @EndDisplay
@EndIf

@If ((@OSMajor < 3) ||
     ((@OSMajor == 3) && (@OSMinor < 3)))
   @Echo = "echo"
@Else
   @Echo = "@@echo"
   @Call = "call "
@EndIf

 @ChDrive(@StartupDrive)



  @If (@Strlen("@CommandLine") > 0 && (@Describe==@False) && (@Help==@False) && (@InfHelp==@False) &&
      (@ExtractMode==@False) && (@ToFloppyOK==@False) && (@ToNetworkOK==@False) && (@StartUpTemp==@False) &&
       (@BWMode==@False) && (@MONOMode==@False))
   @Help = @True
   @CommandLineError = @True
  @EndIf




 @If (@StartupTemp)
    @If  ("@StrTail(@CommandLine,1)" == "\\")
     @StartUpTempPath = "@StrMid("@CommandLine",6,@Strlen(@Commandline))"
     @n = (@Strlen(@StartUpTempPath)- @True)
     @StartUpTempPath = @StrHead(@StartUpTempPath, @n)
    @Else
     @StartUpTempPath = "@StrMid("@CommandLine",6,@Strlen("@Commandline"))"
    @EndIf
 @Else
   @StartUpTempPath = "@ScriptPath"
 @EndIf

@n=0


   @Copy("@StartUpTempPath\\readme.txt","@SupportPath")
   @Copy("@StartUpTempPath\\setup.ini","@SupportPath")
 @If(@StartupTemp)
   @Delete("@StartUpTempPath\\readme.txt")
   @Delete("@StartUpTempPath\\setup.ini")
 @EndIf


@If (@Describe)
  @BackgroundMode(3,@Green,@Black)
  @Display
    @Cls

    @Name INSTALL Version @Version.@SLverMinorMinor
    Artisoft Install Version @RevMajor.@RevMinor.@RevSub
    @FlushKeyboard() @Pause @Exit
  @EndDisplay
@EndIf


@If (@Help)
 @BackgroundMode(3,@Green,@Black)

@ScrnTitle = " Install Options"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

 @Display
   @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

@If(@CommandLineError)       >>>>>  Command line parameter invalid!  <<<<<@EndIf

   The following options can used with @Name @Registered INSTALL:

     /HELP or ?  View this screen
     /INF        Information about syntax of INSTALL.INF file
     /BW         Run INSTALL using black and white (no colors)
     /MONO       Run INSTALL on monochrome (MDA) monitors
     /FLOPPY     Select DOS floppy workstation install
     /REMOTE     Select partial install to network drive
     /EXTRACT    Get @Name files from distribution disk
   @FlushKeyboard() @Pause
 @EndDisplay
 @ChDrive( @StartupDrive )
 @Exit
@EndIf


@If (@InfHelp)
 @BackgroundMode(3,@Green,@Black)

@ScrnTitle = " Install using INF"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

 @Display
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

  @Name installation can be customized by placing a file named
  INSTALL.INF on the installation diskette or in the installation
  directory. The syntax of INSTALL.INF is similar to that of WIN.INI.

  If [LANtastic]  Mode=Fast, get values in [LANtastic].
  If [LANtastic]  Mode=Name or Mode=ForceName, prompt for
	  "ComputerName", then get values in [ComputerName].
  Except If [ComputerName]  Type=XXXX, get values in [XXXX].

  Mode= (fast*/name)                 ComputerName= <15 letters>
  Type= <header>                     Logouts= <number>
  InstallPath= <path>                ExecutePath= <path>
  Share= (yes*/no)                   Windows= (yes/no*)
  InstallServices= (yes/no*)         Logins= <number>
  Ncp= (yes/no*)                     Smb= (yes/no*)
  @FlushKeyboard() @Pause
 @EndDisplay
 @ChDrive( @StartupDrive )
 @Exit
@EndIf


@If (@ToFloppyOK)
  @EnvLanCfg = ""
  @EnvLanDir = ""
@EndIf

@If (@StrLen(@EnvLanCfg) < 2)
  @EnvLanCfg = @StrToken(@EnvLanDir,0,".")
  @If (@StrLen(@EnvLanCfg) < 2)
    @If ("@Subdir" == "")
       @EnvLanCfg = "@DefaultNetPath"
    @Else
       @EnvLanCfg = "@OutDrive:\\@Subdir"
    @EndIf
  @EndIf
  @Subdir = "@StrMid(@EnvLanCfg,2,100)"
@Else
  @s1 = @EnvLanCfg
  @If ("@StrMid("@s1",1,1)" == ":")
    @d = (@StrIndex(@s1,0))
    @If (@DriveExists(@d))
      @OutDrive = @d
    @EndIf
    @Subdir = "@StrMid(@s1,2,100)"
  @Else
    @Subdir = "@s1"
  @EndIf
@EndIf

@NOSdir = @GetEnv("LAN_CFG")
@If (@StrLen(@NOSdir) < 2)
  @If (@DirExists("@DefaultNetPath"))
    @NOSdir = "@DefaultNetPath"
  @Else
    @NOSdir = ""
  @Endif
@EndIf

@CTLdir = @EnvLanDir
@If (@StrLen(@CTLdir) < 2)
  @If (@DirExists("@DefaultNetPath.NET"))
    @CTLdir = "@DefaultNetPath.NET"
  @Else
    @CTLdir = ""
  @Endif
  @EnvLanDir = @CTLdir
@EndIf

@If ((@Strlen("@NOSdir@CTLdir") > 0) && @Exists("@NOSdir\\@RedirProg"))
  @DosInstalled = @True
@Else
  @DosInstalled = @False
@EndIf

@If (@DosInstalled)
  @NOSdate = @FileDate("@NOSdir\\NET.EXE")
  @If (@NOSdate < @StrToDate("1993/11/01"))
    @PrevNOS = @True
  @Else
    @If (@StrLen(@FindLines("@NOSdir\\@InstallScript","Simply LANtastic",1,20,"")) > 0)
      @SimplyNOS = @True
    @EndIf
  @EndIf
@EndIf


  @If (@StartupDrive != @ScriptDrive)
     @StartupPath  = @ScriptPath
  @EndIf
@If (@DiskSize(@ScriptDrive) < 400000) @DD360 = @True @EndIf


@i = 0
@k = @StrLen("@ValidDrives")
AVAIL_LOOP:
  @d = (@StrIndex("@ValidDrives",@i))
  @b = @True
  @If (@DriveExists(@d))
    @If (@DriveRemote(@d))
      @ExistingRemote = "@ExistingRemote@d "
    @Else
      @b = @False
    @EndIf
  @EndIf
  @If (@b)
    @AvailableDrives = "@AvailableDrives@d "
  @EndIf
  @i = (@i + 1)
@If (@i < @k) @Goto AVAIL_LOOP @EndIf

@FirstAvailable  = @StrToken("@AvailableDrives", 0)
@SecondAvailable = @StrToken("@AvailableDrives", 1)
@FirstRemote  =  @StrToken("@ExistingRemote",0)

@If (@DriveExists(A) && (@ScriptDrive != A))
  @If (@Removable(A)) @ExistingFloppy = "A " @EndIf
@EndIf
@If (@DriveExists(B) && (@ScriptDrive != B))
  @If (@Removable(B)) @ExistingFloppy = "@ExistingFloppy@!B " @EndIf
@EndIf


@If (!@DriveExists(@ScriptDrive))
  @Display
    The drive the install program started on -- @StartupDrive: --
    has a problem."
    @FlushKeyboard() @Pause @Abort
  @EndDisplay
@Else

  @If (@Strlen("@SourceDir") == 1)
    @If ("@SourceDir" == "\\")
      @ScriptDir = ""
    @EndIf
  @EndIf
  @LibName = "@ScriptDrive:@ScriptDir\\NOS70.001"
  @If (@Exists("@LibName"))
    @HighDensity = @True
    @NumDisks = 2
    @If (@Exists("@StrToken(@LibName,0,".").002"))
      @FromHard = @True
    @Else
      @FromFloppy = @True
    @EndIf
  @Else
      @LibName = ""
      @MenuMode = @True
    @EndIf
  @EndIf

  @If (@FromFloppy) @IgnoreDiskID = @False @EndIf
@EndIf


@If (@MenuMode && !(@ExtractMode || @DebugMode)) @Goto MAINMENU @EndIf


@If (@MemAvail < (@MemNeeded + @MemExtra))
  @Goto MEMORY_ABORT
@EndIf


@If (@ExtractMode)
  @If (@MenuMode)
    @BackgroundMode(3,@Red,@Red)
    @Display
       @Cls

       @Name distribution library not found.
       To extract @Name files, run INSTALL
       from a distribution diskette or from the
       Installation Services 'resource'.
       @FlushKeyboard() @Pause @Abort
    @EndDisplay
  @EndIf
  @InfFileMode = @False
  @Time1 = @SystemDate
  @Goto EXTRACT
@EndIf



@If (@InfFileMode)
  @PleaseWait("- Using INSTALL.INF configuration")
  @InfHeader = "@Name"
  @InfMode   = @StrConvert(@GetINI(@InfHeader,"Mode",@InfPath),"uc")
  @ForceName = ("@InfMode" == "FORCENAME")
  @If ( ("@InfMode" != "NAME") && !@ForceName )
    @InfComputerName = @StrConvert(@GetINI(@InfHeader,"ComputerName",@InfPath),"uc")
  @EndIf
@EndIf

@If (@ToFloppyOK && ("@ExistingFloppy" == ""))
@ScrnTitle = " Install to Floppy"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @Display
   @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

   You chose /FLOPPY to install @Name to a floppy
   diskette but no floppy drives are available.
   Ignoring the option...

   @FlushKeyboard() @Pause
  @EndDisplay
  @ToFloppyOK = @False
@EndIf
@If (@ToFloppyOK)
  @DosInstalled = @False
  @EnvLanCfg = ""
  @EnvLanDir = ""
@EndIf

@If (@ToNetworkOK && ("@ExistingRemote" == ""))
@ScrnTitle = " Install to Remote Drive"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @Display
   @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

   You chose /REMOTE to install @Name to a network
   drive but no network drives are available.
   Ignoring the option...

   @FlushKeyboard() @Pause
  @EndDisplay
  @ToNetworkOK = @False
@EndIf


@Time1 = @SystemDate
@If (@InfFileMode) @Goto INSTALL @EndIf



WELCOME:

@ClearOption(50)
@ClearOption(51)

@BackgroundMode(3,@WinColor,@Black)

@ScrnTitle = " Welcome"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@If (!@DosInstalled)
@GetOption
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(19,35)

  Congratulations!  You have purchased @Name @Registered Version @Version,
  the most complete Network Operating System (NOS) software available
  for DOS and Windows@Registered. You can use @Name for file, printer and
  modem sharing, but it is equally suited to setting up complex networks
  with security and auditing.

  Before this program installs @Name on your computer, you'll be asked
  a few questions about how you would like to set it up.

  Your installation will go more smoothly if you know ahead of time the
  name you want to give your computer.


  Copyright @Copyright 1996 by Artisoft, Inc.

  @Option 51  = "CONTINUE  with the Installation"
  @Option 50  = "READ      the README.TXT file"



@EndOption
@EndIf

@If (50 [= @Option)
   @Spawn("@SupportPath\\dispfile.exe @SupportPath\\readme.txt",1)
   @Goto WELCOME
@EndIf


@BackgroundMode(3,@WinColor,@Black)
@If (@DosInstalled)
 @ScrnTitle = " Previous Version Detected"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
 @GetOption
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(15,35)


  @Name@Registered  @Version  Copyright @Copyright 1996 by Artisoft, Inc.

  You are installing @Name Version @Version onto your computer,
  which already has a copy of @Name on it. You will be asked
  a few questions about how you would like to set up @Name.
  We suggest that you accept the default answers.


  @Option 51  = "CONTINUE  with the Installation"
  @Option 50  = "READ      the README.TXT file"

  @EndOption
@EndIF

@If (50 [= @Option)
   @Spawn("@SupportPath\\dispfile.exe @SupportPath\\readme.txt",1)
   @Goto WELCOME
@EndIf



LICENSE_AGREEMENT:

  @ScrnTitle = " License Agreement"
  @DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @GetOption
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  @LOCALWINDOW(15,35)


  Please take a few minutes to read the @Name License Agreement. You
  must agree to the terms of the License Agreement before @Name can be
  installed on your computer.


  If you disagree with the License Agreement, the installation will
  exit.

  @Option 52  = "READ        the License Agreement"
  @Option 53  = "I AGREE     with the terms of the License Agreement"
  @Option 54  = "I DISAGREE  with the terms of the License Agreement"


  @EndOption


@If (52 [= @Option)
   @Spawn("@SupportPath\\dispfile.exe @SupportPath\\license.txt",1)
   @Goto LICENSE_AGREEMENT
@ElseIf (54 [= @Option)
   @Exit
@ElseIf (53 [= @Option)
@EndIf



@If (!@MenuMode) @Goto INSTALL @EndIf

MAINMENU:

  @If (@MenuMode)
    @BackgroundMode(3,@Red,@Red)
    @Display
       @Cls

       @Name distribution library not found.
       To install @Name, run INSTALL from a
       distribution diskette or from the
       Installation Services 'resource'.
       @FlushKeyboard() @Pause @Abort
    @EndDisplay
  @EndIf
 @Exit

EXTRACT:
@InstallMode  = @False


@FlushOptions()

@ChangeSystemFiles = @False

@ToFloppy  = @False
@ToHard    = @False
@ToNetwork = @False

@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,7,15,11,30) @FlushKeyboard()
@ScrnTitle = " Extract Files"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOutDrive @OutDrive @Prompt = "Enter target drive" @Cls
@MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(12,40)
@If (@ToFloppyOK) @Suppress(0,(16+4)) @ElseIf (@ToNetworkOK) @Suppress(0,(16+1)) @Else @Suppress(0,(16+4+1)) @EndIf @If (@Removable(@ScriptDrive)) @Suppress(@ScriptDrive) @EndIf

  You have chosen to "extract" files from the @Name distribution
  disk.  Select the drive where you want @Name files to be
  loaded on your computer.
@EndOutDrive

@Goto NEWDIR

INSTALL:
@InstallMode = @True
@AlreadyKeep = @False



@LicenseNum = "@GetIni("VALIDATION","SERIAL","@SupportPath\\SETUP.INI")"
@LicenseCheck = "@GetIni("VALIDATION","VERIFICATION","@SupportPath\\SETUP.INI")"

PRE_LICENSE:



@HelpText @HelpTitle = "Serial Number Help" @LocalWindow(10,40)

Enter the Serial Number located on the registration
card that came in your package.

@EndHelpText




@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()

@ScrnTitle = " Enter Serial Number"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@GetString @Licensenum @HelpTextActive
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)


    Enter the 11 character serial number that is located on the
    registration card.


    @PromptName
    @Prompt = "Enter Serial Number"
@EndString
@LicenseNum = @StrConvert("@LicenseNum", "uc")

@If (@StrLen(@Licensenum) < 11)
  @PromptName = ">>> Serial number must be 11 characters in length.<<<"
  @Goto PRE_LICENSE
@ElseIf (@StrLen(@Licensenum) > 11)
  @PromptName = ">>> Serial number must be 11 characters in length.<<<"
  @Goto PRE_LICENSE
@ElseIf (@StrFind("@Illegal","@Licensenum") >= 0)
  @PromptName = ">>> The character  @Licensenum  is not allowed.<<<"
  @Goto PRE_LICENSE
@ElseIf (@StrLen("@StrToken("@Licensenum",1,"@Illegal")") > 0)
  @s9 = @StrMid("@Licensenum",@StrLen("@StrToken("@Licensenum",0,"@Illegal")"),1)
  @If ("@s9" == "%") @s9 = "%%" @EndIf
  @PromptName = ">>> The character  @s9  is not allowed.<<<"
  @Goto PRE_LICENSE
@ElseIf ("@StrToken("@Licensenum",0,"@Illegal")" != "@Licensenum")
  @PromptName = ">>>@BadChar<<<"
  @Goto PRE_LICENSE
  @EndIf
@EndIf
@Promptname = ""

VERIFICATION:


@HelpText @HelpTitle = "Verification Number Help" @LocalWindow(10,40)

Enter the Verification key located on the registration card that
came in your package. If you're upgrading a @Name V5.0
or earlier, you must obtain a new Verification Key by calling
Artisoft. For more information, see Chapter 3 of your Installation
and Setup Manual.

@EndHelpText


@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()

@ScrnTitle = " Enter Verification Key"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@GetString @Licensecheck @HelpTextActive
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)


    Enter the verification key that is located on the
    registration card.


    @PromptName
    @Prompt = "Enter verification key"
@EndString

@LicenseCheck = @StrConvert("@LicenseCheck", "uc")

@If (@StrLen(@Licensecheck) < 12)
  @PromptName = ">>> Verification number must be 12 to 14 characters in length.<<<"
  @Goto VERIFICATION
@ElseIf (@StrLen(@Licensecheck) > 14)
  @PromptName = ">>> Verification number must be 12 to 14 characters in length.<<<"
  @Goto VERIFICATION
@ElseIf (@StrFind("@Illegal","@Licensecheck") >= 0)
  @PromptName = ">>> The character  @Licensecheck  is not allowed.<<<"
  @Goto VERIFICATION
@ElseIf (@StrLen("@StrToken("@Licensecheck",1,"@Illegal")") > 0)
  @s9 = @StrMid("@Licensecheck",@StrLen("@StrToken("@Licensecheck",0,"@Illegal")"),1)
  @If ("@s9" == "%") @s9 = "%%" @EndIf
  @PromptName = ">>> The character  @s9  is not allowed.<<<"
  @Goto VERIFICATION
@ElseIf ("@StrToken("@Licensecheck",0,"@Illegal")" != "@Licensecheck")
  @PromptName = ">>>@BadChar<<<"
  @Goto VERIFICATION
  @EndIf
@EndIf
@Promptname = ""

@LicenseCheck2 = @LicenseCheck
@Licensecheck = "@StrConvert("@Licensecheck", "an")"

@If (@Spawn("@SupportPath\\LINSCFG.EXE -v -f FILE -u FILE -n @Licensenum -k @Licensecheck",1) == 0)
 @Goto End_License_Check
@EndIf

@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()
@ScrnTitle = " License Verification Error"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@Display
 @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

  The following error occurred:
@If (@Spawn() == 1)
  >>> Program failed to load
@ElseIF (@Spawn() == 2)
  >>> User cancelled
@ElseIF (@Spawn() == 3)
  >>> Invalid character in serial number
@ElseIF (@Spawn() == 4)
  >>> Invalid serial number (check character)
@ElseIF (@Spawn() == 5)
  >>> Invalid character in verification number
@ElseIF (@Spawn() > 5)
  >>> Invalid serial/verification checksum
@EndIf

  Check license numbers and press any key to try again.

@Pause
@EndDisplay

END_LICENSE_CHECK:

@If (@Spawn() > 0)
@Licensecheck = @LicenseCheck2
@goto PRE_LICENSE
@Else
@EndIf



ADD_LICENSE:

@If (@HexToNum(@StrHead(@LicenseCheck,4)) & 0x8000) @LicenseUpgrade=@True
 @Else @LicenseFull = @True
@EndIf



@If (@licensefull)
 @If (@Spawn("@SupportPath\\LINSCFG.EXE -f @RedirTempPath\\redir.exe -u FILE -n @Licensenum -k @Licensecheck",1) == 0)
  @Goto End_License_Stamp
 @Else @Goto License_Error
 @EndIf
@EndIf



@HelpText @HelpTitle = "Upgrade Error Help" @LocalWindow(10,40)

If you are upgrading from @Name version 5.0 or earlier,
you must call Artisoft BEFORE you install @Name @Version.

When you call, the Artisoft representative will ask for the
serial number and verification key that came in your package.
Registered @Name users will then receive a replacement
verification key for use during installation.

To receive your new verification key, call the Artisoft Sales
Consultation Center at 1 (800) 846-9726, in the U.S. and Canada.
Or, refer to the Directory of Technical Support Services or your
Troubleshooting Manual for the number of the Artisoft office
nearest you.

@EndHelpText




@If (@licenseUpgrade)
  @If (@Exists("@EnvLanCFG\\@RedirProg") || @Exists("@EnvLanCFG\\install.exe"))
    @If (@Spawn("@SupportPath\\LINSCFG.EXE -f @RedirTempPath\\redir.exe -u @EnvLanCFG\\@RedirProg -n @Licensenum -k @Licensecheck",1) == 0)
      @Goto End_License_Stamp
    @ElseIf(@Spawn("@SupportPath\\LINSCFG.EXE -f @RedirTempPath\\redir.exe -u @EnvLanCFG\\install.exe -n @Licensenum -k @Licensecheck",1) == 0)
      @Goto End_License_Stamp
    @Else @Goto License_Error
    @EndIf
  @Else
   @BackgroundMode(3,@WinColor,@Black)
   @DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()
   @ScrnTitle = " Select Drive Letter"
   @DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
    @GetOutDrive @OldRedirDrive
    @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(12,40)

    Unable to locate valid license for upgrade.

    Select the drive that contains the license diskette.
    @EndOutDrive

   @BackgroundMode(3,@WinColor,@Black)
   @DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()
   @ScrnTitle = " Input Directory Path"
   @DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
    @GetSubdir @OldRedirSubdir
    @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(12,40)

    Type in the subdirectory path that contains the license.
    @EndSubdir
  @Endif

 @If (@Exists("@OldRedirDrive:\\@OldRedirSubdir\\@RedirProg") || @Exists("@OldRedirDrive:\\@OldRedirSubdir\\install.exe"))
   @If (@Spawn("@SupportPath\\LINSCFG.EXE -f @RedirTempPath\\redir.exe -u @OldRedirDrive:\\@OldRedirSubdir\\@RedirProg -n @Licensenum -k @Licensecheck",1) == 0)
     @Goto End_License_Stamp
   @ElseIf (@Spawn("@SupportPath\\LINSCFG.EXE -f @RedirTempPath\\redir.exe -u @OldRedirDrive:\\@OldRedirSubdir\\install.exe -n @Licensenum -k @Licensecheck",1) == 0)
     @Goto End_License_Stamp
   @Else  @Goto License_Error
   @EndIf
 @Else
   @BackgroundMode(3,@WinColor,@Black)
   @DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()
   @ScrnTitle = " Error Locating License"
   @DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
   @Display
    @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(12,40)

    Cannot find license at location specified.

    Press any key to try again.
   @Pause
   @EndDisplay
     @Goto ADD_LICENSE
  @EndIf
@EndIf


LICENSE_ERROR:

@If (@ExtractMode) @GoTo FILES @EndIf


@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()

@ScrnTitle = " License Verification Error"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@Display @HelpTextActive
 @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)


  The following error occurred:
@If (@Spawn() == 1)
  >>> Program failed to load
@ElseIF (@Spawn() == 2)
  >>> User cancelled
@ElseIF (@Spawn() == 3)
  >>> Invalid character in serial number
@ElseIF (@Spawn() == 4)  >>> Invalid serial number (check character)
@ElseIF (@Spawn() == 5)
  >>> Invalid character in verification number
@ElseIF (@Spawn() > 5)
  >>> Invalid serial/verification checksum

       Press F1 for further information.
@EndIf


@Pause
@EndDisplay

END_LICENSE_STAMP:

@If (@Spawn() > 0)
@goto ADD_LICENSE
@EndIf







@FlushOptions()

@ChangeSystemFiles = @True

@ToFloppy  = @False
@ToHard    = @False
@ToNetwork = @False

@If (@ToFloppyOK || !@DosInstalled)
  @KeepInstall = @False
  @NewInstall = @True
  @Goto CHECK_DONE
@EndIf



ASK_KEEP:

  @If (@PrevNOS)
    @s1 = "a prior version of LANtastic"
  @ElseIf (@SimplyNOS)
	 @s1 = "Simply LANtastic"
  @Else
    @s1 = "@Name for DOS"
  @EndIf

   @s2 = ""


@HelpText @HelpTitle = "Keep or Replace Settings Help" @LocalWindow(10,40)

  Choosing REPLACE on this screen will create a new STARTNET.BAT file
  and make changes to your AUTOEXEC.BAT and CONFIG.SYS files. Copies
  of your original AUTOEXEC.BAT and CONFIG.SYS files will be saved
  with a numeric file extension. For example, CONFIG.001. Accounts,
  resources and the server configuration will be preserved but you
  must merge special setup information (such as multiple adapter
  configuration or non-default adapter driver settings) into the new
  STARTNET.BAT using a text editor.


@EndHelpText


@If (@KeepInstall) @SetOption(11)
@Else @SetOption(12) @EndIf

@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,17,1,20,58) @FlushKeyboard()

@ScrnTitle = " Keep or Replace Settings"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @HelpTextActive
@Cls
@MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(15,40)

  @s3@!INSTALL found @s1 on your computer.  You can KEEP
  all of your current @Name settings or REPLACE them with
  new settings generated by this INSTALL.

  If you choose KEEP, no changes will be made to STARTNET.BAT or any
  system files such as AUTOEXEC.BAT or CONFIG.SYS.  Accounts, resources,
  and the server configuration also will be preserved.


  @Option 11  = "KEEP     previous @Name settings"
  @Option 12  = "REPLACE  previous @Name settings"
@EndOption

@NewInstall = @True
@KeepInstall = @False
@ChangeSystemFiles = @True
@AlreadyKeep = @True

@If (11 [= @Option)
  @NewInstall = @False
  @KeepInstall = @True
  @ChangeSystemFiles = @False
  @InfFileMode = @False
@EndIf

@If (@KeepInstall)
  @If ("@StrMid("@EnvLanCfg",1,1)" == ":")
    @d = (@StrIndex(@EnvLanCfg,0))
    @If (@DriveExists(@d))
      @OutDrive = @d
    @Else
      @Display
      W A R N I N G

      Drive @d is not available!  Using C:
      @FlushKeyboard() @Pause
      @EndDisplay
      @OutDrive = C
    @EndIf
    @Subdir = "@StrMid(@EnvLanCfg,2,100)"
  @Else
    @Subdir = "@EnvLanCfg"
  @EndIf
  @InstallDir = "@Subdir"
@EndIf

@PleaseWait("- Looking up computer name")

@If ("@ComputerName" == "")
  @s1 = @FindLines("@BootDrive:\\AUTOEXEC.BAT","REDIR",1,100,"IW")
  @If ("@s1" != "")
    @s3 = @StrConvert(@s1,"uc")
    @i = @StrFind(@s3,"REDIR")
    @s5 = @StrMid(@s3,@i,30)
    @ComputerName = @StrToken(@s5,1," ~")
  @Else
    @s2 = @FindLines("@EnvLanCfg\\STARTNET.BAT","REDIR",1,100,"IW")
    @If ("@s2" != "")
      @s4 = @StrConvert(@s2,"uc")
      @i = @StrFind(@s4,"REDIR")
      @s6 = @StrMid(@s4,@i,30)
      @ComputerName = @StrToken(@s6,1," ~")
    @EndIf
  @EndIf
  @If (("@StrHead(@ComputerName,1)" == "%")
     && ("@StrTail(@ComputerName,1)" == "%"))
    @i = (@StrLen(@ComputerName) - 2)
    @If (@i > 0)
      @ComputerName = @GetEnv("@StrMid(@ComputerName,1,@i)")
    @Else
      @ComputerName = ""
    @EndIf
  @EndIf
@EndIf

CHECK_DONE:


COMPUTER_NAME:


@HelpText @HelpTitle = "Computer Name Help" @LocalWindow(10,40)

Enter the name you want to use for this computer. The name can
contain up to 15 characters. However, it must consist of only
letters and numbers. Punctuation marks or special characters,
such as spaces, slashes and asterisks, are invalid.

@EndHelpText


@FlushOptions()
@If ((@KeepInstall) && ("@ComputerName" != ""))
  @Goto NAME_DONE
@EndIf

@If (@InfFileMode && ("@InfComputerName" != ""))
  @ComputerName = "@InfComputerName"
  @Goto NAME_DONE
@EndIf


@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()

@ScrnTitle = " Computer Name"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@GetString @ComputerName @HelpTextActive
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

    Every computer in your @Name network needs a unique name. You can
    use any name you like, up to 15 characters. However, using a
    variation of your own name, such as SUES_PC, or a descriptive one,
    such as MARKETING may make remembering the name easier.


    @PromptName
    @Prompt = "Enter computer name"
@EndString

@If (@StrLen(@ComputerName) < 1)
  @PromptName = ">>> You need to enter a name for your computer.<<<"
  @Goto COMPUTER_NAME
@ElseIf (@StrLen(@ComputerName) > 15)
  @PromptName = ">>> The name you typed was longer than 15 letters.<<<"
  @Goto COMPUTER_NAME
@ElseIf (@StrFind(@ComputerName," ") >= 0)
  @PromptName = ">>> The name you typed contained spaces.<<<"
  @Goto COMPUTER_NAME
@ElseIf (@StrFind("@Illegal","@ComputerName") >= 0)
  @PromptName = ">>> The character  @ComputerName  is not allowed.<<<"
  @Goto COMPUTER_NAME
@ElseIf (@StrLen("@StrToken("@ComputerName",1,"@Illegal")") > 0)
  @s9 = @StrMid("@ComputerName",@StrLen("@StrToken("@ComputerName",0,"@Illegal")"),1)
  @If ("@s9" == "%") @s9 = "%%" @EndIf
  @PromptName = ">>> The character  @s9  is not allowed.<<<"
  @Goto COMPUTER_NAME
@ElseIf ("@StrToken("@ComputerName",0,"@Illegal")" != "@ComputerName")
  @PromptName = ">>>@BadChar<<<"
  @Goto COMPUTER_NAME
@ElseIf (@InfFileMode && @ForceName)
  @If ("@FindText(@InfPath,"[@ComputerName]","IW")" == "")
    @PromptName = ">>> See your system administrator for a valid name.<<<"
    @Goto COMPUTER_NAME
  @EndIf
@EndIf

NAME_DONE:
@PromptName = ""
@ComputerName = @StrConvert("@ComputerName","uc")

@If (@InfFileMode && ("@InfHeader" != ""))
  @If (("@InfMode" == "NAME") || @ForceName) @InfHeader = @ComputerName @EndIf
  @InfType = @StrConvert(@GetINI(@InfHeader,"Type",@InfPath),"uc")
  @If ("@InfType" != "") @InfHeader = @InfType @EndIf

  @InfInstallPath = @StrConvert(@GetINI(@InfHeader,"InstallPath",@InfPath),"uc")
  @InfExecutePath = @StrConvert(@GetINI(@InfHeader,"ExecutePath",@InfPath),"uc")
  @InfShare    = @StrConvert(@GetINI(@InfHeader,"Share",@InfPath),"uc")
  @InfLogouts  = @StrConvert(@GetINI(@InfHeader,"Logouts",@InfPath),"uc")
  @InfLogins   = @StrConvert(@GetINI(@InfHeader,"Logins",@InfPath),"uc")
  @InfTCPIP      = @StrConvert(@GetINI(@InfHeader,"TCPIP",@InfPath),"uc")
  @InfNcp      = @StrConvert(@GetINI(@InfHeader,"Ncp",@InfPath),"uc")
  @InfSmb      = @StrConvert(@GetINI(@InfHeader,"Smb",@InfPath),"uc")
  @InfJetDirect = @StrConvert(@GetINI(@InfHeader,"JetDirect",@InfPath),"uc")
  @InfMShare = @StrConvert(@GetINI(@InfHeader,"ModemSharing",@InfPath),"uc")
  @InfMShareServer = @StrConvert(@GetINI(@InfHeader,"ModemServer",@InfPath),"uc")
  @InfIRQ = @StrConvert(@GetINI(@InfHeader,"IRQNum",@InfPath),"uc")
  @InfIO = @StrConvert(@GetINI(@InfHeader,"IOAddress",@InfPath),"uc")
  @InfInstallServices = @StrConvert(@GetINI(@InfHeader,"InstallServices",@InfPath),"uc")
  @InfChangeSystemFiles =         @StrConvert(@GetINI(@InfHeader,"ChangeSystemFiles",@InfPath),"uc")

  @If ("@InfChangeSystemFiles" == "YES")
    @ChangeSystemFiles = @True
  @ElseIf ("@InfChangeSystemFiles" == "NO")
    @ChangeSystemFiles = @False
  @EndIf
@EndIf



NEWDRIVE:

@If (@KeepInstall)
  @Goto PATH_DONE
@EndIf

@If (@InfFileMode && ("@InfInstallPath" != ""))
  @If ("@StrMid("@InfInstallPath",1,1)" == ":")
    @d = (@StrIndex(@InfInstallPath,0))
    @If (!@DriveExists(@d))
      @InfInstallPath = ""
      @Goto NEWDRIVE
    @EndIf
    @OutDrive = @d
    @Subdir = "@StrMid(@InfInstallPath,2,100)"
  @Else
    @Subdir = "@InfInstallPath"
  @EndIf
  @InstallDir = "@Subdir"
  @Goto PATH_DONE
@EndIf
@s2 = "Select the drive on your computer where you want @Name to be"
@s3 = "installed.  Drive C is typically the installation location, however,"
@If (@ToFloppyOK)
  @s2 = "Select the floppy drive where you want"
  @s3 = "@Name DOS workstation files to be installed."
  @s4 = ""
@ElseIf (@ToNetworkOK)
  @s4 = "you can select another drive. The network drives are: @ExistingRemote"
@Else
  @s4 = "if you prefer you can select another drive."
@EndIf


@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,7,15,12,30) @FlushKeyboard()
@ScrnTitle = " Enter Target Drive"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "


@GetOutDrive @OutDrive @Prompt = "Enter target drive"
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  @LOCALWINDOW(12,40)
  @If (@ToFloppyOK) @Suppress(0,(16+2)) @ElseIf (@ToNetworkOK) @Suppress(0,(16+1))
  @Else @Suppress(0,(16+4+1)) @EndIf
  @If (@Removable(@ScriptDrive)) @Suppress(@ScriptDrive) @EndIf
  @s2
  @s3
  @s4
@EndOutDrive



NEWDIR:

@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,9,2,10,37) @FlushKeyboard()


@ScrnTitle = " Enter Directory"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@GetSubdir @Subdir @Prompt = "Enter Directory"
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  @LOCALWINDOW(10,25)
@If (@ExtractMode)
  Select the directory on Drive @OutDrive where you want the extracted
  files to be placed. Most people accept the default directory.
@Else
  @Name is typically installed in the @Subdir directory, however, if
  you prefer to use a different directory, type it in the Enter Directory
  field.
  @PromptSub
@EndIf
@EndSubdir

@InstallDir = @StrConvert("@Subdir","uc")

@If (@StrLen(@InstallDir) < 1)
  @PromptSub = ">>> You need to specify a directory on Drive @OutDrive:.<<<"
  @Goto NEWDIR
@ElseIf ("@StrMid("@InstallDir",2,1)" == ":")
  @s9 = @StrMid("@InstallDir",1,1)
  @InstallDir = @StrMid(@InstallDir,3,100)
  @If ("@s9" == "@OutDrive")
    @If (@StrLen(@InstallDir) < 1) @InstallDir = "\\" @EndIf
    @Subdir = "@InstallDir"
  @Else
    @PromptSub = ">>> No drive needed, type directory only.<<<"
    @Subdir = "@InstallDir"
    @Goto NEWDIR
  @EndIf
@EndIf

@If ( ("@InstallDir" == "\\") )
  @PromptSub = ">>> Do not install @Name in root directory: @OutDrive:\\ <<<"
  @Goto NEWDIR
@ElseIf (@StrFind(@InstallDir," ") >= 0)
  @PromptSub = ">>> The directory you typed contained spaces.<<<"
  @Goto NEWDIR
@ElseIf (@StrFind(@InstallDir,"\\\\") >= 0)
  @PromptSub = ">>> The directory you typed contained '\\\\'.<<<"
  @Goto NEWDIR
@ElseIf (@StrLen("@StrToken("@InstallDir",1,"@Illegal0")") > 0)
  @s9 = @StrMid("@InstallDir",@StrLen("@StrToken("@InstallDir",0,"@Illegal0")"),1)
  @If ("@s9" == "%") @s9 = "%%" @EndIf
  @PromptSub = ">>> The character  @s9  is not allowed.<<<"
  @Goto NEWDIR
@ElseIf ("@StrToken("@InstallDir",0,"@Illegal0")" != "@InstallDir")
  @PromptSub = ">>>@BadChar<<<"
  @Goto NEWDIR
@ElseIf ((@StrLen("@StrToken("@InstallDir",0,".\\")") > 8)
       ||(@StrLen("@StrToken("@InstallDir",1,".\\")") > 8)
       ||(@StrLen("@StrToken("@InstallDir",2,".\\")") > 8))
  @PromptSub = ">>> Directory names must be 8 letters or less.<<<"
  @Goto NEWDIR
@ElseIf (@Exists("@OutDrive:@InstallDir"))
  @If (!@DirExists("@OutDrive:@InstallDir"))
    @PromptSub = ">>> @OutDrive:@InstallDir is not a valid directory.<<<"
    @Goto NEWDIR
  @EndIf
@EndIf

PATH_DONE:
@If ("@StrTail("@InstallDir",1)" == "\\")
  @n = (@StrLen("@InstallDir"))
  @InstallDir = @StrHead("@InstallDir",(@n-1))
  @Subdir = "@InstallDir"
@EndIf

@InstallPath = "@OutDrive:@InstallDir"

@If ("@InstallPath" == "@StartupPath")
  @PromptSub = ">>> You tried to reinstall @Name in @OutDrive:@InstallDir.<<<"
  @Goto NEWDIR
@EndIf

@PromptSub = ""

@If (@Removable(@OutDrive))
  @ToFloppy = @True
@ElseIf (@DriveRemote(@OutDrive))
  @ToNetwork = @True
@Else
  @ToHard = @True
@EndIf

@If (@ToHard && @InstallMode && !@AlreadyKeep)
  @If (@Exists("@InstallPath\\@RedirProg"))
    @PrevNOS = @True
    @KeepInstall = @True
    @NewInstall = @False
    @Goto ASK_KEEP
  @EndIf
@EndIf

@If (@ExtractMode) @Goto EXTRACT_FAMILIES @EndIf

@If (@ToHard || @KeepInstall)
  @your = "your"
  @my   = "my"
  @ExecutePath = @InstallPath
  @Goto XPATH_DONE
@ElseIf (@ToFloppy)
  @If ("@ExecutePath" == "") @ExecutePath = "A:@InstallDir" @EndIf
  @s5 = "floppy"
  @s6 = "INSTALL will set up a @Name for DOS workstation on Drive @OutDrive."
  @s7 = "for"
  @your = "the"
  @my   = "the"
@ElseIf (@ToNetwork)
  @If ("@ExecutePath" == "") @ExecutePath = "C:@InstallDir" @EndIf
  @s5 = "network"
  @s6 = "A network drive is a hard drive on another computer."
  @s7 = "to"
  @your = "the"
  @my   = "the"
@Else
  @Abort
@EndIf


EXEDIR:

@DlgCtrlSize(0,17,0,18,35) @FlushKeyboard()

@ScrnTitle = " Install to Network or Floppy"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetString @Ex1
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

  You are installing @Name to a @s5 drive.
  @s6

  Select the drive and directory where @Name
  will run on the computer you are installing @s7.

      >>  You need to do this because the "path"
      >>  -- @InstallPath -- you are installing
      >>  to on your computer may not be on the
      >>  same drive as it will be running from
      >>  on the other computer.

 @If ("@PromptSub" == "") To use the default below, @key now. @EndIf
  @PromptSub
  @Default = "@ExecutePath" @Prompt = "Enter path on target computer"
@EndString

@ExecutePath = @StrConvert(@Ex1,"uc")
@If (@StrLen(@ExecutePath) < 1)
  @If ("@PromptSub" == "")
    @PromptSub = ">>> You need to enter a path for your other computer.<<<"
    @Goto EXEDIR
  @EndIf
@ElseIf (@StrFind(@ExecutePath," ") >= 0)
  @PromptSub = ">>> The directory you typed contained spaces.<<<"
  @Goto EXEDIR
@ElseIf (@StrFind(@ExecutePath,"\\\\") >= 0)
  @PromptSub = ">>> The directory you typed contained '\\\\'.<<<"
  @Goto EXEDIR
@ElseIf (@StrLen("@StrToken("@ExecutePath",1,"@Illegal1")") > 0)
  @s9 = @StrMid("@ExecutePath",@StrLen("@StrToken("@ExecutePath",0,"@Illegal1")"),1)
  @If ("@s9" == "%") @s9 = "%%" @EndIf
  @PromptSub = ">>> The character  @s9  is not allowed.<<<"
  @Goto EXEDIR
@ElseIf ("@StrToken("@ExecutePath",0,"@Illegal1")" != "@ExecutePath")
  @PromptSub = ">>>@BadChar<<<"
  @Goto EXEDIR
@ElseIf ((@StrLen("@StrToken("@ExecutePath",0,".\\")") > 8)
       ||(@StrLen("@StrToken("@ExecutePath",1,".\\")") > 8)
       ||(@StrLen("@StrToken("@ExecutePath",2,".\\")") > 8))
  @PromptSub = ">>> Directory names must be 8 letters or less.<<<"
  @Goto EXEDIR
@ElseIf ("@StrMid("@ExecutePath",1,1)" != ":")
  @If (@ToFloppy) @x1 = "A" @Else @x1 = "C" @EndIf
  @PromptSub = ">>> Path must begin with drive (e.g. @x1:).<<<"
  @Goto EXEDIR
@ElseIf ("@StrMid("@ExecutePath",1,1)" == ":")
  @If (@ToFloppy) @x1 = "A B" @Else @x1 = "C D E F G H" @EndIf
  @x2 = @StrHead(@ExecutePath,1)
  @If (@StrFind(@x1,@x2) < 0)
    @PromptSub = ">>> Drive @x2: out of range, use @x1:<<<"
    @Goto EXEDIR
  @EndIf
  @If ( (@StrLen(@ExecutePath) == 3) && ("@StrTail(@ExecutePath,1)" == "\\"))
    @PromptSub = ">>>  Do not run @Name in @ExecutePath.<<<"
    @Goto EXEDIR
  @EndIf
@Else
  @If (@ToFloppy) @x1 = "A" @Else @x1 = "C" @EndIf
  @PromptSub = ">>> Path must begin with drive (e.g. @x1:).<<<"
  @Goto EXEDIR
@EndIf
@PromptSub = ""

XPATH_DONE:
@If ("@StrTail(@ExecutePath,1)" == "\\")
  @n = @StrLen(@ExecutePath)
  @ExecutePath = @StrHead(@ExecutePath,(@n-1))
@EndIf

@If (@NewInstall || ("@EnvLanDir" == "") || @ToNetwork)
  @SharePath  = "@StrToken(@InstallPath,0,".").NET"
  @XSharePath = "@StrToken(@ExecutePath,0,".").NET"
@Else
  @SharePath  = @EnvLanDir
  @XSharePath = @SharePath
@EndIf


   @If (!@ScriptXfered)
   @If (!@ToFloppy)
   @If (@Removable(@ScriptDrive)
      && ((@DiskFree(@OutDrive)/1024) > 200))
    @s2 = "@ScriptFile"
    @b = @StrRFind("@s2","\\")
    @If (@b >= 0)
      @s2 = @StrMid(@s2,(@b+1),20)
    @EndIf
    @s3 = "@ScriptTempPath\\@s2"
    @PleaseWait("- Copying Install script to hard drive")
    @Copy("@ScriptFile","@ScriptTempPath")

    @If (@Exists("@s3"))
      @ScriptXfered = @True
      @PleaseWait("- Resuming script on hard drive")
      @Chain("Hard Drive","@s3","XFER_RESTART")
    @EndIf
   @EndIf
  @EndIf
@EndIf

XFER_RESTART:


SHARE:

@If (@KeepInstall)
  @Share= @Exists("@EnvLanCfg\\SERVER.EXE")
  @Goto NOSHARE
@EndIf

@If (@ToFloppy)
  @Share = @False
  @Goto NOSHARE
@EndIf

@If (@InfFileMode)
  @Share = ("@InfShare" != "NO")
  @Goto NOSHARE
@EndIf

@ClearOption(11)
@ClearOption(12)
@If (@Share) @SetOption(11) @Else @SetOption(12) @EndIf

@HelpText @HelpTitle = "Share Drives and Printers Help" @LocalWindow(10,40)

 By selecting SHARE, other users can access your drives, printers and
 resources across the network. You can also use the drives, printers
 and resources on other computers that are set up to share. When you
 select SHARE, your computer becomes a @Name Server.

 By selecting DO NOT SHARE, you will be able to use the drives, printers
 and resources on other computers that are set up to share. However, the
 drives, printers and resources on your computer will not be available
 to other network users.

@EndHelpText

@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,11,1,14,51) @FlushKeyboard()
@ScrnTitle = " Share Drives and Printers?"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@GetOption  @HelpTextActive
    @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
    @LOCALWINDOW(15,40)

  To make the drives and printers on this computer available to
  other network users, select the SHARE option below. Or if you'd rather
  not make your drives and printers available to others, select
  DO NOT SHARE.

  @Option 11 = "SHARE @my computer's drives and printers"
  @Option 12 = "DO NOT SHARE @my computer's drives and printers"
@EndOption

@Share = @False
@PrintPort1 = ""
@If (11  [= @Option)  @Share = @True @EndIf

NOSHARE:



MAX:
@If (@KeepInstall)
  @Logouts = 15
  @Goto OPTIONS
@EndIf

@If (@InfFileMode && ("@InfLogouts" != ""))
  @Logouts = @StrToInt(@InfLogouts)
@EndIf
@If (@InfFileMode && ("@InfLogins" != ""))
  @Logins = @StrToInt(@InfLogins)
  @Goto OPTIONS
@EndIf

@If (!@Share) @Goto OPTIONS @EndIf


@s9 = "maximum connected computers"
@keep     = "KEEP      @s9 at"
@increase = "INCREASE  @s9 to"
@setmax   = "SET  @s9 to"

@ClearOption(11)
@ClearOption(12)
@ClearOption(13)
@ClearOption(14)

@If (@Logins > 60) @SetOption(14)
@ElseIf (@Logins > 30) @SetOption(13)
@ElseIf (@Logins > 10) @SetOption(12)
@Else @SetOption(11) @EndIf

@BackgroundMode(3,@WinColor,@Black)
@ScrnTitle = " Increase Computer Connections?"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@If (@Logins <= 10)
 @DlgCtrlSize(0,13,1,18,51) @FlushKeyboard()
 @GetOption
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  @LOCALWINDOW(16,35)
  If @your computer @ComputerName will share its drives and printers
  with no more than ten other computers, choose the KEEP maximum
  connected computers at 10 option.

  If @ComputerName will share its drives and printers with more than
  ten other computers, choose the INCREASE maximum connected computers
  option that best matches your requirements.

  Note that as the INCREASE value gets larger, @Name will need to use
  more of the computer's memory.


  @Option 11 = "@keep 10"
  @Option 12 = "@increase 30"
  @Option 13 = "@increase 60"
  @Option 14 = "@increase 100"
 @EndOption
@Else
 @DlgCtrlSize(0,8,1,13,48) @FlushKeyboard()
 @GetOption
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  @LOCALWINDOW(12,35)
  Select the approximate number of computers on your
  @Name network that you want @your computer  "@ComputerName"
  to share its drives and printers with.  (The larger the
  number you select, the more memory @Name will
  use on @your computer.)

  @Option 11 = "@setmax 10"
  @Option 12 = "@setmax 30"
  @Option 13 = "@setmax 60"
  @Option 14 = "@setmax 100"
 @EndOption
@EndIf

@If     (11  [= @Option)
    @Logins = 10
@ElseIf (12  [= @Option)
    @Logins = 30
@ElseIf (13  [= @Option)
    @Logins = 60
@ElseIf (14  [= @Option)
    @Logins = 100
@EndIf


OPTIONS:


@If (@InfFileMode)
  @If ("@InfTCPIP" == "YES") @TcpEnabled = @True @EndIf
  @If ("@InfNcp" == "YES") @SetOption(180) @EndIf
  @If ("@InfSmb" == "YES") @SetOption(190) @EndIf
  @If ("@InfJetDirect" == "YES") @SetOption(310) @EndIf
  @If ("@InfMShare" == "YES") @SetOption(320) @EndIf
  @If ("@InfMShareServer" == "YES") @SetOption(321) @SetOption(327) @Endif
  @If ("@InfIRQ" == "2") @SetOption(328) @Endif
  @If ("@InfIRQ" == "3") @SetOption(329) @Endif
  @If ("@InfIRQ" == "4") @SetOption(330) @Endif
  @If ("@InfIRQ" == "5") @SetOption(331) @Endif
  @If ("@InfIRQ" == "6") @SetOption(332) @Endif
  @If ("@InfIRQ" == "7") @SetOption(333) @Endif
  @If ("@InfIO" == "3F8H") @SetOption(334) @Endif
  @If ("@InfIO" == "2F8H") @SetOption(335) @Endif
  @If ("@InfIO" == "3E8H") @SetOption(336) @Endif
  @If ("@InfIO" == "2E8H") @SetOption(337) @Endif
  @If (@HighDensity && !@ToFloppy)
    @If ("@InfInstallServices" == "YES") @SetOption(112) @EndIf
  @EndIf
  @Goto OPTIONS_DONE
@EndIf

@If (@NcpEnabled & 1)  @SetOption(180) @ClearOption (181)@EndIf
@If (@NcpEnabled & 2)  @SetOption(181) @ClearOption (180)@EndIf
@If (@SmbEnabled & 1)  @SetOption(190) @EndIf
@If (@SmbEnabled & 1)  @SetOption(191) @EndIf
@If (@JetSupport)      @SetOption(310) @Endif
@If (@MShareEnabled)   @SetOption(320) @Endif
@If (@HighDensity && !@ToFloppy)
@If (@InstallServices) @SetOption(112) @EndIf
@EndIf

@NcpEnabled  = 0
@SmbEnabled  = 0
@JetSupport  =  0
@MShareEnabled  =  0
@InstallServices = @False

@HelpText @HelpTitle = "Additional Options Help" @LocalWindow(13,40)
Enable Modem Sharing Services lets you use the modems attached to
other network computers, as well as make the modem attached to your
computer available to other network users.

Add JetDirect Support lets you connect your HP JetDirect printer
directly to your network cabling instead of an LPT or COM port.

Load Files to Enable Install Services lets you set up your computer
as an Installation Server. Other users can then redirect a drive to
the Installation Server and run the Setup program.

Client to Novell Networks lets your @Name computer communicate
with NetWare servers.

Client to Microsoft Networks lets your @Name computer
communicate with computers running Windows 95, Windows for
Workgroups or other Microsoft networks.
@EndHelpText

@BackgroundMode(3,@WinColor,@Black)
@t = 8 @b = 13
@If (@HighDensity && !@ToFloppy) @b = (@b + 1) @EndIf
@DlgCtrlSize(0,@t,1,@b,51) @FlushKeyboard()

@ScrnTitle = " Additional Options"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "

@GetOption @Checkbox  @HelpTextActive
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
    @LOCALWINDOW(17,35)

  If desired, select one or more of the additional @name options
  listed below. @If (@NewInstall) Note that each option will require @Name to use
  more of your computer's memory and disk space, so choose wisely.@Else Any features you select will be added to your
  current installation. @EndIf

  Use the up and down arrow keys to highlight an option. Press the
  SPACEBAR to toggle the option to YES or NO. When you've finished
  making selections, press ENTER.

@If (@Exists("C:\\INSYNC\\MSHARE\\CLIENT.CON"))
  @Else @Option 320 = "Enable Modem Sharing Services"
@EndIf
@If (@Share) @Option 310 = "Add JetDirect Support" @EndIf
@If (@HighDensity && !@ToFloppy)
@If (@Share) @Option 112 = "Load files to enable Install Services" @EndIf
@EndIf
  @Option 180 = "Client to Novell @Registered 3.11 Networks"
  @Option 181 = "Client to Novell @Registered 4.01 Networks"
  @Option 190 = "Client to Microsoft @Registered Networks"
@EndOption



TCP_IP:

@If ((180 [=@Option) || (181 [=@Option) || (190 [=@Option) || (310 [=@Option))
 @TcpEnabled = 0
 @ClearOption(12)
 @Goto OPTIONS_DONE @EndIf

@ClearOption(11)
@ClearOption(12)
@If (@TcpEnabled) @SetOption(12)
  @TcpEnabled = 0
@Else
  @SetOption(11)
@EndIf


@HelpText @HelpTitle = "Prepare for TCP/IP Help" @LocalWindow(10,40)

If you plan to take advantage of the NTS TCP Pro software that came in
your @Name @Version package, choose YES. It's best to prepare for
TCP/IP now, even if you don't have an immediate need for TCP/IP but
you might want to use it in the future.

@EndHelpText

@ScrnTitle = " Prepare for TCP/IP"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @HelpTextActive
   @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
     @LOCALWINDOW(15,40)
   One of the new features of @Name is to allow you to use TCP/IP-based
   applications such as TelNet and FTP.  The TCP/IP protocol is installed
   from the NTS TCP Pro disks at a later time.  In order to do this you
   must install the appropriate NDIS adapter drivers now. Would you like
   to do this?

   @Option 12 = "YES"
   @Option 11 = "NO"
@EndOption

@If (12  [= @Option)  @TcpEnabled = @True
@Else @TcpEnabled = @False
@EndIf



OPTIONS_DONE:

@SetOption(113)

@If (@ToFloppy)
  @ClearOption(112)
@Else
  @SetOption(110)

  @If (112 [= @Option)
    @Share = @True
  @EndIf

  @If (@Share)
    @SetOption(111)
  @EndIf

@EndIf

@If (180 [= @Option)
  @NcpEnabled = 1
@EndIf
@If (181 [= @Option)
  @NcpEnabled = (@NcpEnabled | 2)
  @SetOption(180)
@EndIf
@If (190 [= @Option) @SmbEnabled = 1 @EndIf
@If (310 [= @Option) @JetSupport = 1 @EndIf
@If (320 [= @Option) @MShareEnabled = 1 @EndIf
@If (112 [= @Option) @InstallServices = 1 @EndIf

CONTINUE_1:

@s6 = "" @s7 = "" @s8 = "" @s9 = ""
@If (@InstallServices) @s7 = "Install Services" @EndIf

@If (@SmbEnabled) @s6 = "Microsoft Client" @EndIf
@If (@NcpEnabled) @s8 = "Novell Client" @EndIf
@If ("@s6" != "") @s8 = "@s6   @s8" @EndIf

@Options3 = ""
@If (@JetSupport && @MShareEnabled)
       @Options3 = "JetDirect Support  Modem Sharing Enabled"
@ElseIf (@JetSupport) @Options3 = "JetDirect Support"
@ElseIf (@MShareEnabled) @Options3 = "Modem Sharing Enabled"
@EndIf

@Options1 = ""  @Options2 = ""
@If ("@s7@s8@s9@Options3" == "")
  @Options1 = "None"
@ElseIf (@StrLen("@s7@s8@s9") < 45)
  @If ("@s7" != "") @Options1 = "@s7   "  @EndIf
  @If ("@s8" != "") @Options1 = "@Options1@s8   "  @EndIf
  @Options1 = "@Options1@s9"
@ElseIf (@StrLen("@s7@s9") < 45)
  @If ("@s7" != "") @Options1 = "@s7   @s9" @Else @Options1 = @s9  @EndIf
  @Options2 = "@s8\n"
@ElseIf (@StrLen("@s8@s9") < 45)
  @Options1 = "@s7"
  @If ("@s8" != "") @Options2 = "@s8   " @EndIf
  @Options2 = "@Options2@s9\n"
@Else
  @Options1 = "@s9"
  @Options2 = "@s7   @s8"
@EndIf

@Options0 = ""
@If     (@ToNetwork)   @Options0 = "Network"
@ElseIf (@ToFloppy)    @Options0 = "Floppy" @EndIf
@If ("@Options0" != "") @Options0 = "(@Options0)" @EndIf


@If (@InfFileMode || @KeepInstall || (@ToFloppyOK)) @Goto CONTINUE_1_DONE @EndIf

@ClearOption(11)
@ClearOption(12)
@ClearOption(13)

@s5 = "DOS"

CONTINUE_1_DONE:


@If (320 [= @Option)
  @Goto MSHARE
 @Else
 @Goto ADAPTERS_MENU
@Endif

MSHARE:


@ClearOption(321)
@ClearOption(322)

@HelpText @HelpTitle = "Share Local Modem Help" @LocalWindow(10,40)

 If you have a modem attached to your computer (or you plan to have
 one in the future) and you'd like to make it available to other
 network users, select YES.

 If you'd prefer that other network users not have access to your
 modem, select NO. You'll still be able to use the shared modems
 attached to other network computers.


@EndHelpText

@ScrnTitle = " Share This Modem?"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @HelpTextActive
   @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
     @LOCALWINDOW(14,40)
   One of @Name's new features allows you to share a modem on your
   computer with others on the network. You can also share other users'
   modems just as you share drives and printers.

   Do you want to share the modem attached to this computer?

   @Option 321 = "YES"
   @Option 322 = "NO"
@EndOption

@If (321  [= @Option) @ModemServerEnabled = @True

 @ClearOption(323)
 @ClearOption(324)
 @ClearOption(325)
 @ClearOption(326)
 @ClearOption(327)
 @ClearOption(328)
 @ClearOption(329)
 @ClearOption(330)
 @ClearOption(331)
 @ClearOption(332)
 @ClearOption(333)
 @ClearOption(334)
 @ClearOption(335)
 @ClearOption(336)
 @ClearOption(337)


@HelpText @HelpTitle = "Which COM Port Help" @LocalWindow(10,40)

 Modems are typically attached to one of the computer's standard
 COM ports (COM 1, COM 2, COM 3, COM 4.) If this is the case with
 your modem, select the appropriate COM port from the list.

 If instead your modem is configured in a nonstandard way, such
 as some internal modems may be, select the CUSTOM option.

@EndHelpText

@ScrnTitle = " Which COM Port?"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
 @GetOption @Prompt = "Which COM port?" @HelpTextActive
   @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
     @LOCALWINDOW(17,40)

   Select one of the following COM port options. If you have a
   nonstandard COM port, select "CUSTOM" and you will be prompted for
   additional information.

   Which COM port is your modem attached to?

   @Option 323 = "COM 1"
   @Option 324 = "COM 2"
   @Option 325 = "COM 3"
   @Option 326 = "COM 4"
   @Option 327 = "CUSTOM"

 @EndOption


@If (327  [= @Option)


@HelpText @HelpTitle = "Interrupt Number Help" @LocalWindow(10,40)

 Because your modem is configured in a nonstandard way, you must
 tell Install what IRQ the modem is using. Select the appropriate
 IRQ setting from the list.

@EndHelpText

@ScrnTitle = " Select Interrupt Number"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
 @GetOption @Prompt = "What interrupt number?" @HelpTextActive
   @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
     @LOCALWINDOW(13,40)

   Choose one of the following interrupt request (IRQ) selections for
   your custom communications port.


   @Option 328 = "IRQ 2"
   @Option 329 = "IRQ 3"
   @Option 330 = "IRQ 4"
   @Option 331 = "IRQ 5"
   @Option 332 = "IRQ 6"
   @Option 333 = "IRQ 7"

 @EndOption

IO_Address:


@HelpText @HelpTitle = "Select Port Address Help" @LocalWindow(10,40)

 Because your modem is configured in a nonstandard way, you must tell
 Install what I/O base the modem is using. Select the appropriate I/O
 base setting from the list.

@EndHelpText


@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()

@ScrnTitle = " Select Port Address"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @IOAddress @HelpTextActive
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  @LOCALWINDOW(13,40)

    Select the base port address (IOBASE) for your custom
    communication port.

   @Option 334 = "3F8H"
   @Option 335 = "2F8H"
   @Option 336 = "3E8H"
   @Option 337 = "2E8H"


 @EndOption
 @EndIf

  @If (323 [= @Option) @IRQNum = "4" @EndIf
  @If (324 [= @Option) @IRQNum = "3" @EndIf
  @If (325 [= @Option) @IRQNum = "4" @EndIf
  @If (326 [= @Option) @IRQNum = "3" @EndIf
  @If (328 [= @Option) @IRQNum = "2" @EndIf
  @If (329 [= @Option) @IRQNum = "3" @EndIf
  @If (330 [= @Option) @IRQNum = "4" @EndIf
  @If (331 [= @Option) @IRQNum = "5" @EndIf
  @If (332 [= @Option) @IRQNum = "6" @EndIf
  @If (333 [= @Option) @IRQNum = "7" @EndIf

  @If (323 [= @Option) @IOAddress = "3F8H" @EndIf
  @If (324 [= @Option) @IOAddress = "2F8H" @EndIf
  @If (325 [= @Option) @IOAddress = "3E8H" @EndIf
  @If (326 [= @Option) @IOAddress = "2E8H" @EndIf
  @If (334 [= @Option) @IOAddress = "3F8H" @EndIf
  @If (335 [= @Option) @IOAddress = "2F8H" @EndIf
  @If (336 [= @Option) @IOAddress = "3E8H" @EndIf
  @If (337 [= @Option) @IOAddress = "2E8H" @EndIf

@Endif

@Goto ADAPTERS_MENU


EXTRACT_FAMILIES:
@If (!@ExtractMode) @Goto ADAPTERS_MENU @EndIf

@BackgroundMode(3,@WinColor,@Black)
@If (@HighDensity) @b = 17 @Else @b = 10 @EndIf
@DlgCtrlSize(0,5,1,@b,55) @FlushKeyboard()

@ScrnTitle = " Select File Groups"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @Checkbox @Prompt = "Select file groups to extract" @Cls
@MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(15,40)

  Select one or more of the following @Name file groups to load onto
  your computer.

	      >> Type "Y" for all, or "N" for none       <<
	      >> Use the SPACE bar to toggle a selection <<
	      >> Press ENTER to accept the selections    <<
  @Option  11  = "List of Adapter Drivers"
  @Option  113 = "@Name Core Workstation Files"
  @Option  110 = "@Name Additional Workstation Files"
  @Option  111 = "@Name Server Files"
  @If (@HighDensity)
  @Option  180 = "@Name Workstation Novell@Registered Client Files"
  @Option  112 = "@Name Installation Services Files"
  @EndIf
@EndOption

@If (180 [= @Option)
  @SetOption(140)
@EndIf

@If (112 [= @Option)
  @InstallServices = @True
@EndIf


@If ( 11  [! @Option) @Goto FINISH_INSTALL @EndIf


ADAPTERS_MENU:

@Our2mb   = @False
@OurMport = @False
@ClearOption (140)

@If (@Aopt) @SetOption(@Aopt) @EndIf

@BackgroundMode(3,@WinColor,@Black)
@FlushKeyboard()


@HelpText @HelpTitle = "Select Adapter Help" @LocalWindow(10,40)

Select from the list the type of adapter you have installed in
your computer. If you require NDIS support, be sure to select
one of the NDIS Support options. If the name of your adapter
isn't on the list, select NDIS Support for non-Artisoft Adapter.


@EndHelpText


@ClearOption(161)
@ClearOption(160)
@ClearOption(139)
@ClearOption(141)
@ClearOption(131)

@ScrnTitle = " Select Adapter"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @If (@ExtractMode) @Checkbox @EndIf @Prompt = "Select network adapter" @HelpTextActive @Cls
@MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText) @LOCALWINDOW(15,40)
 @If (@ExtractMode) Select one or more of the following adapters to load into
  the @Name directory -- @InstallPath -- on @your hard disk.
    >> Type "Y" for all adapters, or "N" for none         <<
    >> Use the SPACE bar to toggle an adapter selection   <<
    >> Press ENTER to accept the selections you have made <<
  @Else
  Select one of the following adapters.

  @If(@NcpEnabled)Because you selected Client to Novell Networks option, you must select
  an adapter that has a supported ODI driver. @Name provides ODI drivers
  for the adapters shown. If you have another type of adapter select
  Artisoft NodeRunner, then see the file called EXAMPLES.TXT for
  instructions on using ODI drivers.
  @ElseIf(@SmbEnabled && !@NcpEnabled)Since you chose to install @Name as a Microsoft client, you need to
  use an NDIS driver. If the name of @your adapter is not on the list below,
  select @StrToken("@AdapterNameNdis",0,",").
  @ElseIf(@TcpEnabled)Since you chose to prepare for TCP/IP, you need to use an
  NDIS driver. If the name of @your adapter is not on the list below, select
  @StrToken("@AdapterNameNdis",0,",").
  @ElseIf(!@TcpEnabled && (!@SmbEnabled) && (!@NcpEnabled))If the name of @your adapter is not on the list below, select
  @StrToken("@AdapterNameNdis",0,",").@EndIf @EndIf

@If (@NcpEnabled)
   @Option 139 = "@StrToken("@AdapterNameNPRO",0,",")"
   @Option 131 = "@StrToken("@AdapterName1b",0,",")"
@ElseIf (@SmbEnabled || @TCPEnabled || @JetSupport)
   @Option 160 = "@StrToken("@AdapterNameEPRO",0,",")"
   @Option 161 = "@StrToken("@AdapterNameNRX",0,",")"
   @Option 141 = "@StrToken("@AdapterNameAEX",0,",")"
   @Option 140 = "@StrToken("@AdapterNameNdis",0,",")"
@Else
  @Option 139 = "@StrToken("@AdapterNameNPRO",0,",")"
  @Option 131 = "@StrToken("@AdapterName1b",0,",")"
  @Option 161 = "@StrToken("@AdapterNameNRX",0,",")"
  @Option 141 = "@StrToken("@AdapterNameAEX",0,",")"
  @Option 140 = "@StrToken("@AdapterNameNdis",0,",")"
  @Option 160 = "@StrToken("@AdapterNameEPRO",0,",")"
  @If (!@ExtractMode) @Option 138 = "@StrToken("@AdapterNameOther",0,",")" @EndIf
  @Option 134 = "@StrToken("@AdapterName4",0,",")"
  @Option  62  = "@StrToken("@AdapterName11c",0,",")"
  @Option  52  = "@StrToken("@AdapterName11b",0,",")"
  @Option 152 = "@StrToken("@AdapterName11a",0,",")"
  @Option 135 = "@StrToken("@AdapterName5",0,",")"
  @Option 148 = "@Strtoken("@AdapterName7",0,",")"
  @Option 149 = "@StrToken("@AdapterName8",0,",")"
  @Option 150 = "@StrToken("@AdapterName9",0,",")"
  @Option 158 = "@StrToken("@AdapterName17",0,",")"
  @Option 154 = "@StrToken("@AdapterName13",0,",")"
  @Option 151 = "@StrToken("@AdapterName10",0,",")"
  @Option 155 = "@StrToken("@AdapterName14",0,",")"
  @Option 156 = "@StrToken("@AdapterName15",0,",")"
  @Option 153 = "@StrToken("@AdapterName12",0,",")"

 @EndIf
@EndOption

@NdisSelected = @False
@AexNdisSelected = @False

@If        (131  [= @Option) @NodeRunner = @True @NodeRunnerPro = @False
   @Aopt = 131 @AdapterName = @AdapterName1b @AdapterProg = @AdapterProg1
@EndIf @If ( 31  [= @Option)
   @AdapterName = @AdapterName1a @AdapterProg = @AdapterProg1
   @Aopt = 31 @ClearOption(31) @SetOption(131)
@EndIf @If (132  [= @Option)
   @Aopt = 132 @AdapterName = @AdapterName2  @AdapterProg = @AdapterProg2
@EndIf @If (133  [= @Option)
   @Aopt = 133 @AdapterName = @AdapterName3  @AdapterProg = @AdapterProg3
   @SetOption(134)
@EndIf @If (134  [= @Option)
   @Aopt = 134 @AdapterName = @AdapterName4  @AdapterProg = @AdapterProg4
   @SetOption(133)
@EndIf @If (135  [= @Option)
   @Aopt = 135 @AdapterName = @AdapterName5  @AdapterProg = @AdapterProg5
@EndIf @If (136  [= @Option)
   @Aopt = 136 @AdapterName = @AdapterName6  @AdapterProg = @AdapterProg6
   @OurMport = @True
@EndIf @If (137  [= @Option)
   @Aopt = 137 @AdapterName = @AdapterNameMB1  @AdapterProg = @AdapterProgMB1
   @Our2mb = @True
@EndIf @If ( 37  [= @Option)
   @AdapterName = @AdapterNameMB2 @AdapterProg = @AdapterProgMB2
   @Aopt = 37 @ClearOption(37) @SetOption(137)
   @Our2mb = @True
@EndIf @If ( 47  [= @Option)
   @AdapterName = @AdapterNameMB3 @AdapterProg = @AdapterProgMB3
   @Aopt = 47 @ClearOption(47) @SetOption(137)
   @Our2mb = @True
@EndIf @If ( 57  [= @Option)
   @Aopt = 57 @AdapterName = @AdapterNameMB4 @AdapterProg = @AdapterProgMB4
   @ClearOption(57) @SetOption(137)
   @Our2mb = @True
@EndIf @If (138  [= @Option)
   @Aopt = 138 @AdapterName = @AdapterNameOther  @AdapterProg = @AdapterProgOther
@EndIf @If (140  [= @Option)
   @Aopt = 140
   @AdapterName = @AdapterNameNdis
   @NdisSelected = @True
@EndIf @If (141  [= @Option)
   @Aopt = 141
   @AdapterName = @AdapterNameAEX
   @AdapterProg = @AdapterProgAEX
   @AexNdisSelected = @True
   @SetOption(140)  @SetOption(142)
   @SetOption(141)
   @SetOption(131)
@EndIf @If (161  [= @Option)
   @Aopt = 161
   @AdapterName = @AdapterNameNRX
   @AdapterProg = @AdapterProgNRX
   @AexNdisSelected = @True
   @SetOption(140)  @SetOption(142)
   @SetOption(141)
   @SetOption(131)
@EndIf @If (160  [= @Option)
   @Aopt = 160
   @AdapterName = @AdapterNameEPRO
   @AdapterProg = @AdapterProgEPRO
   @AexNdisSelected = @True
   @SetOption(140)  @SetOption(142)
   @SetOption(160)
@EndIf @If (139  [= @Option) @NodeRunnerPro = @True @NodeRunner = @False
   @Aopt = 139 @AdapterName = @AdapterNameNPRO  @AdapterProg = @AdapterProgNPRO
@EndIf @If (148  [= @Option)
   @Aopt = 148 @AdapterName = @AdapterName7  @AdapterProg = @AdapterProg7
@EndIf @If (149  [= @Option)
   @Aopt = 149 @AdapterName = @AdapterName8  @AdapterProg = @AdapterProg8
@EndIf @If (150  [= @Option)
   @Aopt = 150 @AdapterName = @AdapterName9  @AdapterProg = @AdapterProg9
@EndIf @If (151  [= @Option)
   @Aopt = 151 @AdapterName = @AdapterName10 @AdapterProg = @AdapterProg10
@EndIf @If (152  [= @Option)
   @Aopt = 152 @AdapterName = @AdapterName11a @AdapterProg = @AdapterProg11a
@EndIf @If ( 52  [= @Option)
   @AdapterName = @AdapterName11b @AdapterProg = @AdapterProg11b
   @Aopt = 52 @ClearOption(32) @SetOption(152)
@EndIf @If ( 62  [= @Option)
   @AdapterName = @AdapterName11c @AdapterProg = @AdapterProg11c
   @Aopt = 62 @ClearOption(62) @SetOption(152)
@EndIf @If (153  [= @Option)
   @Aopt = 153 @AdapterName = @AdapterName12 @AdapterProg = @AdapterProg12
@EndIf @If (154  [= @Option)
   @Aopt = 154 @AdapterName = @AdapterName13 @AdapterProg = @AdapterProg13
@EndIf @If (155  [= @Option)
   @Aopt = 155 @AdapterName = @AdapterName14 @AdapterProg = @AdapterProg14
@EndIf @If (156  [= @Option)
   @Aopt = 156 @AdapterName = @AdapterName15 @AdapterProg = @AdapterProg15
@EndIf @If (158  [= @Option)
   @Aopt = 158 @AdapterName = @AdapterName17 @AdapterProg = @AdapterProg17


@EndIf

@AdapterNameFull = @AdapterName
@AdapterName = "@StrToken("@AdapterName",0,",")"




@If ("@StrToken("@AdapterNameFull",3,",")" == "") @Goto IO_END @EndIF

@AdapterSel = "\"@StrToken("@AdapterNameFull",0,",")\",@StrToken("@AdapterNameFull",1,","),\"@StrToken("@AdapterNameFull",2,",")\",\"@StrToken("@AdapterNameFull",3,",")\""
@Write("@SupportPath\\adapter.sel","wt", "@AdapterSel")
@Chdir("@SupportPath")
@Spawn("dinstgui.exe",1)
@If (@Exists("@SupportPath\\Dinst.out"))
  @AdapterProg = "@FindLines("@SupportPath\\Dinst.out","",1,2,"A")"
  @AdapterProg = "@StrHead("@AdapterProg",@StrLen("@AdapterProg") - 1)"
  @Chdrive(@SupportDrive)
  @ChDir("\\")
  @Chdir(@InstallPath)
@Else
  @Chdrive(@ScriptDrive)
  @Chdir(@ScriptPath)
  @Exit
@EndIf

IO_END:




 @If (@NcpEnabled && @SmbEnabled)
    @SetOption(140)
    @SetOption(142)
    @If (131  [= @Option)
       @SetOption(141)
       @Aopt = 141
       @AdapterName = @AdapterName1b
       @AdapterProg = @AdapterProg1
       @AdapterNif = @AdapterNif1b
    @ElseIf (139  [= @Option)
      @SetOption(160)
       @Aopt = 160
       @AdapterName = @AdapterNameNPRO
       @AdapterProg = @AdapterProgNPRO
      @AdapterNif = @AdapterNifNPRO
    @EndIf
    @AexNdisSelected = @False
  @EndIf
@EndIf


@If (@AexNdisSelected)
  @If("@AdapterProg" == "@AdapterProgAEX")
   @AdapterNif  = @AdapterNifAEX
  @ElseIf("@AdapterProg" == "@AdapterProgEPRO")
   @AdapterNif  = @AdapterNifEPRO
  @Else
   @AdapterNif  = ""
  @EndIf


  @If (!@ExtractMode) @Goto ADAPTERS_DONE @EndIf
@EndIf

@If (!@NdisSelected) @Goto ADAPTERS_DONE @EndIf


@PromptNdis = ""

@If ((@StrLen(@NdisPath) == 0) && @Removable(@InDrive))
  @NdisPath = "@InDrive:\\"
@EndIf
@BackgroundMode(3,@WinColor,@Black)

NDIS_PATH:
@AdapterProg = ""
@AdapterNif  = ""
@PromptNdis = "@PromptNdis\n  >>  Clear and @key to return to Adapters Menu.<<"
@NdisOK = @False

@If (@FromFloppy) @IgnoreDiskID = @True @EndIf

@DlgCtrlSize(0,13,0,14,35) @FlushKeyboard()

@ScrnTitle = " Insert Adapter Disk"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetString @Nd1
  @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
  INSTALL the NDIS Driver for @your Network Adapter
  @Underline40@Underline10

  Insert the manufacturer's driver diskette for @your
  adapter into a floppy drive, then type the drive letter
  (and directory path if necessary) and @key.

  @PromptNdis
  @Default = "@NdisPath" @Prompt = "Enter NDIS driver directory"
@EndString

@NdisPath = @StrConvert("@Nd1","uc")

@If (@StrLen(@NdisPath) == 1)
  @d = (@StrIndex("@NdisPath",0))
  @If (@DriveExists(@d)) @If (@Removable(@d))
      @NdisPath = "@NdisPath:"
  @EndIf @EndIf
@EndIf

@If (@StrLen(@NdisPath) < 1)
  @If (@FromFloppy) @IgnoreDiskID = @False @EndIf
  @If (@ExtractMode) @FlushOptions() @Aopt = 0 @EndIf
  @NdisPath = ""
  @Goto ADAPTERS_MENU
@ElseIf (@StrFind(@NdisPath," ") >= 0)
  @PromptNdis = ">>> The directory you typed contained spaces.<<<"
  @Goto NDIS_PATH
@ElseIf (@StrFind(@ExecutePath,"\\\\") >= 0)
  @PromptNdis = ">>> The directory you typed contained '\\\\'.<<<"
  @Goto NDIS_PATH
@ElseIf (@StrLen("@StrToken("@NdisPath",1,"@Illegal1")") > 0)
  @s9 = @StrMid("@NdisPath",@StrLen("@StrToken("@NdisPath",0,"@Illegal1")"),1)
  @If ("@s9" == "%") @s9 = "%%" @EndIf
  @PromptNdis = ">>> The character  @s9  is not allowed.<<<"
  @Goto NDIS_PATH
@ElseIf ("@StrToken("@NdisPath",0,"@Illegal1")" != "@NdisPath")
  @PromptNdis = ">>>@BadChar<<<"
  @Goto NDIS_PATH
@ElseIf ((@StrLen("@StrToken("@NdisPath",0,".\\")") > 8)
       ||(@StrLen("@StrToken("@NdisPath",1,".\\")") > 8)
       ||(@StrLen("@StrToken("@NdisPath",2,".\\")") > 8))
  @PromptNdis = ">>> Directory names must be 8 letters or less.<<<"
  @Goto NDIS_PATH
@ElseIf (@Exists("@NdisPath") && !@DirExists("@NdisPath"))
  @PromptNdis = ">>> \"@NdisPath\" is not a directory.<<<"
  @Goto NDIS_PATH
@ElseIf (!@DirExists("@NdisPath"))
  @If ("@StrMid("@NdisPath",1,1)" == ":")
    @d = (@StrIndex("@NdisPath",0))
    @If (!@DriveExists(@d))
      @PromptNdis = ">>> Drive @d: is not available.<<<"
      @Goto NDIS_PATH
    @ElseIf (@StrLen(@NdisPath) == 2)
      @NdisPath = "@NdisPath\\"
    @ElseIf ((@StrLen(@NdisPath) == 3) && ("@StrTail("@NdisPath",1)" == "\\"))
    @Else
      @PromptNdis = ">>> \"@NdisPath\" is not a valid path.<<<"
      @Goto NDIS_PATH
    @EndIf
  @ElseIf ("@NdisPath" != "\\")
    @s1 = "@ScriptDrive:"
    @If ("@StrHead(@NdisPath,1)" != "\\") @s1 = "@s1\\" @EndIf
    @NdisPath = "@s1@NdisPath"
    @If (!@DirExists("@NdisPath"))
      @PromptNdis = ">>> The path \"@NdisPath\" does not exist.<<<"
      @Goto NDIS_PATH
    @EndIf
  @EndIf
@EndIf

@PleaseWait("- Searching for NDIS adapter driver file")

@If (@NdisSelected)
  @MkDir("@Supportpath\\ndistemp")
  @NdisInstallPath = "@SupportPath\\ndistemp"
@Else
  @NdisInstallPath = @InstallPath
@EndIf
@NdisDrivers   = ""
@NdisDriver    = ""
@NdisDevice    = ""
@NdisTitle     = ""
@NdisType      = ""
@NdisDDir      = ""
@NdisCopyFiles = ""
@NdisDriverTSR = ""
@NdisDriverArg = ""

@NifFound  = @False
@NifDir    = ""
@NifFile   = ""
@NifPath   = ""

@NifList = @FindText("@NdisPath\\*.NIF","Type","IWR")
@If (@Strlen(@NifList) <= 0) @Goto NIF_DONE @EndIF

@i = 0
@k = @StrCount(@NifList," ")
NIF_LOOP:
  @NifPath = @StrToken(@NifList,@i)
  @If (@Strlen(@FindText("@NifPath","OS2","I")) == 0)
    @NdisType = @GetINI("","Type","@NifPath")
    @If (@StrFind("@NdisType","NDIS") >= 0)
      @b = @StrRFind(@NifPath,"\\")
      @If (@b >= 0)
	@NifFound = @True
	@NifDir   = @StrHead(@NifPath,@b)
	@NifFile  = @StrMid(@NifPath,(@b+1),20)
      @EndIf
    @EndIf
  @EndIF
  @i = (@i + 1)
  @If ((@i < @k) && !@NifFound) @Goto NIF_LOOP @EndIf
NIF_DONE:

@If (!@NifFound)
  @NdisDriverFile = "*.DOS"
  @Goto DRIVER_SEARCH
@EndIf

NIF_FOUND:
@If (@Strlen(@FindText("@NifPath","Model","IW")) > 0)
  @NifVersion = 1
  @NdisDrivers   = @GetINI("","DeviceDriver=~2","@NifPath")
  @NdisDevice    = @GetINI("","DeviceName","@NifPath")
  @NdisTitle     = @GetINI("","Model","@NifPath")
  @NdisDDir      = @GetINI("","Path","@NifPath")
  @NdisCopyFiles = ""
@Else
  @NifVersion = 2
  @NdisDrivers   = @GetINI("File","Name=~2","@NifPath")
  @NdisDevice    = @GetINI("","DriverName","@NifPath")
  @NdisTitle     = @GetINI("","Title","@NifPath")
  @NdisDDir      = @GetINI("File","Path","@NifPath")
  @NdisCopyFiles = @GetINI("","CopyFile==10","@NifPath")
@EndIf

@s1 = @StrToken(@NdisDrivers,0,"~")
@s2 = @StrToken(@NdisDrivers,1,"~")

@s3 = @StrToken(@NdisDrivers,1,",")
@If (@Strlen(@s3) > 0)
  @s2 = @s3
  @s1 = @StrToken(@NdisDrivers,0,",")
@EndIf

@b = @StrRFind("@s1","\\")
@If (@b >= 0)
  @s3 = @StrMid(@s1,(@b+1),40)
@Else
  @s3 = @s1
@EndIf

@b = @StrRFind("@s2","\\")
@If (@b >= 0)
  @s4 = @StrMid(@s2,(@b+1),40)
@Else
  @s4 = @s2
@EndIf

@If ("@s4" != "")
  @NdisDriverTSR  = @StrToken(@s3,0," ")
  @NdisDriverArg  = @StrToken(@s3,1," ")
  @NdisDriverFile = @s4
@Else
  @NdisDriverTSR  = ""
  @NdisDriverFile = @s3
@EndIf

@NdisDriver = @StrToken(@NdisDriverFile,0,".")

@If (@Strlen(@NdisDriver) <= 0)
  @PromptNdis = ">>> NDIS driver name not found in @NifPath <<<"
  @Goto NDIS_DONE
@EndIf

@If ((@StrFind(@NifDir,"\\") >= 0) && (@StrLen(@NdisDDir) > 0))
  @b = @StrRFind(@NifDir,"\\")
  @If (@b >= 0)
    @NdisDriverDir  = "@StrHead(@NifDir,@b)\\@NdisDDir"
    @NdisDriverPath = "@NdisDriverDir\\@NdisDriverFile"
    @If (@Exists("@NdisDriverPath"))
      @NdisDriver = @StrToken(@NdisDriverFile,0,".")
      @Goto DRIVER_FOUND
    @EndIf
  @EndIf
@EndIf

DRIVER_SEARCH:
@NdisDriverPath = @FindFiles("@NdisPath\\@NdisDriverFile","R")
@NdisDriverPath = @StrToken(@NdisDriverPath,0)

@s1 = ""
@If(@Strlen(@NdisDriverPath) > 0)
  @b = @StrRFind(@NdisDriverPath,"\\")
  @If (@b >= 0)
    @NdisDriverDir = @StrHead(@NdisDriverPath,@b)
    @s1 = @StrMid(@NdisDriverPath,(@b+1),20)
  @Else
    @NdisDriverDir = @NdisPath
  @EndIf
@Else
  @NdisDriverDir = ""
  @PromptNdis = ">>> No NDIS driver was found in \"@NdisPath\".<<<"
  @Goto NDIS_DONE
@EndIf

@If ("@s1" != "@NdisDriverFile")
  @NdisDriverFile = @s1
  @NdisDriver     = @StrToken(@NdisDriverFile,0,".")
@EndIf

@If (!@Exists("@NdisDriverDir\\@NdisDriverFile"))
  @PromptNdis = ">>> NDIS driver \"@NdisDriverPath\" not found.<<<"
  @Goto NDIS_DONE
@EndIf

DRIVER_FOUND:
@If (@Exists("@NdisDriverDir\\@NdisProtocolFile"))
  @NdisProtocolDir = @NdisDriverDir
@Else
  @NdisProtocolDir = ""
  @s1 = @FindFiles("@NdisPath\\@NdisProtocolFile","R")
  @i = 0
  @k = @StrCount(@s1," ")
INI_LOOP:
  @s2 = @StrToken(@s1,@i)
  @If ((@StrFind("@s2","OS2") < 0)
       && (@Strlen(@FindText("@s2","OS2","I")) == 0))
    @b = @StrRFind(@s2,"\\")
    @If (@b >= 0)
      @i = @k
      @NdisProtocolDir = @StrHead(@s2,@b)
    @EndIf
  @EndIF
  @i = (@i + 1)
  @If (@i < @k) @Goto INI_LOOP @EndIf
@EndIf

@If (@Strlen(@NdisProtocolDir) <= 0)
  @PromptNdis = ">>> \"@NdisProtocolFile\" not found in @NdisPath <<<"
  @Goto NDIS_DONE
@EndIf


@PleaseWait("- Building NDIS driver PROTOCOL.INI file")

@AdapterNif  = "@NdisDriver_NIF"
@AdapterProg = "@NdisDriverFile"
@If (@Strlen(@NdisDriverTSR) > 0)
  @AdapterProg = "@AdapterProg~@NdisDriverTSR"
  @If (@Strlen(@NdisDriverArg) > 0)
    @AdapterProg = "@AdapterProg`@NdisDriverArg"
  @EndIf
@EndIf

@If (!@Exists("@NdisInstallPath")) @MkDir("@NdisInstallPath") @EndIf
@Copy("@NdisDriverPath","@NdisInstallPath")

@If (@Strlen(@NdisDriverTSR) > 0)
  @s1 = "@NdisDriverDir\\@NdisDriverTSR"
  @If (@Exists(@s1))
    @Copy("@s1","@NdisInstallPath")
  @Else
    @PromptNdis = ">>> \"@NdisDriverTSR\" not found in @NdisDriverDir <<<"
    @Goto NDIS_DONE
  @EndIf
@EndIf

@i = 0
@k = @StrCount(@NdisCopyFiles,"=")
COPY_LOOP:
  @s1 = @StrToken(@NdisCopyFiles,@i,"=")
  @Copy("@NifDir\\@s1","@NdisInstallPath")
  @i = (@i + 1)
  @If (@i < @k) @Goto COPY_LOOP @EndIf

@Copy("@NifPath","@NdisInstallPath")
@s1 = @StrToken(@NdisProtocolFile,0,".")
@FileAttr( "@NdisInstallPath\\@s1.*", "r-" )
@Copy("@NdisInstallPath\\@NdisProtocolFile","@NdisInstallPath\\@s1.SAV")
@ProtocolOrg = "@NdisInstallPath\\@s1.ORG"
@Copy("@NdisProtocolDir\\@NdisProtocolFile","@ProtocolOrg")

@If(@NdisSelected || @AexNdisSelected)
@s1 = "@NdisInstallPath\\@NdisProtocolFile"
@WRITE("@s1","wt", ";PROTOCOL.INI for @Name Version @Version\n")
@WRITE("@s1","at", ";------------ using @NdisTitle\n")
@WRITE("@s1","at", ";\n")
@WRITE("@s1","at", "[PROTMAN]\n")
@WRITE("@s1","at", "  DRIVERNAME = PROTMAN$\n")
@WRITE("@s1","at", "  DYNAMIC = YES\n")
@WRITE("@s1","at", "\n")
@WRITE("@s1","at", "\n")
@EndIf

@If (@JetSupport)
@s1 = "@NdisInstallPath\\@NdisProtocolFile"
@WRITE("@s1","at", "\n")
@WRITE("@s1","at", "[MS$DLC]\n")
@WRITE("@s1","at", "  Drivername=msdlc$\n")
@WRITE("@s1","at", "  bufqelements=128\n")
@WRITE("@s1","at", "  stations=7\n")
@WRITE("@s1","at", "  ;Change line below to swap=1 for token ring adapters\n")
@WRITE("@s1","at", "  swap=0\n")
@WRITE("@s1","at", "  ;Change line below to saps=<number of printer tasks>\n")
@WRITE("@s1","at", "  saps=7\n")
@WRITE("@s1","at", "  Bindings=@AdapterNif\n")
@WRITE("@s1","at", "\n")
@EndIf



@s2 = @FindLines("@ProtocolOrg","",1,100,"D~")
@If (@Strlen(@s2) <= 0)
  @PromptNdis = ">>> '@NdisProtocolFile' was empty.<<<"
  @Goto NDIS_DONE
@EndIf

@If (@StrLen(@GetINI("@AdapterNif","DriverName","@ProtocolOrg")) > 0)
  @HeaderFixed = @True
@Else
  @HeaderFixed = @False
@EndIf

@i = 0
@k = @StrCount(@s2,"~")
PROT_LOOP:
  @s3 = @StrToken(@s2,@i,"~")
  @s4 = @StrToken(@s3,0)
  @If (@HeaderFixed)
    @WRITE("@s1","at", "@s3\n")
  @ElseIf ((@Strlen(@s3) <= 0) || ("@StrHead(@s4,1)" == ";"))
    @WRITE("@s1","at", "@s3\n")
  @Else
    @WRITE("@s1","at", "[@AdapterNif]\n")
    @If ("@StrHead(@s4,1)" == "[")
    @Else
      @WRITE("@s1","at", "@s3\n")
    @EndIf
    @HeaderFixed = @True
  @EndIf
  @i = (@i + 1)
  @If (@i < @k) @Goto PROT_LOOP @EndIf
PROT_DONE:

@s7 = @GetINI("@AdapterNif","DriverName", "@s1")
@If ("@s7" == "@NdisDriver$") @Goto NDIS_OK @EndIf
@i = 0
@s6 = ""
PROT1_LOOP:
  @s3 = @StrToken(@s2,@i,"~")
  @s4 = @StrTrim("@StrConvert("@s3","UC")")
  @s5 = @StrToken("x@s4",1,"[")
  @s5 = @StrTrim("@StrToken("@s5",0,"]")")
  @If (@StrLen(@s5) > 0) @s6 = @s5 @EndIf
  @If ((@StrFind("@s4","DRIVERNAME") >= 0) && (@StrFind("@s4","@NdisDriver") >= 0))
    @If (@Strlen(@s6) > 0)
      @s5 = @GetINI("@s6","DriverName","@s1")
      @If ("@s5" == "@NdisDriver$")
	@AdapterNif = @s6
	@Goto NDIS_OK
      @EndIf
    @EndIf
  @EndIf
  @i = (@i + 1)
  @If (@i < @k) @Goto PROT1_LOOP @EndIf

@If (@StrLen(@s7) > 0) @Goto NDIS_OK @EndIf

@ScrnTitle = " Error"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
PROT_BAD:
@Display
   @Cls
   @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
   Cannot build a proper '@NdisProtocolFile'.
   Continue with the installation.  When
   you have finished, consult the NDIS on-line
   documentation for suggestions or call Artisoft
   Technical Support for assistance.
   @FlushKeyboard() @Pause
@EndDisplay

NDIS_OK:
@NdisOK = @True
@If (@Strlen(@NdisTitle) > 0)
  @AdapterName = "(NDIS) @NdisTitle"
  @If (@StrLen(@AdapterName) > 40)
    @AdapterName = "@StrHead(@AdapterName,40)..."
  @EndIf
@EndIf

NDIS_DONE:


@AdapterSel = "\"@AdapterName\",NDIS,\"@AdapterNif\",\"@NifFile\""
@Write("@NdisInstallPath\\adapter.sel","wt", "@AdapterSel")
@Copy("@SupportPath\\Dinstgui.exe","@NdisInstallPath")
@Copy("@SupportPath\\Dinstgui.hlp","@NdisInstallPath")
@Chdir("@NdisInstallPath")
@Spawn("dinstgui.exe",1)
@If (@Exists("@NdisInstallPath\\Dinst.out"))
  @Chdir(@InstallPath)
@Else
  @Chdrive(@ScriptDrive)
  @Chdir(@ScriptPath)
  @Exit
@EndIf




@s1 = "" @s2 = "" @s3 = "" @s4 = ""
@s5 = "" @s6 = "" @s7 = ""



@If (!@NdisOK) @Goto NDIS_PATH @EndIf

@PromptNdis = ""



ADAPTERS_DONE:
@ScrnTitle = " Change Disk"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@If ((@Strlen("@LibName") > 0) && !@Exists("@LibName"))
  @Display
    @Cls
    @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

    Replace the @Name installation
    diskette labeled  "Disk 1 of @NumDisks"  into Drive @ScriptDrive:
    @FlushKeyboard() @Pause
  @EndDisplay
  @Goto ADAPTERS_DONE
@EndIf

@If (@FromFloppy) @IgnoreDiskID = @False @EndIf

@If (@ExtractMode)
  @PleaseWait("- Preparing to extract files")
  @Goto FINISH_INSTALL
@EndIf



CONTINUE_2:

@s1 = ""  @s2 = ""
@If ("@DriveLetter1" != "") @s1 = "Drive @DriveLetter1:       will be connected to  \"@DriveName1\"  on  \"@DriveServer1\"" @EndIf
@If ("@DriveLetter2" != "") @s2 = "Drive @DriveLetter2:       will be connected to  \"@DriveName2\"  on  \"@DriveServer2\"" @EndIf

@s3 = "" @s4 = ""  @s5 = ""
@If (@Share)
 @If ("@PrintPort1" == "")
   @If (@Lpt(1))
     @PrintPort1   = "LPT1"
     @PrintServer1 = @ComputerName
     @PrintName1   = "@AtSign@!PRINTER"
     @If (@ToHard) @s5 = "\"@PrintName1\" on @your computer" @EndIf
   @EndIf
 @Else
  @If ("@PrintServer1" == "@ComputerName")
    @s5 = "\"@PrintName1\" on @your computer"
  @EndIf
 @EndIf
@EndIf

@If ("@PrintPort1" != "" && @Share)
  @If ("@s5" == "" ) @s5 = "\"@PrintName1\"  on  \"@PrintServer1\"" @EndIf
  @s3 = "Your printer @s5 will be connected to @PrintPort1"
@EndIf
@If ("@PrintPort2" != "")
  @s5 = "\"@PrintName2\"  on  \"@PrintServer2\""
  @s4 = "Printer @PrintPort2   will be connected to  @s5"
@EndIf

@If (@KeepInstall)
  @s1 = "" @s2 = "" @s3 = "" @s4 = ""
  @If (@Share)
    @s3 = "Control Directory for @ComputerName upgrade is @SharePath"
  @EndIf
@EndIf

@s5 = "DOS"

@ClearOption(11)
@ClearOption(12)
@ClearOption(13)


@HelpText @HelpTitle = "Summary Help" @LocalWindow(10,40)

Check the displayed information to make sure all settings
are correct. If they are, select OK to perform the
installation. If you need to make changes, select the Go
back option. You'll be returned to the beginning of the
installation. Setup remembers your selections, so you can
accept the defaults until you reach the screen(s) that
have changes. Make the changes, then continue to accept
the defaults until you reach the Summary screen.

Review the information again. If all settings are correct,
select OK to perform the installation.

@EndHelpText


@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,20,0,23,40) @FlushKeyboard()
@ScrnTitle = " Summary"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption @Prompt = "@Name Final Information Check" @HelpTextActive
 @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
@LOCALWINDOW(21,40)
 You have specified the following @Name installation information:

 Installation Drive:      @OutDrive:       @Options0
 Installation Directory:  @InstallDir
 Computer Name:           @ComputerName
 Share Drives @AndSign Printers:@If (!@Share) NO @Else YES@!@If (@NewInstall) - Allow @Logins Connections @EndIf @EndIf
 Network Adapter:         @StrToken("@AdapterName",0,",")
                          @StrToken("@AdapterProg",1," ") @StrToken("@AdapterProg",2," ") @StrToken("@AdapterProg",3," ") @StrToken("@AdapterProg",4," ")
@If (@JetSupport || @MShareEnabled) Options:                 @Options3
			    @Options1
                          @Options2
@Else
 Additional Options:      @Options1
			  @Options2
                    @Options3  @EndIf
 @s1
 @s2
 @s3
 @s4
  @Option 11 = "OK to perform the installation"
  @Option 12 = "Go back to start of install & re-enter information"

@EndOption

@If     (12  [= @Option)
    @InfFileMode = @False
    @Goto COMPUTER_NAME
@EndIf



PROMPTS_DONE:

@If (@InstallMode) @Goto FINISH_INSTALL @EndIf

@BackgroundMode(3,@Red,@Red)
@Display
  @Cls
  Unexpected termination of @Name Installation Program.
  Please report to Artisoft.
  @FlushKeyboard() @Pause
  @Abort
@EndDisplay


FINISH_INSTALL:
@If (!@ToFloppy) @Goto DISK_OK @EndIf

TEST_FLOPPY:

@If (@DiskFree(@OutDrive) < 0)

@ScrnTitle = " Insert Disk"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @Display
    @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

    Place a formatted floppy diskette
    into Drive @OutDrive to receive the @Name files..
    @FlushKeyboard() @Pause
  @EndDisplay
  @Goto TEST_FLOPPY
@EndIf

@MakeDiskId = @False

DISK_OK:

@PleaseWait()

@EnvLanCfg    = "@ExecutePath"
@EnvLanDir    = "@XSharePath"


@If (@ExtractMode)
  @BackgroundMode(3,@WinColor,@Black)
@ScrnTitle = " Extract Files"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @Display
    @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

    FILE  EXTRACTION
    @Underline20

    @Name @Registered Version @Version files will
    be extracted to @InstallPath.
    @FlushKeyboard() @Pause
  @EndDisplay

  @BackgroundMode(3,@WinColor,@Blue)
  @PleaseWait()
  @Goto FINISH_FILES
@EndIf

@If (!@InstallMode) @Goto FINISH_FILES @EndIf

@If (@ChangeSystemFiles)
  @ConfigChanged   = @True
  @AutoexecChanged = @True
  @StartNetChanged = @True
@EndIf


@ProtocolIniChanged = (@NdisSelected || @AexNdisSelected)

@If (@ToFloppy || @ToNetwork)
  @NewBootDrive = @OutDrive
  @Config = "@OutDrive:@StrMid(@Config,2,50)"
  @Autoexec = "@OutDrive:@StrMid(@Autoexec,2,50)"
@EndIf

@i = 0
@s1 = @StrToken(@Config,0,".")
@s2 = "@WindowsPath\\WIN"
EXISTS_LOOP:
   @If (@i > 50) @Goto EXISTS_DONE @EndIf
   @i = (@i + 1)
   @Ext = @StrTail("000@i", 3)
   @If (@Exists("@s1.@Ext")) @Goto EXISTS_LOOP
   @ElseIf (@ToHard)
     @If (@Exists("@s2.@Ext")) @Goto EXISTS_LOOP @EndIf
   @EndIf
EXISTS_DONE:

@If (!@Exists("@InstallPath")) @MkDir("@InstallPath") @EndIf

@SetConfig  @Terse
  @If (@ConfigChanged) @Overwrite
  @Else @DiskProtoAll @EndIf
  @LastDrive = Z
  @Buffers = 30
  @If (@Share)
    @Files = 200
  @Else
    @Files = 60
  @EndIf
@EndConfig



@If ("@FindText("@AutoExec","SHARE","I")@FindText("@Config","SHARE","I")" != "")
  @ShareExe = @True
@Endif

@If ("@FindText("@AutoExec","QEMM","I")@FindText("@Config","QEMM","I")" != "")
   @Qemm = @True
@Endif


@s1 = "@Call@ExecutePath\\STARTNET.BAT"

@SetAutoExec  @Terse
  @If (@AutoexecChanged) @Overwrite
  @Else @DiskProtoAll @EndIf
  @If ("@FindText("@AutoExec","STARTNET","IW")" != "")
    @Verbatim("@s1","STARTNET",0)
  @ElseIf ("@FindText("@AutoExec","MSCDEX","IW")" != "")
    @Verbatim("@s1","MSCDEX",1)
  @Else
    @Verbatim("@s1","WIN",1)
  @EndIf
@EndAutoExec


@If (@NdisSelected || @AexNdisSelected || (@NcpEnabled && @SmbEnabled))
  @SetConfig  @Terse
    @If (@ConfigChanged) @Overwrite
    @Else @DiskProtoAll @EndIf
    @Device = "@ExecutePath\\@ProtmanProg /I:@ExecutePath"
    @If ((@NdisSelected || @AexNdisSelected) && !@NcpEnabled)
      @Device = "@ExecutePath\\@AdapterProg"
    @EndIf
  @EndConfig
@EndIf


@If (@ConfigChanged)
  @SysDrive = "@BootDrive"  @SysDir = ""  @SysFile = "CONFIG"
  @s1 = "@SysDrive:@SysDir\\@SysFile.SYS" @s2 = "@SysDrive:@SysDir\\@SysFile.@Ext"
  @If (@Exists("@s1")) @ConfigMsg = "@old @s1 ---> @s2" @EndIf
  @Copy( "@s1", "@s2")
@EndIf

@If (@AutoExecChanged)
  @SysDrive = "@BootDrive"  @SysDir = ""  @SysFile = "AUTOEXEC"
  @s1 = "@SysDrive:@SysDir\\@SysFile.BAT" @s2 = "@SysDrive:@SysDir\\@SysFile.@Ext"
  @If (@Exists("@s1")) @AutoExecMsg = "@old @s1 ---> @s2" @EndIf
  @Copy( "@s1", "@s2")
@EndIf

@If (@StartNetChanged)
  @SysFile = "STARTNET"
  @s1 = "@InstallPath\\@SysFile.BAT" @s2 = "@InstallPath\\@SysFile.@Ext"
  @If (@Exists("@s1")) @StartnetMsg = "@old @s1 ---> @s2" @EndIf
  @Copy( "@s1", "@s2")
  @StartPath = @s1
@Else
  @StartPath = "@InstallPath\\STARTNET.NEW"
@EndIf


@Sessions = (@Logouts + @Logins + @LinkExtra)
@Ncbs     = (12 + @LinkExtra)

@If (@Share)
  @Ncbs = (@Ncbs + @Logins + 12)
  @Sessions = (@Sessions + 3)
@EndIf

@RxBuffers = 4
@ParamFile = "STARTNET.CFG"
@ParamPath = "@InstallPath\\@ParamFile"
@LoginParam = "@AtSign@ParamFile"
@NetbiosParam = "@AtSign@ParamFile"
@ShareArgs = "/L:100"

@If ((@OSmajor < 5) || (@CPU < 386) || (@EXTTotal < 100) || @Qemm || !@ToHard)
   @Loadhigh  = ""
@Else
   @Loadhigh  = "LOADHIGH "
@EndIf


@BackgroundMode(3,@WinColor,@Black)

@If (@KeepInstall)
@ScrnTitle = " Upgrade Information"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
  @Display
   @Cls @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

   Proceed with the Upgrade Installation of @Name Version @Version

   New @Name files will now be placed on your computer in
   @InstallPath.  Your original @Name startup commands
   contained in AUTOEXEC.BAT or STARTNET.BAT will be
   retained and the accounts and resources contained in the
   control  directory at @SharePath will be unchanged.
   @If (@InstallServices)
   >> You selected "Installation Services", so a new INSTALL disk
	resource will be added. @EndIf
     @If (@NdisSelected || @AexNdisSelected)
   >> You installed an NDIS adapter driver.  You may need to make changes to
	your startup. (See CONFIG.NEW and STARTNET.NEW) @EndIf @If (@NcpEnabled)
   >> To enable connecting to a Novell@Registered server, you need to make
	changes to your startup. (See STARTNET.NEW and STARTNET.CFG) @EndIf @If (@SmbEnabled)
   >> To enable connecting to a Microsoft@Registered server, you need to make
	changes to your startup. (See STARTNET.NEW and STARTNET.CFG) @EndIf

	 @FlushKeyboard() @Pause
  @EndDisplay
  @Goto END_CONFIG
@EndIf

@If (@ToHard && @ChangeSystemFiles)
  @s9 = "Notes on @your Computer's Changed Configuration"
  @s10 = "computer"
  @s8 = "The"
  @s2 = "whenever you turn the computer on"
  @s5 = " Files will be saved with the following names:"
  @s3 = ""
@ElseIf (@ToFloppy)
  @s9 = "  Notes on Your Floppy Configuration..."
  @s10 = "floppy diskette"
  @s8 = "The"
  @s2 = "if you boot from this floppy"
@Else
  @If (@ToNetwork) @s4 = "network"
  @ElseIf (@ToHard) @s4 = "hard"
  @Else @s4 = "STRANGE" @EndIf

  @s9 = "  How to Finish @your Computer's Configuration..."
  @s10 = "computer"
  @s8 = "A sample"
  @s2 = "once you have made it part of @your boot sequence"
  @s5 = "You are installing to a @s4 drive.  You will need to complete"
  @s3 = "setting up @Name with an editor after this installation is done.\n"

  @AutoExecMsg = "Add 'CALL STARTNET.BAT' to @your AUTOEXEC.BAT."
  @ConfigMsg   = "See @BootDrive:\\CONFIG.NEW for CONFIG.SYS changes."
  @StartNetMsg = "Merge STARTNET.NEW with your STARTNET.BAT."
@EndIf

@ScrnTitle = " Finishing Up"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@Display
 @Cls
 @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
 @s9

 @s8 @Name startup batch file -- @StartPath --
 will be placed on @your @s10.  This will make @Name run
 automatically @s2.
@If (!@ToFloppy)
 @s5
 @s3
     @AutoExecMsg
     @ConfigMsg
     @StartNetMsg
     @ProtocolIniMsg
  @EndIf
     @FlushKeyboard() @Pause
@EndDisplay


END_CONFIG:

@PleaseWait()


@BackgroundMode(3,@Red,@Blue)

@s1 = ""
@s2 = ""
@s3 = ""
@s4 = ""
@s5 = ""
@s6 = ""


@x1 = "@SharePath\\SYSTEM.NET\\ACCOUNTS"

@If (@NewInstall)
  @InitControlArg = "@InitControlArg -x@Logins"
  @If (@Exists(@x1))
    @If (@FileSize(@x1) < 128)
      @Delete(@x1,"os")
    @EndIf
  @Else
    @InitControlArg = "@InitControlArg -A"
  @EndIf
@Else
  @If (@Exists(@x1))
    @If (@FileSize(@x1) < 128)
      @Delete(@x1,"os")
    @EndIf
  @EndIf
@EndIf


@If (@InstallServices)
  @InitControlArg = "@InitControlArg -inINSTALL"
@EndIf

@If (@DebugMode)
  @InitControlArg = "@InitControlArg -D"
@EndIf

@s7 = "@InstallPath\\@InitControlProg"
@s8 = "@InstallPath\\@InitControlProg -n@ComputerName -c@EnvLanDir -p@ExecutePath @InitControlArg"


@SetPath     = "@InstallPath\\SETNET.BAT"
@SamplePath  = "@InstallPath\\SAMPLE.INF"
@ModemPath   = "@InstallPath\\MODEM.BAT"
@ConnectPath = "@ExecutePath\\CONNECT.BAT"

@AdapterProgX = @StrToken(@AdapterProg,1,"~")
@AdapterProg  = @StrToken(@AdapterProg,0,"~")

@AdapterArgs  = @StrToken(@AdapterProg,1,"`")
@AdapterArgsX = @StrToken(@AdapterProgX,1,"`")

@If (@KeepInstall) @action = "upgrade" @Else @action = "installation" @EndIf


FINISH_FILES:


@If (@NcpEnabled)
  @NetCFGFile = "@InstallPath\\net.cfg"
  @WRITE("@NetCFGFile","wt", "PROTOCOL ODINSUP\n")
  @WRITE("@NetCFGFile","at", "  BUFFERED\n")
  @WRITE("@NetCFGFile","at", "\n")
  @WRITE("@NetCFGFile","at", "PROTOCOL IPX\n")
  @If (@NcpEnabled == 1)@WRITE("@NetCFGFile","at", "  BIND #4\n")@EndIf
  @If (@NcpEnabled == 2)@WRITE("@NetCFGFile","at", "  BIND #2\n")@EndIf
  @WRITE("@NetCFGFile","at", "\n")
  @WRITE("@NetCFGFile","at", "PROTOCOL AI-ODI\n")
  @WRITE("@NetCFGFile","at", "  BIND #1\n")
  @WRITE("@NetCFGFile","at", "\n")
  @If (@NodeRunner) @WRITE("@NetCFGFile","at", "LINK DRIVER NRODI\n")@EndIf
  @If (@NodeRunnerPro) @WRITE("@NetCFGFile","at", "LINK DRIVER EPROODI\n")@EndIf
  @WRITE("@NetCFGFile","at", "  FRAME ETHERNET_II\n")
  @WRITE("@NetCFGFile","at", "  FRAME ETHERNET_802.2\n")
  @WRITE("@NetCFGFile","at", "  FRAME ETHERNET_SNAP\n")
  @WRITE("@NetCFGFile","at", "  FRAME ETHERNET_802.3\n")
@EndIf


@Copy("@RedirTempPath\\@RedirProg", "@InstallPath")



@SetOption(131) @SetOption(139) @SetOption(132) @SetOption(133) @SetOption(134)
@SetOption(136) @SetOption(148) @SetOption(149) @SetOption(150) @SetOption(151)
@SetOption(152) @SetOption(153) @SetOption(154) @SetOption(155) @SetOption(156)
@SetOption(158) @SetOption(140) @SetOption(141) @SetOption(160) @SetOption(180)


@SetConfig  @Terse
  @If (@ConfigChanged) @Overwrite
  @Else @DiskProtoAll @EndIf
  @LastDrive = Z
@EndConfig

FILES:

@If (@NoFilesMode) @Goto ENDFILES @EndIf

@If (@HighDensity)

 @If (@InstallServices) @FileAttr( "@InstallPath\\INSTALL\\*.*", "r-" ) @EndIf

@DefineDisk
  @Label = "Disk 1 of 7"
  @File DISK1.ID        @Size     50 @Out INSTALL\*.* @Option 112
  @File INS0762.LIB     @Size     50 @Out INSTALL\*.* @Option 112
  @File README.TXT      @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP.PKG       @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP.INI       @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP.LGO       @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP.BMP       @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP.EXE       @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP16.EXE     @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP16.INS     @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP32.EXE     @Size     50 @Out INSTALL\*.* @Option 112
  @File SETUP32.INS     @Size     50 @Out INSTALL\*.* @Option 112
  @File _INST32I.EX_    @Size     50 @Out INSTALL\*.* @Option 112
  @File _ISDEL.EXE      @Size     50 @Out INSTALL\*.* @Option 112
  @File _SETUP.LIB      @Size     50 @Out INSTALL\*.* @Option 112
  @File _SETUP.DLL      @Size     50 @Out INSTALL\*.* @Option 112
@EndDisk

@DefineDisk
  @Label = "Disk 2 of 7"
  @File DISK2.ID        @Size     50 @Out INSTALL\*.* @Option 112
  @File INSLIB32.1      @Size     50 @Out INSTALL\*.* @Option 112
@EndDisk

@DefineDisk
  @Label = "Disk 3 of 7"
  @File DISK3.ID        @Size     50 @Out INSTALL\*.* @Option 112
  @File INSLIB32.2      @Size     50 @Out INSTALL\*.* @Option 112
@EndDisk

@DefineDisk
  @Label = "Disk 4 of 7"
  @File DISK4.ID        @Size     50 @Out INSTALL\*.* @Option 112
  @File LANTASTI.1      @Size     50 @Out INSTALL\*.* @Option 112
@EndDisk

@DefineDisk
  @Label = "Disk 5 of 7"
  @File DISK5.ID        @Size     50 @Out INSTALL\*.* @Option 112
  @File LANTASTI.2      @Size     50 @Out INSTALL\*.* @Option 112
@EndDisk

@DefineDisk
  @Label = "Disk 6 of 7"

  @File INSTALL.EXE  @Size 436000 @Out INSTALL\*.* @Option 112
  @File INSTALL.DAT  @Size 184000 @Out INSTALL\*.* @Option 112
  @File DISK6.ID     @Size     50 @Out INSTALL\*.* @Option 112
  @File NOS70.001    @Size 626000 @Out INSTALL\*.* @Option 112
  @File SUPPORT.EXE  @Size 626000 @Out INSTALL\*.* @Option 112

  @BeginLib NOS70.001
    @File SERVER.EXE    @Size 185655 @Out *.* @Option 111
    @File NET.EXE       @Size 20602  @Out *.* @Option 113
    @File NET.MNU       @Size 86774  @Out *.* @Option 113
    @File NET.HLP       @Size 90727  @Out *.* @Option 113
    @File NET_MGR.EXE   @Size 18780  @Out *.* @Option 111
    @File NET_MGR.MNU   @Size 138470 @Out *.* @Option 111
    @File NET_MGR.HLP   @Size 109913 @Out *.* @Option 111
    @File MKIMG.EXE     @Size 109913 @Out *.* @Option 111
    @File MDM_MGR.EXE   @Size 18780  @Out *.* @Option 320
    @File MDM_MGR.HLP   @Size 109913 @Out *.* @Option 320
    @File ALONE.EXE     @Size 33759  @Out *.* @Option 111
    @File ALONE.HLP     @Size 9957   @Out *.* @Option 111
    @File BOOT.IMD      @Size 41     @Out *.* @Option 111
    @File IBMBOOT.TYP   @Size 126    @Out *.* @Option 111
    @File FFRPL.TYP     @Size 121    @Out *.* @Option 111
    @File FFRPL.EXE     @Size 7547   @Out *.* @Option 111
    @File FFRAMRPL.BSD  @Size 80     @Out *.* @Option 111
    @File FFRAMRPL.BST  @Size 1088   @Out *.* @Option 111
    @File FFIBMRPL.BSD  @Size 80     @Out *.* @Option 111
    @File FFIBMRPL.BST  @Size 1088   @Out *.* @Option 111
    @File AILANBIO.EXE  @Size 21863  @Out *.* @Option 113
    @File RPS.EXE       @Size 22909  @Out *.* @Option 110
    @File UPS.EXE       @Size 6303   @Out *.* @Option 110
    @File MODEM.CFG     @Size 28622  @Out *.* @Option 110
    @File NBSETUP.EXE   @Size 5399   @Out *.* @Option 110
    @File LANCACHE.EXE  @Size 18663  @Out *.* @Option 110
    @File LANCHECK.EXE  @Size 30197  @Out *.* @Option 110
    @File LANCHECK.HLP  @Size 9652   @Out *.* @Option 110
    @File INITCTL.EXE   @Size 33842  @Out *.* @Option 111
    @File LED.HLP       @Size 18275  @Out *.* @Option 110
    @File LED.EXE       @Size 85558  @Out *.* @Option 110
 @EndLib
@EndDisk

@DefineDisk
  @Label = "Disk 7 of 7"

  @File DISK7.ID        @Size     50 @Out INSTALL\*.* @Option 112
  @File NOS70.002       @Size 286927 @Out INSTALL\*.* @Option 112

  @BeginLib NOS70.002

    @File LCONFIG.EXE   @Size 85558  @Out *.* @Option 110
    @File NRSETUP.EXE   @Size 34507  @Out *.* @Option 131
    @File NRSETUP.HLP   @Size 10680  @Out *.* @Option 131
    @File NRMOVE.EXE    @Size 3839   @Out *.* @Option 131
    @File NR.EXE        @Size 11691  @Out *.* @Option 131
    @File NPRO.EXE      @Size 11691  @Out *.* @Option 139
    @File NE3.EXE       @Size 8641   @Out *.* @Option 132
    @File AE2.EXE       @Size 10925  @Out *.* @Option 133
    @File AEX.EXE       @Size 10925  @Out *.* @Option 134
    @File MPORT.EXE     @Size 25582  @Out *.* @Option 136
    @File LDU-MGR.EXE   @Size 37399  @Out *.* @Option 136
    @File LDU-MGR.HLP   @Size 18637  @Out *.* @Option 136
    @File MSERVER.EXE   @Size 77209  @Out *.* @Option 320
    @File MCLIENT.EXE   @Size 82329  @Out *.* @Option 320
    @File MLCLIENT.EXE  @Size 64168  @Out *.* @Option 320
    @File SERVER.CON    @Size 77209  @Out *.* @Option 320
    @File CLIENT.CON    @Size 77209  @Out *.* @Option 320
    @File TERMTEST.EXE  @Size 77209  @Out *.* @Option 320
    @File MONITOR.EXE   @Size 77209  @Out *.* @Option 320
    @File 3C503MM.DOC   @Size 13484  @Out *.* @Option 148
    @File 3C503MM.EXE   @Size 9093   @Out *.* @Option 148
    @File 3COM507.DOC   @Size 12930  @Out *.* @Option 149
    @File 3COM507.EXE   @Size 9257   @Out *.* @Option 149
    @File 3COM523.DOC   @Size 12874  @Out *.* @Option 150
    @File 3COM523.EXE   @Size 9113   @Out *.* @Option 150
    @File ARCNET.DOC    @Size 15635  @Out *.* @Option 151
    @File ARCNET.EXE    @Size 7989   @Out *.* @Option 151
    @File NEX000.DOC    @Size 18689  @Out *.* @Option 152
    @File NEX000.EXE    @Size 9805   @Out *.* @Option 152
    @File PATCC.COM     @Size 9116   @Out *.* @Option 153
    @File PATCC.DOC     @Size 12703  @Out *.* @Option 153
    @File PE.DOC        @Size 14389  @Out *.* @Option 154
    @File PE.EXE        @Size 16594  @Out *.* @Option 154
    @File SMCARC.DOC    @Size 15301  @Out *.* @Option 155
    @File SMCARC.EXE    @Size 8097   @Out *.* @Option 155
    @File TCARC.DOC     @Size 13807  @Out *.* @Option 156
    @File TCARC.EXE     @Size 7979   @Out *.* @Option 156
    @File WD8003.DOC    @Size 18099  @Out *.* @Option 158
    @File WD8003.EXE    @Size 9701   @Out *.* @Option 158
    @File AI-NDIS.EXE   @Size 9853   @Out *.* @Option 140
    @File PROTMAN.DOS   @Size 13352  @Out *.* @Option 140
    @File PROTMAN.EXE   @Size 14010  @Out *.* @Option 140
    @File NETBIND.COM   @Size 7985   @Out *.* @Option 140
    @File TOKROUTE.EXE  @Size 5899   @Out *.* @Option 140
    @File MSDLC.EXE     @Size 7985   @Out *.* @Option 140
    @File NETBEUI.EXE   @Size 5899   @Out *.* @Option 140
    @File AEXNDIS.DOS   @Size 6309   @Out *.* @Option 141
    @File AEXNDIS.NIF   @Size 1502   @Out *.* @Option 141
    @File EPRO.DOS      @Size 6309   @Out *.* @Option 160
    @File EPRODOS.NIF   @Size 1502   @Out *.* @Option 160
    @File IPXODI.COM    @Size 30051  @Out *.* @Option 180
    @File LSL.COM       @Size 18432  @Out *.* @Option 180
    @File NRODI.COM     @Size 20937  @Out *.* @Option 180
    @File ODINSUP.COM   @Size 33515  @Out *.* @Option 180
    @File EPROODI.COM   @Size 20937  @Out *.* @Option 180
    @File AI-ODI.EXE    @Size 33515  @Out *.* @Option 180
    @File NET.NEW       @Size  2000  @Out *.* @Option 110
    @File REGDOS.EXE    @Size 312144 @Out *.* @Option 110
    @File MAILFORM.CTL  @Size  2433  @Out *.* @Option 110
    @File REGPRINT.CTL  @Size  2152  @Out *.* @Option 110
    @File SLIDE.INF     @Size  2439  @Out *.* @Option 110
    @File PIPEDLG.DAT   @Size    26  @Out *.* @Option 110
    @File PIPELINE.INI  @Size  4707  @Out *.* @Option 110
    @File LED.DHP       @Size 48954  @Out *.* @Option 110
    @File EXAMPLES.TXT  @Size 48954  @Out *.* @Option 110
    @File PROTOCOL.NEW  @Size  2000  @Out *.* @Option 110
    @File PROTOCOL.INI  @Size  2000  @Out *.* @Option 142
  @EndLib
@EndDisk
@EndIf

ENDFILES:


FINISH_BLOCK:

@LicensePath = @InstallPath
@If (@ExtractMode || @ToFloppy)
  @LicensePath = @ScriptPath
@Else
  @InstallProg = "LANSETUP.EXE"
@EndIf




@SetBatch @BatchFile = "@Config" @OverWrite @Terse
 @Verbatim("rem  ","IFSHLP.SYS",13)
@EndBatch



@Clearoption(12)
@ClearOption(11)

@ScrnTitle = " Permanent Connections"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@GetOption
   @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
     @LOCALWINDOW(15,40)

   Once @name is completely installed you can make permanent
   connections to other drives and printers on the network.

   Temporary connections can be made at any time, but permanent
   connections are automatically established each time you start
   your computer.

   Setup permanent connections after restart?

   @Option 12 = "YES"
   @Option 11 = "NO"
@EndOption

@If (12  [= @Option)  @PermConnect = @True
@Else @PermConnect = @False
@EndIf

@BackgroundMode(3,@WinColor,@Black)
@DlgCtrlSize(0,12,2,13,30) @FlushKeyboard()

@ScrnTitle = " Finished"
@DosHeadingText = "@StrDel("@ScrnTitle@ScrnTitle2",@Strlen("@ScrnTitle")+1,@Strlen("@ScrnTitle"))@Name@Registered  @Version  Installation "
@Display
 @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)
@EndDisplay


@Finish

@Goto DCHECK1
DCHECK:
@If (@False)
DCHECK1:
@EndIf

@If ( (@ExtractMode || @ToFloppy)
   && ((111 [= @Option) || (113 [= @Option)) )
  @If ((@Strlen("@LibName") > 0) && !@Exists("@LibName"))
    @Cls
    @MoveCStr(@DosHeadingRow,@DosHeadingCol,@DosHeadingColor,@DosHeadingText)

    Replace the @Name installation
    diskette labeled  "Disk 1 of @NumDisks"  into Drive @ScriptDrive:
    @FlushKeyboard() @Pause
    @Goto DCHECK
  @EndIf
@EndIf

@PleaseWait("- @fin")
@Cls @fin..
@If (@ExtractMode)
  @If (@InstallServices)
    @If (@FileAttr( "@InstallPath\\INSTALL\\*.*", "r+" )) @EndIf
  @EndIf

  @If (@BackgroundMode(3,@Green,@Black)) @EndIf
  @Cls @MoveCStr(@DosHeadingRow,(@DosHeadingCol1),@DosHeadingColor,@DosHeadingText)

  FILE  EXTRACTION  COMPLETE
  @Underline40

  @Name @Registered Version @Version files have
  been successfully extracted to @InstallPath.
  @FlushKeyboard() @Pause
  @ChDrive( @StartupDrive )
  @ChDir( "@StartupDir" )
  @Exit
@EndIf

 @If (@BackgroundMode(3,@Blue,@Black)) @EndIf


@Cls @Fin....
@If (@MShareEnabled)
  @WRITE("@ModemPath","wt", "REM - ====================================== \n")
  @WRITE("@ModemPath","at", "REM - Batch file to startup Modem Sharing\n")
  @WRITE("@ModemPath","at", "REM - ====================================== \n")
  @WRITE("@ModemPath","at", "@Echo off \n")
  @WRITE("@ModemPath","at", ":start_mdmshare\n")
  @WRITE("@ModemPath","at", "@LoadHigh@!mserver @InstallPath\\server.con\n")
  @WRITE("@ModemPath","at", "if errorlevel 1 goto client_mdmshare\n")
  @WRITE("@ModemPath","at", "@LoadHigh@!mlclient @InstallPath\\client.con\n")
  @WRITE("@ModemPath","at", "goto done_mdmshare\n")
  @WRITE("@ModemPath","at", ":client_mdmshare\n")
  @WRITE("@ModemPath","at", "@LoadHigh@!mclient @InstallPath\\client.con\n")
  @WRITE("@ModemPath","at", ":done_mdmshare\n")
@EndIf


@Cls @Fin......

 @If (@FileAttr( "@SamplePath", "r-" )) @EndIf
 @WRITE("@SamplePath","wt", ";* @SamplePath --- @Name INSTALL automated response file\n")
 @WRITE("@SamplePath","at", ";* ----- Run 'INSTALL /INF' or see documentation.\n")
 @WRITE("@SamplePath","at", ";* ----- (Using DOS INSTALL)\n")
 @WRITE("@SamplePath","at", "\n[@Name]\n")
 @WRITE("@SamplePath","at", "Mode=Fast\n")
 @WRITE("@SamplePath","at", "ComputerName=@ComputerName\n")
 @WRITE("@SamplePath","at", "InstallPath=@InstallPath\n")
 @If ("@InstallPath" != "@ExecutePath")
   @WRITE("@SamplePath","at", "ExecutePath=@ExecutePath\n")
 @EndIf
 @If (@Share)
   @WRITE("@SamplePath","at", "Share=yes\n")
 @Else
   @WRITE("@SamplePath","at", "Share=no\n")
 @EndIf
 @WRITE("@SamplePath","at", "Logouts=@Logouts\n")
 @WRITE("@SamplePath","at", "Logins=@Logins\n")
@Cls @Fin........
 @If (@TCPEnabled)
   @WRITE("@SamplePath","at", "TCPIP=yes\n")
 @EndIf
 @If (@NcpEnabled)
   @WRITE("@SamplePath","at", "Ncp=yes\n")
 @EndIf
 @If (@SmbEnabled)
   @WRITE("@SamplePath","at", "Smb=yes\n")
 @EndIf
 @If (@JetSupport)
   @WRITE("@SamplePath","at", "JetDirect=yes\n")
 @EndIf
 @If (@MShareEnabled)
   @WRITE("@SamplePath","at", "ModemSharing=yes\n")
 @Endif
 @If (@ModemServerEnabled)
   @WRITE("@SamplePath","at", "ModemServer=yes\n")
   @WRITE("@SamplePath","at", "IRQNum=@IRQNum\n")
   @WRITE("@SamplePath","at", "IOAddress=@IOAddress\n")
 @EndIf
@Cls @Fin..........
@If (@InstallServices)
   @WRITE("@SamplePath","at", "InstallServices=yes\n")
 @EndIf
 @If (@SetConnect)
   @WRITE("@SamplePath","at", "Connect=yes\n")
   @If ("@DriveLetter1" != "")
     @WRITE("@SamplePath","at", "Drive1=@DriveServer1,@DriveName1,@DriveLetter1\n")
   @EndIf
   @If ("@DriveLetter2" != "")
     @WRITE("@SamplePath","at", "Drive2=@DriveServer2,@DriveName2,@DriveLetter2\n")
   @EndIf
   @If ("@PrintPort1" != "")
     @WRITE("@SamplePath","at", "Printer1=@PrintServer1,@PrintName1,@PrintPort1\n")
   @EndIf
   @If ("@PrintPort2" != "")
     @WRITE("@SamplePath","at", "Printer2=@PrintServer2,@PrintName2,@PrintPort1\n")
   @EndIf
 @Else
   @WRITE("@SamplePath","at", "Connect=no\n")
 @EndIf
 @If (!@ChangeSystemFiles)
   @WRITE("@SamplePath","at", "ChangeSystemFiles=no\n")
 @EndIf

@Cls @fin............


 @If (@FileAttr( "@ParamPath", "r-" )) @EndIf
 @WRITE("@ParamPath","wt", ";@ParamFile - @Name switch settings\n")
 @WRITE("@ParamPath","at", "[AILANBIO]\n")
 @If (@Ncbs > 32)
   @WRITE("@ParamPath","at", "  MAX_NCBS=@Ncbs\n")
   @WRITE("@ParamPath","at", "  NCBS=@Ncbs\n")
 @EndIf
 @If (@Sessions > 32)
   @WRITE("@ParamPath","at", "  MAX_SESSIONS=@Sessions\n")
   @WRITE("@ParamPath","at", "  SESSIONS=@Sessions\n")
 @EndIf
 @If (@OurMport)
   @WRITE("@ParamPath","at", "  FORCE_ACK_MODE\n")
 @EndIF
@Cls @Fin..............
 @WRITE("@ParamPath","at", "\n")
 @WRITE("@ParamPath","at", "[REDIR]\n")
 @WRITE("@ParamPath","at", "  LHIGH\n")
 @WRITE("@ParamPath","at", "  BUFFERS=2\n")
 @WRITE("@ParamPath","at", "  SIZE=2048\n")
 @WRITE("@ParamPath","at", "  LOGINS=@Logouts\n")
 @If (@NcpEnabled)
   @WRITE("@ParamPath","at", "  NCP_SUPPORT\n")
 @EndIf
 @If (@SmbEnabled)
   @WRITE("@ParamPath","at", "  SMB_SUPPORT\n")
 @EndIf
 @WRITE("@ParamPath","at", "\n")
 @WRITE("@ParamPath","at", "[SERVER]\n")
 @WRITE("@ParamPath","at", "  LHIGH\n")

@Cls @fin................


 @If (@FileAttr( "@SetPath", "r-" )) @EndIf
 @WRITE("@SetPath","wt", "@Echo off\n")
 @WRITE("@SetPath","at", "rem @Name v@Version BATCH file -- @SetPath --\n")
 @WRITE("@SetPath","at", "rem to change connections and build new CONNECT.BAT\n")
 @WRITE("@SetPath","at", "NET CONNECTIONS/FORCE\n")
 @WRITE("@SetPath","at", "echo New @Name connections are set up:\n")

 @Cls @fin..................
 @If (@FileAttr( "@StartPath", "r-" )) @EndIf
 @WRITE("@StartPath","wt", "@Echo off\n")
 @WRITE("@StartPath","at", "rem @Name  Version @Version  installed @DateToStr(@SystemDate)\n")
 @If (@ToFloppy)
   @WRITE("@StartPath","at", "rem (DOS Floppy Workstation)\n")
 @ElseIf (@DD360)
   @WRITE("@StartPath","at", "rem (for DOS - DD)\n")
 @Else
   @WRITE("@StartPath","at", "rem (for DOS)\n")
 @EndIf
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "@StrHead(@ExecutePath,1):\n")
 @WRITE("@StartPath","at", "cd @ExecutePath\n")
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "SET LAN_CFG=@EnvLanCfg\n")
 @WRITE("@StartPath","at", "\n")
@Cls @Fin....................
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "@Echo ===== Begin @Name configuration =====\n")
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "PATH @ExecutePath;%PATH%\n")
 @If (@Share)
   @WRITE("@StartPath","at", "SET LAN_DIR=@EnvLanDir\n")
 @EndIf
 @If (@Our2mb)
   @WRITE("@StartPath","at", "@Loadhigh @AdapterProg @AdapterArgs\n")
 @ElseIf (@OurMport)
   @WRITE("@StartPath","at", "@Loadhigh@StrToken(@AdapterProg,0,".") @AdapterArgs\n")
   @WRITE("@StartPath","at", "@LoadHigh@StrToken(@NetbiosProg,0,".") @NetbiosParam\n")
   @WRITE("@StartPath","at", "@Loadhigh@StrToken(@AdapterProgX,0,".") @AdapterArgsX\n")
 @Else
     @If (@NcpEnabled)
       @WRITE("@StartPath","at", "@Loadhigh@!LSL\n")
       @If (@NodeRunner) @WRITE("@StartPath","at", "NRODI\n") @EndIf
       @If (@NodeRunnerPro) @WRITE("@StartPath","at", "EPROODI\n") @EndIf
       @WRITE("@StartPath","at", "@Loadhigh@!IPXODI /A\n")
@Cls @Fin......................
      @If (@SmbEnabled)
	 @WRITE("@StartPath","at", "@Loadhigh@!ODINSUP\n")
	 @WRITE("@StartPath","at", "@Loadhigh@!NETBEUI\n")
	 @If (@JetSupport)
	    @WRITE("@StartPath","at", "@Loadhigh@!MSDLC\n")
	 @EndIf
	   @WRITE("@StartPath","at", "NETBIND\n")
      @ElseIf (@JetSupport)
         @WRITE("@StartPath","at", "@Loadhigh@!ODINSUP\n")
	   @WRITE("@StartPath","at", "@Loadhigh@!MSDLC\n")
	   @WRITE("@StartPath","at", "NETBIND\n")
      @EndIf

     @ElseIf (@SmbEnabled)
       @WRITE("@StartPath","at", "@Loadhigh@!NETBEUI\n")
	@If (@JetSupport)
	   @WRITE("@StartPath","at", "@Loadhigh@!MSDLC\n")
	 @EndIf
@EndIf
@Cls @Fin......................
       @If (@SmbEnabled)
         @If(@SetINI("PROTMAN","Priority","NETBEUI","@InstallPath\\@NdisProtocolFile")) @EndIf
         @If(@SetINI("NETBEUI_XIF","BINDINGS","@AdapterNif","@InstallPath\\@NdisProtocolFile")) @EndIf
         @If(@SetINI("NETBEUI_XIF","LANABASE","1","@InstallPath\\@NdisProtocolFile")) @EndIf
         @If(@SetINI("MS$DLC","BINDINGS","@AdapterNif","@InstallPath\\@NdisProtocolFile")) @EndIf
       @EndIf

       @If (@Aopt == 141)
          @If(@SetIni("AEXNDIS_NIF","IOBase","0x300","@InstallPath\\@NdisProtocolFile")) @EndIf
          @If(@SetIni("AEXNDIS_NIF","IRQ","15","@InstallPath\\@NdisProtocolFile")) @EndIf
       @EndIf
       @If (@JetSupport && (@NdisSelected || @AexNdisSelected) && !@SmbEnabled)
	   @WRITE("@StartPath","at", "@Loadhigh@!MSDLC\n")
         @If(@SetINI("MS$DLC","BINDINGS","@AdapterNif","@InstallPath\\@NdisProtocolFile")) @EndIf
       @EndIf
@Cls @Fin........................
   @If (@NcpEnabled)
  @WRITE("@StartPath","at", "@Loadhigh@!AI-ODI\n")
  @ElseIf (@SmbEnabled || @NdisSelected || @AexNdisSelected)
     @If ("@AdapterProgX" != "")
       @WRITE("@StartPath","at", "@Loadhigh@StrToken(@AdapterProgX,0,".") @AdapterArgsX\n")
     @EndIf
     @WRITE("@StartPath","at", "@Loadhigh@StrToken(@NdisProg,0,".") BIND_TO=@AdapterNif\n")
   @Else
     @WRITE("@StartPath","at", "@Loadhigh @AdapterProg @AdapterArgs\n")
     @If ("@AdapterProgX" != "")
       @WRITE("@StartPath","at", "@Loadhigh@StrToken(@AdapterProgX,0,".") @AdapterArgsX\n")
     @EndIf
   @EndIf
@Cls @fin.............................
   @WRITE("@StartPath","at", "@LoadHigh@StrToken(@NetbiosProg,0,".") @NetbiosParam\n")
 @EndIf


@Cls @fin.............................
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "@StrToken(@RedirProg,0,".") @ComputerName @LoginParam\n")
  @If (@Share)
   @WRITE("@StartPath","at", "\n")
   @WRITE("@StartPath","at", "@StrToken(@ServerProg,0,".") @EnvLanDir @LoginParam\n")
   @WRITE("@StartPath","at", "NET LPT TIMEOUT 10\n")
   @WRITE("@ConnectPath","wt", "NET LOGIN \\\\@ComputerName\n")
   @If ("@PrintPort1" != "")
     @WRITE("@ConnectPath","at", "NET USE @PrintPort1: \\\\@PrintServer1\\@PrintName1\n")
   @EndIf
 @EndIf
@Cls @fin...............................
@WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "rem If CONNECT.BAT exists, run it to set up connections.\n")
 @WRITE("@StartPath","at", "IF EXIST CONNECT.BAT GOTO :CONNECT\n")
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", "rem Otherwise set up connections specified during install.\n")
@Cls @fin.................................

@Cls @fin...................................
 @WRITE("@StartPath","at", "GOTO :CONNECT_DONE\n")
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", ":CONNECT\n")
 @WRITE("@StartPath","at", "@Echo Setting up @Name connections from CONNECT.BAT\n")
 @WRITE("@StartPath","at", "rem Modify CONNECT.BAT by running: NET CONNECTIONS/FORCE\n")
 @WRITE("@StartPath","at", "rem   (or run the batch file SETNET.BAT)\n")
 @WRITE("@StartPath","at", "@Call@!CONNECT.BAT\n")
 @WRITE("@StartPath","at", "\n")
 @WRITE("@StartPath","at", ":CONNECT_DONE\n")
 @WRITE("@StartPath","at", "\n")

@Cls @Fin.....................................
 @If (@MShareEnabled)
   @WRITE("@StartPath","at", "CALL @OutDrive:\\@Subdir\\MODEM.BAT\n")
   @WRITE("@StartPath","at", "\n")
 @EndIf

 @WRITE("@StartPath","at", "@Echo ===== End @Name configuration =====\n")
 @WRITE("@StartPath","at", "\n")

 @WRITE("@StartPath","at", ":STARTNET_DONE\n")

 @If (@PermConnect) @WRITE("@StartPath","at", "NET CONNECTIONS\n") @EndIf
 @WRITE("@StartPath","at", "cd \\\n")


@If (@NdisSelected) @Copy("@NdisInstallPath\\*.*","@InstallPath") @EndIf

@Cls @Fin.......................................


   @If(@SetINI("","GROUP NAME","@Computername","@InstallPath\\server.con")) @EndIf
   @If(@SetINI("","CONNECT DEST","@Computername","@InstallPath\\client.con")) @EndIf

     @If (321 [= @Option)
      @If(@SetINI("","START","ACTIVE","@InstallPath\\server.con")) @EndIf
     @Else
      @If(@SetINI("","START","INACTIVE","@InstallPath\\server.con")) @EndIf
     @EndIf

     @If (323  [= @Option)
       @If(@SetINI("","PORT","3F8H","@InstallPath\\server.con")) @EndIf
       @If(@SetINI("","INTERRUPT","4","@InstallPath\\server.con")) @EndIf
     @EndIf
@Cls @Fin.......................................
     @If (324  [= @Option)
       @If(@SetINI("","PORT","2F8H","@InstallPath\\server.con")) @EndIf
       @If(@SetINI("","INTERRUPT","3","@InstallPath\\server.con")) @EndIf
     @EndIf
     @If (325  [= @Option)
       @If(@SetINI("","PORT","3E8H","@InstallPath\\server.con")) @EndIf
       @If(@SetINI("","INTERRUPT","4","@InstallPath\\server.con")) @EndIf
     @EndIf
     @If (326  [= @Option)
       @If(@SetINI("","PORT","2E8H","@InstallPath\\server.con")) @EndIf
       @If(@SetINI("","INTERRUPT","3","@InstallPath\\server.con")) @EndIf
     @EndIf
     @If (327  [= @Option)
       @If(@SetINI("","PORT","@IOaddress","@InstallPath\\server.con")) @EndIf
       @If(@SetINI("","INTERRUPT","@IRQnum","@InstallPath\\server.con")) @EndIf
     @Endif
@Cls @Fin.......................................


 @If(@MShareEnabled)
       @If(@SetINI("MODEM","Server","Yes","@InstallPath\\@LConfigFile")) @EndIf
       @If(@SetINI("MODEM","Client","Yes","@InstallPath\\@LConfigFile")) @EndIf
 @Else
       @If(@SetINI("MODEM","Server","No","@InstallPath\\@LConfigFile")) @EndIf
       @If(@SetINI("MODEM","Client","No","@InstallPath\\@LConfigFile")) @EndIf
 @EndIf

 @Delete("@InstallPath\\INSTALL.EXE")
 @Delete("@InstallPath\\LANSETUP.EXE")

 @Delete("@InstallPath\\@DisabledFile")

@If(@AutoexecChanged) @Delete("@BootDrive:\\AUTOEXEC.BAK") @EndIf
@If(@ConfigChanged) @Delete("@BootDrive:\\CONFIG.BAK") @EndIf

 @Delete("@InstallPath\\@NoShareFile")

 @If (@ToFloppy)
   @Delete("@StrHead(@InstallPath,1):\\DISK.ID")
 @EndIf
@Cls @Fin.........................................

@Cls @fin...........................................
 @If (@Share)
   @MkDir("@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\BOOT.IMD","@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\IBMBOOT.TYP","@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\FFRPL.TYP","@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\FFRAMRPL.BST","@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\FFRAMRPL.BSD","@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\FFIBMRPL.BST","@SharePath\\SYSTEM.NET")
   @Copy("@InstallPath\\FFIBMRPL.BSD","@SharePath\\SYSTEM.NET")

@Cls @fin.............................................

   @If (@Exists("@s7"))
       @If (@SPAWN(@s8),1) @EndIf

   @Else
     @Cls @If (@BackgroundMode(3,@Red,@Red)) @EndIf
     @Warning
     @Underline40

     The control directory initialization program

     ---- @s7 ----

     was not found, so the required initialization of
     the  @SharePath  directory for @Name
     was NOT performed.
     @FlushKeyboard() @Pause @Exit
   @EndIf
 @EndIf

@Cls @fin...............................................


   @Copy("@SupportPath\\readme.txt","@InstallPath")
   @Copy("@SupportPath\\license.txt","@InstallPath")

@If(@InstallServices)
   @Copy("@SupportPath\\setup.ini","@InstallPath\\Install")
   @If(@SetIni("VALIDATION","Serial","@LicenseNum","@InstallPath\\Install\\SETUP.INI")) @EndIf
   @If(@SetIni("VALIDATION","Verification","@LicenseCheck","@InstallPath\\Install\\SETUP.INI")) @EndIf
   @If (@FileAttr( "@InstallPath\\INSTALL\\*.*", "r+" )) @EndIf
@EndIf



  @If(@SetIni("REGISTER","1434","@LicenseNum","@InstallPath\\Pipedlg.dat")) @EndIf
  @If(@SetIni("SYSTEM","Application","@Name@Registered  @Version  Registration","@InstallPath\\Pipedlg.dat")) @EndIf
  @ChDrive(@OutDrive)
  @ChDir("@InstallPath")
  @Spawn("@InstallPath\\regdos.exe",1)

@If (@InstallMode && @NcpEnabled)
      @If (@BackgroundMode(3,@Yellow,@Black)) @EndIf
      @Cls
      @MoveCStr(@DosHeadingRow,(@DosHeadingCol1),@DosHeadingColor,@DosHeadingText)
	     I M P O R T A N T   N O T E
      @Underline40
      @If (@NcpEnabled)
      You have installed @Name as a Novell@Registered Netware client
      using:  @StrToken("@AdapterName",0,",").
      To set up @Name as a Novell client using a different
      adapter, see the "@Name Installation and Management Guide".
      @EndIf
	@FlushKeyboard() @Pause
     @EndIf
     @If (@BackgroundMode(3,@Green,@Black)) @EndIf
     @Cls
     @MoveCStr(@DosHeadingRow,(@DosHeadingCol1),@DosHeadingColor,@DosHeadingText)
     @StrConvert(@action,"uc")  COMPLETE

     @Underline40

     @Name @action has been successfully completed.

     You will need to@!@s1 REBOOT@!@If ("@s1"=="") YOUR COMPUTER @EndIf
     @If ("@s1"!="")@!YOUR COMPUTER @EndIf@!to join the @Name network.

     Perform this @action on every DOS computer in your
     @Name network.  Then store @your @Name diskettes
     or CD-ROM in a safe place. @If (@NewInstall) You will need them to
     install software upgrades. @EndIf
     @FlushKeyboard() @Pause
 @EndIf



 @ChDrive( @StartupDrive )
 @ChDir( "@StartupDir" )

   @If (@ToHard && !@NoRebootMode)
     @Cls
     In a moment, INSTALL will reboot @your computer to activate
     @your @Name network software. @If (@Removable(@ScriptDrive)) Remove the @Name
     installation diskette from Drive @ScriptDrive. @EndIf

     Please wait...
     @Delay(3)
     @Cls
     @Reboot()
     @Exit
   @Else
     @Exit
   @EndIf

@EndFinish

