expect "\r\n." send "R CREDIR\r"; continue
expect -ri "directory:" send "[10,6,FOCAL]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/decuslib10-07.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,FOCAL]*.*=DCUS:[43,50462]*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,FOCAL]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "MAKE F.MAC\r"; continue
if "%CPU%" == "KA" 'expect "\r\n*" send "I.CPU=2\rMONITOR=6.03\r\33EX\33\33"; continue'
if "%CPU%" == "KI" 'expect "\r\n*" send "I.CPU=3\rMONITOR=6.03\r\33EX\33\33"; continue'
if "%CPU%" == "KL" 'expect "\r\n*" send "I.CPU=4\rMONITOR=6.03\r\33EX\33\33"; continue'
expect "\r\n." send "LOAD/COMP F+FOCAL\r"; continue
expect "\r\n." send "SSAVE FOCAL\r"; continue
