expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,BCPL]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "TECO TRANT.CMD\r"; continue
expect "\r\n*" send "STRANT0.BCP(\33IS\33EX\33\33"; continue
expect "\r\n." send "TECO BCPLIB.CMD\r"; continue
expect "\r\n*" send "SBCLFIT(\33IS\33SBCLCRT(\33IS\33SBCLAPP(\33IS\33\33"; continue
expect "\r\n*" send "SBCLRNA(\33IS\33 SBCLREW(\33IS\33SBCLIOM(\33IS\33\33"; continue
expect "\r\n*" send "SBCLSTO(\33IS\33SBCLWOP(\33IS\33SBCLWRF(\33IS\33\33" ; continue
expect "\r\n*" send "SBCLGOP(\33IS\33EX\33\33"; continue
expect "\r\n." send "TECO LOWLIB.CMD\r"; continue
expect "\r\n*" send "SBCLFIT(\33IS\33SBCLCRT(\33IS\33SBCLAPP(\33IS\33\33"; continue
expect "\r\n*" send "SBCLRNA(\33IS\33 SBCLREW(\33IS\33SBCLIOM(\33IS\33\33"; continue
expect "\r\n*" send "SBCLSTO(\33IS\33SBCLWOP(\33IS\33SBCLWRF(\33IS\33\33" ; continue
expect "\r\n*" send "SBCLGOP(\33IS\33EX\33\33"; continue
expect "\r\n." send "LOAD/COMP @PARSE\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "CORE\r"; continue
expect "\r\n." send "SSAVE BCPL\r"; continue
expect "\r\n." send "LOAD/COMP @TRANS\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "CORE\r"; continue
expect "\r\n." send "SSAVE BCPL00\r"; continue
expect "\r\n." send "LOAD/COMP @TRANE\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "CORE\r"; continue
expect "\r\n." send "SSAVE BCPL01\r"; continue
expect "\r\n." send "LOAD/COMP @TRANI\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "CORE\r"; continue
expect "\r\n." send "SSAVE BCPL02\r"; continue
expect "\r\n." send "LOAD/COMP @TRANT\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "CORE\r"; continue
expect "\r\n." send "SSAVE BCPL03\r"; continue
expect "\r\n." send "k/f\r"; continue
expect "\n\n." send "login 1,2\r"; continue
expect -ri "Password:" send "FAILSA\r"; continue
expect "\r\n." send "COPY SYS:<155>=*.EXE[10,6,BCPL]\r"; continue
expect "\r\n." send "k/f\r"; continue
expect "\n\n." send "login 10,6\r"; continue
expect -ri "Password:" send "dist\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,BCPL]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "COMPILE/COMPILE/FUDGE:BCPLIB @BCPLIB\r"; continue
expect "\r\n." send "FUDGE\r"; continue
expect "\r\n." send "R FUDGE2\r"; continue
expect "\r\n*" send "BCPLIB/X_BCPLIB\33"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "COMPILE/COMPILE/FUDGE:LOWLIB @LOWLIB\r"; continue
expect "\r\n." send "FUDGE\r"; continue
expect "\r\n." send "R FUDGE2\r"; continue
expect "\r\n*" send "LOWLIB/X_LOWLIB\33"; continue
expect "\r\n*" send "\3"; continue

