;	SCCSID(@(#)ibminst.dat	1.3	LCC);	/* Modified: 16:38:32 1/11/91 */
;
; Installation script for TCP/IP FOR DOS, Release 2
;
; Default values
;
set src         "%instdrive%"
set dst		"C:\LTCPIP\"
set driver	"DRIVERS\"
set iteration 	"firsttime"
set idfile	"A:\TCP20.ID"
set iddest	"C:\TCP20.ID"
; 3c501 defaults
set 3c501_name "3COM Etherlink (3C501)"
; 3c503 defaults
set 3c503_name "3COM Etherlink II (3C503)"
; wd8003 defaults
set wd8003_name "Western Digital WD8003 (ISA/MCA)"
; depca defaults
set depca_name "DEC DEPCA Rev. E or later"
; 3c523 defaults
set 3c523_name "3COM Etherlink/MC (3C523)"
; Xircom defaults
set poquet_name "Xircom Ethernet"
; Ungermann-Bass NIC ISA defaults
set nic_isa_name "Ungermann-Bass NIC ISA"
; Ungermann-Bass NIC MCA defaults
set nic_mca_name "Ungermann-Bass NIC MCA"
; NDIS defaults
; NOTE: NDIS only supports 3c505 now
; set ndis_name "NDIS Interface"
set ndis_name "3com Etherlink II+ (3C505)"
; Intel PC586 defaults
set pc586_name "Intel PC586 Ethernet"
; IBM Token Ring defaults
set ibm_tr_name "IBM Token Ring (4 MB & 4/16 MB)"
;
; set display colors appropriately for color or monochrome display
;
goto %displaytype% mono
colors work 0x17 menu 0x17 0x71 help 0x1e display 0x17 input 0x1e
goto color
:mono
colors work 0x07 menu 0x70 0x07 help 0x0f display 0x07 input 0x0f
:color

newwork
helpline 16
work

                             TCP/IP 

	Copyright 1990, International Business Machines Corporation
                  Copyright 1989, Locus Computing Corporation
..
prompt ""
help
Use the up and down arrow keys to change your selection.
Press ENTER to choose the current selection.

"New Installation" will install TCP/IP on your hard disk
from the distribution diskettes.

"Quit" will cancel installation program.
..
menu insttype 7 28
" New Installation "            full
" Quit"                         quit
..
goto %insttype% quit
:askagain
newwork
prompt "Destination directory:    "
help
Enter the drive and directory where you want TCP/IP installed.

You may edit the directory name with these keys:

left arrow - move cursor left          right arrow - move cursor right
home       - go to beginning of line   end         - go to end of line
backspace  - delete before cursor      del         - delete at cursor
ins        - toggle insert mode        esc         - clear input
..
:askdest
indir dirvar "%dst%" invdir
goto skip
:editdst
indir dirvar "%dirvar%" invdir
:skip
checkdrive drive "%dirvar%"
goto %drive%1 baddrive1
goto continue
:baddrive1
parsepath drv "%dirvar%" "d:"
display

Drive %drv% does not exist.
..
goto editdst
:continue
set dst "%dirvar%"
check ddtype "%dst%"
goto %ddtype%1 nodir1
display

The directory %dst% exists.
Do you wish to install over it?
..
menu ddcheck 4 35
" Yes "         ddok
" No "          askdest
" Quit "        quit
..
display
..
goto %ddcheck% askdest quit
:nodir1
prompt "Type of Ethernet card:   "
help
Choose the entry corresponding to the type of Ethernet card installed in
your computer.


NOTE:
MCA - micro-channel Architecture (e.g.: IBM PS/2 Model 70 or Tandy 4000)
ISA - Industry Standard Architecture (e.g.: IBM PC, IBM PC/AT, et cetera)
..
menu ether -1 31 display "%ether%"
" %3c501_name% "				3C501
" %3c503_name% "				3C503
" %3c523_name% "				3C523
" %wd8003_name% "				WD8003
" %poquet_name% "				POQUET
" %nic_isa_name% "				NIC_ISA
" %nic_mca_name% "				NIC_MCA
" %pc586_name% "				PC586
" %ibm_tr_name% "				IBM_TR
" %depca_name% "				DEPCA
..

prompt "Locus PC-Interface or IBM AIX Access for DOS Users installed:	 "
help
If PC-Interface or AIX Access for DOS Users
is installed on your computer answer "Yes," otherwise answer "No."
..
menu pci 4 26 display "%pci%"
" Yes "		yes
" No "		no
..
set driverdst "%dst%%driver%"
set iteration	"nexttime"
display

Do you wish to change any of the above answers?
..
help
Choose "Yes" and the questions will be asked again with your previous
answers as defaults.

Choose "No" to proceed with the installation.

Choose "Quit" to cancel installation.
..
menu askagain 6 50
" Yes "         askagain
" No "          ansok
" Quit "        quit
..
display
..
help
..
goto %askagain% askagain quit
;
; Look at "hosts" environment variable to see if there
; is already a hosts file present, if so point to that file
; in the config.sam file and copy hosts.sam file to %dst%.
;
goto "%HOSTS%x"	x
set hostsdstdir "%hosts%"
set hostsdst	"%dst%HOSTS.SAM"
goto nofile3
:x
help
..
set hostsdstdir "%dst%"
set hostsdst "%dst%HOSTS.SAM"
:nofile3
;
; Start installation
;
mkdir "%dst%"
mkdir "%dst%bin\"
set disk "install.dat"
set disktitle "Program Disk"
call getdisk
prompt " "
prompt "       Copying: "
for file *.* "%src%bin\*.*"
show "%file%"
copy "%src%bin\%file%" "%dst%bin\%file%" copyerr
..
mkdir "%hostsdstdir%"
show "HOSTS.SAM"
copy "%src%HOSTS.SAM" "%hostsdst%" copyerr
check ddok "%iddest%"
goto %ddok%1 file1
copy "%idfile%" "%iddest%"
hide "%iddest%"
:file1
set disk "instdr.dat"
set disktitle "Driver Disk"
call getdisk
prompt " "
prompt "       Copying: "
mkdir "%driverdst%"
show "%ether%.drv"
copy "%src%%ether%.drv" "%driverdst%%ether%.drv"
ifeq "%ether%" "depca" show "sch.exe"
ifeq "%ether%" "depca" copy "%src%sch.exe" "%dst%\bin\sch.exe"
ifeq "%ether%" "depca" show "dlldepca.exe"
ifeq "%ether%" "depca" copy "%src%dlldepca.exe" "%dst%\bin\dlldepca.exe"
show "lccni2.drv"
copy "%src%lccni2.drv" "%driverdst%lccni2.drv"
goto %pci% no
writefile "%dst%config.sam"
;
;       config.sam - sample configuration file
;
;	NOTE:
;	Please remove all lines beginning with a ";"
;	from the "config.sam" file before using it.
;

;	Install the interface between PCI and TCP/IP
DEVICE = %driverdst%lccni2.drv
;	Install the Ethernet driver
DEVICE = %driverdst%%ether%.drv /t
..
goto writeauto
:no
writefile "%dst%config.sam"
;
;       config.sam - sample configuration file
;
;	NOTE:
;	Please remove all lines beginning with a ";"
;	from the "config.sam" file before using it.

;	Install the Ethernet driver
DEVICE = %driverdst%%ether%.drv /t
..
:writeauto
goto etheris%ether% etherisdepca
writefile "%dst%autoexec.sam"
REM
REM	autoexec.sam - sample autoexec file
REM
SET PATH=%dst%BIN
SET HOSTS=%hostsdstdir%
REM Install TCP/IP TSR
%dst%BIN\LTCPIP
REM Run setaddr utility
%dst%BIN\SETADDR
..
goto complete
:etherisdepca
writefile "%dst%autoexec.sam"
REM
REM	autoexec.sam - sample autoexec file
REM
%dst%BIN\SCH.EXE
%dst%BIN\DLLDEPCA.EXE
SET PATH=%dst%BIN
SET HOSTS=%hostsdstdir%
REM Install TCP/IP TSR
%dst%BIN\LTCPIP
REM Run setaddr utility
%dst%BIN\SETADDR
..
:complete
helpline 0
newwork
display



                            Installation Complete.




     The files CONFIG.SAM and AUTOEXEC.SAM are sample configuration
     and batch files. These files contain information that needs to 
     be present in your CONFIG.SYS and AUTOEXEC.BAT files. 

     You should incorporate the contents of CONFIG.SAM and AUTOEXEC.SAM
     in your CONFIG.SYS and AUTOEXEC.BAT files while making sure there
     is no redundancy or conflict.
..
chdir "%dst%"
:quit
exit
:invdir
display

            Invalid directory name: %dirvar%
..
..
:copyerr
display

    Error: %errmsg%: %errfile%

..
menu errmen -3 40
" Continue "    errcont
" Quit "       errabort
..
goto %errmen% errcont
exit 1
:errcont
display
..
..
;
; Subroutine to verify diskette
;
:getdisk
check diskfile "%src%%disk%"
goto %diskfile% file
newwork
work

Insert "%disktitle%" and press ENTER to continue.

..
Prompt "Diskette Drive: "
help
You may edit the name of the floppy drive with these keys:

left arrow - move cursor left          right arrow - move cursor right
home       - go to beginning of line   end         - go to end of line
backspace  - delete before cursor      del         - delete at cursor
ins        - toggle insert mode        esc         - clear input
..
:getdisk10
indir dirvar "%src%" invdir
set src "%dirvar%"
check diskfile "%src%%disk%"
goto %diskfile% file
display

Wrong disk in %src%.
..
goto getdisk10
:file
newwork
work

Installing from "%disktitle%" in drive %src%

..
help
..
..
