expect "\r\n." send "r credir\r"; continue expect -ri "directory:" send "[10,6,BCPL]\r"; continue expect -ri "directory:" at %TAPE% -r tapes/BCPL.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,BCPL]*.*=*.*\r"; continue expect "\r\n/" send "EXIT\r"; continue expect "\r\n." send "R SETSRC\r"; continue expect "\r\n*" send "CP [10,6,BCPL]\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "RUN SUBFIL\r"; continue expect "\r\n/" continue expect "\r\n*" send "BCPL.MAS\r"; continue expect "\r\n*" continue expect "\r\n*" send "BCPLIB.MAS\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]*.BCP\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]*.GET\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]*.SUB\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]bcpl.cmd\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]parse.cmd\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]tran?.cmd\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]bcplib.cmd\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]lowlib.cmd\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]bclov2.mac\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]mboots.mac\r"; continue expect "\r\n." send "REN [10,6,BCPL]=[10,6]mcomp.mic\r"; continue expect "\r\n." send "R SETSRC\r"; continue expect "\r\n*" send "CP [10,6]\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "del *.get,bcpl.hlp,bcpl.txt\r"; continue