; Restore base system.
expect "\r\n." send "LOGIN 1,2\r"; continue
expect "\r\n." send "ASSIGN MTA0 BACKUP\r"; continue
expect "\r\n." send "SET DENS MTA0 800\r";  continue
expect "\r\n." send "GET MTA0:BACKUP.EXE\r"; continue
expect "\r\n." send "SAVE BACKUP\r"; continue
expect "\r\n." send "RUN BACKUP\r"; continue
expect "\r\n/" send "DEN 800\r"; continue
expect "\r\n/" send "FILES\r"; continue
; Restore CUSPs
;expect "\r\n/" send "REWIND\r"; at %TAPEB% -r -F e11 tapes/d10-ucspa-c-mc9.tap ; continue
expect "\r\n/" send "REWIND\r"; at %TAPEB% -r tapes/cusp603.tap ; continue
expect "\r\n/" send "INTER\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6]*.*=*.*\r"; continue
;expect "\r\n/" send "REWIND\r"; at %TAPEB% -r -F e11 tapes/bb-d719d-sb.tap ; continue
;expect "\r\n/" send "SUPER\r"; continue
;expect "\r\n/" send "RESTORE DSKB:[10,6]*.*=*.*\r"; continue
;expect "\r\n/" send "RESTORE DSKB:[10,6]*.*=*.*\r"; continue
; Restore monitor.
expect "\r\n/" send "REWIND\r"; at %TAPEB% tapes/de-10-omona-v-mc9.tap; continue
expect "\r\n/" send "RESTORE DSKB:[10,7]*.*=*.*\r"; continue
; Restore VMSER 
expect "\r\n/" send "REWIND\r"; at %TAPEB% -r -F e11 tapes/dec-10-omvma-d-mc9.tap ; continue
expect "\r\n/" send "INTER\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,7]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "RUN PIP[10,6]\r"; continue
expect "\r\n*" send "SYS:<155>/X=DSKB:[10,6]*.EXE\r"; continue
expect "\r\n*" send "SYS:<155>/X=DSKB:[10,7]*.EXE\r"; continue
expect "\r\n*" send "SYS:<155>/X=DSKB:[10,6]*.ERR\r"; continue
expect "\r\n*" send "SYS:<155>/X=DSKB:[10,6]DDT.REL,HELPER.REL,WILD.REL,SCAN.REL\r"; continue
expect "\r\n*" send "SYS:<157>/X=DSKB:[10,6]*.SYS\r"; continue
expect "\r\n*" send "\3"; continue
; Create additional accounts.
expect "\r\n." send "ASSIGN DSKB DSK\r"; continue
expect "\r\n." send "R CREDIR\r"; continue
expect "directory:" send "DSKB:[2,5]\r"; continue
expect "directory:" send "DSKB:[5,11]\r"; continue
expect "directory:" send "DSKB:[5,17]\r"; continue
expect "directory:" send "DSKB:[5,33]\r"; continue
expect "directory:" send "\3"; continue
expect "\r\n." send "COPY [2,5]<155>=[10,6]*.HLP,[10,7]*.HLP\r"; continue
expect "\r\n." send "COPY [5,11]<155>=[10,6]*.REL,[10,7]*.REL\r"; continue
expect "\r\n." send "COPY [5,17]<155>=[10,6]*.UNV,[10,7]*.UNV\r"; continue
expect "\r\n." send "COPY SYS:<155>=FGEN.HLP[10,7]\r"; continue
expect "\r\n." send "COPY OPR.ATO=DSKB:[10,6]OPR.ATO\r"; continue
; Rebuild Jobdat
expect "\r\n." send "COMPILE JOBDAT=[10,7]JOBDAT\r"; continue
expect "\r\n." send "COPY SYS:<155>=JOBDAT.REL\r"; continue
expect "\r\n." send "COPY REL:<155>=JOBDAT.REL\r"; continue
; Update tty's to LC and no fill.
expect "\r\n." send "MAKE SYS:TTY.INI\r"; continue
if "%CPU%" != "KL" 'expect "\r\n*" send "ICTY AUTOMATIC LC NO FILL\rTTY0-31 LC NO FILL NOTICE\r\33EX\33\33"; continue'
if "%CPU%" == "KL" 'expect "\r\n*" send "ICTY AUTOMATIC LC NO FILL\rTTY0-7 SPEED 9600 LC NO FILL NOTICE\rTTY8-16 SPEED 1200 REMOTE LC NO FILL NOTICE\33EX\33\33"; continue'
expect "\r\n." send "PROT SYS:TTY.INI<155>\r"; continue
; Remove Card spooler from auto jobs
expect "\r\n." send "TECO OPR.ATO\r"; continue
;expect "\r\n*" send "SCDRSTK\033-LL10KSPL=\033-LL8KEX\033\033"; continue
expect "\r\n*" send "SPL=\033-LL8KEX\033\033"; continue
expect "\r\n." send "COPY SYS:=OPR.ATO\r"; continue
expect "\r\n." send "KJOB/F\r"; continue
expect "\n\n." send "LOGIN 10,7\r"; continue
expect "Password:" send "DIST\r"; continue
; Add in BCL device.
expect "\r\n." send "TECO COMMOD.MAC\r"; continue
expect "\r\n*" send "2NLVDMXL\33\060LIBCLPPN:	XWD	5,33		;(107) BCPL LIBRARY\r\33\33"; continue
expect "\r\n*" send "ND60,\33I\r	LIB	BCL,\33EX\33\33"; continue
expect "\r\n." send "TECO UUOSYM.MAC\r"; continue
expect "\r\n*" send "NLDDES\33\061LI	%%LDBCL==107,,16 ; BCPL LIB PPN [5,33]\r\33S107\33-2DI10\33S110\33-1DI1\33EX\33\33"; continue
expect "\r\n." send "COMPILE/COMPILE UUOSYM\r"; continue
; Make WABOOT
expect "\r\n." send "MAKE FTKADP.MAC\r";continue
expect "\r\n*" send "IFTWTBOOT==0\rFT22BIT==0\rFTDHX==0\r\033\033"; continue
expect "\r\n*" send "IFTKI10==1\rFTKA10==1\rFTKL10==0\r\033\033"; continue
expect "\r\n*" send "IFTFHD==0\rFTDPC==1\rFTSAVE==0\rFTEXE==1\r\033EX\033\033"; continue
expect "\r\n." send "MAKE FTKADH.MAC\r"; continue
expect "\r\n*" send "IFTWTBOOT==0\rFT22BIT==0\rFTDHX==1\rFTKI10==1\r\033\033"; continue
expect "\r\n*" send "IFTKA10==1\rFTKL10==0\rFTFHD==0\rFTDPC==0\r\033\033"; continue
expect "\r\n*" send "IFTSAVE==0\rFTEXE==1\r\033EX\033\033"; continue
expect "\r\n." send "MAKE BPARAM.MAC\r"; continue
expect "\r\n*" send "IFTEXE==0\rFTSAVE==1\rFTFHD==1\rFTDPC==1\r\033EX\033\033"; continue
expect "\r\n." send "MAKE FTNSWB.MAC\r"; continue
expect "\r\n*" send "ISTDWTB==0\r\033EX\033\033" ; continue
expect "\r\n." send "COMPILE /COMP NSTWTB=FTNSWB+WTBOOT\r"; continue
expect "\r\n." send "COMPILE /COMP BTKADP=FTKADP+BOOTS.MAC\r"; continue
expect "\r\n." send "COMPILE /COMP BTKADH=FTKADH+BOOTS.MAC\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "WABOOT/SAVE, WABOOT/MAP=NSTWTB,BTKADP,BTKADH/GO\r"; continue
expect "\r\n." send "MAKE FTKIDP.MAC\r";continue
expect "\r\n*" send "IFTWTBOOT==0\rFT22BIT==1\rFTDHX==0\r\033\033"; continue
expect "\r\n*" send "IFTKI10==1\rFTKA10==0\rFTKL10==0\r\033\033"; continue
expect "\r\n*" send "IFTFHD==0\rFTDPC==1\rFTSAVE==0\rFTEXE==1\r\033EX\033\033"; continue
expect "\r\n." send "MAKE FTKIDH.MAC\r"; continue
expect "\r\n*" send "IFTWTBOOT==0\rFT22BIT==1\rFTDHX==1\rFTKI10==1\r\033\033"; continue
expect "\r\n*" send "IFTKA10==0\rFTKL10==0\rFTFHD==0\rFTDPC==0\r\033\033"; continue
expect "\r\n*" send "IFTSAVE==0\rFTEXE==1\r\033EX\033\033"; continue
expect "\r\n." send "COMPILE /COMP BTKIDP=FTKIDP+BOOTS.MAC\r"; continue
expect "\r\n." send "COMPILE /COMP BTKIDH=FTKIDH+BOOTS.MAC\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "WIBOOT/SAVE, WIBOOT/MAP=NSTWTB,BTKIDP,BTKIDH/GO\r"; continue
expect "\r\n." send "MAKE FTKLD2.MAC\r";continue
expect "\r\n*" send "IFTWTBOOT==0\rFT22BIT==1\rFTRH20==1\rFTDHX==1\r\033\033"; continue
expect "\r\n*" send "IFTKI10==0\rFTKA10==0\rFTKL10==1\r\033\033"; continue
expect "\r\n*" send "IFTFHD==0\rFTDPC==0\rFTSAVE==0\rFTEXE==1\r\033EX\033\033"; continue
expect "\r\n." send "MAKE FTKLDH.MAC\r"; continue
expect "\r\n*" send "IFTWTBOOT==0\rFT22BIT==1\rFTDHX==1\rFTKI10==0\r\033\033"; continue
expect "\r\n*" send "IFTKA10==0\rFTKL10==1\rFTFHD==0\rFTDPC==0\r\033\033"; continue
expect "\r\n*" send "IFTSAVE==0\rFTEXE==1\r\033EX\033\033"; continue
expect "\r\n." send "MAKE FTWTB.MAC\r"; continue
expect "\r\n*" send "IFTKL10==1\rSTDWTB==0\r\033EX\033\033" ; continue
expect "\r\n." send "MAKE DUMMY.MAC\r"; continue
expect "\r\n*" send "IBTDPSA:: HALT\r	END\r\033EX\033\033"; continue
expect "\r\n." send "COMPILE /COMP DUMMY\r"; continue
expect "\r\n." send "COMPILE /COMP W2BOOT=FTWTB+WTBOOT\r"; continue
expect "\r\n." send "COMPILE /COMP BTKLD2=FTKLD2+BOOTS.MAC\r"; continue
expect "\r\n." send "COMPILE /COMP BTKLDH=FTKLDH+BOOTS.MAC\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "WLBOOT/SAVE, WLBOOT/MAP=W2BOOT,BTKLDH,BTKLD2,DUMMY/GO\r"; continue
expect "\r\n." send "MAKE FTB.MAC\r"; continue
expect "\r\n*" send "IMAGRIM==0\r\33EX\33\33"; continue
expect "\r\n." send "COMP/COMP BOOTM=FTB+BOOTM\r"; continue
expect "\r\n." send "DELETE FTB.MAC\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "BOOTM/GO\r"; continue
expect "\r\n." send "OSAVE BOOTM\r"; continue
expect "\r\n." send "DEL BOOTM.REL,FTB.MAC\r"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "BOOTM_BOOTM\r"; continue
expect "\r\n*" send "\3"; continue
; Fix bug in DTESER.
expect "\r\n." send "TECO DTESER.MAC\r"; continue
expect "\r\n*" send "SSPCPI==\33\70DI0\33EX\33\33"; continue
; build VMSER and libraries.
expect "\r\n." send "COPY F.MAC=FVI.MAC\r"; continue
expect "\r\n." send "COMPILE F/COMP,S/COMP\r"; continue
expect "\r\n." send "COMPILE /COMP @CONVI\r"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "CMBVI@\r"; continue
expect "\r\n." send "COPY F.MAC=FVL.MAC\r"; continue
expect "\r\n." send "COMPILE F/COMP,S/COMP\r"; continue
expect "\r\n." send "COMPILE /COMP @CONVL\r"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "CMBVL@\r"; continue
expect "\r\n." send "DELETE *.RLW\r"; continue
expect "\r\n." send "DELETE *.RLV\r"; continue
; Rebuild system.
expect "\r\n." send "RUN MONGEN\r"; continue
expect "\r\n/" continue
expect "(PROMPT,SHORT,LONG)" send "PROMPT\r"; continue
expect "Which GEN(HDW,TTY,NET,F):" send -t after=10000 "HDW\r"; continue
expect "Output(DSK:HDWCNF.MAC):" send  -t after=10000 "\r"; continue
if "%CPU%" == "KA" 'expect "DECsystem10" send  -t after=10000 "1050\r"; continue'
if "%CPU%" == "KA" 'expect "System name:" send "KA603\r"; continue'
if "%CPU%" == "KI" 'expect "DECsystem10" send  -t after=10000 "1070\r"; continue'
if "%CPU%" == "KL" 'expect "DECsystem10" send  -t after=10000 "1091\r"; continue'
if "%VM%" == "yes" goto NVM1
if "%CPU%" == "KI" 'expect "System name:" send "KI603\r"; continue'
if "%CPU%" == "KI" 'expect "Do you want the virtual memory facility" send "NO\r"; continue'
if "%CPU%" == "KL" 'expect "System name:" send "KL603\r"; continue'
if "%CPU%" == "KL" 'expect "Do you want the virtual memory facility" send "NO\r"; continue'
goto NVM2
:NVM1
if "%CPU%" == "KI" 'expect "System name:" send "KI603 (VM)\r"; continue'
if "%CPU%" == "KI" 'expect "Do you want the virtual memory facility" send "YES\r"; continue'
if "%CPU%" == "KL" 'expect "System name:" send "KL603 (VM)\r"; continue'
if "%CPU%" == "KL" 'expect "Do you want the virtual memory facility" send "YES\r"; continue'
:NVM2
if "%CPU%" == "KA" 'expect "CPU0 serial #" send "50\r"; continue'
if "%CPU%" == "KI" 'expect "CPU0 serial #" send "514\r"; continue'
if "%CPU%" == "KL" 'expect "CPU0 serial #" send "1025\r"; continue'
if "%CPU%" == "KL" 'expect "EBOX/MBOX runtime accounting" send "N\r"; continue'
expect "# DK10's on CPU0" send  "1\r"; continue
expect "Exclude Monitor overhead from user run time(Y,N):" send "Y\r"; continue
expect "High precision time accounting(Y,N):" send "N\r"; continue
expect "DK10 software(Y,N):" send "Y\r"; continue
expect "Data Channels" send "3\r"; continue
expect "Channel 0 Type (DF10,DF10C,DX10,RH20):" send "DF10\r"; continue
expect "# RC10s(0-2):" send "0\r" ; continue
expect "# RH10S for RS04'S(0-3):" send "0\r"; continue
expect "# RH10S for RP04'S, RP06'S(0-3):" send "1\r"; continue
expect "# Units on RPA(1-8):" send "8\r"; continue;
if "%DISK%" == "dp" 'expect " # RP10s(0-3):" send "1\r"; continue'
if "%DISK%" != "dp" 'expect " # RP10s(0-3):" send "0\r"; continue'
expect "# Units on DPA(1-8):" send "8\r"; continue;
expect "# RH10's for TM02'S (0-2):" send "0\r"; continue
expect "# TM10Bs(0-2):" send "0\r"; continue
expect -p "# TC10Cs(0-1):" send "0\r"; continue
expect "Channel 1 Type (DF10,DF10C,DX10,RH20):" send "DF10\r"; continue
expect "# RC10s(0-2):" send "0\r" ; continue
expect "# RH10S for RS04'S(0-3):" send "0\r"; continue
expect "# RH10S for RP04'S, RP06'S(0-3):" send "1\r"; continue
expect "# Units on RPB(1-8):" send "8\r"; continue;
if "%DISK%" == "dp" 'expect " # RP10s(0-3):" send "1\r"; continue'
if "%DISK%" != "dp" 'expect " # RP10s(0-3):" send "0\r"; continue'
expect "# Units on DPB(1-8):" send "8\r"; continue
expect "# RH10's for TM02'S (0-2):" send "0\r"; continue
expect "# TM10Bs(0-2):" send "0\r"; continue
expect "# TM10As(0,0-2):" send "0\r"; continue
expect "Channel 2 Type (DF10,DF10C,DX10,RH20):" send "DF10\r"; continue
expect "# RC10s(0-2):" send "0\r" ; continue
expect "# RH10S for RS04'S(0-3):" send "0\r"; continue
expect "# RH10S for RP04'S, RP06'S(0-3):" send "0\r"; continue
expect " # RP10s(0-3):" send "0\r"; continue;
if "%TAPE%" == "mta0" 'expect "# TM10Bs(0-2):" send "1\r"; continue'
if "%TAPE%" == "mta0" 'expect "# RH10\'s for TM02\'S (0-2):" send "0\r"; continue'
if "%TAPE%" != "mta0" 'expect "# TM10Bs(0-2):" send "0\r"; continue'
if "%TAPE%" != "mta0" 'expect "# RH10\'s for TM02\'S (0-2):" send "1\r"; continue'
expect "How many TM02's on RH10 # 0 (1-8):" send "1\r"; continue
expect "How many drives on TM02 0 (1-8)" send "8\r"; continue
expect "# TM10As(0,0-2):" send "0\r"; continue
expect "# Units on MTA(1-8):" send "8\r"; continue
expect "# Units on MTB(1-8):" send "8\r"; continue
expect "# Units on MTC(1-8):" send "8\r"; continue
expect "# Units on MTD(1-8):" send "8\r"; continue
expect "For controller MTA" send "6-7\r\r"; continue
expect "For controller MTB" send "6-7\r\r"; continue
expect "For controller MTA" send "0-5\r\r"; continue
expect "For controller MTB" send "0-5\r\r"; continue
expect "# Jobs(1-511):" send "64\r"; continue;
if "%CPU%" == "KL" 'expect "DTEs on CPU0" send "1\r"; continue'
expect "Max. K of core For each job(0,0-256): " send "\r"; continue
expect "# K total system core" send "128\r"; continue
if "%CPU%" == "KI" 'expect "Max. PAGES of core For each job" send "\r"; continue'
if "%CPU%" == "KL" 'expect "Max. PAGES of core For each job" send "\r"; continue'
expect "Clock ticks per second(60,50):" send "60\r"; continue
expect "# Real-time devices(0,0-77):" send "0\r"; continue
expect "Allow jobs to be locked in core(Y,N):" send "Y\r"; continue
if "%CPU%" == "KI" 'expect "# PAGES min guaranteed among jobs not locked in core" send "\r"; continue'
if "%CPU%" == "KL" 'expect "# PAGES min guaranteed among jobs not locked in core" send "\r"; continue'
if "%CPU%" == "KA" 'expect "# K min guaranteed among jobs not locked in core(0,0-256):" send "\r"; continue'
expect "# High priority queues(0,0-15):" send "\r"; continue
expect "CCL commands to stay in core(Y,N):" send "Y\r"; continue
expect "Meter(Y,N):" send "Y\r"; continue
expect "SYSCHK(Y,N):" send "N\r"; continue
expect "MSGSER(Y,N):" send "Y\r"; continue
expect "PSISER(Y,N):" send "Y\r"; continue
expect "IPCF(Y,N):" send "Y\r"; continue
expect "ENQ/DEQ(Y,N):" send "Y\r"; continue
if "%CPU%" != "KL" 'expect "# I/O Bus CDRs(1,0-2):" send "1\r"; continue'
if "%CPU%" != "KL" 'expect "CDP(Y,N):" send "Y\r"; continue'
if "%CPU%" != "KL" 'expect "CP10D(Y,N):" send "Y\r"; continue'
expect "DIS(Y,N):" send "N\r"; continue
if "%CPU%" != "KL" 'expect "# TD10s(1,0-2):" send "1\r"; continue'
if "%CPU%" != "KL" 'expect "  # Units on DTA(1-8):" send "8\r"; continue'
if "%CPU%" != "KL" 'expect "I/O Bus LPTs(1,0-3):" send "1\r"; continue'
if "%CPU%" == "KL" 'expect "# line printers on the master front end on " send "1\r"; continue'
if "%CPU%" == "KL" 'expect "# card readers on the master front end on" send "1\r"; continue'
expect "LPT0 Lower case(Y,N):" send "Y\r"; continue
expect "PLTS(0,0-2):" send "0\r"; continue
if "%CPU%" != "KL" 'expect "PTP(Y,N):" send "Y\r"; continue'
if "%CPU%" != "KL" 'expect "PTR(Y,N):" send "Y\r"; continue'
if "%CPU%" == "KL" 'expect "# I/O Bus CDRs(1,0-2):" send "0\r"; continue'
if "%CPU%" == "KL" 'expect "CDP(Y,N):" send "N\r"; continue'
if "%CPU%" == "KL" 'expect "CP10D(Y,N):" send "N\r"; continue'
if "%CPU%" == "KL" 'expect "# TD10s(1,0-2):" send "0\r"; continue'
if "%CPU%" == "KL" 'expect "I/O Bus LPTs(1,0-3):" send "0\r"; continue'
if "%CPU%" == "KL" 'expect "PTP(Y,N):" send "N\r"; continue'
if "%CPU%" == "KL" 'expect "PTR(Y,N):" send "N\r"; continue'
expect "# PTYs(20,0-510):" send "\r"; continue
expect "DC44(Y,N):" send "N\r"; continue
expect "# of DA28s(0,0-4):" send "0\r"; continue
expect "# DAS78'S(0,0-8):" send "0\r"; continue
expect 'Decimal "symbol,value"' send "LIMLVL,2\rSTDENS,3\rFLCDEF,0\r\r"; continue
expect 'Octal "symbol,value"' send "\r"; continue
expect 'SIXBIT "symbol,value"' send "\r"; continue
expect 'Type "device-mnemonic,PI-channel" for special devices' send "\r"; continue
expect 'Type "device-mnemonic,PI-channel,no.-of-devices"' send "\r"; continue
expect 'Type "device-mnemonic,PI-channel,highest-ac-to-save"' send "\r"; continue
expect "Which GEN(HDW,TTY,NET,F):" send "TTY\r"; continue
expect "Output(DSK:TTYCNF.MAC):" send "\r"; continue
if "%CPU%" == "KA" 'expect "DECsystem10(1040,1050,1055,1070,1077,1080,1088,1091):" send "1050\r"; continue'
if "%CPU%" == "KI" 'expect "DECsystem10(1040,1050,1055,1070,1077,1080,1088,1091):" send "1070\r"; continue'
if "%CPU%" == "KL" 'expect "DECsystem10(1040,1050,1055,1070,1077,1080,1088,1091):" send "1091\r"; continue'
if "%CPU%" != "KL" 'expect "How many DC10s(1,0-2):" send "1\r"; continue'
if "%CPU%" == "KL" 'expect "How many DC10s(1,0-2):" send "0\r"; continue'
expect "How many DC68s(1,0-2):" send "0\r"; continue
expect "How many DC76s(1,0-8):" send "0\r"; continue
expect "# DC10B 8 line data groups" send "1\r"; continue
expect "# DC10E Data set control groups" send "1\r"; continue
expect "Correspondence of DC10E lines to the DC10B lines(M-N,P)" send "10,0\r11,1\r12,2\r13,3\r14,4\r15,5\r16,6\r17,7\r\r"; continue
if "%CPU%" == "KL" 'expect "# terminals on the master front end on" send "16\r"; continue'
expect "OPR octal line #" send "CTY\r"; continue
expect "Data set lines" send "0-7\r\r"; continue
expect "Lines with hardware tabs" send "0-7\r\r"; continue
if "%CPU%" != "KL" 'expect "Remote lines" send "\r"; continue'
if "%CPU%" == "KL" 'expect "Remote lines" send "10-17\r\r"; continue'
expect "Local copy lines" send "\r"; continue
expect "Half duplex lines" send "\r"; continue
expect "Slaves" send "\r"; continue
expect "Lines with hardware form feed" send "0-7\r\r"; continue
expect "Lines which run INITIA at startup" send "CTY\r\r"; continue
expect "Filler class codes(M-N,P)" send "0-7,0\r\r"; continue
expect "2741 lines on DC-10 interfaces" send "\r"; continue
expect "Which GEN(HDW,TTY,NET,F):" send "NET\r"; continue
expect "Output(DSK:NETCNF.MAC):" send "\r"; continue
expect "Network software(Y,N):" send "N\r"; continue
expect "Which GEN(HDW,TTY,NET,F):" send "F\r"; continue
expect "Output(DSK:F.MAC):" send "\r"; continue
if "%CPU%" == "KA" 'expect "Feature set(TINY,KALUG,KILUG,KAFULL,KIFULL,KLFULL):" send " KAFULL\r"; continue'
if "%CPU%" == "KI" 'expect "Feature set(TINY,KALUG,KILUG,KAFULL,KIFULL,KLFULL):" send " KIFULL\r"; continue'
if "%CPU%" == "KL" 'expect "Feature set(TINY,KALUG,KILUG,KAFULL,KIFULL,KLFULL):" send " KLFULL\r"; continue'
expect "Standard setting(YES,NO,LIST,EXPLAIN):" send " YES\r"; continue
expect "Which GEN(HDW,TTY,NET,F):" send "\3"; continue
expect "\r\n." send "COMPILE F/COMP,S/COMP,NETPRM/COMP,HDWCNF+NETCNF+TTYCNF+<COMMON,COMDEV,COMNET,COMMOD>\r"; continue
expect "\r\n." send "R LINK\r"; continue
if "%CPU%" == "KA" 'expect "\r\n*" send "/NOINITIAL /HASH:6000 SYSTEM/SAV,SYSTEM/MAP = /LOCALS -\r/MAXCOR:60K -\r,COMMON,COMDEV,COMMOD,TOPA10 /SEARCH /GO\r"; continue'
if "%VM%" == "yes" goto NVM3
if "%CPU%" == "KI" 'expect "\r\n*" send "/NOINITIAL /HASH:6000 SYSTEM/SAV,SYSTEM/MAP = /LOCALS -\r/MAXCOR:60K -\r,COMMON,COMDEV,COMMOD,TOPI10 /SEARCH /GO\r"; continue'
goto NVM4
:NVM3
if "%CPU%" == "KI" 'expect "\r\n*" send "/NOINITIAL /HASH:6000 SYSTEM/SAV,SYSTEM/MAP = /LOCALS -\r/MAXCOR:60K -\r,COMMON,COMDEV,COMMOD,TOPV10 /SEARCH /GO\r"; continue'
if "%CPU%" == "KL" 'expect "\r\n*" send "/NOINITIAL /HASH:6000 SYSTEM/SAV,SYSTEM/MAP = /LOCALS -\r/MAXCOR:60K -\r,COMMON,COMDEV,COMMOD,TOPW10 /SEARCH /GO\r"; continue'
:NVM4
expect "\r\n." send "KJOB/F\r"; continue
