expect "\r\n." send "R CREDIR\r"; continue expect -ri "directory:" send "[10,6,KERMIT]\r"; continue expect -ri "directory:" at %TAPE% -r tapes/kermit.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 "INTER\r"; continue expect "\r\n/" send "FILES\r"; continue expect "\r\n/" send "RESTORE [10,6,KERMIT]*.*=*.*\r"; continue expect "\r\n/" send "EXIT\r"; continue expect "\r\n." send "R SETSRC\r"; continue expect "\r\n*" send "CP [10,6,KERMIT]\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "MACTEN=MACTEN.MAC\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R RUNOFF\r"; continue expect "\r\n*" send "KERMIT.T5=KERMIT.RNO\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "EXECUTE MAKHLP.MAC\r"; continue expect "From: " send "KERMIT.T5\r"; continue expect "To: " send "KERMIT.H5\r"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "KERMIT=KERMIT.MAC\r"; continue expect "\r\n*" send "FILIO=FILIO.MAC\r"; continue expect "\r\n*" send "KERMIT=KERMIT.MAC\r"; continue expect "\r\n*" send "MACLIB=MACLIB.MAC\r"; continue expect "\r\n*" send "UTLITY=UTLITY.MAC\r"; continue expect "\r\n*" send "COMMND=COMMND.MAC\r"; continue expect "\r\n*" send "LOCAL=LOCAL.MAC\r"; continue expect "\r\n*" send "REMOTE=REMOTE.MAC\r"; continue expect "\r\n*" send "SET=SET.MAC\r"; continue expect "\r\n*" send "SHOW=SHOW.MAC\r"; continue expect "\r\n*" send "SEND=SEND.MAC\r"; continue expect "\r\n*" send "RECEIV=RECEIV.MAC\r"; continue expect "\r\n*" send "SERVER=SERVER.MAC\r"; continue expect "\r\n*" send "HELP=HELP.MAC\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "TTY:/LOG\r"; continue expect "\r\n*" send "/NOSYM\r"; continue expect "\r\n*" send "REL:QUEUER\r"; continue expect "\r\n*" send "KERMIT\r"; continue expect "\r\n*" send "/SSA/GO\r"; continue