set quiet
;
; Check the simulator type
;
if "%SIM_NAME%" == "VAX 11/780" goto CFG78X
if "%SIM_NAME%" == "VAX 8600" goto CFG79X
echo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
echo ! You *MUST* use either the VAX-11/78x or VAX 86x0 simulators to run  !
echo ! this particular turnkey kit.  Either the simulator you have used is !
echo ! incorrect, or there is a serious error condition in the simulator.  !
echo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
goto END
;
; Detected simulator: SIMH VAX-11/78x
;
:CFG78X
set ENV CNSL_MEDIA=rx01/AS-T213P-ME.rx1
set ENV CNSL_SIMH=CS0

set ENV STBK_SIMH=RQ2
set ENV BOOT_SIMH=RP0
set ENV SHR0_SIMH=RP1
set ENV SHR1_SIMH=RP2
set ENV SHR2_SIMH=RP3
set ENV SPL0_SIMH=RQ0
set ENV SPL1_SIMH=RQ1
set ENV HOM0_SIMH=RP4
set ENV HOM1_SIMH=RP5
set ENV UBBS_SIMH=RP6
set ENV TAPE_SIMH=TU0
set ENV CDRM_SIMH=RQB0

set ENV STBK_VMS4=DJA2
set ENV BOOT_VMS4=DRA0
set ENV SHR0_VMS4=DRA1
set ENV SHR1_VMS4=DRA2
set ENV SHR2_VMS4=DRA3
set ENV SPL0_VMS4=DUA0
set ENV SPL1_VMS4=DUA1
set ENV HOM0_VMS4=DRA4
set ENV HOM1_VMS4=DRA5
set ENV UBBS_VMS4=DRA6
set ENV TAPE_VMS4=MTA0
set ENV CDRM_VMS4=DUB0

set ENV PFX=780
goto CFGDN
;
; Detected simulator: SIMH VAX-11/79x (VAX 86x0)
;
:CFG79X
set ENV CNSL_MEDIA=rl02/BC-FI18T-DE.rl2
set ENV CNSL_SIMH=CS0

set ENV STBK_SIMH=RQB2
set ENV BOOT_SIMH=RQ0
set ENV SHR0_SIMH=RQ1
set ENV SHR1_SIMH=RQ2
set ENV SHR2_SIMH=RQ3
set ENV SPL0_SIMH=RQB0
set ENV SPL1_SIMH=RQB1
set ENV HOM0_SIMH=RP0
set ENV HOM1_SIMH=RP1
set ENV UBBS_SIMH=RP2
set ENV TAPE_SIMH=TU0
set ENV CDRM_SIMH=RQC0

set ENV STBK_VMS4=DJB2
set ENV BOOT_VMS4=DUA0
set ENV SHR0_VMS4=DUA1
set ENV SHR1_VMS4=DUA2
set ENV SHR2_VMS4=DUA3
set ENV SPL0_VMS4=DUB0
set ENV SPL1_VMS4=DUB1
set ENV HOM0_VMS4=DRA0
set ENV HOM1_VMS4=DRA1
set ENV UBBS_VMS4=DRA2
set ENV TAPE_VMS4=MTA0
set ENV CDRM_VMS4=DUC0

set ENV PFX=795
goto CFGDN
:CFGDN
set THROTTLE 90%
;set NOTHROTTLE
set %CNSL_SIMH% LOCK
set %TAPE_SIMH% LOCK
mkdir dsk
mkdir bak
attach %BOOT_SIMH% -yf vhd dsk/vms0_%PFX%.vhd
attach %SHR0_SIMH% -yf vhd dsk/share0_%PFX%.vhd
attach %SHR1_SIMH% -yf vhd dsk/share1_%PFX%.vhd
attach %SHR2_SIMH% -yf vhd dsk/share2_%PFX%.vhd
attach %SPL0_SIMH% -yf vhd dsk/spool0_%PFX%.vhd
attach %SPL1_SIMH% -yf vhd dsk/spool1_%PFX%.vhd
attach %HOM0_SIMH% -yf vhd dsk/hom0_%PFX%.vhd
attach %HOM1_SIMH% -yf vhd dsk/hom1_%PFX%.vhd
echo ************************************************************************
echo ************************************************************************
echo * This is the automated installation process for the turnkey VAX/VMS   *
echo * system. Once the installation procedure has completed, the following *
echo * software from Digital will be installed/available:                   *
echo *      1. VAX/VMS v4.7                                                 *
echo *      2. DECnet-VAX v4.x Full Functionality License Kit               *
echo *      3. VAX/VMS v4.x Unlimited Users License Kit                     *
echo *      4. VAX CDD v3.4-1                                               *
echo *      5. VAX CDD/Plus v4.0-0                                          *
echo *      6. DEC/CMS v3.0                                                 *
echo *      7. VAX ACMS v3.0A                                               *
echo *      8. VAX TDMS v1.8A-0                                             *
echo *      9. VAX FMS v2.2                                                 *
echo *     10. VAX GKS v4.0                                                 *
echo *     11. VAX PHIGS v1.1                                               *
echo *     12. ReGIS to Sixel Converter v1.0                                *
echo *     13. VAX MMS v2.4                                                 *
echo *     14. VAX DBMS v4.0-379                                            *
echo *     15. VAX DATATRIEVE v4.2-1                                        *
echo *     16. VAX Rdb/VMS v3.0A-0                                          *
echo *     17. VAX APL v3.1                                                 *
echo *     18. VAX BASIC v3.2                                               *
echo *     19. VAX Bliss-32 v4.4-838                                        *
echo *     20. VAX C v2.4-026                                               *
echo *     21. VAX COBOL v4.1-29                                            *
echo *     22. VAX DIBOL v4.0                                               *
echo *     23. VAX FORTRAN v4.8-276                                         *
echo *     24. VAX Pascal v3.7-254                                          *
echo *     25. VAX RPG II v2.1                                              *
echo *     26. VAX SCAN v1.1                                                *
echo *     27. Message Router v2.0                                          *
echo *     28. Message Router/VMSmail Gateway v2.0                          *
echo *     29. Data Interchange Library (DIL) v2.0                          *
echo *     30. VAX Distributed Name Service v1.1                            *
echo *     31. VAX Distributed File Service v1.1                            *
echo *     32. VAX Distributed Queue Service v1.1                           *
echo *     33. VAX-11/RSX v2.3                                              *
echo *          i. PDP-11 FORTRAN IV/VAX v2.8                               *
echo *         ii. PDP-11 FORTRAN-77/VAX v5.3                               *
echo *        iii. PDP-11 Symbolic Debugger/VAX v2.1-00                     *
echo *         iv. MicroPower/Pascal-VMS v2.5                               *
echo *     34. VAX-11 DECtype v4.0                                          *
echo *     35. VAX-11 DECgraph Business Graphics Package v1.5               *
echo *     36. ALL-IN-1 v2.1                                                *
echo *     37. TEAMDATA v1.3                                                *
echo *     38. VAX DECalc v3.0, and VAX DECalc-Plus v3.0                    *
echo *     39. Xway Data Format Conversion Program v1.1A                    *
echo *     40. VAX Document v1.1                                            *
echo *     41. Session Support Utility v1.1                                 *
echo *     42. EDCS II v1.2                                                 *
echo *     43. VAX Storage Library System v1.1                              *
echo *     44. VAXELN Development Kit v3.2                                  *
echo *     45. Rdb/ELN v2.1                                                 *
echo * The following third-party software (both freeware and commerical)    *
echo * will also be installed/made available by the turnkey system:         *
echo *      1. CMU-Tek TCP/IP v6.3                                          *
echo *          i. IP Driver v6.3, IP ACP v6.3, and NETEXIT v6.3            *
echo *         ii. METLOG v6.3, NETSTAT v6.3, HOSTNM v1.0, NAMSRV v2.2      *
echo *        iii. LPRSMB v1.2, LPR_SERVER v2.0                             *
echo *         iv. MAILSMB v2.6, SMTP_SERVER v2.6, and INET_MAILSHR v2.0    *
echo *          v. PTY v4.7, TELNET v2.4, FINGER v2.4, FTP v2.6             *
echo *      2. Wingra Technologies Inc. JNET v3.5, and JNET TCP NJE v1.1    *
echo *      3. Cleve Moler's "Classic" MATLAB, v82.145                      *
echo *      4. David Bolen's "XYZZY" Network Chat                           *
echo *      5. TECsys Development Inc. "CD" Utiliy v5.5B                    *
echo ************************************************************************
echo *                                                                      *
echo * TO BE ADDED:                                                         *
echo *      1. DECpage (?)                                                  *
echo *      2. CHAOSnet                                                     *
echo *      3. MTREK                                                        *
echo *      4. Scribe Systems Inc. Scribe/VMS v7                            *
echo *      5. Telesoft VAX/ADA v3.10                                       *
echo *      6. WordPerfect Corp. WordPerfect for VMS v4.2 or v5.0           *
echo *                                                                      *
echo ************************************************************************
:SETUP
echo ************************************************************************
set ENV -p "SYSTEM Password" SYSPWD=Digital1977
set ENV -p "FIELD Password" FLDPWD=%SYSPWD%
set ENV -p "SYSTEST & SYSTEST_CLIG Password" TSTPWD=%SYSPWD%
set ENV -p "ACMS$IVP Password" ACMSPWD=%SYSPWD%
set ENV -p "RDB$REMOTE Password" RDBPWD=%SYSPWD%
set ENV -p "MRMANAGER & MRGATE Password" MRPWD=%SYSPWD%
set ENV -p "ALL-IN-1 Password" AI1PWD=%SYSPWD%
set ENV -p "DECdns Password" DNSPWD=%SYSPWD%
set ENV -p "DECdqs Password" DQSPWD=%SYSPWD%
set ENV -p "VAX Storage Library System Password" SLSPWD=%SYSPWD%
echo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
echo !                                                                      !
echo !            ENSURE THAT THE DECNET NODE NAME IS COMPLETELY            !
echo !             CAPITALIZED AND SIX OR FEWER CHARACTERS LONG             !
echo !             OTHERWISE THE TURNKEY INSTALLATION WILL FAIL             !
echo !                                                                      !
echo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
set ENV -p "DECnet Name" SCSNODE=%PFX%VAX
set ENV -p "DECnet Area" AREA=1
set ENV -p "DECnet Node" NODE=%PFX%
set ENV -p "DECdns Namespace" DNSNS=%SCSNODE%_NS
set ENV -p "DECdns Clearinghouse" DNSCH=%SCSNODE%_CH
set ENV -p "Administrator Username" ADMINUSER=CGB
set ENV -p "Administrator User's Name" ADMINNAME=C. Gordon Bell
goto %PFX%USR
:780USR
set ENV -p "Turnkey Username" TURNKEYUSER=HEA
set ENV -p "Turnkey User's Name" TURNKEYNAME=Harlan E. Anderson
goto CONT_SETUP
:795USR
set ENV -p "Turnkey Username" TURNKEYUSER=KHO
set ENV -p "Turnkey User's Name" TURNKEYNAME=Kenneth H. Olson
goto CONT_SETUP
:CONT_SETUP
set ENV -p "Do you wish to add demonstration users? [Y/N]" DEMOUSER=Y
if -i DEMOUSER geq "Y" goto DEMOUSER_Y
else goto DEMOUSER_N
:DEMOUSER_Y
set ENV DEMOUSER=Y
goto DEMOUSER_DONE
:DEMOUSER_N
set ENV DEMOUSER=N
goto DEMOUSER_DONE
:DEMOUSER_DONE
echo ************************************************************************
echo *                         CMU-Tektronix TCP/IP                         *
echo *                         ====================                         *
echo *                                                                      *
echo * Adjust the following information to reflect your network setup; note *
echo * that if you do not have a gateway, DNS, or LPR server then external  *
echo * connections, name resolution, and/or remote printing will obviously  *
echo * not function.                                                        *
echo *                                                                      *
echo * !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
echo * ! The IP addresses and subnet mask provided in the turnkey setup   ! *
echo * ! are for illustrative purposes only -- as they correspond to the  ! *
echo * ! RFC 5737 "TEST-NET-3" address range (203.0.113.0/24), and as per ! *
echo * ! RFC 5737 regarding the TEST-NET-# address ranges:                ! *
echo * !                                                                  ! *
echo * !          These blocks are not for local use and filters          ! *
echo * !          may be used in both local and public contexts.          ! *
echo * !                                                                  ! *
echo * ! Therefore, you *MUST* replace the IP addresses (and subnet mask) ! *
echo * ! with either a publicly routable address -- if for some reason it ! *
echo * ! is desired to connect the turnkey to the public internet -- or   ! *
echo * ! to an address within one of the three private network address    ! *
echo * ! ranges: 10.0.0.0/8, 172.16.0.0/12, or 192.168.0.0/16             ! *
echo * !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
echo *                                                                      *
echo * The demonstration network is configured such that the gateway router *
echo * also provides DNS name resolution services.                          *
echo *                                                                      *
echo * The VAX/VMS hostname DOES NOT have to be the same as its DECnet node *
echo * name, nor does it have the six-character length limitation.          *
echo ************************************************************************
set ENV -p "Domain Name" DOMAIN=demo.intranet
set ENV -p "Host Name" HOSTNAME=%PFX%vax
set ENV -p "Host Address" HOSTADDR=203.0.113.75
set ENV -p "Subnet Mask" NETMASK=255.255.255.0
set ENV -p "Gateway Name" GATEWAYNAME=gateway
set ENV -p "Gateway Address" GATEWAYADDR=203.0.113.1
set ENV -p "DNS Server Name" DNSNAME=gateway
set ENV -p "DNS Server Address" DNSADDR=203.0.113.1
set ENV -p "LPR Server Name" LPRNAME=service
echo ************************************************************************
echo *                       Wingra Technologies JNET                       *
echo *                       ========================                       *
echo *                                                                      *
echo * It is assumed that the system accessed via a DECnet link resides in  *
echo * the same area/network segment as this node, as well the DECnet node  *
echo * name is assumed to be the same as the NJE service name.              *
echo ************************************************************************
set ENV -p "NJE (DECnet Node) Service Name" DNANJENAME=NJEVAX
echo NJE (DECnet Node) DECnet Name >%DNANJENAME%<
echo NJE (DECnet Node) DECnet Area >%AREA%<
set ENV -p "NJE (DECnet Node) DECnet Node" DNANJENODE=730
echo ************************************************************************
echo * No assumptions are made with regards to the network configuration of *
echo * the TCP accessible NJE node.                                         *
echo * NB: As of the creation date of thie kit (17-OCT-2022) the host name  *
echo * is not used.                                                         *
echo ************************************************************************
set ENV -p "NJE (TCP/IP Node) Service Name" TCPNJENAME=NJENIX
set ENV -p "NJE (TCP/IP Node) Host Name" TCPNJEHOST=service
set ENV -p "NJE (TCP/IP Node) Host Address" TCPNJEADDR=203.0.113.2
echo ************************************************************************
echo *                          UALR CB/Vax & UBBS                          *
echo *                          ==================                          *
echo *                                                                      *
echo *                                                                      *
echo ************************************************************************
set ENV -p "Do you wish to install UBBS and CB/Vax? [Y/N]" BBS_CONF=Y
if -i BBS_CONF geq "Y" goto BBS_CONF_Y
else goto BBS_CONF_N
:BBS_CONF_Y
echo ************************************************************************
echo * UALR CB/Vax and UBBS will be installed on this system. A default BBS *
echo * configuration is provided for the "primary" BBS; if a customized BBS *
echo * is desired, please refer to the readme file for customization steps. *
echo ************************************************************************
set ENV -p "Do you wish to use the DEFAULT primary BBS? [Y/N]" BBS_DEFAULT=Y
echo ************************************************************************
if -i BBS_DEFAULT geq "Y" goto BBS_CONF_DFLT
else goto BBS_CONF_CUST
:BBS_CONF_DFLT
set ENV BBS_USER=BBS
set ENV BBS_SYSOP_USER=bch
set ENV BBS_SYSOP_NAME=Bandit C. Heeler
goto BBS_CONF_BLOCK
:BBS_CONF_CUST
set ENV -p "What do you want the primary BBS username to be?" BBS_USER=BBS
set ENV -p "%BBS_USER% SYSOP Username" BBS_SYSOP_USER=bch
set ENV -p "%BBS_USER% SYSOP Name" BBS_SYSOP_NAME=Bandit C. Heeler
echo ************************************************************************
goto BBS_CONF_BLOCK
:BBS_CONF_BLOCK
echo Primary BBS Root Directory: %SCSNODE%::%UBBS_VMS4%:[%BBS_USER%]
echo Primary BBS Message Directory: %SCSNODE%::%UBBS_VMS4%:[%BBS_USER%.DATA]
echo Primary BBS File Share Directory: %SCSNODE%::%UBBS_VMS4%:[%BBS_USER%.FILES]
echo Primary BBS Login: %BBS_USER%
echo Primary BBS SYSOP: %BBS_SYSOP_NAME% (%BBS_SYSOP_USER%)
echo ************************************************************************
echo * The BBS software may be configured to support a "secondary" BBS. The *
echo * secondary BBS runs alongside the primary within a separate directory *
echo * structure. Note, however, that the "secondary" BBS configuration has *
echo * been programmed as a DECUS Local Users Group.                        *
echo ************************************************************************
set ENV -p "Do you wish to configure a secondary BBS? [Y/N]" BBS_ARKLUG_CONF=Y
if -i BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_CONF_Y
else goto BBS_ARKLUG_CONF_N
:BBS_ARKLUG_CONF_Y
echo ************************************************************************
echo * As with the "primary" BBS, a default configuration has been provided *
echo * for the "seocndary" BBS. If a custom configuration is desired, again *
echo * refer to the readme file for instructions on BBS customization.      *
echo ************************************************************************
set ENV -p "Do you wish to use the DEFAULT secondary BBS? [Y/N]" BBS_ARKLUG_DEFAULT=Y
echo ************************************************************************
if -i BBS_ARKLUG_DEFAULT geq "Y" goto BBS_ARKLUG_CONF_DFLT
else goto BBS_ARKLUG_CONF_CUST
:BBS_ARKLUG_CONF_DFLT
set ENV BBS_ARKLUG_USER=DECUS
set ENV BBS_ARKLUG_SYSOP_USER=eff
set ENV BBS_ARKLUG_SYSOP_NAME=Edward F. Fredkin
goto BBS_ARKLUG_CONF_BLOCK
:BBS_ARKLUG_CONF_CUST
set ENV -p "What do you want the secondary BBS username to be?" BBS_ARKLUG_USER=DECUS
set ENV -p "%BBS_ARKLUG_USER% SYSOP Username" BBS_ARKLUG_SYSOP_USER=eff
set ENV -p "%BBS_ARKLUG_USER% SYSOP Name" BBS_ARKLUG_SYSOP_NAME=Edward F. Fredkin
echo ************************************************************************
goto BBS_ARKLUG_CONF_BLOCK
:BBS_ARKLUG_CONF_BLOCK
echo Secondary BBS Root Directory: %SCSNODE%::%UBBS_VMS4%:[%BBS_ARKLUG_USER%]
echo Secondary BBS Message Directory: %SCSNODE%::%UBBS_VMS4%:[%BBS_ARKLUG_USER%.DATA]
echo Secondary BBS File Share Directory: %SCSNODE%::%UBBS_VMS4%:[%BBS_ARKLUG_USER%.FILES]
echo Secondary BBS Login: %BBS_ARKLUG_USER%
echo Secondary BBS SYSOP: %BBS_ARKLUG_SYSOP_NAME% (%BBS_ARKLUG_SYSOP_USER%)
set ENV BBS_ARKLUG_CONF=Y
goto BBS_ARKLUG_CONF_DONE
:BBS_ARKLUG_CONF_N
set ENV BBS_ARKLUG_CONF=N
goto BBS_ARKLUG_CONF_DONE
:BBS_ARKLUG_CONF_DONE
set ENV BBS_CONF=Y
goto BBS_CONF_DONE
:BBS_CONF_N
set ENV BBS_CONF=N
set ENV BBS_ARKLUG_CONF=N
goto BBS_CONF_DONE
:BBS_CONF_DONE
echo ************************************************************************
set ENV -p "Are you satisfied with your setup options? [Y/N]" REDOSETUP=N
if -i REDOSETUP geq "Y" goto EOI
else goto SETUP
:EOI
echo ************************************************************************
echo * End of user input; please wait until the installation is complete.   *
echo *                                                                      *
if -i BBS_CONF geq "Y" goto BBS_CREVHD
else goto SKIP_BBS_CREVHD
:BBS_CREVHD
attach %UBBS_SIMH% -yf vhd dsk/bbs0_%PFX%.vhd
:SKIP_BBS_CREVHD
set CONSOLE LOG=install%PFX%.log
;
; Post-questionnaire, pre-install tasks
;
echo ************************************************************************
echo *     INSTALLATION STARTED AT %TIME%                                 *
echo ************************************************************************
set ENV -A SCSSYSTEMID=(AREA*1024)+NODE
detach %SPL0_SIMH%
detach %SPL1_SIMH%
set %SPL0_SIMH% disable
set %SPL1_SIMH% disable
;
; Restore VAX/VMS 4.6 installation kit
;
:RESTORE
noexpect
reset
set %STBK_SIMH% enable, RA60, lock
attach %CNSL_SIMH% -e dist/media/%CNSL_MEDIA%
attach %TAPE_SIMH% -er dist/media/16mt9/BB-BT05D-BE.tap
attach %STBK_SIMH% -er dist/media/ra60/staba046.ra6
expect "PLEASE ENTER DATE AND TIME (DD-MMM-YYYY  HH:MM)  " send "%DATE_DD%-%DATE_MMM%-%DATE_19XX_YYYY% %TIME%"; continue
expect "$ " send -t after=60m "backup/list/verify %TAPE_VMS4%:required./save %BOOT_VMS4%:/initialize\r"; continue
expect "Enter \"YES\" to continue: " detach %STBK_SIMH%; set %STBK_SIMH% write; goto SYSGEN46
boot %STBK_SIMH%
goto EOS
;
; Install/sysgen VAX/VMS 4.6, also install the mandatory update
;
:SYSGEN46
echo  
noexpect 
reset
set %STBK_SIMH% disable
expect "%BOOT-F-Unable to locate BOOT file" goto RESTORE
expect "Please enter the date and time (DD-MMM-YYYY HH:MM): "; send "%DATE_DD%-%DATE_MMM%-%DATE_19XX_YYYY% %TIME%\r"; continue
expect "Enter drive holding distribution kit (DDCU): " send "%TAPE_VMS4%:\r"; continue
expect "Do you want to know more about cluster system disks [N]? " send "no\r"; continue
expect "Do you want to generate a cluster common system disk [N]? " send "yes\r"; continue
expect "Enter this node's SCSSYSTEMID value: " send "%SCSSYSTEMID%\r"; continue
expect "Enter this node's SCSNODE name: " send "%SCSNODE%\r"; continue
expect "Enter new password for account SYSTEM: " send "%SYSPWD%\r"; continue
expect "Re-enter the password for account SYSTEM for verification: " send "%SYSPWD%\r"; continue
expect "Enter new password for account SYSTEST: " send "%TSTPWD%\r"; continue
expect "Re-enter the password for account SYSTEST for verification: " send "%TSTPWD%\r"; continue
expect "Enter new password for account FIELD: " send "%FLDPWD%\r"; continue
expect "Re-enter the password for account FIELD for verification: " send "%FLDPWD%\r"; continue
expect "%%SET-I-INTSET" continue
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " send "delete sys$system:startup.ins;*\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-FY83C-BE.tap; send "@sys$update:vmsinstal vmsmup046 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto UPGRADE47
boot %BOOT_SIMH%
goto EOS
;
; Upgrade VAX/VMS 4.6 system to VAX/VMS 4.7
;
:UPGRADE47
echo  
noexpect
set %SPL0_SIMH% enable, ESE20
set %SPL1_SIMH% enable, ESE20
set %STBK_SIMH% enable, RA60
attach %SPL0_SIMH% -ef vhd dsk/spool0_%PFX%.vhd
attach %SPL1_SIMH% -ef vhd dsk/spool1_%PFX%.vhd
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-KY59A-BE.tap; send "@sys$update:vmsinstal vms047 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to disable the account [YES]? " send "yes\r"; continue
expect "* Do you want to change the account password [YES]? " send "yes\r"; continue
expect "New password: " send "%TSTPWD%\r"; continue
expect "Verification: " send "%TSTPWD%\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto BLISS32
boot %BOOT_SIMH%
goto EOS
;
; Install BLISS-32 v4.4
;
:BLISS32
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-DL19D-BE.tap; send "@sys$update:vmsinstal bls32044 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want the long help file [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto BASIC
boot %BOOT_SIMH%
goto EOS
;
; Install VAX BASIC v3.2
;
:BASIC
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/tk50/AQ-FB25D-BN.tap; send "@sys$update:vmsinstal basic032 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Which option do you want to use [1]: " send "1\r"; continue
expect "* Do you want to install the BASIC HELP files [YES]? " send "yes\r"; continue
expect "* Do you want to install the VAX/VMS system definitions [YES]? " send "yes\r"; continue
expect "* Do you want to install the sample graphics programs [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto PASCAL
goto EOS
;
; Install VAX Pascal v3.7
;
:PASCAL
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-Z912L-BE.tap; send "@sys$update:vmsinstal pascal037,passtr034 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? "; send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? "; send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto COBOL
goto EOS
;
; Install VAX COBOL v4.1
;
:COBOL
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-CF41F-BE.tap; send "@sys$update:vmsinstal cobol041 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want the REFORMAT Utility installed  [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to leave COBOLIVP.COM in the [SYSTEST] directory [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto DIBOL
goto EOS
;
; Install VAX DIBOL v4.0
;
:DIBOL
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal dibol040 %CDRM_VMS4%:[dibol040.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want the entire DIBOL kit installed [YES]? " send "yes\r"; continue
expect "* Do you want to decompress DBLSTARLET.TLB [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto FORTRAN
goto EOS
;
; Install VAX FORTRAN v4.8
;
:FORTRAN
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-CJ55I-BE.tap; send "@sys$update:vmsinstal fort048,fhlp048 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you wish to have the VAX FORTRAN compiler installed [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* How many copies would you like to print [0]: " send "0\r"; continue
expect "* Do you wish to build a new FORSYSDEF.TLB [NO]? " send "yes\r"; continue
expect "* Do you want to install the larger version of FORTRAN HELP [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto RSX
goto EOS
;
; Install VAX-11/RSX v2.3
;
:RSX
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-CJ34E-BE.tap; send "@sys$update:vmsinstal rsx023 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to install the MCR help library [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto PDPF77
goto EOS
;
; Install PDP-11 FORTRAN-77/VAX v5.3
;
:PDPF77
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH37B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal for77pdp053 %CDRM_VMS4%:[for77pdp053.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto PDPFIV
goto EOS
;
; Install PDP-11 FORTRAN IV/VAX v2.8
;
:PDPFIV
noexpect
expect "$ " send "@sys$update:vmsinstal foriv028 %CDRM_VMS4%:[foriv028.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "*               Enter choice [E]: " send "I\r"; continue
expect "*               Enter choice [E]: " send "I\r"; continue
expect "* OTS hardware  (EIS,NHD,EAE,FIS,FPU) [EIS]: " send "EIS\r"; continue
expect "* Run Installation Verification Program [NO]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto PDPDBG
goto EOS
;
; Install PDP-11 Symbolic Debugger/VAX v2.1
;
:PDPDBG
noexpect
expect "$ " send "@sys$update:vmsinstal pdpdebug021 %CDRM_VMS4%:[pdpdebug021.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto SECU02
goto EOS
;
; Install VAX/VMS 4.7 Security Update #2
;
:SECU02
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-LD69A-BE.tap; send "@sys$update:vmsinstal security_upd020 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto SECU03
goto EOS
;
; Install VAX/VMS 4.7 Security Update #3
;
:SECU03
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-MI46A-BE.tap; send "@sys$update:vmsinstal v47secupd030 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto LAV
boot %BOOT_SIMH%
goto EOS
;
; Install VAX/VMS v4.x Local Area VAXcluster License Kit
;
:LAV
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/tk50/AQ-JK26A-BE.tap; send "@sys$update:vmsinstal lav010 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto VOLSHAD
boot %BOOT_SIMH%
goto EOS
;
; Install VAX/VMS Volume Shadowing
;
:VOLSHAD
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-HP33A-BE.tap; send "@sys$update:vmsinstal vmsshd010 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto UNLUSER
goto EOS
;
; Install VAX/VMS v4.x Unlimited Users License Kit
;
:UNLUSER
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/LICENSES.tap; send "@sys$update:vmsinstal unluser011 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Are you ready? " detach %TAPE_SIMH%; send "yes\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto AUTOGEN
goto EOS
;
; Modify system and user account parameters and perform an AUTOGEN; also initialize some disks
;
:AUTOGEN
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " send "set proc/priv=all\r"; continue
expect "$ " send "wait 00:01\r"; continue
expect "$ " send "initialize %SHR0_VMS4% share0\r"; continue
expect "$ " send "initialize %SHR1_VMS4% share1\r"; continue
expect "$ " send "initialize %SHR2_VMS4% share2\r"; continue
expect "$ " send "initialize %SPL0_VMS4% spool0\r"; continue
expect "$ " send "initialize %SPL1_VMS4% spool1\r"; continue
expect "$ " send "mount/system %SHR0_VMS4% share0\r"; continue
expect "$ " send "mount/system %SHR1_VMS4% share1\r"; continue
expect "$ " send "mount/system %SHR2_VMS4% share2\r"; continue
expect "$ " send "mount/system/bind=spool %SPL0_VMS4%,%SPL1_VMS4% spool0,spool1\r"; continue
expect "$ " send "create/directory %SHR0_VMS4%:[SYS0]\r"; continue
expect "$ " send "create/directory %SHR1_VMS4%:[SYS0]\r"; continue
expect "$ " send "create/directory %SHR2_VMS4%:[SYS0]\r"; continue
expect "$ " send "create/directory disk$spool:[SYS0]\r"; continue
expect "$ " send "create/directory %SHR1_VMS4%:[SYS0.DICT]\r"; continue
expect "$ " send "create/directory %SHR0_VMS4%:[SYS0.SYSMGR]\r"; continue
expect "$ " send "create/directory %SHR1_VMS4%:[SYS0.SYSMGR]\r"; continue
expect "$ " send "create/directory %SHR2_VMS4%:[SYS0.SYSMGR]\r"; continue
expect "$ " send "create/directory disk$spool:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR0_VMS4%:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR1_VMS4%:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR2_VMS4%:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM disk$spool:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR1_VMS4%:[SYS0.DICT]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR0_VMS4%:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR1_VMS4%:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR2_VMS4%:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM disk$spool:[SYS0.SYSMGR]\r"; continue
expect "$ " send -t delay=100k "copy opa0: sys$system:modparams.dat\rSCSSYSTEMID=%SCSSYSTEMID%\t! System ID for the CI\rSCSNODE=\"%SCSNODE%\"\t! System node name for CI\rSRPCOUNT=2048\rRESHASHTBL=1024\rGBLPAGES=65536\rGBLSECTIONS=2048\rGBLPAGFIL=8192\rPQL_DDIOLM=32\rCLISYMTBL=512\rRMS_DFMBFIDX=2\rINTSTKPAGES=12\rPROCSECTCNT=128\rMAXBUF=3072\r\032"; continue
expect "$ " send "set proc/priv=all\r"; continue
expect "$ " send "set default sys$system\r"; continue
expect "$ " send "mcr authorize\r"; continue
expect "UAF> " send "modify system/astlm=64/biolm=32/diolm=32/enqlm=1024/fillm=128/bytlm=196608/pgflquo=98304/pwdlifetime=none\r"; continue
expect "UAF> " send "exit\r"; continue
expect "$ " send "@sys$update:autogen savparams shutdown\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto FMS1
boot %BOOT_SIMH%
goto EOS
;
; Install VAX FMS v2.2
;
:FMS1
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " send "set proc/priv=all\r"; continue
expect "$ " send "wait 00:01\r"; continue
expect "$ " send "mount/system %SHR0_VMS4% share0\r"; continue
expect "$ " send "mount/system %SHR1_VMS4% share1\r"; continue
expect "$ " send "mount/system %SHR2_VMS4% share2\r"; continue
expect "$ " send "mount/system/bind=spool %SPL0_VMS4%,%SPL1_VMS4% spool0,spool1\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal vaxfms022 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you wish to install Sample Application Programs [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto FMS2
boot %BOOT_SIMH%
goto EOS
:FMS2
noexpect
expect "$ " send "mcr install\r"; continue
expect "INSTALL> " send "sys$share:fdvshr/open/share\r"; continue
expect "INSTALL> " send "sys$message:fdvmsg/open/share\r"; continue
expect "INSTALL> " send "\032"; continue
expect "$ " send -t delay=100k "edit/edt sys$manager:fmstartup.com\rdelete 32 thru 34\rexit\r"; continue
expect "$ " continue
expect "$ " continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal fmsflt022 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMS
goto EOS
;
; Install DEC/CMS v3.0
;
:CMS
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-DD98E-BE.tap; send "@sys$update:vmsinstal cms030 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto MMS
goto EOS
;
; Install DEC/MMS v2.4
;
:MMS
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-CH81E-BE.tap; send "@sys$update:vmsinstal mms024 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto RPG
goto EOS
;
; Install VAX RPG v2.1
;
:RPG
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal rpg021 %CDRM_VMS4%:[rpg021.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto LISP
goto EOS
;
; Install VAX LISP v2.2
;
:LISP
noexpect
expect "$ " send "@sys$update:vmsinstal lisp022 %CDRM_VMS4%:[lisp022.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you wish to install the VAX LISP product files (11500 blocks) [YES]? " send "yes\r"; continue
expect "* In which directory are the VAX LISP product files to be installed [SYS$SYSROOT:[VAXLISP]]: " send "\r"; continue
expect "* Directory SYS$SYSROOT:[VAXLISP] does not exist.  Should it be created [YES]? " send "yes\r"; continue
expect "* Do you wish to install the VAX LISP examples (5000 blocks) [NO]? " send "yes\r"; continue
expect "* In which directory are the VAX LISP examples to be installed [SYS$COMMON:[VAXLISP.EXAMPLES]]: " send "\r"; continue
expect "* Directory SYS$COMMON:[VAXLISP.EXAMPLES] does not exist.  Should it be created [YES]? " send "yes\r"; continue
expect "* Do you wish to install the VAX LISP system-building library files (13500 blocks) [NO]? " send "yes\r"; continue
expect "* In which directory are the VAX LISP system-building library files to be installed [SYS$COMMON:[VAXLISP.LIBRARY]]: " send "\r"; continue
expect "* Directory SYS$COMMON:[VAXLISP.LIBRARY] does not exist.  Should it be created [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto APL
goto EOS
;
; Install VAX APL v3.1
;
:APL
noexpect
expect "$ " send "@sys$update:vmsinstal apl031 %CDRM_VMS4%:[apl031.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want WSIS? " send "yes\r"; continue
expect "* Do you want WSINCOM and WSOUTCOM? " send "yes\r"; continue
expect "* Do you want the APL meta-functions? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Type Y when you are ready to continue? " send "y\r"; continue
expect "VMSINSTAL procedure done at " goto SCAN
goto EOS
;
; Install VAX SCAN v1.1
;
:SCAN
noexpect
expect "$ " send "@sys$update:vmsinstal scan011 %CDRM_VMS4%:[scan011.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Which function do you want to use [1]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CDD34
goto EOS
;
; Install VAX CDD v3.4
;
:CDD34
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-BR85E-BE.tap; send "@sys$update:vmsinstal cdd034 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to continue the installation [NO]? " send "yes\r"; continue
expect "* Enter the root dictionary file's device and directory: [SYS$COMMON:[SYSEXE]]: " send "%SHR1_VMS4%:[sys0.dict]\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to print the log file from the IVP [NO]? " send "no\r"; continue
expect "* Do you want to save the log file from the IVP [NO]? " send "no\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "\r"; continue
expect "VMSINSTAL procedure done at " goto CDD40
goto EOS
;
; Install VAX CDD/Plus v4.0-0
;
:CDD40
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-BR85F-BE.tap; send "@sys$update:vmsinstal cdd040 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you still want to proceed with this installation [YES]? " send "yes\r"; continue
expect "* Do you want to continue the installation [NO]? " send "yes\r"; continue
expect "* Is this the correct location for your system's CDD root dictionary file [YES]? " send "yes\r"; continue
expect "* Enter the CDD/Plus root dictionary file's device and directory: [SYS$COMMON:[CDDPLUS]]: " send "%SHR1_VMS4%:[sys0.cddplus]\r"; continue
expect "* Enter the CDD/Plus template dictionary file's device and directory: [SYS$COMMON:[CDD$TEMPLATE]]: " send "\r"; continue
expect "* Would you like all the description files provided [YES]? " send "yes\r"; continue
expect "* Is this OK [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to print the log file from the IVP [NO]? " send "no\r"; continue
expect "* Do you want to save the log file from the IVP [NO]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Please enter UIC to be used for RDB$REMOTE account (e.g. [ggg,mmm]): " send "[376,370]\r"; continue
expect "* Please enter PASSWORD to be used for RDB$REMOTE account: " send "%RDBPWD%\r"; continue
expect "* Please verify the PASSWORD entered for RDB$REMOTE: " send "%RDBPWD%\r"; continue
expect "* Do you want to continue the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto VAXELN
goto EOS
;
; Install VAX ELN v3.2 development kit
;
:VAXELN
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH37B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal eln032 %CDRM_VMS4%:[eln032.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Specify device for VAXELN directory [SYS$SYSDEVICE:]: " send "%SCSNODE%$%SHR2_VMS4%:\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* MicroVax I, MicroVax II (KA630), KA620, Microvax 3500, Microvax 3600 [NO]? " send "yes\r"; continue
expect "* 725, 730, 750 [NO]? " send "yes\r"; continue
expect "* 85nn,8700 [NO]? " send "no\r"; continue
expect "* 8800 [NO]? " send "no\r"; continue
expect "* MicroVax 2000 [NO]? " send "yes\r"; continue
expect "* 62nn [NO]? " send "no\r"; continue
expect "VMSINSTAL procedure done at " goto RDBVMS
goto EOS
;
; Install VAX Rdb/VMS v3.0A-0
;
:RDBVMS
noexpect
expect "$ " send "@sys$manager:cddshutdown\r"; continue
expect "$ " send "@sys$manager:rmonstop\r"; continue
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal rdbvmsdev030 %CDRM_VMS4%:[rdbvms.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to proceed [NO]: " send "yes\r"; continue
expect "* Please enter UIC to be used for RDB$REMOTE account (e.g. [ggg,mmm]):" send "[376,370]\r"; continue
expect "* Please enter PASSWORD to be used for RDB$REMOTE account: " send "%RDBPWD%\r"; continue
expect "* Please verify the PASSWORD entered for RDB$REMOTE: " send "%RDBPWD%\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
;;;;; expect "VMSINSTAL procedure done at " goto RDBELN
;;;;; goto EOS
;;;;; ;
;;;;; ; Install Rdb/ELN v2.1-0
;;;;; ;
;;;;; :RDBELN
;;;;; noexpect
;;;;; expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
;;;;; expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
;;;;; expect "$ " send "@eln$:gfloatrtl\r"; continue
;;;;; expect "$ " send "@sys$update:vmsinstal rdbb021 %CDRM_VMS4%:[rdbb021.kit]\r"; continue
;;;;; expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
;;;;; expect "* Do you want help displayed before each prompt [YES]? " send "no\r"; continue
;;;;; expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
;;;;; expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
;;;;; expect "* Specify device for the RDBB library directory [%SCSNODE%$%BOOT_VMS4%:]: " send "\r"; continue
;;;;; expect "* Please enter UIC to be used for RDB$REMOTE account: " send "[376,370]\r"; continue
;;;;; expect "* Please enter PASSWORD to be used for RDB$REMOTE account: " send "%RDBPWD%\r"; continue
;;;;; expect "* Please verify the PASSWORD entered for RDB$REMOTE: " send "%RDBPWD%\r"; continue
expect "VMSINSTAL procedure done at " goto DTR
goto EOS
;
; Install VAX DATATRIEVE v4.2
;
:DTR
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " send "@sys$manager:rmonstart\r"; continue
expect "$ " send "@sys$manager:cddstrtup\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-L768N-BE.tap; send "@sys$update:vmsinstal dtr042 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to use default answers for all questions [NO]? " send "no\r"; continue
expect "* Do you want to continue the installation [NO]? " send "yes\r"; continue
expect "* Do you want support for this product in VAX DATATRIEVE [YES]? " send "yes\r"; continue
expect "* Do you wish to continue with the installation [YES]? " send "yes\r"; continue
expect "* Do you plan to install this version more than once [NO]? " send "no\r"; continue
expect "* Do you wish to leave the DATATRIEVE library online [NO]? " send "yes\r"; continue
expect "* Do you want to replace the NEWUSER file [NO]? " send "yes\r"; continue
expect "* Do you want NEWUSER to create CDD directories for new users [YES]? " send "yes\r"; continue
expect "* What would you like the parent dictionary directory to be [CDD$TOP.DTR$USERS]: " send "\r"; continue
expect "* Do you want DTRSHR.EXE and DTRMSGS.EXE to be installed SHARED [YES]? " send "yes\r"; continue
expect "* Do you want DTR32.EXE to be installed SHARED [YES]? " send "yes\r"; continue
expect "* Do you want DDMF.EXE to be installed SHARED [YES]? " send "yes\r"; continue
expect "* Do you wish to have the plot definitions [YES]? " send "yes\r"; continue
expect "* Do you want the optional material [NO]? " send "yes\r"; continue
expect "* Do you want ALL the obsolete files deleted [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto DBMS
goto EOS
;
; Install VAX DBMS v4.0-379
;
:DBMS
noexpect
expect "$ " send "@sys$manager:dtrstup\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/tk50/AQ-FY07F-BE.tap; send "@sys$update:vmsinstal dbmdev040 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Continue with this installation [YES]? " send "yes\r"; continue
expect "* Do you want to continue the installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto TDMS
goto EOS
;
; Install VAX TDMS v1.8
;
:TDMS
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal TDMSDEV018 %CDRM_VMS4%:[tdms018.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to continue the installation [NO]? " send "yes\r"; continue
expect "* Do you want to install the TDMS sample applications [NO]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto ACMS
goto EOS
;
; Install VAX ACMS v3.0A
;
:ACMS
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-MN36D-RE.iso; send "mount %CDRM_VMS4%: cd_bin_90402\r"; continue
expect "$ " send "@sys$update:vmsinstal acmsdev030 %CDRM_VMS4%:[acmsdev030.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to continue the installation? [NO]? " send "yes\r"; continue
expect "* Do you want the default ACMS installation [NO]? " send "no\r"; continue
expect "* Do you want to install the VAX ACMS component software [YES]? " send "yes\r"; continue
expect "* Do you want to install the RMS COBOL sample [YES]? " send "yes\r"; continue
expect "* Do you want to install the VAX DBMS COBOL sample [YES]? " send "yes\r"; continue
expect "* Do you want to install the VAX ACMS Request Interface sample [YES]? " send "yes\r"; continue
expect "* Please enter UIC to be used for ACMS IVP [[1,4]]: " send "\r"; continue
expect "* Please enter the password for the ACMS$IVP account: " send "%ACMSPWD%\r"; continue
expect "* Please reenter the password for the ACMS$IVP account: " send "%ACMSPWD%\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to continue the installation? [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto VMSCAI1
goto EOS
;
; Install Introduction to VAX/VMS v3.0
;
:VMSCAI1
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/EY-2621E-MA-0002.tap; send "@sys$update:vmsinstal vms030 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "*                        Select option  [3]: " send "1\r"; continue
expect "* Do you want to continue the installation  [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto VMSCAI2
goto EOS
:VMSCAI2
noexpect
expect "$ " send "set protection=(s:rwed,o:rwed,g,w) sys$instruction:roster.dat\r"; goto DECNET
goto EOS
;
; Install DECnet v4.x license kit and setup DECnet
;
:DECNET
expect "$ " attach %TAPE_SIMH% -er dist/media/other/LICENSES.tap; send "@sys$update:vmsinstal netrtg040 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* What would you like to do [3]: " send "3\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to mount the console volume [NO]? " send "yes\r"; continue
expect "* Are you ready? " detach %TAPE_SIMH%; send "yes\r"; continue
expect "$ " send "@netconfig\r"; continue
expect "What do you want your DECnet node name to be?       [%SCSNODE%]: " send "%SCSNODE%\r"; continue
expect "What do you want your DECnet node name to be?        [%SCSNODE%]: " send "%SCSNODE%\r"; continue
expect "What do you want your DECnet node name to be?         [%SCSNODE%]: " send "%SCSNODE%\r"; continue
expect "What do you want your DECnet node name to be?          [%SCSNODE%]: " send "%SCSNODE%\r"; continue
expect "What do you want your DECnet node name to be?           [%SCSNODE%]: " send "%SCSNODE%\r"; continue
expect "What do you want your DECnet node name to be?            [%SCSNODE%]: " send "%SCSNODE%\r"; continue
expect "What do you want your DECnet address to be?                 : " send "%AREA%.%NODE%\r"; continue
expect "Do you want to operate as a router?        [NO (nonrouting)]: " send "yes\r"; continue
expect "Do you want a default DECnet account?                  [YES]: " send "yes\r"; continue
expect "Press RETURN to continue" send "\r"; continue
expect "Do you want to go ahead and do it? [YES]: " send "yes\r"; continue
expect "(If the license is already installed) Do you want DECnet started? [YES]: " send "no\r"; goto QUEUE
goto EOS
;
; Initialize the system queues
;
:QUEUE
noexpect
expect "$ " send "create/directory disk$spool:[SYS0.SYSQUE]\r"; continue
expect "$ " send "set directory/owner=SYSTEM disk$spool:[SYS0.SYSQUE]\r"; continue
expect "$ " send "set printer/lowercase/notab lpa0:\r"; continue
expect "$ " send "start/queue/manager/new_version disk$spool:[sys0.sysque]\r"; continue
expect "$ " send "initialize/queue/batch/job_limit=4/on=%SCSNODE%:: SYS$BATCH\r"; continue
expect "$ " send "initialize/queue/default=(flag=all,burst=one,trailer=one)/on=%SCSNODE%::LPA0: SYS$PRINT\r"; continue
expect "$ " send "@sys$manager:cddstop\r"; continue
expect "$ " send "@sys$update:autogen savparams shutdown\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto PREP
goto EOS
:PREP
;
; Prepare for the majority of layered product installation
;
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " send "set proc/priv=all\r"; continue
expect "$ " send "wait 00:01\r"; continue
expect "$ " send "mount/system %SHR0_VMS4% share0\r"; continue
expect "$ " send "mount/system %SHR1_VMS4% share1\r"; continue
expect "$ " send "mount/system %SHR2_VMS4% share2\r"; continue
expect "$ " send "mount/system/bind=spool %SPL0_VMS4%,%SPL1_VMS4% spool0,spool1\r"; continue
expect "$ " send "set printer/lowercase lpa0:\r"; continue
expect "$ " send "start/queue/manager disk$spool:[sys0.sysque]\r"; continue
expect "$ " send "start/queue/batch/job_limit=4/on=%SCSNODE%:: SYS$BATCH\r"; continue
expect "$ " send "start/queue/default=(flag=all,burst=one,trailer=one)/on=%SCSNODE%::LPA0: SYS$PRINT\r"; continue
expect "$ " send "@sys$manager:rmonstart\r"; continue
expect "$ " send "@sys$manager:cddstrtup\r"; continue
expect "$ " send "@sys$manager:fmstartup\r"; continue
expect "$ " send "@sys$manager:dtrstup\r"; continue
expect "$ " send "initialize %HOM0_VMS4% hom0\r"; continue
expect "$ " send "initialize %HOM1_VMS4% hom1\r"; continue
if -i BBS_CONF geq "Y" goto BBS_DSK_INIT
else goto SKIP_BBS_DSK_INIT
:BBS_DSK_INIT
expect "$ " send "initialize %UBBS_VMS4% ubbs\r"; continue
:SKIP_BBS_DSK_INIT
expect "$ " send "mount/system/bind=home %HOM0_VMS4%,%HOM1_VMS4% hom0,hom1\r"; goto DNS
if -i BBS_CONF geq "Y" goto BBS_DSK_MOUNT1
else goto SKIP_BBS_DSK_MOUNT1
:BBS_DSK_MOUNT1
expect "$ " send "mount/system %UBBS_VMS4% ubbs\r"; continue
:SKIP_BBS_DSK_MOUNT1
boot %BOOT_SIMH%
goto EOS
;
; Install VAX Distributed Name Service 1.1
;
:DNS
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-MN36D-RE.iso; send "mount %CDRM_VMS4%: cd_bin_90402\r"; continue
expect "$ " send "@sys$manager:startnet\r"; continue
expect "$ " send "@sys$update:vmsinstal dns011 %CDRM_VMS4%:[dns011.kit]\r"; continue
expect "* Do you want to continue anyway [NO]? " send "yes\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Is this a new namespace [NO]? " send "yes\r"; continue
expect "* Namespace Name  [%SCSNODE%_NS]: " send "%DNSNS%\r"; continue
expect "* Timezone (+hh:mm or -hh:mm): " send "+00:00\r"; continue
expect "* Clearinghouse Name  [%SCSNODE%_CH]: " send "%DNSCH%\r"; continue
expect "* Enter UIC for DNS server account (include brackets) [[371,371]]: " send "[376,371]\r"; continue
expect "* Enter password for the DNS server account: " send "%DNSPWD%\r"; continue
expect "* Verify password for the DNS server account: " send "%DNSPWD%\r"; continue
expect "* Device to be used for storing DNS$SERVER files [SYS$SYSROOT]: " send "%SHR2_VMS4%:\r"; continue
expect "VMSINSTAL procedure done at " goto DFS
goto EOS
;
; Install VAX Distributed File Service 1.1
;
:DFS
noexpect
expect "$ " send "@sys$update:vmsinstal dfs011 %CDRM_VMS4%:[dfs011.kit]\r"; continue
expect "* Do you want to continue anyway [NO]? " send "yes\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the DFS SERVER software on this node [YES]? " send "yes\r"; continue
expect "* Enter the name of an existing DNS server node: " send "%SCSNODE%\r"; continue
expect " * Enter an Access Point name [] ? " send ".IVPAP\r"; continue
expect "VMSINSTAL procedure done at " goto DQS
goto EOS
;
; Install VAX Distributed Queue Service 1.1
;
:DQS
noexpect
expect "$ " send "@sys$update:vmsinstal dqs011 %CDRM_VMS4%:[dqs011.kit]\r"; continue
expect "* Do you want to continue anyway [NO]? " send "yes\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to install the DQS server software on this node [NO]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to specify any target queues [YES]? " send "yes\r"; continue
expect "* Target queue name [<done, no more queues>]: " send "SYS$PRINT\r"; continue
expect "* Target queue name [<done, no more queues>]: " send "\r"; continue
expect "* What is the UIC of the server account in the form [###,###] [[300,311]]: " send "[376,372]\r"; continue
expect "* What device will be used for the server account [SYS$COMMON:]: " send "\r"; continue
expect "* Enter the password for the DQS$SERVER account: " send "%DQSPWD%\r"; continue
expect "* Please verify the password for the DQS server account: " send "%DQSPWD%\r"; continue
expect "* Do you want to define client queues now [YES]? " send "no\r"; continue
expect "  its server(s) [YES]? " send "yes\r"; continue
expect "  client's [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto REBOOT1
goto EOS
;
; Reboot the VAX/VMS system to avoid complaints about running servers
;
:REBOOT1
echo  
noexpect
expect "$ " send "@sys$system:shutdown\r"; continue
expect "How many minutes until final shutdown [0]: " send "0\r"; continue
expect "Reason for shutdown [Standalone]: " send "\r"; continue
expect "Do you want to spin down the disk volumes [NO]? " send "yes\r"; continue
expect "Do you want to invoke the site-specific shutdown procedure [YES]? " send "no\r"; continue
expect "Should an automatic system reboot be performed [NO]? " send "no\r"; continue
expect "When will the system be rebooted [later]: " send "\r"; continue
expect "Shutdown options [NONE]: " send "\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto REBOOT2
goto EOS
:REBOOT2
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " send "set proc/priv=all\r"; continue
expect "$ " send "wait 00:01\r"; continue
expect "$ " send "mount/system %SHR0_VMS4% share0\r"; continue
expect "$ " send "mount/system %SHR1_VMS4% share1\r"; continue
expect "$ " send "mount/system %SHR2_VMS4% share2\r"; continue
expect "$ " send "mount/system/bind=spool %SPL0_VMS4%,%SPL1_VMS4% spool0,spool1\r"; continue
expect "$ " send "mount/system/bind=home %HOM0_VMS4%,%HOM1_VMS4% hom0,hom1\r"; continue
if -i BBS_CONF geq "Y" goto BBS_DSK_MOUNT2
else goto SKIP_BBS_DSK_MOUNT2
:BBS_DSK_MOUNT2
expect "$ " send "mount/system %UBBS_VMS4% ubbs\r"; continue
:SKIP_BBS_DSK_MOUNT2
expect "$ " send "set printer/lowercase/notab lpa0:\r"; continue
expect "$ " send "start/queue/manager disk$spool:[sys0.sysque]\r"; continue
expect "$ " send "start/queue/batch/job_limit=4/on=%SCSNODE%:: SYS$BATCH\r"; continue
expect "$ " send "start/queue/default=(flag=all,burst=one,trailer=one)/on=%SCSNODE%::LPA0: SYS$PRINT\r"; continue
expect "$ " send "@sys$manager:rmonstart\r"; continue
expect "$ " send "@sys$manager:cddstrtup\r"; continue
expect "$ " send "@sys$manager:fmstartup\r"; continue
expect "$ " send "@sys$manager:dtrstup\r"; goto CMUTEK1
boot %BOOT_SIMH%
goto EOS
;
; Install the base components of CMU-Tek TCP/IP v6.3
;
:CMUTEK1
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal ipdriver063 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the IPDRIVER [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the Documentation  [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK2
goto EOS
:CMUTEK2
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal ipacp063 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the software installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Do you want the development libraries [NO]? " send "yes\r"; continue
expect "* Host Full Name: " send "%HOSTNAME%.%DOMAIN%\r"; continue
expect "* What is this Hosts IP address: " send "%HOSTADDR%\r"; continue
expect "* What is the address mask: " send "%NETMASK%\r"; continue
expect "* Which device is the network device: " send "XEA0\r"; continue
expect "* Any (more) gateways [NO]? " send "yes\r"; continue
expect "* Gateway Name: " send "%GATEWAYNAME%.%DOMAIN%\r"; continue
expect "* Gateway Address: " send "%GATEWAYADDR%\r"; continue
expect "* Gateway Network [0.0.0.0]: " send "\r"; continue
expect "* Gateway Net Mask [0.0.0.0]: " send "\r"; continue
expect "* Any (more) gateways [NO]? " send "no\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK3
goto EOS
:CMUTEK3
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal netexit063 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have NetExit help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK4
goto EOS
:CMUTEK4
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal netstat063,netlog063 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have NetLog help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have NetStat help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK5
goto EOS
:CMUTEK5
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal namsrv022,hostnm010 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have HOSTNM help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Are there any (more) servers [YES]? " send "yes\r"; continue
expect "* Server Host Name: " send "%DNSNAME%.%DOMAIN%\r"; continue
expect "* Server Address: " send "%DNSADDR%\r"; continue
expect "* Server Domain: " send ".\r"; continue
expect "* Are there any (more) servers [YES]? " send "no\r"; continue
expect "* Are there any (more) Resolvers [YES]? " send "no\r"; continue
expect "* Domain Suffix [.]: " send "%DOMAIN%.\r"; continue
expect "* Domain Suffix [.]: " send "\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto VAXC
goto EOS
;
; Install VAX C v2.4
;
:VAXC
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-BC41G-BE.tap; send "@sys$update:vmsinstal vaxc024 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "no\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to extract .H files from the text library [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto MCRPWR
goto EOS
;
; Install MicroPower/Pascal-VMS v2.5
;
:MCRPWR
noexpect
expect "$ " send "@sys$manager:vax11rsx\r"; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH37B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal MCRPWR025 %CDRM_VMS4%:[mcrpwr025.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Are you ready to continue  [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Please specify the device for [MCRPWR] directory  [SYS$SYSDEVICE:]: " send "\r"; continue
expect "VMSINSTAL procedure done at " goto GKS
goto EOS
;
; Install GKS v4.0
;
:GKS
noexpect
expect "$ " send "@sys$update:vmsinstal decgks040 %CDRM_VMS4%:[decgks040.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "*                Menu Choice [3]: " send "3\r"; continue
expect "* Have you selected all the bindings you want [YES]? " send "yes\r"; continue
expect "*                Menu Choice [25]: " send "25\r"; continue
expect "* Have you selected all the font files that you want [YES]? " send "yes\r"; continue
expect "*                Menu Choice [10]: " send "6,7,8\r"; continue
expect "*                Menu Choice [10]: " send "10\r"; continue
expect "* Have you selected all the files you want [YES]? " send "yes\r"; continue
expect "*                Menu Choice [13]: " send "3,6,7,8,9\r"; continue
expect "*                Menu Choice [13]: " send "13\r"; continue
expect "* Have you selected all the files you want [YES]? " send "yes\r"; continue
expect "* Do you wish to have the help library for GKS  [YES]? " send "yes\r"; continue
expect "* Do you wish to perform the Installation Verification Procedure [YES]? " send "yes\r"; continue
expect "* Enter the device type to use [VT3XX]: " send "TEK_OUTPUT\r"; continue
expect "* Enter the file name to use for output [SYS$MANAGER:GKSIVP.OUT]: " send "\r"; continue
expect "VMSINSTAL procedure done at " goto PHIGS
goto EOS
;
; Install VAX PHIGS v1.1
;
:PHIGS
noexpect
expect "$ " send "@sys$update:vmsinstal vaxphigs011 %CDRM_VMS4%:[vaxphigs011.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you wish to have the help library for PHIGS [YES]? " send "yes\r"; continue
expect "* Do you wish to perform the Installation Verification Procedure [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto RETOS
goto EOS
;
; Install ReGIS to Sixel Converter v1.0
;
:RETOS
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal retos010 %CDRM_VMS4%:[retos010.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK6
goto EOS
;
; Install the additional components of CMU-Tek TCP/IP v6.3
;
:CMUTEK6
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " send "create/directory %SHR0_VMS4%:[SYS0.SYSMGR.LPR]\r"; continue
expect "$ " send "create/directory %SHR0_VMS4%:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "$ " send "create/directory %SHR0_VMS4%:[SYS0.SYSMGR.MAIL]\r"; continue
expect "$ " send "create/directory %SHR0_VMS4%:[SYS0.SYSMGR.MAIL.LOG]\r"; continue
expect "$ " send "create/directory %SPL1_VMS4%:[SYS0.SYSMGR.LPR.SPOOL]\r"; continue
expect "$ " send "create/directory %SPL1_VMS4%:[SYS0.SYSMGR.MAIL.SPOOL]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR0_VMS4%:[SYS0.SYSMGR.LPR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR0_VMS4%:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR0_VMS4%:[SYS0.SYSMGR.MAIL]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SHR0_VMS4%:[SYS0.SYSMGR.MAIL.LOG]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SPL1_VMS4%:[SYS0.SYSMGR.LPR.SPOOL]\r"; continue
expect "$ " send "set directory/owner=SYSTEM %SPL1_VMS4%:[SYS0.SYSMGR.MAIL.SPOOL]\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal lprsmb012,mailsmb026,pty047 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which directory should be used for log files? [%SCSNODE%$%BOOT_VMS4%:[SYS0.][SYSMGR]]: " send "%SCSNODE%$%SHR0_VMS4%:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "* LPR Printer Name: " send "LPR$PRINT\r"; continue
expect "* Printer Host Name: " send "%LPRNAME%.%DOMAIN%\r"; continue
expect "* Any More Printers [NO]? " send "no\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Mail Forwarding File? [%SCSNODE%$%BOOT_VMS4%:[SYS0.][SYSLIB]EXPAND.TXT]: " send "\r"; continue
expect "* MailSMB Log Directory? [%SCSNODE%$%BOOT_VMS4%:[SYS0.][SYSMGR]]: " send "%SCSNODE%$%SHR0_VMS4%:[SYS0.SYSMGR.MAIL.LOG]\r"; continue
expect "* MailSMB Spool Directory? [%SCSNODE%$%BOOT_VMS4%:[SYS0.][SYSMGR]]: " send "DISK$SPOOL:[SYS0.SYSMGR.MAIL.SPOOL]\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the Documentation  [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK7
goto EOS
:CMUTEK7
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal lpr_server020,smtp_server026 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Log Directory [%SCSNODE%$%BOOT_VMS4%:[SYS0.][SYSMGR]]: " send "%SCSNODE%$%SHR0_VMS4%:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "* Spooling Directory [%SCSNODE%$%BOOT_VMS4%:[SYS0.][SYSMGR]]: " send "DISK$SPOOL:[SYS0.SYSMGR.LPR.SPOOL]\r"; continue
expect "* LPR Printer Name: " send "PRINTER\r"; continue
expect "* VMS Printer Name: " send "LPD$PRINT\r"; continue
expect "* Any More Printers [NO]? " send "no\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK8
goto EOS
:CMUTEK8
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal finger024,ftp026,telnet024 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have FINGER help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the Finger Documentation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have FTP help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the image installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Which library should have Telnet help [SYS$SYSROOT:[SYSHLP]HELPLIB.HLB]: " send "\r"; continue
expect "* Do you want the sources  [YES]? " send "yes\r"; continue
expect "* Do you want the Telnet Documentation  [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto CMUTEK9
goto EOS
:CMUTEK9
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal inet_mailshr020 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install the software [YES]? " send "yes\r"; continue
expect "* Where do you want the images installed? [%SCSNODE%$%BOOT_VMS4%:[SYS0.]]: " send "\r"; continue
expect "* Do you want the sources [YES]? " send "yes\r"; continue
expect "* Do you want the documentation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto MR
goto EOS
;
; Install VAX MESSAGEROUTER v2.0
;
:MR
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal mr020,mrgate020 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want help text printed before every question [NO]? " send "no\r"; continue
expect "* What is the local node name: " send "%SCSNODE%\r"; continue
expect "* Does the MRMANAGER account already exist? " send "no\r"; continue
expect "* What is the UIC of the MRMANAGER account : " send "[376,374]\r"; continue
expect "* What is the password for the MRMANAGER account: " send "%MRPWD%\r"; continue
expect "* Confirm the password for the MRMANAGER account: " send "%MRPWD%\r"; continue
expect "* Is the Message Router talker to run as a batch job on a schedule [NO]? " send "no\r"; continue
expect "* Is Message Router to run a permanent talker [NO]? " send "yes\r"; continue
expect "* Do you want to keep an existing Message Router database [NO]? " send "no\r"; continue
expect "* Do you want a default database to be generated for you [YES]? " send "yes\r"; continue
expect "* What is the disk and directory for the Message Router database [DDCU:[MRMANAGER]]: " send "%SHR0_VMS4%:[mrmanager]\r"; continue
expect "* What is the difference between network time and local time [00:00:00]: " send "\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Does the MRGATE account already exist [NO]? " send "no\r"; continue
expect "* What is the UIC of the MRGATE account? ([ggg,mmm]): " send "[376,375]\r"; continue
expect "* What is the device name for the MRGATE account? (ddcu): " send "disk$home:\r"; continue
expect "* Does the MRGATE directory already exist [NO]? " send "no\r"; continue
expect "* What is the password for the MRGATE mailbox: " send "%MRPWD%\r"; continue
expect "* Confirm the password for the MRGATE mailbox: " send "%MRPWD%\r"; continue
expect "VMSINSTAL procedure done at " goto DIL
goto EOS
;
; Install Data Interchange Library 2.0 VAX
;
:DIL
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-ED70A-RK.tap; send "@sys$update:vmsinstal dil020 %TAPE_VMS4%:\r"; continue
expect "* Do you want to continue anyway [NO]? " send "yes\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto AI1-1
goto EOS
;
; Install ALL-IN-1 v2.1
;
:AI1-1
noexpect
expect "$ " send "@sys$manager:mrstop\r"; continue
expect "$ " send "mcr ncp\r"; continue
expect "NCP>" send "set executor state shut\r"; continue
expect "DECnet shutting down" goto AI1-2
goto EOS
:AI1-2
noexpect
expect "NCP>" send "exit\r"; continue
expect "$ " send "@sys$manager:acmstart\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal a1021 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to print the Release Notes [YES]? " send "no\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Is this an update installation [NO]? " send "no\r"; continue
expect "* Do you want to link with DATATRIEVE [YES]? " send "yes\r"; continue
expect "* What is the name of the DATATRIEVE image you want to link with [DTRSHR]: " send "\r"; continue
expect "* Do you want to incorporate WPS-PLUS [YES]? " send "yes\r"; continue
expect "* Do you want to incorporate ACMS [YES]? " send "yes\r"; continue
expect "* What is the greatest number of simultaneous ALL-IN-1 users: " send "16\r"; continue
expect "* Which disk will hold the ALL-IN-1 library [SYS$SYSDEVICE]: " send "\r"; continue
expect "* Has a VMS account been created for ALL-IN-1 [NO]? " send "no\r"; continue
expect "* What VMS account name (username) do you want to use [ALLIN1]: " send "\r"; continue
expect "* What should its default directory be [[ALLIN1]]: " send "\r"; continue
expect "* What is the UIC used for the ALL-IN-1 library account [[1,4]]: " send "[376,377]\r"; continue
expect "* What password do you want for this account: " send "%AI1PWD%\r"; continue
expect "* What device do you want to use for the ALL-IN-1 data area (OA$DATA) [SYS$SYSDEVICE:]: " send "disk$home:\r"; continue
expect "* What directory do you want to use for the ALL-IN-1 data area [[ALLIN1.DATA]]: " send "\r"; continue
expect "* How many shared file cabinet areas would you like [1]: " send "3\r"; continue
expect "* What device would you like to use for share area number 1 [SYS$SYSDEVICE:]: " send "%SHR0_VMS4%:\r"; continue
expect "* What directory would you like to use for share area 1 [[ALLIN1.SHARE1]]: " send "\r"; continue
expect "* What device would you like to use for share area number 2 [SYS$SYSDEVICE:]: " send "%SHR1_VMS4%:\r"; continue
expect "* What directory would you like to use for share area 2 [[ALLIN1.SHARE2]]: " send "\r"; continue
expect "* What device would you like to use for share area number 3 [SYS$SYSDEVICE:]: " send "%SHR2_VMS4%:\r"; continue
expect "* What directory would you like to use for share area 3 [[ALLIN1.SHARE3]]: " send "\r"; continue
expect "* Which batch queue would you like to use for sending mail [SYS$BATCH]: " send "\r"; continue
expect "* Do you want to send and receive messages to/from other systems [NO]? " send "yes\r"; continue
expect "* Do you want to use a Message Router on another node [NO]? " send "no\r"; continue
expect "* What password would you like to use for the Message Router mailbox: " send "%AI1PWD%\r"; continue
expect "* Do you want to translate remote WPS-PLUS and DX messages to ASCII [NO]? " send "yes\r"; continue
expect "* What date format do you want [5]: " send "5\r"; continue
expect "* What date separator do you want [1]: " send "1\r"; continue
expect "* Is this correct [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto TDA
goto EOS
;
; Install TEAMDATA v1.3
;
:TDA
noexpect
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-MN36D-RE.iso; send "mount %CDRM_VMS4%: cd_bin_90402\r"; continue
expect "$ " send "@sys$update:vmsinstal tda013 %CDRM_VMS4%:[tda013.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Where should the TEAMDATA directory go [SYS$COMMON:[TEAMDATA]]: " send "\r"; continue
expect "VMSINSTAL procedure done at " goto REBOOT3
goto EOS
;
; Reboot the VAX/VMS system to prevent "insufficient memory" errors
;
:REBOOT3
echo  
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " send "@sys$system:shutdown\r"; continue
expect "How many minutes until final shutdown [0]: " send "0\r"; continue
expect "Reason for shutdown [Standalone]: " send "\r"; continue
expect "Do you want to spin down the disk volumes [NO]? " send "yes\r"; continue
expect "Do you want to invoke the site-specific shutdown procedure [YES]? " send "no\r"; continue
expect "Should an automatic system reboot be performed [NO]? " send "no\r"; continue
expect "When will the system be rebooted [later]: " send "\r"; continue
expect "Shutdown options [NONE]: " send "\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto REBOOT4
goto EOS
:REBOOT4
echo  
noexpect
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " send "set proc/priv=all\r"; continue
expect "$ " send "wait 00:01\r"; continue
expect "$ " send "mount/system %SHR0_VMS4% share0\r"; continue
expect "$ " send "mount/system %SHR1_VMS4% share1\r"; continue
expect "$ " send "mount/system %SHR2_VMS4% share2\r"; continue
expect "$ " send "mount/system/bind=spool %SPL0_VMS4%,%SPL1_VMS4% spool0,spool1\r"; continue
expect "$ " send "mount/system/bind=home %HOM0_VMS4%,%HOM1_VMS4% hom0,hom1\r"; continue
if -i BBS_CONF geq "Y" goto BBS_DSK_MOUNT3
else goto SKIP_BBS_DSK_MOUNT3
:BBS_DSK_MOUNT3
expect "$ " send "mount/system %UBBS_VMS4% ubbs\r"; continue
:SKIP_BBS_DSK_MOUNT3
expect "$ " send "set printer/lowercase/notab lpa0:\r"; continue
expect "$ " send "start/queue/manager disk$spool:[sys0.sysque]\r"; continue
expect "$ " send "start/queue/batch/job_limit=4/on=%SCSNODE%:: SYS$BATCH\r"; continue
expect "$ " send "start/queue/default=(flag=all,burst=one,trailer=one)/on=%SCSNODE%::LPA0: SYS$PRINT\r"; goto JNET_INS1
boot %BOOT_SIMH%
goto EOS
;
; Install JNET v3.5
;
:JNET_INS1
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/JNET035.tap; send "@sys$update:vmsinstal jnet035 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want Jnet temporary files on a separate device [NO]? " send "yes\r"; continue
expect "* Enter the name of the Jnet permanent file device [SYS$SYSDEVICE]: " send "%SCSNODE%$%BOOT_VMS4%:\r"; continue
expect "* Enter the name of the Jnet temporary file device [SYS$SYSDEVICE]: " send "DISK$SPOOL:\r"; continue
expect "* Do you want to install the whole kit [YES]? " send "yes\r"; continue
expect "* Does the POSTMASTER account already exist [NO]? " send "no\r"; continue
expect "* Do you want obsolete Jnet files deleted [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto JNET_INS2
goto EOS
:JNET_INS2
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/JNET035.tap; send "@sys$update:vmsinstal jnet035 %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want Jnet temporary files on a separate device [YES]? " send "yes\r"; continue
expect "* Enter the name of the Jnet permanent file device [%SCSNODE%$%BOOT_VMS4%:]: " send "\r"; continue
expect "* Enter the name of the Jnet temporary file device [DISK$SPOOL:]: " send "\r"; continue
expect "* Do you want to install the whole kit [YES]? " send "yes\r"; continue
expect "* Does the POSTMASTER account already exist [NO]? " send "yes\r"; continue
expect "* Do you want obsolete Jnet files deleted [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto JNET_INS3
goto EOS
:JNET_INS3
noexpect
expect "$ " attach %TAPE_SIMH% -er dist/media/other/JNET035.tap; send "@sys$update:vmsinstal jnettcpnje %TAPE_VMS4%:\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto JNET_CFG1
goto EOS
:JNET_CFG1
noexpect
expect "$ " send "@jan_lib:janconfig\r"; continue
expect "Enter the approximate number of nodes in your NJE network [2]: " send "16\r"; continue
expect "Do you want an NJE node name for the Jnet cluster [YES]? " send "no\r"; continue
expect "Enter the NJE node name of the local host [RED]: " send "%SCSNODE%\r"; continue
expect "Enter your local time zone: " send "GMT\r"; continue
expect "Do you want to configure the batch server [YES]? " send "yes\r"; continue
expect "Enter the NJE name of the batch server [JOB]: " send "\r"; continue
expect "Will there be any network print servers [YES]? " send "yes\r"; continue
expect "Enter the NJE name of the printer server [PRT]: " send "\r"; continue
expect "Enter the name of the print queue serving PRT [SYS$PRINT]: " send "\r"; continue
expect "Is there another network print server [NO]? " send "no\r"; continue
expect "Will any remote NJE printers be served by local queues [NO]? " send "no\r"; continue
expect "Will there be any NJE links over DECnet [YES]? " send "yes\r"; continue
expect "Enter the NJE node name of the linked system [RED]: " send "%DNANJENAME%\r"; continue
expect "Enter the DECnet node name of the linked system [%DNANJENAME%]: " send "\r"; continue
expect "Enter the DECnet link driver [DNANJE]: " send "\r"; continue
expect "Is there another NJE link over DECnet [NO]? " send "no\r"; continue
expect "Will there be any NJE links over TCP/IP [YES]? " send "yes\r"; continue
expect "Enter the name of this TCP NJE link [RED]: " send "%TCPNJENAME%\r"; continue
expect "Enter the TCP/IP implementation: " send "CMU\r"; continue
expect "Is there another TCP NJE link [NO]? " send "\r"; continue
expect "Should ENQUE and ENCASE be moved to SYS$SYSTEM [YES]? " send "yes\r"; continue
expect "%JNET-I-ROUTEFILE, define any routes in JAN_ROOT:[SYS]JANROUTES.JCP" goto JNET_CFG2A
goto EOS
:JNET_CFG2A
noexpect
expect "$ " send "@sys$manager:startnet\r"; continue
expect "DECnet event 4.10, circuit up" goto JNET_CFG2B
goto EOS
noexpect
:JNET_CFG2B
expect "$ " send "mcr ncp\r"; continue
expect "NCP>" send "define node %AREA%.%DNANJENODE% -\r"; continue
expect "_ " send "name %DNANJENAME% -\r"; continue
expect "_ " send "cpu VAX -\r"; continue
expect "_ " send "nonprivileged -\r"; continue
expect "_ " send "user DECNET\r"; continue
expect "NCP>" send "set known nodes all\r"; continue
expect "NCP>" send "exit\r"; goto JNET_CFG3
goto EOS
:JNET_CFG3
noexpect
expect "$ " send "set protection=(w:re) %SCSNODE%$%BOOT_VMS4%:[jancommon.v4.sys]jmailprot.exe\r"; continue
expect "$ " send "set protection=(w:re) %SCSNODE%$%BOOT_VMS4%:[jancommon.v4.sys]profsprot.exe\r"; continue
expect "$ " send -t delay=100k "create jan_sys:%TCPNJENAME%.PAR\rTCP.RMTNODE=%TCPNJEADDR%\rTCP.RMTPORT=175\rTCP.LCLPORT=3745\rOPRMSG=YES\rBUFF=4096\032"; continue
expect "$ " send "define/system oa$lib SYS$SYSDEVICE:[ALLIN1.LIB]\r"; continue
expect "$ " send "backup/log/delete JAN_LIB:JNET.C* OA$LIB:/OWNER=[200,200]\r"; continue
expect "$ " send "backup/log/delete JAN_LIB:PROFS.C* OA$LIB:/OWNER=[200,200]\r"; continue
expect "$ " send "backup/log/delete JAN_LIB:SPECIAL.C* OA$LIB:/OWNER=[200,200]\r"; continue
expect "$ " send "backup/log/delete JAN_LIB:ZIP.C* OA$LIB:/OWNER=[200,200]\r"; goto EDCS2A
goto EOS
;
; EDCS II v1.2
;
:EDCS2A
noexpect
expect "$ " send "@sys$manager:cddstrtup\r"; continue
expect "$ " send "@sys$manager:dtrstup\r"; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH37B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal edcs012 %CDRM_VMS4%:[edcs012.kit]\r"; continue
expect "* Do you want to continue anyway [NO]? " send "yes\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to install VAX EDCS as a CLIENT node or SERVER  [CLIENT]: " send "server\r"; continue
expect "* Enter the VAX EDCS Administrator's Password  [EDCS$ADMIN]: " send "\r"; continue
expect "* Enter the VAX EDCS Administrator's mail address  [%SCSNODE%::SYSTEM]: " send "\r"; continue
expect "* Enter the disk that will be used for these files by the SERVER: " send "%SCSNODE%$%SHR2_VMS4%\r"; continue
expect "* WARNING - The NETUAF.DAT was not found, would you like to create one [YES]? " send "yes\r"; continue
expect "* Enter the UIC for the VAX EDCS Network account: " send "[376,373]\r"; continue
expect "* Do you want to create an \033[1mempty\033[0m VAX EDCS database [NO]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto EDCS2B
goto EOS
:EDCS2B
expect "$ " send "@sys$manager:edcsstop\r"; continue
expect "$ " send "@sys$manager:cddshutdown\r"; continue
expect "$ " send "@sys$manager:rmonstop\r"; continue
expect "$ " send "mcr ncp\r"; continue
expect "NCP>" send "set executor state shut\r"; continue
expect "DECnet shutting down" goto EDCS2C
goto EOS
:EDCS2C
noexpect
expect "NCP>" send "exit\r"; goto DECALC
goto EOS
;
; Install VAX DECalc V3.0
;
:DECALC
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH36B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal calc030 %CDRM_VMS4%:[calc030.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Where would you like to place the CALC V3.0 utility files [SYS$SYSROOT:[CALC$UTILITY]]: " send "\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto DECALCPLUS
goto EOS
;
; Install VAX DECalc-PLUS V3.0
;
:DECALCPLUS
noexpect
expect "$ " send "@sys$update:vmsinstal plus030 %CDRM_VMS4%:[plus030.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Where would you like to place the PLUS V3.0 utility files [SYS$SYSROOT:[PLUS$UTILITY]]: " send "\r"; continue
expect "* Where would you like to place the PLUS V3.0 library files [SYS$SYSROOT:[PLUS$LIBRARY]]: " send "\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto XWAY
goto EOS
;
; Install Xway Data Format Conversion Program v1.1A
;
:XWAY
noexpect
expect "$ " send "@sys$update:vmsinstal xway011 %CDRM_VMS4%:[xway011.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Specify Xway library location  [SYS$SYSROOT:[xway]]: " send "SYS$SYSROOT:[XWAY]\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto DECTYPE
goto EOS
;
; Install VAX-11 DECtype v4.0
;
:DECTYPE
noexpect
expect "$ " send "@sys$update:vmsinstal dtp040 %CDRM_VMS4%:[dtp040.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "Do you want to run the IVP,(you MUST be using a VT100 or VT200 terminal)?: " send "no\r"; continue
expect "VMSINSTAL procedure done at " goto DECGRAPH
goto EOS
;
; Install VAX-11 DECgraph Business Graphics Package v1.5
;
:DECGRAPH
noexpect
expect "$ " send "@sys$update:vmsinstal graph015 %CDRM_VMS4%:[graph015.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Which option do you want to use [1]: " send "1\r"; continue
expect "* Which Release Notes option do you want to use [1]: " send "3\r"; continue
expect "* Are you ready to continue with the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect " [  SYS$SYSROOT:[DECGRAPH]  ]: " send "\r"; continue
expect "and would you like to link DECgraph with it [NO]? " send "yes\r"; continue
expect "* Do you want to link DECgraph with it [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto DOCUMENT
goto EOS
;
; Install VAX Document v1.1
;
:DOCUMENT
noexpect
expect "$ " send "@sys$update:vmsinstal doc011 %CDRM_VMS4%:[doc011.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "  be created [SYS$SYSDEVICE:[000000]]: " send "\r"; continue
expect "* Do you want to add a line printer destination [YES]? " send "yes\r"; continue
expect "* Supply destination name [LINE]: " send "\r"; continue
expect "* Supply printer queue name: " send "SYS$PRINT\r"; continue
expect "* Are these names correct [YES]? " send "yes\r"; continue
expect "* Additional qualifiers: " send "\r"; continue
expect "* Do you want to add another line printer destination? " send "no\r"; continue
expect "* Do you want to add an LN03 destination [YES]? " send "no\r"; continue
expect "* Do you want to add a POSTSCRIPT destination [YES]? " send "yes\r"; continue
expect "* Supply destination name [PS]: " send "\r"; continue
expect "* Supply printer queue name: " send "LPR$PRINT\r"; continue
expect "* Are these names correct [YES]? " send "yes\r"; continue
expect "* Additional qualifiers: " send "\r"; continue
expect "* Do you want to add another POSTSCRIPT destination? " send "no\r"; continue
expect "* Enter the IVP destination parameter: " send "LINE\r"; continue
expect "* Do you want the IVP output queued automatically [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto ADE
goto EOS
;
; Install ADE v2.4A
;
:ADE
noexpect
expect "$ " send "@sys$update:vmsinstal ade024 %CDRM_VMS4%:[ade024.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* WHAT IS THE ADE UIC [[001,004]]: " send "\r"; continue
expect "* WHAT IS THE SYSLIB UIC [[001,004]]: " send "\r"; continue
expect "* WHAT IS THE SYSHLP.EXAMPLES UIC [[001,004]]: " send "\r"; continue
expect "VMSINSTAL procedure done at " goto REPORT
goto EOS
;
; Instal DECreporter v2.1
;
:REPORT
noexpect
expect "$ " send "@sys$manager:cddstrtup\r"; continue
expect "$ " send "@sys$manager:dtrstup\r"; continue
expect "$ " send "@sys$update:vmsinstal report021 %CDRM_VMS4%:[report021.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Do you wish to link DECreporter with DATATRIEVE [YES]? " send "yes\r"; continue
expect "* do you wish to link against [DTRSHR.EXE;1]: " send "\r"; continue
expect "* to reside in this directory [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto SLS1
goto EOS
;
; Install VAX Storage Library System v1.1
;
:SLS1
noexpect
expect "$ " send "@sys$update:vmsinstal sls011 %CDRM_VMS4%:[slsrmt011.kit]\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "*  Are you ready to proceed [YES]? " send "yes\r"; continue
expect "* Will there be any remote nodes [NO]? " send "no\r"; continue
expect "* Will there be a secondary node [NO]? " send "no\r"; continue
expect "* Enter the name of the disk device SLS will use [SYS$SYSDEVICE]: " send "%SCSNODE%$%SHR1_VMS4%:\r"; continue
expect "* Enter the name of the directory SLS will use [SLS$FILES]: " send "\r"; continue
expect "* Enter the UIC for the SLS manager account [[300,301]]: " send "[376,367]\r"; continue
expect "* Choose a non-trivial password for the SLS account: " send "%SLSPWD%\r"; continue
expect "* Please enter the password again for the SLS account: " send "%SLSPWD%\r"; continue
expect "VMSINSTAL procedure done at " goto SLS2
goto EOS
:SLS2
noexpect
goto SLS2_%PFX%EDT
:SLS2_780EDT
expect "$ " send -t delay=100k "edit/edt %SHR1_VMS4%:[SLS$FILES.PARAMS]tapestart.com\rreplace 48 ;$\tLOC := CENTRAL\rreplace 62 ;$\tVLT := ARCHIVE\rreplace 136 ;$\tALLDEV := \"MTA0,MTA1\"\rreplace 152 ;$\tQUICKLOAD = 1\rexit\r"; continue
goto SLS2_SKIPCHAIN
:SLS2_795EDT
expect "$ " send -t delay=100k "edit/edt %SHR1_VMS4%:[SLS$FILES.PARAMS]tapestart.com\rreplace 48 ;$\tLOC := CENTRAL\rreplace 62 ;$\tVLT := ARCHIVE\rreplace 136 ;$\tALLDEV := \"MTA0,MTA1,MTA2,MTA3\"\rreplace 152 ;$\tQUICKLOAD = 1\rexit\r"; continue
goto SLS2_SKIPCHAIN
:SLS2_SKIPCHAIN
expect "$ " continue
expect "$ " continue
expect "$ " continue
expect "$ " continue
; !!!!! May want to edit %SHR1_VMS4%:[SLS$FILES.PARAMS]ASNUSRBAK.COM before doing SSU install !!!!!
expect "$ " goto SSU
goto EOS
;
; Install Session Support Utility v1.1
;
:SSU
noexpect
expect "$ " send "dismount/unload %CDRM_VMS4%:\r"; detach %CDRM_SIMH%; continue
expect "$ " attach %CDRM_SIMH% -er dist/media/cd/AG-NH37B-RE.iso; send "mount %CDRM_VMS4%: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal ssu011 %CDRM_VMS4%:[ssu011.kit]\r"; continue
expect "* Do you want to continue anyway [NO]? " send "yes\r"; continue
expect "* Are you satisfied with the backup of your system disk [YES]? " send "yes\r"; continue
expect "* Are you ready? " send "yes\r"; continue
expect "* Do you want to purge files replaced by this installation [YES]? " send "yes\r"; continue
expect "* Do you want to run the IVP after the installation [YES]? " send "yes\r"; continue
expect "VMSINSTAL procedure done at " goto MISC1
goto EOS
;
; Miscellaneous final setup steps
;
:MISC1
noexpect 
expect "$ " send "@sys$update:conscopy\r"; continue
expect "[8600, 8200, 78X, 750 or 730, default 8600]: " send "8600\r"; continue
expect "[8600, 8200, 78X, 750 or 730, default 78X]: " send "78X\r"; continue
expect "Do you want to SAVE or RESTORE your console RL02?: " send "save\r"; continue
expect "Do you want to SAVE or RESTORE your console floppy?: " send "save\r"; continue
expect "Enter file name of virtual disk [default SYS$DISK:CONSOLE.DSK]: " send "\r"; continue
expect "Do you want log messages as files are copied? [Y/N, default Yes]: " send "yes\r"; continue
expect "Enter console device drive (DDCU:): " send "csa1:\r"; continue
expect "and type <RETURN> when ready: " send "\r"; continue
expect "Type <RETURN> when ready: " send "\r"; goto MISC2
goto EOS
:MISC2
expect "$ " attach %TAPE_SIMH% -rf ansi-vms dist/script/*.txt; send "mount/override=id %TAPE_VMS4%:\r"; continue
expect "$ " send "copy %TAPE_VMS4%:systartup%PFX%.txt sys$manager:systartup.com\r"; continue
expect "$ " send "copy %TAPE_VMS4%:syshutdwn.txt sys$manager:syshutdwn.com\r"; continue
expect "$ " send "copy %TAPE_VMS4%:login.txt sys$manager:login.com\r"; continue
expect "$ " send "copy %TAPE_VMS4%:sylogin%PFX%.txt sys$manager:sylogin.com\r"; continue
expect "$ " send "set protection=(w:re) sylogin.com\r"; continue
expect "$ " send "dismount/unload %TAPE_VMS4%:\r"; detach %TAPE_SIMH%; continue
expect "$ " send "set default sys$system\r"; continue
expect "$ " send "mcr authorize\r"; continue
expect "UAF> " send "add %ADMINUSER%/password=temp/owner=\"%ADMINNAME%\"/dev=disk$home/dir=[USERS.%ADMINUSER%]/uic=[200,001]/flag=nodisuser/priv=all/bytlm=10240/enqlm=640/fillm=64/wsextent=1024/wsquota=512\r"; continue
expect "UAF> " send "add %TURNKEYUSER%/password=temp/owner=\"%TURNKEYNAME%\"/dev=disk$home/dir=[USERS.%TURNKEYUSER%]/uic=[200,002]/flag=nodisuser/bytlm=10240/enqlm=640/fillm=64/wsextent=1024/wsquot=512\r"; continue
; ***** expect "UAF> " send "modify decnet/nopassword/nopwdexpired/pwdlifetime=none\r"; continue
if -i BBS_CONF geq "Y" goto BBS_UAF
else goto SKIP_BBS_UAF
:BBS_UAF
expect "UAF> " send "add %BBS_USER%/nopassword/nopwdexpired/pwdlifetime=none/dev=disk$ubbs/dir=[%BBS_USER%]/uic=[177,001]\r"; continue
expect "UAF> " send "add %BBS_SYSOP_USER%/password=temp/owner=\"%BBS_SYSOP_NAME%\"/dev=disk$home/dir=[USERS.%BBS_SYSOP_USER%]/uic=[200,203]/flag=nodisuser\r"; continue
if -i BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_UAF
else goto SKIP_BBS_ARKLUG_UAF
:BBS_ARKLUG_UAF
expect "UAF> " send "add %BBS_ARKLUG_USER%/nopassword/nopwdexpired/pwdlifetime=none/dev=disk$ubbs/dir=[%BBS_ARKLUG_USER%]/uic=[177,002]\r"; continue
expect "UAF> " send "add %BBS_ARKLUG_SYSOP_USER%/password=temp/owner=\"%BBS_ARKLUG_SYSOP_NAME%\"/dev=disk$home/dir=[USERS.%BBS_ARKLUG_SYSOP_USER%]/uic=[200,204]/flag=nodisuser\r"; continue
:SKIP_BBS_ARKLUG_UAF
:SKIP_BBS_UAF
if -i DEMOUSER geq "Y" goto DEMOUSER_UAF
else goto SKIP_DEMOUSER_UAF
:DEMOUSER_UAF
expect "UAF> " send "add DNC/password=temp/owner=\"David N. Cutler\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,045]/flag=nodisuser\r"; continue
expect "UAF> " send "add DHG/password=temp/owner=\"Deborah H. Gillespie\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,263]/flag=nodisuser\r"; continue
expect "UAF> " send "add ACG/password=temp/owner=\"Andrew C. Goldstein\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,663]/flag=nodisuser\r"; continue
expect "UAF> " send "add RIH/password=temp/owner=\"Richard I. Hustvedt\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,051]/flag=nodisuser\r"; continue
expect "UAF> " send "add JAK/password=temp/owner=\"James A. Krycka\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,504]/flag=nodisuser\r"; continue
expect "UAF> " send "add LFL/password=temp/owner=\"Leo F. Laverdure\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,117]/flag=nodisuser\r"; continue
expect "UAF> " send "add HML/password=temp/owner=\"Henry M. Levy\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,772]/flag=nodisuser\r"; continue
expect "UAF> " send "add KDM/password=temp/owner=\"Kathleen D. Morse\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,501]/flag=nodisuser\r"; continue
expect "UAF> " send "add CGP/password=temp/owner=\"Carol G. Peters\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,524]/flag=nodisuser\r"; continue
expect "UAF> " send "add TJP/password=temp/owner=\"Trevor J. Porter\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,217]/flag=nodisuser\r"; continue
expect "UAF> " send "add DAR/password=temp/owner=\"Dale A. Roedger\"/dev=disk$home/dir=[USERS.DNC]/uic=[200,331]/flag=nodisuser\r"; continue
:SKIP_DEMOUSER_UAF
expect "UAF> " send "exit\r"; continue
expect "$ " send "create/directory disk$home:[USERS.%ADMINUSER%]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.%ADMINUSER%.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.%TURNKEYUSER%]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.%TURNKEYUSER%.AI1]\r"; continue
if -i DEMOUSER geq "Y" goto DEMOUSER_CREDIR
else goto SKIP_DEMOUSER_CREDIR
:DEMOUSER_CREDIR
expect "$ " send "create/directory disk$home:[USERS.ACG]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.ACG.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.CGP]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.CGP.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.DAR]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.DAR.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.DHG]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.DHG.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.DNC]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.DNC.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.HML]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.HML.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.JAK]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.JAK.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.KDM]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.KDM.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.LFL]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.LFL.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.RIH]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.RIH.AI1]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.TJP]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.TJP.AI1]\r"; continue
:SKIP_DEMOUSER_CREDIR
if -i BBS_CONF geq "Y" goto BBS_SYSOP_CREDIR
else goto SKIP_BBS_SYSOP_CREDIR
:BBS_SYSOP_CREDIR
expect "$ " send "create/directory disk$home:[USERS.%BBS_SYSOP_USER%]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.%BBS_SYSOP_USER%.AI1]\r"; continue
if -i BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_SYSOP_CREDIR
else goto SKIP_BBS_ARKLUG_SYSOP_CREDIR
:BBS_ARKLUG_SYSOP_CREDIR
expect "$ " send "create/directory disk$home:[USERS.%BBS_ARKLUG_SYSOP_USER%]\r"; continue
expect "$ " send "create/directory disk$home:[USERS.%BBS_ARKLUG_SYSOP_USER%.AI1]\r"; continue
:SKIP_BBS_ARKLUG_SYSOP_CREDIR
:SKIP_BBS_SYSOP_CREDIR
if -i BBS_CONF geq "Y" goto BBS_CREDIR
else goto SKIP_BBS_CREDIR
:BBS_CREDIR
expect "$ " send "create/directory disk$ubbs:[%BBS_USER%]\r"; continue
expect "$ " send "create/directory disk$ubbs:[%BBS_USER%.DATA]\r"; continue
expect "$ " send "create/directory disk$ubbs:[%BBS_USER%.FILES]\r"; continue
if -i BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_CREDIR
else goto SKIP_BBS_ARKLUG_CREDIR
:BBS_ARKLUG_CREDIR
expect "$ " send "create/directory disk$ubbs:[%BBS_ARKLUG_USER%]\r"; continue
expect "$ " send "create/directory disk$ubbs:[%BBS_ARKLUG_USER%.DATA]\r"; continue
expect "$ " send "create/directory disk$ubbs:[%BBS_ARKLUG_USER%.FILES]\r"; continue
:SKIP_BBS_ARKLUG_CREDIR
:SKIP_BBS_CREDIR
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%ADMINUSER%]\r"; continue
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%ADMINUSER%.AI1]\r"; continue
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%TURNKEYUSER%]\r"; continue
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%TURNKEYUSER%.AI1]\r"; continue
if -i DEMOUSER geq "Y" goto DEMOUSER_SETDIR
else goto SKIP_DEMOUSER_SETDIR
:DEMOUSER_SETDIR
expect "$ " send "set directory/owner=ACG disk$home:[USERS.ACG]\r"; continue
expect "$ " send "set directory/owner=ACG disk$home:[USERS.ACG.AI1]\r"; continue
expect "$ " send "set directory/owner=CGP disk$home:[USERS.CGP]\r"; continue
expect "$ " send "set directory/owner=CGP disk$home:[USERS.CGP.AI1]\r"; continue
expect "$ " send "set directory/owner=DAR disk$home:[USERS.DAR]\r"; continue
expect "$ " send "set directory/owner=DAR disk$home:[USERS.DAR.AI1]\r"; continue
expect "$ " send "set directory/owner=DHG disk$home:[USERS.DHG]\r"; continue
expect "$ " send "set directory/owner=DHG disk$home:[USERS.DHG.AI1]\r"; continue
expect "$ " send "set directory/owner=DNC disk$home:[USERS.DNC]\r"; continue
expect "$ " send "set directory/owner=DNC disk$home:[USERS.DNC.AI1]\r"; continue
expect "$ " send "set directory/owner=HML disk$home:[USERS.HML]\r"; continue
expect "$ " send "set directory/owner=HML disk$home:[USERS.HML.AI1]\r"; continue
expect "$ " send "set directory/owner=JAK disk$home:[USERS.JAK]\r"; continue
expect "$ " send "set directory/owner=JAK disk$home:[USERS.JAK.AI1]\r"; continue
expect "$ " send "set directory/owner=KDM disk$home:[USERS.KDM]\r"; continue
expect "$ " send "set directory/owner=KDM disk$home:[USERS.KDM.AI1]\r"; continue
expect "$ " send "set directory/owner=LFL disk$home:[USERS.LFL]\r"; continue
expect "$ " send "set directory/owner=LFL disk$home:[USERS.LFL.AI1]\r"; continue
expect "$ " send "set directory/owner=RIH disk$home:[USERS.RIH]\r"; continue
expect "$ " send "set directory/owner=RIH disk$home:[USERS.RIH.AI1]\r"; continue
expect "$ " send "set directory/owner=TJP disk$home:[USERS.TJP]\r"; continue
expect "$ " send "set directory/owner=TJP disk$home:[USERS.TJP.AI1]\r"; continue
:SKIP_DEMOUSER_SETDIR
if -i BBS_CONF geq "Y" goto BBS_SYSOP_SETDIR
else goto SKIP_BBS_SYSOP_SETDIR
:BBS_SYSOP_SETDIR
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%BBS_SYSOP_USER%]\r"; continue
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%BBS_SYSOP_USER%.AI1]\r"; continue
if -i BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_SYSOP_SETDIR
else goto SKIP_BBS_ARKLUG_SYSOP_SETDIR
:BBS_ARKLUG_SYSOP_SETDIR
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%BBS_ARKLUG_SYSOP_USER%]\r"; continue
expect "$ " send "set directory/owner=%ADMINUSER% disk$home:[USERS.%BBS_ARKLUG_SYSOP_USER%.AI1]\r"; continue
:SKIP_BBS_ARKLUG_SYSOP_SETDIR
:SKIP_BBS_SYSOP_SETDIR
if -i BBS_CONF geq "Y" goto BBS_SETDIR
else goto SKIP_BBS_SETDIR
:BBS_SETDIR
expect "$ " send "set directory/owner=%BBS_USER% disk$ubbs:[%BBS_USER%]\r"; continue
expect "$ " send "set directory/owner=%BBS_USER% disk$ubbs:[%BBS_USER%.DATA]\r"; continue
expect "$ " send "set directory/owner=%BBS_USER% disk$ubbs:[%BBS_USER%.FILES]\r"; continue
if -i BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_SETDIR
else goto SLIP_BBS_ARKLUG_SETDIR
:BBS_ARKLUG_SETDIR
expect "$ " send "set directory/owner=%BBS_ARKLUG_USER% disk$ubbs:[%BBS_ARKLUG_USER%]\r"; continue
expect "$ " send "set directory/owner=%BBS_ARKLUG_USER% disk$ubbs:[%BBS_ARKLUG_USER%.DATA]\r"; continue
expect "$ " send "set directory/owner=%BBS_ARKLUG_USER% disk$ubbs:[%BBS_ARKLUG_USER%.FILES]\r"; continue
:SKIP_BBS_ARKLUG_SETDIR
:SKIP_BBS_SETDIR
expect "$ " send "set default sys$manager\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.%ADMINUSER%.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.%TURNKEYUSER%.AI1]\r"; continue
if -i DEMOUSER geq "Y" goto DEMOUSER_COPY1
else goto SKIP_DEMOUSER_COPY1
:DEMOUSER_COPY1
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.ACG.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.CGP.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.DAR.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.DHG.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.DNC.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.HML.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.JAK.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.KDM.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.LFL.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.RIH.AI1]\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.TJP.AI1]\r"; continue
:SKIP_DEMOUSER_COPY1
if BBS_CONF geq "Y" goto BBS_SYSOP_COPY1
else goto SKIP_BBS_SYSOP_COPY1
:BBS_SYSOP_COPY1
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.%BBS_SYSOP_USER%.AI1]\r"; continue
if BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_SYSOP_COPY1
else goto SKIP_BBS_ARKLUG_SYSOP_COPY1
:BBS_ARKLUG_SYSOP_COPY1
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[USERS.%BBS_ARKLUG_SYSOP_USER%.AI1]\r"; continue
:SKIP_BBS_ARKLUG_SYSOP_COPY1
:SKIP_BBS_SYSOP_COPY1
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.%ADMINUSER%]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.%TURNKEYUSER%]login.com\r"; continue
if -i DEMOUSER geq "Y" goto DEMOUSER_COPY2
else goto SKIP_DEMOUSER_COPY2
:DEMOUSER_COPY2
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.ACG]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.CGP]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.DAR]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.DHG]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.DNC]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.HML]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.JAK]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.KDM]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.LFL]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.RIH]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.TJP]login.com\r"; continue
:SKIP_DEMOUSER_COPY2
if BBS_CONF geq "Y" goto BBS_SYSOP_COPY2
else goto SKIP_BBS_SYSOP_COPY2
:BBS_SYSOP_COPY2
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.%BBS_SYSOP_USER%]login.com\r"; continue
if BBS_ARKLUG_CONF geq "Y" goto BBS_ARKLUG_SYSOP_COPY2
else goto SKIP_BBS_ARKLUG_SYSOP_COPY2
:BBS_ARKLUG_SYSOP_COPY2
expect "$ " send "copy sys$manager:login.com disk$home:[USERS.%BBS_ARKLUG_SYSOP_USER%]login.com\r"; continue
:SKIP_BBS_ARKLUG_SYSOP_COPY2
:SKIP_BBS_SYSOP_COPY2
expect "$ " send "copy sys$manager:login.com sys$sysdevice:[allin1.lib.user]login.com\r"; goto MISC3
goto EOS
;
; Compile (if needed) and install MATLAB, XYZZY, CD, and MICRO2
;
:MISC3
expect "$ " send "set default sys$manager\r"; continue
expect "$ " send "create/directory [.MATLAB]\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/other/MATLAB.tap; send "mount/foreign %TAPE_VMS4%:\r"; continue
expect "$ " send "backup %TAPE_VMS4%:matlab.bck/save_set [.matlab]\r"; continue
expect "$ " send "dismount/unload %TAPE_VMS4%:\r"; continue
expect "$ " send "set default [.MATLAB]\r"; continue
expect "$ " send "@matlab$build\r"; continue
expect "$ " send "@matlab$install\r"; continue
expect "$ " send "set default sys$manager\r"; continue
expect "$ " send "create/directory [.XYZZY]\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/other/XYZZY.tap; send "mount/foreign %TAPE_VMS4%:\r"; continue
expect "$ " send "backup %TAPE_VMS4%:xyzzy.bck/save_set [.xyzzy]\r"; continue
expect "$ " send "dismount/unload %TAPE_VMS4%:\r"; continue
expect "$ " send "set default [.XYZZY]\r"; continue
expect "$ " send "@xyzzy$build\r"; continue
expect "$ " send "@xyzzy$install\r"; continue
expect "$ " send "set default sys$manager\r"; continue
expect "$ " send "create/directory [.CD55B]\r"; continue
expect "$ " attach %TAPE_SIMH% -er dist/media/other/CD55B.tap; send "mount/foreign %TAPE_VMS4%:\r"; continue
expect "$ " send "backup %TAPE_VMS4%:cd55b.bck/save_set [.cd55b]\r"; continue
expect "$ " send "dismount/unload %TAPE_VMS4%:\r"; continue
expect "$ " send "set default [.CD55B]\r"; continue
expect "$ " send "@bldcd\r"; continue
expect "$ " send "copy cd.exe sys$system:cd.exe\r"; continue
expect "$ " send "set protection=(s:rwed,o:rwed,g:rwed,w:re) sys$system:cd.exe\r"; continue
expect "$ " send "library/create/help sys$help:cdhelp cdhelp.hlp\r"; continue
expect "$ " send "set protection=(s:rwd,o:rwd,g:rwd,w:r) sys$help:cdhelp.hlb\r"; continue
if -i BBS_CONF geq "Y" goto BBS_INSTALL
else goto SKIP_BBS_INSTALL
:BBS_INSTALL




:SKIP_BBS_INSTALL
expect "$ " attach %TAPE_SIMH% -er dist/media/other/MICRO2.tap; send "mount %TAPE_VMS4%: MICRO2\r"; continue
expect "$ " send "copy %TAPE_VMS4%:micro2.exe sys$system:micro2.exe\r"; continue
expect "$ " send "dismount/unload %TAPE_VMS4%:\r"; continue
expect "$ " send "set protection=(s:rwed,o:rwed,g:rwed,w:re) sys$system:micro2.exe\r"; continue
expect "$ " send "set default sys$manager\r"; goto STABACKIT1
goto EOS
;
; Cut a pair of standalone backup kits - RA60 and system console device
;
:STABACKIT1
noexpect
if exist bak/staba047.ra6 goto STABACKIT2
expect "$ " send "@sys$update:stabackit\r"; continue
expect "Enter the name of the device on which to build the kit: " attach %STBK_SIMH% -yf vhd bak/staba047.ra6; send "%STBK_VMS4%:\r"; continue
expect "Do you want to initialize [Yes/No, default No]: " send "yes\r"; continue
expect "Enter the new volume label [default STANDBACKUP]: " send "\r"; goto STABACKIT2
goto EOS
:STABACKIT2
noexpect
expect "$ " send "mcr sysgen\r"; continue
expect "SYSGEN>  " send "connect console\r"; continue
expect "SYSGEN>  " send "exit\r"; goto STABACKIT%PFX%
goto EOS
:STABACKIT780
noexpect
expect "$ " send "dismount/unload csa1:\r"; detach %CNSL_SIMH%; set %CNSL_SIMH% WRITE; continue
expect "$ " send "@sys$update:stabackit\r"; continue
expect "Enter the name of the device on which to build the kit: " attach %CNSL_SIMH% -iy bak/staba047-1.rx1; send "csa1:\r"; continue
expect "Do you want to build the system kit?       [Yes/No, default Yes]: " send "yes\r"; continue
expect "Do you want to build the application kit?  [Yes/No, default Yes]: " send "yes\r"; continue
expect "Do you want to scan for bad blocks?  [Yes/No, default No]: " send "no\r"; continue
expect "Do you want to verify copies?  [Yes/No, default No]: " send "yes\r"; continue
expect "Enter \"YES\" when ready: " send "yes\r"; continue
expect "Enter \"YES\" when ready: " attach %CNSL_SIMH% -iy bak/staba047-2.rx1; send "yes\r"; continue
expect "Enter \"YES\" when ready: " attach %CNSL_SIMH% -iy bak/staba047-3.rx1; send "yes\r"; continue
expect "Enter \"YES\" when ready: " attach %CNSL_SIMH% -iy bak/staba047-4.rx1; send "yes\r"; continue
expect "Enter \"YES\" when ready: "; detach %CNSL_SIMH%; set %CNSL_SIMH% LOCK; attach %CNSL_SIMH% -e dist/media/%CNSL_MEDIA%; send "yes\r"; goto SHUT
goto EOS
:STABACKIT795
noexpect
expect "$ " send "dismount/unload csa1:\r"; detach %CNSL_SIMH%; set %CNSL_SIMH% WRITE; continue
expect "$ " send "@sys$update:stabackit\r"; continue
expect "Enter the name of the device on which to build the kit: " attach %CNSL_SIMH% -iy bak/staba047.rl2; send "csa1:\r"; continue
expect "Do you want to initialize [Yes/No, default No]: " send "yes\r"; continue
expect "Enter the new volume label [default STANDBACKUP]: " send "\r"; continue
expect "Enter \"YES\" when ready: "; detach %CNSL_SIMH%; set %CNSL_SIMH% LOCK; attach %CNSL_SIMH% -e dist/media/%CNSL_MEDIA%; send "yes\r"; goto SHUT
goto EOS
:SHUT
noexpect
expect "$ " send "@sys$system:shutdown\r"; continue
expect "How many minutes until final shutdown [0]: " send "\r"; continue
expect "Reason for shutdown [Standalone]: " send "\r"; continue
expect "Do you want to spin down the disk volumes [NO]? " send "yes\r"; continue
expect "Do you want to invoke the site-specific shutdown procedure [YES]? " send "no\r"; continue
expect "Should an automatic system reboot be performed [NO]? " send "\r"; continue
expect "When will the system be rebooted [later]: " send "\r"; continue
expect "Shutdown options [NONE]: " send "\r"; continue
expect "SYSTEM SHUTDOWN COMPLETE - USE CONSOLE TO HALT SYSTEM\r\000\000" goto STOP
goto EOS
:BACKUP
noexpect
set %TAPE_SIMH% WRITE
attach %CNSL_SIMH% -e dist/media/%CNSL_MEDIA%
attach %STBK_SIMH% -er bak/staba047.ra6
;expect "PLEASE ENTER DATE AND TIME (DD-MMM-YYYY  HH:MM)  " send "%DATE_DD%-%DATE_MMM%-%DATE_19XX_YYYY% %TIME%"; continue
expect "$ " attach %TAPE_SIMH% bak/vms047.tap ; send -t after=60m "backup/image/verify %BOOT_VMS4%: %TAPE_VMS4%:system.bck/rewind/label=SYSBAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach %TAPE_SIMH% bak/share0_%PFX%.tap ; send -t after=60m "backup/image/verify %SHR0_VMS4%: %TAPE_VMS4%:share0.bck/rewind/label=SH0BAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach %TAPE_SIMH% bak/share1_%PFX%.tap ; send -t after=60m "backup/image/verify %SHR1_VMS4%: %TAPE_VMS4%:share1.bck/rewind/label=SH1BAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach %TAPE_SIMH% bak/share2_%PFX%.tap ; send -t after=60m "backup/image/verify %SHR2_VMS4%: %TAPE_VMS4%:share2.bck/rewind/label=SH2BAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach %TAPE_SIMH% bak/spool_%PFX%.tap ; send -t after=60m "backup/image/verify %SPL0_VMS4%:,%SPL1_VMS4%: %TAPE_VMS4%:spool.bck/rewind/label=SPLBAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach %TAPE_SIMH% bak/home_%PFX%.tap ; send -t after=60m "backup/image/verify %HOM0_VMS4%:,%HOM1_VMS4%: %TAPE_VMS4%:home.bck/rewind/label=HOMBAK\r"; continue
expect "Enter \"YES\" to continue: " detach %TAPE_SIMH%; detach %STBK_SIMH%; goto STOP
boot %STBK_SIMH%
:EOS
continue
:STOP
echo  
echo ************************************************************************
echo * VAX/VMS v4.7 "Turnkey" system installion is complete.                *
echo *                                                                      *
echo *     INSTALLATION ENDED AT %TIME%                                   *
echo *                                                                      *
echo * Exit the VAX simulator before booting the system.                    *
echo ************************************************************************
set CONSOLE NOLOG
:END
