expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,IQLV30]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/iqlv30.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,IQLV30]*.*=*.*\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,IQLV30]*.*=*.*\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,IQLV30]*.*=*.*\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,IQLV30]*.*=*.*\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6,IQLV30]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,IQLV30]\r"; continue
expect "\r\n*" send "\3"; continue
;NOW BUILD EACH IQL MODULE SEPARATELY
expect "\r\n." send "COPY =REL:LIBOL.REL\r"; continue
expect "\r\n." send "MAKE BLD.CCL\r"; continue
expect "\r\n*" send "I,-=IQA/S/N/P\r,-=IQD/S/N/P\r,-=IQE/S/N/P/R\r,-=IQES/S/N/P/R\r,-=IQCALL/S/N/P/R\r,-=IQL/S/N/P\r,-=IQM/S/N/P\r,-=IQU/S/N/P/R\r,-=IQSCH/S/N/P/R\r\33EX\33\33"; continue
expect "\r\n." send "TECO IQE.CMD\r"; continue
expect "\r\n*" send "SLIBOL\33-5CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO IQSCH.CMD\r"; continue
expect "\r\n*" send "SLIBOL\33-5CIREL:\33EX\33\33"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "IQLVER=IQLVER\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R COBOL\r"; continue
expect "\r\n*" send "BLD@\r"; continue
expect "\r\n." send "LOAD @IQA.CMD\r"; continue
expect "\r\n." send "SAVE IQA\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "LOAD @IQD.CMD\r"; continue
expect "\r\n." send "SAVE IQD\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "LOAD @IQE.CMD\r"; continue
expect "\r\n." send "SAVE IQE\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "LOAD @IQL.CMD\r"; continue
expect "\r\n." send "SAVE IQL\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "LOAD @IQM.CMD\r"; continue
expect "\r\n." send "SAVE IQM\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "LOAD @IQU.CMD\r"; continue
expect "\r\n." send "SAVE IQU\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "LOAD @IQSCH.CMD\r"; continue
expect "\r\n." send "SAVE IQSCH\r"; continue
expect "\r\n." send "VERSION\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "\r"; continue
expect "\r\n*" send "CP [10,6,MCS10]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DEL *.TMP\r"; continue
expect "\r\n." send "LOAD @GENNNL\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@001LNK.TMP\r"; continue
expect "\r\n." send "SSAVE MCSGEN\r"; continue
expect "\r\n." send "LOAD @REPNNL\r"; continue
expect "\r\n." send "SSAVE MCSREP\r"; continue
expect "\r\n." send "RUN MCSGEN\r"; continue
expect "\r\n*" send "READ DEMO.BIN\r"; continue
expect "\r\n*" send "DISP ALL:\r"; continue
expect "\r\n*" send "WRITE DEMO.REL\r"; continue
expect "\r\n*" send "EXIT\r"; continue
expect "\r\n." send "LOAD MCS,DEMO\r"; continue
