expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,ALG10A]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/ap-5069c-sb.tap ; send "\3" ; continue
expect "\r\n." send "ASSIGN MTA0 BACKUP\r"; continue
expect "\r\n." send "SET DENS MTA0 800\r"; continue
expect "\r\n." send "R BACKUP\r"; continue
expect "\r\n/" send -t after=50000 "TAPE MTA0\r"; continue
expect "\r\n/" send "DEN 800\r"; continue
expect "\r\n/" send "FILES\r"; continue
expect "\r\n/" send "INTER\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,ALG10A]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,ALG10A]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DEL P.MAC\r"; continue
expect "\r\n." send "MAKE P.MAC\r"; continue
expect "\r\n*" send "IPROC=KA10\r\33EX\33\33"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "ALGPRM=P,DSK:ALGPRM\r"; continue
expect "\r\n*" send "ALGSYS=ALGSYS\r"; continue
expect "\r\n*" send "ALGLKA=ALGLIB\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "ALGPRM=ALGPRM\r"; continue
expect "\r\n*" send "ALGSYS=ALGSYS\r"; continue
expect "\r\n*" send "ALGLKI=ALGLIB\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "ALGLIB.REL=ALGLKA.REL,ALGLKI.REL\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "ALGLIB=ALGLIB/INDEX\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "DSK:/D=ALGLKA.REL,ALGLKI.REL\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "ALGOTS=ALGOTS\r"; continue
expect "\r\n*" send "ALGDDT=ALGDDT\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "/VERSION:10A(145)\r"; continue
expect "\r\n*" send "ALGOTS/SEGMENT:HIGH\r"; continue
expect "\r\n*" send "ALGDDT/SEGMENT:HIGH\r"; continue
expect "\r\n*" send "/GO\r"; continue
expect "\r\n." send "SSAVE ALG000\r"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "ALGCON/P=ALGCON\r"; continue
expect "\r\n*" send "ALGSTB/P=ALGSTB\r"; continue
expect "\r\n*" send "ALGMAC/P=ALGMAC\r"; continue
expect "\r\n*" send "ALGDEC/P=ALGDEC\r"; continue
expect "\r\n*" send "ALGSTM/P=ALGSTM\r"; continue
expect "\r\n*" send "ALGEXP/P=ALGEXP\r"; continue
expect "\r\n*" send "ALGFOR/P=ALGFOR\r"; continue
expect "\r\n*" send "ALGUTL/P=ALGUTL\r"; continue
expect "\r\n*" send "ALGSER/P=ALGSER\r"; continue
expect "\r\n*" send "ALGCOD/P=ALGCOD\r"; continue
expect "\r\n*" send "ALGFUN/P=ALGFUN\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "/VERSION:10A(145)\r"; continue
expect "\r\n*" send "ALGOL.MAP/MAP:END\r"; continue
expect "\r\n*" send "ALGCON,ALGSTB\r"; continue
expect "\r\n*" send "REL:HELPER\r"; continue
expect "\r\n*" send "ALGMAC,ALGDEC,ALGSTM,ALGEXP,ALGFOR,ALGUTL,ALGSER,ALGCOD,ALGFUN/GO\r"; continue
expect "\r\n." send "SSAVE ALGOL\r"; continue
