expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,F40]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/f40.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,F40]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,F40]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DEL *.EXE\r"; continue
expect "\r\n." send "DEL *.REL\r"; continue
expect "\r\n." send "DEL *.LOW\r"; continue
expect "\r\n." send "DEL *.SHR\r"; continue
expect "\r\n." send "DEL *.UNV\r"; continue
expect "\r\n." send "MAKE REENTR.MAC\r"; continue
expect "\r\n*" send "IREENTR=0\r\33EX\33\33"; continue
; This needs older assembler to build correctly.
expect "\r\n." send "LOAD/COMP MAC47\r"; continue
expect "\r\n." send "SSAVE MACRO\r"; continue
expect "\r\n." send "COMP/COMP/SELF REENTR+<EXEC.MAC,FX4.MAC,FX1.MAC+FX2.MAC+FX3.MAC>\r"; continue
expect "\r\n." send "LOAD EXEC.REL,FX4.REL,FX3.REL\r"; continue
expect "\r\n." send "SSAVE F40\r"; continue
expect "\r\n." send "DEL *.REL\r"; continue
expect "\r\n." send "COMP/COMP/SELF/F40 @NAMES.CMD\r"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "LIB40.REL_*.REL\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R FUDGE2\r"; continue
expect "\r\n*" send "LIB40.LIB_LIB40.REL/X\33"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DEL *.REL\r"; continue
expect "\r\n." send "COMP/SELF/F40 @HNAMES.CMD\r"; continue
expect "\r\n." send "LOAD/F40 @HNAMES.CMD\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "SSAVE FORTR\r"; continue
expect "\r\n." send "DEL *.REL,*.LOW\r"; continue
expect "\r\n." send "COMP/SELF @LNAMES.CMD\r"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "IMP40.REL_*.REL\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R FUDGE2\r"; continue
expect "\r\n*" send "IMP40.LIB_IMP40.REL/A\33"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DEL *.REL,*.LOW\r"; continue
expect "\r\n." send "RENAME *.REL = *.LIB\r"; continue
expect "\r\n." send "DEL MACRO.EXE\r"; continue
