expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,DBMSV5]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/dbmsv5a.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,DBMSV5]*.*=*.*\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,DBMSV5]*.*=*.*\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,DBMSV5]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,DBMSV5]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "COPY *.*=[10,6,COB12A]LIBOL.REL,LIBSHR.REL\r"; continue
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "LIBOL=LIBOL/DELETE:RSVGAT\r"; continue
expect "\r\n*" send "LIBOL=LIBOL/DELETE:RESOLV\r"; continue
expect "\r\n*" send "COBFUN.TMP=LIBOL/EXTR:COBFUN\r"; continue
expect "\r\n*" send "LIBOL=LIBOL,DBSCOB/APPEND,DBS10/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO1/APPEND\r"; continue
expect "\r\n*" send "LIBOL=LIBOL/INDEX\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DBCS18\r"; continue
expect "\r\n." send "SSAVE DSK:C68OTS\r"; continue
if "%CPU%" == "KA" 'expect "\r\n." send "COPY FORLIB.REL=[10,6,FTN5A]FORLKA.REL\r"; continue'
if "%CPU%" == "KI" 'expect "\r\n." send "COPY FORLIB.REL=[10,6,FTN5A]FORLKI.REL\r"; continue'
if "%CPU%" == "KL" 'expect "\r\n." send "COPY FORLIB.REL=[10,6,FTN5A]FORLKI.REL\r"; continue'
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "FORLIB=FORLIB/DELETE:FORDBM\r"; continue
expect "\r\n*" send "FORLIB=FORLIB,DBSFOR/APPEND,DBS10/APPEND,DBSANY/APPEND,SCHIO1/APPEND\r"; continue
expect "\r\n*" send "FORLIB=FORLIB/INDEX\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DBCS1F\r"; continue
expect "\r\n." send "SSAVE DSK:FDBOTS\r"; continue
expect "\r\n." send "DEL COBFUN.TMP\r"; continue

