expect "\r\n." send "R CREDIR\r"; continue
expect -ri "directory:" send "[10,6,SORT]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/AP-D489C-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 [10,6,SORT]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,SORT]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "COPY *.*=DSKB:[10,6,DBMSV5]LIBOL.REL\r"; continue
expect "\r\n." send "COPY *.*=DSKB:[10,6,DBMSV5]FORLIB.REL\r"; continue
expect "\r\n." send "COPY *.*=DSKB:[10,6,COB12A]FTDEFS.UNV\r"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "SORT=SRTPRM,SRTSTA,SRTSCN,SRTUUO,SRTCMP,SORT\r"; continue
expect "\r\n*" send "SRTCBL=SRTPRM,SRTCBL,SRTCER,SRTUUO,SORT\r"; continue
expect "\r\n*" send "SRTFOR=SRTPRM,SRTFOR,SRTSTA,SRTSCN,SRTUUO,SRTCER,SRTCMP,SORT\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "SORT.MAP/MAP:END=REL:HELPER,-\rREL:SCAN/SEGMENT:LOW/INCLUDE:(.VERBO,.TOUTS,.SAVE), -\rREL:SCAN/EXCLUDE:(.VERBO,.TOUTS,.SAVE,.SCNDC),SORT/GO\r"; continue
expect "\r\n." send "SSAVE SORT\r"; continue
expect "\r\n." send "DEL SORT.REL\r"; continue
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "LIBOL=LIBOL/MASTER:SORT,SRTCBL/REPLACE:SORT\r"; continue
expect "\r\n*" send "LIBOL=LIBOL/INDEX\r"; continue
expect "\r\n*" send "FORLIB=FORLIB,SRTFOR/APPEND\r"; continue
expect "\r\n*" send "FORLIB=FORLIB/INDEX\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DEL SRTFOR.REL,SRTCBL.REL\r"; continue
