set cpu idle set cpu1 enable set esu0 modib set esu1 modib set dk1 enable set dk1 dfx at mt0 -f p7b B5500-XIII-SYSTEM-adc00257.bcd set mt0 locked set mt1 locked set mt2 locked at esu0 xiii0.dsk at esu1 xiii1.dsk at cp0 -n punch.dck at lp -n prt.lst expect "TIME IS" continue expect -p "TR PLEASE" send "\33"; 'expect "\r\nI" send "TR%TIME_HH%%TIME_MM%\r"; continue'; continue ;expect "TIME IS" send "\33"; 'expect "\r\nI" send "RN1\r"; continue'; continue expect "LIBMAIN/DISK= 1 EOJ" send "\33"; 'expect "\r\nI" send "CI INT/DISK\r"; continue'; continue expect "NEW INTRINSIC" send "\033"; 'expect "\r\nI" send "RN 1\r"; continue'; continue expect "WILL USE 01 PSEUDO-RDRS" at cr0 extra.job; send "\33"; 'expect "\r\nI" send "CI INT/DISK\r"; continue'; continue expect "MT RQD EXTRAS FILE000" set mt1 writeenable; at mt1 -n -f p7b extras.bin; continue expect "MTB TAPE MK, RW/L" send "\33"; 'expect "\r\nI" send "PGMTB\r"; continue'; continue at cr0 cold.card bo cr0