set quiet
set THROTTLE 90%
set CS0 LOCK
set TU0 LOCK
mkdir dsk
mkdir bak
attach RQ0 -yf vhd dsk/vms0.dsk
attach RQ1 -yf vhd dsk/share0.dsk
attach RQ2 -yf vhd dsk/share1.dsk
attach RQ3 -yf vhd dsk/share2.dsk
attach RQB0 -yf vhd dsk/spool0.dsk
attach RQB1 -yf vhd dsk/spool1.dsk
attach RP0 -yf vhd dsk/hom0.dsk
attach RP1 -yf vhd dsk/hom1.dsk
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 will be 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. 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 *     28. Wingra Technologies Inc. JNET v3.5, and JNET TCP NJE v1.1    *
echo *     29. Message Router v2.0                                          *
echo *     30. Message Router/VMSmail Gateway v2.0                          *
echo *     31. Data Interchange Library (DIL) v2.0                          *
echo *     32. VAX Distributed Name Service v1.1                            *
echo *     33. VAX Distributed File Service v1.1                            *
echo *     34. VAX Distributed Queue Service v1.1                           *
echo *     35. VAX-11/RSX v2.3                                              *
echo *          i. PDP-11 FORTRAN-77/VAX v5.3                               *
echo *         ii. PDP-11 Symbolic Debugger/VAX v2.1-00                     *
echo *        iii. MicroPower/Pascal-VMS v2.5                               *
echo *     36. VAX-11 DECtype v4.0                                          *
echo *     37. VAX-11 DECgraph Business Graphics Package v1.5               *
echo *     38. ALL-IN-1 v2.1                                                *
echo *     39. TEAMDATA v1.3                                                *
echo *     40. VAX DECalc v3.0, and VAX DECalc-Plus v3.0                    *
echo *     41. Xway Data Format Conversion Program v1.1A                    *
echo *     42. VAX Document v1.1                                            *
echo *     43. Session Support Utility v1.1                                 *
echo *     44. Cleve Moler's "Classic" MATLAB, v82.145                      *
echo *     45. David Bolen's "XYZZY" Network Chat                           *
echo *     46. TECsys Development Inc. "CD" Utiliy v5.5B                    *
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 "DECdns Password" DNSPWD=%SYSPWD%
set ENV -p "DECdqs Password" DQSPWD=%SYSPWD%
set ENV -p "MRMANAGER & MRGATE Password" MRPWD=%SYSPWD%
set ENV -p "ALL-IN-1 Password" AI1PWD=%SYSPWD%
set ENV -p "Username" USER=dnc
set ENV -p "Name" NAME=Dave N. Cutler
set ENV -p "DECnet Name" SCSNODE=795VAX
set ENV -p "DECnet Area" AREA=1
set ENV -p "DECnet Node" NODE=795
set ENV -p "DECdns Namespace" DNSNS=%SCSNODE%_NS
set ENV -p "DECdns Clearinghouse" DNSCH=%SCSNODE%_CH
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 * 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=795vax
set ENV -p "Gateway Name" GATEWAYNAME=gateway
set ENV -p "DNS Server Name" DNSNAME=gateway
set ENV -p "LPR Server Name" LPRNAME=service
echo ************************************************************************
echo * The pre-configured IP address and subnet mask are illustrative only  *
echo * and should be replaced with actual, usable, addresses -- either a    *
echo * publicly routable address, or one within the three available private *
echo * address ranges: 10.0.0.0/8, 172.16.0.0/12, 192.168.0.0/16            *
echo ************************************************************************
set ENV -p "Host Address" HOSTADDR=203.0.113.75
set ENV -p "Subnet Mask" NETMASK=255.255.255.0
set ENV -p "Gateway Address" GATEWAYADDR=203.0.113.1
set ENV -p "DNS Server Address" DNSADDR=203.0.113.1
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 ************************************************************************
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 *                                                                      *
set CONSOLE LOG=install.log
echo ************************************************************************
echo *     INSTALLATION STARTED AT %TIME%                                 *
echo ************************************************************************
set ENV -A SCSSYSTEMID=(AREA*1024)+NODE
detach RQB0
detach RQB1
set RQB0 disable
set RQB1 disable
;
; Restore VAX/VMS 4.6 installation kit
;
:RESTORE
noexpect
reset
set RQB2 enable, RA60, lock
attach CS0 -e dist/media/rl02/BC-FI18T-DE.rl2
attach TU0 -er dist/media/16mt9/BB-BT05D-BE.tap
attach RQB2 -er dist/media/ra60/STABA040.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 mta0:required./save dua0:/initialize\r"; continue
expect "$ "; detach RQB2; goto SYSGEN46
boot RQB2
goto EOS
;
; Install/sysgen VAX/VMS 4.6, also install the mandatory update
;
:SYSGEN46
echo  
noexpect 
reset
set RQB2 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 "mta0:\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 TU0 -er dist/media/16mt9/BB-FY83C-BE.tap; send "@sys$update:vmsinstal vmsmup046 mta0:\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 RQ0
goto EOS
;
; Upgrade VAX/VMS 4.6 system to VAX/VMS 4.7
;
:UPGRADE47
echo  
noexpect
set RQB0 enable, ESE20
set RQB1 enable, ESE20
set RQB2 enable, RA60
attach RQB0 -ef vhd dsk/spool0.dsk
attach RQB1 -ef vhd dsk/spool1.dsk
expect "%%SET-I-INTSET" send -t after=2m "\r"; continue
expect "Username: " send "SYSTEM\r"; continue
expect "Password: " send "%SYSPWD%\r"; continue
expect "$ " attach TU0 -er dist/media/16mt9/BB-KY59A-BE.tap; send "@sys$update:vmsinstal vms047 mta0:\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 RQ0
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 TU0 -er dist/media/16mt9/BB-DL19D-BE.tap; send "@sys$update:vmsinstal bls32044 mta0:\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 RQ0
goto EOS
;
; Install VAX BASIC v3.2
;
:BASIC
noexpect
expect "$ " attach TU0 -er dist/media/tk50/AQ-FB25D-BN.tap; send "@sys$update:vmsinstal basic032 mta0:\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 TU0 -er dist/media/16mt9/BB-Z912L-BE.tap; send "@sys$update:vmsinstal pascal037,passtr034 mta0:\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 TU0 -er dist/media/16mt9/BB-CF41F-BE.tap; send "@sys$update:vmsinstal cobol041 mta0:\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 RQC0 -er dist/media/cd/AG-NH36B-RE.iso; send "mount duc0: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal dibol040 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " attach TU0 -er dist/media/16mt9/BB-CJ55I-BE.tap; send "@sys$update:vmsinstal fort048,fhlp048 mta0:\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 TU0 -er dist/media/16mt9/BB-CJ34E-BE.tap; send "@sys$update:vmsinstal rsx023 mta0:\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 RQC0 -er dist/media/cd/AG-NH37B-RE.iso; send "mount duc0: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal for77pdp053 duc0:[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 PDPDBG
goto EOS
;
; Install PDP-11 Symbolic Debugger/VAX v2.1
;
:PDPDBG
noexpect
expect "$ " send "@sys$update:vmsinstal pdpdebug021 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " attach TU0 -er dist/media/16mt9/BB-LD69A-BE.tap; send "@sys$update:vmsinstal security_upd020 mta0:\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 TU0 -er dist/media/16mt9/BB-MI46A-BE.tap; send "@sys$update:vmsinstal v47secupd030 mta0:\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 RQ0
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 TU0 -er dist/media/tk50/AQ-JK26A-BE.tap; send "@sys$update:vmsinstal lav010 mta0:\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 RQ0
goto EOS
;
; Install VAX/VMS Volume Shadowing
;
:VOLSHAD
noexpect
expect "$ " attach TU0 -er dist/media/16mt9/BB-HP33A-BE.tap; send "@sys$update:vmsinstal vmsshd010 mta0:\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 TU0 -er dist/media/other/LICENSES.tap; send "@sys$update:vmsinstal unluser011 mta0:\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 TU0; 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 dua1 share0\r"; continue
expect "$ " send "initialize dua2 share1\r"; continue
expect "$ " send "initialize dua3 share2\r"; continue
expect "$ " send "initialize dub0 spool0\r"; continue
expect "$ " send "initialize dub1 spool1\r"; continue
expect "$ " send "mount/system dua1 share0\r"; continue
expect "$ " send "mount/system dua2 share1\r"; continue
expect "$ " send "mount/system dua3 share2\r"; continue
expect "$ " send "mount/system/bind=spool dub0,dub1 spool0,spool1\r"; continue
expect "$ " send "create/directory dua1:[SYS0]\r"; continue
expect "$ " send "create/directory dua2:[SYS0]\r"; continue
expect "$ " send "create/directory dua3:[SYS0]\r"; continue
expect "$ " send "create/directory disk$spool:[SYS0]\r"; continue
expect "$ " send "create/directory dua2:[SYS0.DICT]\r"; continue
expect "$ " send "create/directory dua1:[SYS0.SYSMGR]\r"; continue
expect "$ " send "create/directory dua2:[SYS0.SYSMGR]\r"; continue
expect "$ " send "create/directory dua3:[SYS0.SYSMGR]\r"; continue
expect "$ " send "create/directory disk$spool:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua1:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua2:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua3:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM disk$spool:[SYS0]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua2:[SYS0.DICT]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua1:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua2:[SYS0.SYSMGR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua3:[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=32768\rGBLSECTIONS=1024\rGBLPAGFIL=4096\rPQL_DDIOLM=32\rCLISYMTBL=512\rRMS_DFMBFIDX=2\rINTSTKPAGES=12\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/enqlm=1024/fillm=128/bytlm=81920/pgflquo=16384\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 RQ0
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 dua1 share0\r"; continue
expect "$ " send "mount/system dua2 share1\r"; continue
expect "$ " send "mount/system dua3 share2\r"; continue
expect "$ " send "mount/system/bind=spool dub0,dub1 spool0,spool1\r"; continue
expect "$ " send "dismount/unload duc0:\r"; detach RQC0; continue
expect "$ " attach TU0 -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal vaxfms022 mta0:\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 RQ0
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 TU0 -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal fmsflt022 mta0:\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 TU0 -er dist/media/16mt9/BB-DD98E-BE.tap; send "@sys$update:vmsinstal cms030 mta0:\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 TU0 -er dist/media/16mt9/BB-CH81E-BE.tap; send "@sys$update:vmsinstal mms024 mta0:\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 "$ " send "@sys$update:vmsinstal rpg021 duc0:[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 duc0:[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 duc0:[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 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " attach TU0 -er dist/media/16mt9/BB-BR85E-BE.tap; send "@sys$update:vmsinstal cdd034 mta0:\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 "dua2:[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 TU0 -er dist/media/16mt9/BB-BR85F-BE.tap; send "@sys$update:vmsinstal cdd040 mta0:\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 "dua2:[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 RDB
goto EOS
;
; Install VAX Rdb/VMS v3.0
;
:RDB
noexpect
expect "$ " send "@sys$manager:cddshutdown\r"; continue
expect "$ " send "@sys$manager:rmonstop\r"; continue
expect "$ " attach RQC0 -er dist/media/cd/AG-NH36B-RE.iso; send "mount duc0: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal rdbvmsdev030 duc0:[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 DTR
goto EOS
;
; Install VAX DATATRIEVE v4.2
;
:DTR
expect "$ " send "dismount/unload duc0:\r"; detach RQC0; continue
expect "$ " send "@sys$manager:rmonstart\r"; continue
expect "$ " send "@sys$manager:cddstrtup\r"; continue
expect "$ " attach TU0 -er dist/media/16mt9/BB-L768N-BE.tap; send "@sys$update:vmsinstal dtr042 mta0:\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 TU0 -er dist/media/tk50/AQ-FY07F-BE.tap; send "@sys$update:vmsinstal dbmdev040 mta0:\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 RQC0 -er dist/media/cd/AG-NH36B-RE.iso; send "mount duc0: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal TDMSDEV018 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " attach RQC0 -er dist/media/cd/AG-MN36D-RE.iso; send "mount duc0: cd_bin_90402\r"; continue
expect "$ " send "@sys$update:vmsinstal acmsdev030 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " attach TU0 -er dist/media/16mt9/EY-2621E-MA-0002.tap; send "@sys$update:vmsinstal vms030 mta0:\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 TU0 -er dist/media/other/LICENSES.tap; send "@sys$update:vmsinstal netrtg040 mta0:\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 TU0; 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 dua1 share0\r"; continue
expect "$ " send "mount/system dua2 share1\r"; continue
expect "$ " send "mount/system dua3 share2\r"; continue
expect "$ " send "mount/system/bind=spool dub0,dub1 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 dra0 hom0\r"; continue
expect "$ " send "initialize dra1 hom1\r"; continue
expect "$ " send "mount/system/bind=home dra0,dra1 hom0,hom1\r"; goto DNS
boot RQ0
goto EOS
;
; Install VAX Distributed Name Service 1.1
;
:DNS
noexpect
expect "$ " attach RQC0 -er dist/media/cd/AG-MN36D-RE.iso; send "mount duc0: cd_bin_90402\r"; continue
expect "$ " send "@sys$manager:startnet\r"; continue
expect "$ " send "@sys$update:vmsinstal dns011 duc0:[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 "\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 "dua3:\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 duc0:[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 duc0:[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 "\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 dua1 share0\r"; continue
expect "$ " send "mount/system dua2 share1\r"; continue
expect "$ " send "mount/system dua3 share2\r"; continue
expect "$ " send "mount/system/bind=spool dub0,dub1 spool0,spool1\r"; continue
expect "$ " send "mount/system/bind=home dra0,dra1 hom0,hom1\r"; continue
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 RQ0
goto EOS
;
; Install the base components of CMU-Tek TCP/IP v6.3
;
:CMUTEK1
noexpect
expect "$ " attach TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal ipdriver063 mta0:\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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal ipacp063 mta0:\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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal netexit063 mta0:\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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal netstat063,netlog063 mta0:\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%$DUA0:[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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal namsrv022,hostnm010 mta0:\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%$DUA0:[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%$DUA0:[SYS0.]]: " send "yes\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 TU0 -er dist/media/16mt9/BB-BC41G-BE.tap; send "@sys$update:vmsinstal vaxc024 mta0:\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 RQC0 -er dist/media/cd/AG-NH37B-RE.iso; send "mount duc0: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal MCRPWR025 duc0:[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 duc0:[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 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " attach RQC0 -er dist/media/cd/AG-NH36B-RE.iso; send "mount duc0: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal retos010 duc0:[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 duc0:\r"; detach RQC0; continue
expect "$ " send "create/directory dua1:[SYS0.SYSMGR.LPR]\r"; continue
expect "$ " send "create/directory dua1:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "$ " send "create/directory dua1:[SYS0.SYSMGR.MAIL]\r"; continue
expect "$ " send "create/directory dua1:[SYS0.SYSMGR.MAIL.LOG]\r"; continue
expect "$ " send "create/directory dub1:[SYS0.SYSMGR.LPR.SPOOL]\r"; continue
expect "$ " send "create/directory dub1:[SYS0.SYSMGR.MAIL.SPOOL]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua1:[SYS0.SYSMGR.LPR]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua1:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua1:[SYS0.SYSMGR.MAIL]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dua1:[SYS0.SYSMGR.MAIL.LOG]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dub1:[SYS0.SYSMGR.LPR.SPOOL]\r"; continue
expect "$ " send "set directory/owner=SYSTEM dub1:[SYS0.SYSMGR.MAIL.SPOOL]\r"; continue
expect "$ " attach TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal lprsmb012,mailsmb026,pty047 mta0:\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%$DUA0:[SYS0.]]: " send "\r"; continue
expect "* Which directory should be used for log files? [%SCSNODE%$DUA0:[SYS0.][SYSMGR]]: " send "%SCSNODE%$DUA1:[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%$DUA0:[SYS0.]]: " send "\r"; continue
expect "* Mail Forwarding File? [%SCSNODE%$DUA0:[SYS0.][SYSLIB]EXPAND.TXT]: " send "\r"; continue
expect "* MailSMB Log Directory? [%SCSNODE%$DUA0:[SYS0.][SYSMGR]]: " send "%SCSNODE%$DUA1:[SYS0.SYSMGR.MAIL.LOG]\r"; continue
expect "* MailSMB Spool Directory? [%SCSNODE%$DUA0:[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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal lpr_server020,smtp_server026 mta0:\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%$DUA0:[SYS0.]]: " send "\r"; continue
expect "* Log Directory [%SCSNODE%$DUA0:[SYS0.][SYSMGR]]: " send "%SCSNODE%$DUA1:[SYS0.SYSMGR.LPR.LOG]\r"; continue
expect "* Spooling Directory [%SCSNODE%$DUA0:[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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal finger024,ftp026,telnet024 mta0:\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%$DUA0:[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%$DUA0:[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%$DUA0:[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 TU0 -er dist/media/other/CMUTEK063.tap; send "@sys$update:vmsinstal inet_mailshr020 mta0:\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%$DUA0:[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 TU0 -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal mr020,mrgate020 mta0:\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 "dua1:[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 TU0 -er dist/media/16mt9/BB-ED70A-RK.tap; send "@sys$update:vmsinstal dil020 mta0:\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 TU0 -er dist/media/16mt9/BB-N326D-BE.tap; send "@sys$update:vmsinstal a1021 mta0:\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 "dua1:\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 "dua2:\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 "dua3:\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 RQC0 -er dist/media/cd/AG-MN36D-RE.iso; send "mount duc0: cd_bin_90402\r"; continue
expect "$ " send "@sys$update:vmsinstal tda013 duc0:[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 duc0:\r"; detach RQC0; 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 dua1 share0\r"; continue
expect "$ " send "mount/system dua2 share1\r"; continue
expect "$ " send "mount/system dua3 share2\r"; continue
expect "$ " send "mount/system/bind=spool dub0,dub1 spool0,spool1\r"; continue
expect "$ " send "mount/system/bind=home dra0,dra1 hom0,hom1\r"; continue
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 RQ0
goto EOS
;
; Install JNET v3.5
;
:JNET_INS1
noexpect
expect "$ " attach TU0 -er dist/media/other/JNET035.tap; send "@sys$update:vmsinstal jnet035 mta0:\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%$DUA0:\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 TU0 -er dist/media/other/JNET035.tap; send "@sys$update:vmsinstal jnet035 mta0:\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%$DUA0:]: " 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 TU0 -er dist/media/other/JNET035.tap; send "@sys$update:vmsinstal jnettcpnje mta0:\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 "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 "set executor state shut\r"; continue
expect "DECnet shutting down" goto JNET_CFG2C
goto EOS
:JNET_CFG2C
noexpect
expect "NCP>" send "exit\r"; goto JNET_CFG3
goto EOS
:JNET_CFG3
noexpect
expect "$ " send "set protection=(w:re) %SCSNODE%$DUA0:[jancommon.v4.sys]jmailprot.exe\r"; continue
expect "$ " send "set protection=(w:re) %SCSNODE%$DUA0:[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 DECALC
goto EOS
;
; Install VAX DECalc V3.0
;
:DECALC
noexpect
expect "$ " attach RQC0 -er dist/media/cd/AG-NH36B-RE.iso; send "mount duc0: cd_bin_91931\r"; continue
expect "$ " send "@sys$update:vmsinstal calc030 duc0:[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 duc0:[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 duc0:[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 duc0:[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 duc0:[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 duc0:[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 SSU
goto EOS
;
; Install Session Support Utility v1.1
;
:SSU
noexpect
expect "$ " send "dismount/unload duc0:\r"; detach RQC0; continue
expect "$ " attach RQC0 -er dist/media/cd/AG-NH37B-RE.iso; send "mount duc0: cd_bin_91932\r"; continue
expect "$ " send "@sys$update:vmsinstal ssu011 duc0:[ssu011.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 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 "Do you want to SAVE or RESTORE your console RL02?: " 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 TU0 -rf ansi-vms dist/script/*.txt; send "mount/override=id mta0:\r"; continue
expect "$ " send "copy mta0:systartup.txt sys$manager:systartup.com\r"; continue
expect "$ " send "copy mta0:syshutdwn.txt sys$manager:syshutdwn.com\r"; continue
expect "$ " send "copy mta0:login.txt sys$manager:login.com\r"; continue
expect "$ " send "copy mta0:sylogin.txt sys$manager:sylogin.com\r"; continue
expect "$ " send "set protection=(w:re) sylogin.com\r"; continue
expect "$ " send "dismount/unload mta0:\r"; detach TU0; continue
expect "$ " send "set default sys$system\r"; continue
expect "$ " send "mcr authorize\r"; continue
expect "UAF> " send "add %USER%/password=temp/owner=\"%NAME%\"/dev=disk$home/dir=[%USER%]/uic=[200,201]/flag=nodisuser/priv=all/bytlm=10240/enqlm=640/fillm=64/wsextent=1024/wsquota=512\r"; continue
expect "UAF> " send "modify decnet/nopassword/nopwdexpired/pwdlifetime=none\r"; continue
expect "UAF> " send "exit\r"; continue
expect "$ " send "create/directory disk$home:[%USER%]\r"; continue
expect "$ " send "create/directory disk$home:[%USER%.AI1]\r"; continue
expect "$ " send "set directory/owner=%USER% disk$home:[%USER%]\r"; continue
expect "$ " send "set directory/owner=%USER% disk$home:[%USER%.AI1]\r"; continue
expect "$ " send "set default sys$manager\r"; continue
expect "$ " send "copy sys$sysdevice:[allin1.lib.user]*.* disk$home:[%USER%.AI1]\r"; continue
expect "$ " send "copy sys$manager:login.com disk$home:[%USER%]login.com\r"; continue
expect "$ " send "copy sys$manager:login.com sys$sysdevice:[allin1.lib.user]login.com\r"; goto MISC3
goto EOS
;
; Compile and install MATLAB, XYZZY, and CD
;
:MISC3
expect "$ " send "set default sys$manager\r"; continue
expect "$ " send "create/directory [.MATLAB]\r"; continue
expect "$ " attach tu0 -er dist/media/other/MATLAB.tap; send "mount/foreign mta0:\r"; continue
expect "$ " send "backup mta0:matlab.bck/save_set [.matlab]\r"; continue
expect "$ " send "dismount/unload mta0:\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 tu0 -er dist/media/other/XYZZY.tap; send "mount/foreign mta0:\r"; continue
expect "$ " send "backup mta0:xyzzy.bck/save_set [.xyzzy]\r"; continue
expect "$ " send "dismount/unload mta0:\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 tu0 -er dist/media/other/CD55B.tap; send "mount/foreign mta0:\r"; continue
expect "$ " send "backup mta0:cd55b.bck/save_set [.cd55b]\r"; continue
expect "$ " send "dismount/unload mta0:\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
expect "$ " send "set default sys$manager\r"; goto STABACKIT
goto EOS
;
; Cut a pair of standalone backup kits - TU58 and RL02
;
:STABACKIT
expect "$ " send "mcr sysgen\r"; continue
expect "SYSGEN>  " send "connect console\r"; continue
expect "SYSGEN>  " send "exit\r"; continue
expect "$ " send "@sys$update:stabackit\r"; detach CS0; set CS0 WRITE; continue
expect "Enter the name of the device on which to build the kit: " attach CS0 -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 CS0; set CS0 lock; attach CS0 -e dist/media/rl02/BC-FI18T-DE.rl2; 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 BACKUP
goto EOS
:BACKUP
noexpect
set TU0 WRITE
attach CS0 -e dist/media/rl02/BC-FI18T-DE.rl2
expect "Insert the first standalone system volume and enter \"YES\" when ready: " attach CS0 -e bak/staba047.rl2; send "yes\r"; continue
expect "$ " attach TU0 bak/vms047.tap ; send -t after=60m "backup/image/verify dua0: mta0:system.bck/rewind/label=SYSBAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach TU0 bak/share0.tap ; send -t after=60m "backup/image/verify dua1: mta0:share0.bck/rewind/label=SH0BAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach TU0 bak/share1.tap ; send -t after=60m "backup/image/verify dua2: mta0:share1.bck/rewind/label=SH1BAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach TU0 bak/share2.tap ; send -t after=60m "backup/image/verify dua3: mta0:share2.bck/rewind/label=SH2BAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach TU0 bak/spool.tap ; send -t after=60m "backup/image/verify dub0:,dub1: mta0:spool.bck/rewind/label=SPLBAK\r"; continue
expect "Enter \"YES\" to continue: " send "yes\r"; continue
expect "$ " attach TU0 bak/hom0.tap ; send -t after=60m "backup/image/verify dra0:,dra1: mta0:home.bck/rewind/label=HOMBAK\r"; continue
expect "Enter \"YES\" to continue: " detach TU0; attach CS0 -e dist/media/rl02/BC-FI18T-DE.rl2; goto STOP
boot CS0
: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 8650 simulator before booting the system.               *
echo ************************************************************************
set CONSOLE NOLOG
