expect "\r\n." send "R CREDIR\r"; continue
expect -ri "directory:" send "[10,6,SSP]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/decuslib10-02.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 "RESTORE [10,6,SSP]*.*=DCUS:[43,50145]*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,SSP]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "TECO SSP.CMD\r"; continue
expect "\r\n*" send "SSXSP\33-3C1DEX\33\33"; continue
expect "\r\n." send "COMP/COMP/F40/FUDGE:SSP @SSP\r"; continue
expect "\r\n." send "FUDGE\r"; continue
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "SSP.REL=SSP.REL/INDEX\r"; continue
expect "\r\n*" send "\3"; continue
