expect "\r\n." send "r credir\r"; continue expect -ri "directory:" send "[10,6,BAS17F]\r"; continue expect -ri "directory:" at %TAPE% -r tapes/basic17f.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,BAS17F]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,6,BAS17F]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,6,BAS17F]*.*=*.*\r"; continue expect "\r\n/" send "EXIT\r"; continue expect "\r\n." send "R SETSRC\r"; continue expect "\r\n*" send "CP [10,6,BAS17F]\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "BASICL=BASICL.MAC\r"; continue expect "\r\n*" send "BASICH=BASICH.MAC\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "BASIC/SSAVE=BASICL,BASICH,REL:QUEUER,REL:HELPER/GO\r"; continue