expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,APLSF]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/BB-D476C-BB_1978.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,APLSF]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
