expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,FTN5A]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/AP-D480B-SB_1978.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,FTN5A]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,FTN5A]\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 BCOM.CMD\r"; continue
expect "\r\n*" send "IBUILD.BLI,SCAN0.BLI,SCNR.BLI,TRACE1.BLI,ERROR0.BLI,BLIO.BLI,\33\33"; continue
expect "\r\n*" send "INUMIO1.BLI,DEFLT.BLI,TBL.BLI,OUTZ.BLI,QTAB1.MAC,ERRTB3.MAC\r\33EX\33\33"; continue
expect "\r\n." send "MAKE CA.CMD\r"; continue
expect "\r\n*" send "IMAIN.BLI,GLOBAL.BLI,INOUT.BLI,ERROVA.BLI,UNEND.BLI,JOBD.MAC,COMMAN.MAC,OWNDM.MAC\r\33EX\33\33"; continue
expect "\r\n." send "MAKE CB.CMD\r"; continue
expect "\r\n*" send "ISRCA.BLI,ERROVB.BLI,ERROUT.BLI,VLTPPR.BLI,ARRXPN.BLI,DOXPN.BLI\r\33\33"; continue
expect "\r\n*" send "IFAZ1.BLI,GNRCFN.BLI,EXPRES.BLI,FORMAT.BLI,ACT0.BLI,ACT1.BLI\r\33\33"; continue
expect "\r\n*" send "ISTA0.BLI,STA1.BLI,STA2.BLI,STA3.BLI,LISTNG.BLI,LEXSUP.BLI,LEXSUP.BLI\r\33\33"; continue
expect "\r\n*" send "ICODETA.BLI,LEXICA.BLI,DRIVER.BLI,DPSIM.MAC,FLTGEN.MAC,CNSTCM.MAC\r\33EX\33\33"; continue
expect "\r\n." send "MAKE CC.CMD\r"; continue
expect "\r\n*" send "IMEMCMP.BLI,ERROVC.BLI,SKSTMN.BLI,GOPT2.BLI,INPT.BLI,P2S1.BLI,P2S2.BLI\r\33\33"; continue
expect "\r\n*" send "ICANNON.BLI,COMSUB.BLI,GOPTIM.BLI,UTIL.BLI,PH2S.BLI,DOPT.MAC,DGCMN.MAC\r\33EX\33\33"; continue
expect "\r\n." send "MAKE CD.CMD\r"; continue
expect "\r\n*" send "IGRAPH.BLI,ERROVD.BLI,MOVA.BLI,IOPT.BLI,GCMNSB.BLI,DEFPT.BLI,PNROPT.BLI\r\33\33"; continue
expect "\r\n*" send "ITSTR.BLI,VER5.BLI,PHA2.BLI,DNPT.MAC,P3R.BLI\r\33EX\33\33"; continue
expect "\r\n." send "MAKE CE.CMD\r"; continue
expect "\r\n*" send "ISTREGA.BLI,ERROVR.BLI,REGUTL.BLI,CMPLEX.BLI,CMPBLO.BLI,ALCBLO.BLI\r\33\33"; continue
expect "\r\n*" send "IDOALC.BLI,REGAL2.BLI,RELBUF.BLI,DATAST.BLI,OUTMOD.BLI,PH3G.BLI\r\33EX\33\33"; continue
expect "\r\n." send "MAKE CG.CMD\r"; continue
expect "\r\n*" send "IOPTAB.BLI,ERROVG.BLI,CGDO.BLI,CGSTMN.BLI,CGEXPR.BLI,PEEPOP.BLI\r\33\33"; continue
expect "\r\n*" send "ILISTOU.BLI,DEBUG.BLI,PHA3.BLI,OPGNTA.MAC\r\33EX\33\33"; continue
expect "\r\n." send "TECO A.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33S[10,7]\33-6C6D-6CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DA.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33S[10,7]\33-6C6D-6CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO B.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DB.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO C.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DC.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO D.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DD.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO E.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DE.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO F.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DF.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO G.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO DG.CMD\r"; continue
expect "\r\n*" send "SREL:\33-5C5D-4CIREL:\33S[10,7]\33-6C6D-4CIREL:\33EX\33\33"; continue
expect "\r\n." send "TECO FORDDT.MAC\r"; continue
expect "\r\n*" send "SMON\33-3C3DIUUO\33EX\33\33"; continue
expect "\r\n." send "COMPILE/COMP @BCOM\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@BLD.CMD\r"; continue
expect "\r\n." send "SAVE BUILD\r"; continue
expect "\r\n." send "RUN BUILD\r"; continue
expect "\r\n*" send "META72.BLI,F72BNF.BLI_F72BNF.SYN\r"; continue
expect "START DETAILED TRACE AT META NO.(0=NONE)" send "0\r"; continue
expect "IS A PLIT OF META NUMBERS NEEDED?(Y OR N):" send "N\r"; continue
expect "\r\n." send "RUN BUILD\r"; continue
expect "\r\n*" send "METAFM.BLI,FRMBNF.BLI_FRMBNF.SYN\r"; continue
expect "START DETAILED TRACE AT META NO.(0=NONE)" send "0\r"; continue
expect "IS A PLIT OF META NUMBERS NEEDED?(Y OR N):" send "N\r"; continue
expect "\r\n." send "R BLIS10\r"; continue
expect "\r\n*" send "LEFT72=LEFT72.BLI\r"; continue
expect "\r\n*" send "LEFTFM=LEFTFM.BLI\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@LEFT72.CMD\r"; continue
expect "\r\n." send "SAVE LEFT72\r"; continue
expect "\r\n." send "RUN LEFT72\r"; continue
expect "\r\n*" send "3=LOOK72.BLI\r"; continue
expect "START TRACE AT NODE #(0=NONE):" send "0\r"; continue
expect "IS A PLIT OF META NUMBERS NEEDED?(Y OR N):" send "N\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@LEFTFM.CMD\r"; continue
expect "\r\n." send "SAVE LEFTFM\r"; continue
expect "\r\n." send "RUN LEFTFM\r"; continue
expect "\r\n*" send "3=LOOKFM.BLI\r"; continue
expect "START TRACE AT NODE #(0=NONE):" send "0\r"; continue
expect "\r\n." send "TECO F72BNF.BLI\r"; continue
expect "\r\n*" send "NLEFTBUILD\33JSBIND\33\060L.U0S;\033\040L\r<I!\33\060LQ0-.\"E0;'-L>\rNLEFTBUILD\33N\33-L.U0S;\33-L\r<I!\33\060LQ0-.\"E0;'-L>EX\33\33"; continue
expect "\r\n." send "TECO FRMBNF.BLI\r"; continue
expect "\r\n*" send "NLEFTBUILD\33JSBIND\33\060L.U0S;\33\060L\r<I!\33\060LQ0-.\"E0;'-L>EX\33\33"; continue
expect "\r\n." send "MAKE DBUGIT.OFF\r"; continue
expect "\r\n*" send "IBIND DBUGIT=0;\r\33EX\33\33"; continue
expect "\r\n." send "MAKE FT1SEG.OFF\r"; continue
expect "\r\n*" send "IGLOBAL BIND FT1SEG=0;\r\33EX\33\33"; continue
expect "\r\n." send "MAKE FTTENX.OFF\r"; continue
expect "\r\n*" send "IGLOBAL BIND FTTENEX=0;\r\33EX\33\33"; continue
expect "\r\n." send "DEL DBUGIT.REQ,FT1SEG.REQ,FTTENX.REQ\r"; continue
expect "\r\n." send "COPY DBUGIT.REQ=DBUGIT.OFF\r"; continue
expect "\r\n." send "COPY FT1SEG.REQ=FT1SEG.OFF\r"; continue
expect "\r\n." send "COPY FTTENX.REQ=FTTENX.OFF\r"; continue
expect "\r\n." send "MAKE FTTENX.MAC\r"; continue
expect "\r\n*" send "IUNIVERSAL FTTENX\r	FTTENX=0\r	END\r\33EX\33\33"; continue
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "FTTENX=FTTENX.MAC\r"; continue
expect "\r\n*" send "ERR3=ERR3.MAC\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "COMP/COMP @CA\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@A\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DA\r"; continue
expect "\r\n." send "COMP/COMP @CB\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@B\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DB\r"; continue
expect "\r\n." send "COMP/COMP @CC\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@C\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DC\r"; continue
expect "\r\n." send "COMP/COMP @CD\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@D\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DD\r"; continue
expect "\r\n." send "COMP/COMP @CE\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@E\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DE\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@F\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DF\r"; continue
expect "\r\n." send "COMP/COMP @CG\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@G\r"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "@DG\r"; continue
expect "\r\n." send "DIR *.EXE,*.LOW\r"; continue
if "%CPU%" != "KA" goto KI
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "FKAPRM=FORCPU.KA,FORPRM.MAC\r"; continue
expect "\r\n*" send "FKACNV=FORCNV.MAC\r"; continue
expect "\r\n*" send "FKACPX=FORCPX.MAC\r"; continue
expect "\r\n*" send "FKADAR=FORDAR.MAC\r"; continue
expect "\r\n*" send "FKADBL=FORDBL.MAC\r"; continue
expect "\r\n*" send "FKADMP=FORDMP.MAC\r"; continue
expect "\r\n*" send "FKADUM=FORDUM.MAC\r"; continue
expect "\r\n*" send "FKAERR=FORERR.MAC\r"; continue
expect "\r\n*" send "FKAFUN=FORFUN.MAC\r"; continue
expect "\r\n*" send "FKAINI=FORINI.MAC\r"; continue
expect "\r\n*" send "FKAJAK=FORJAK.MAC\r"; continue
expect "\r\n*" send "FKAMSC=FORMSC.MAC\r"; continue
expect "\r\n*" send "FKAOPN=FOROPN.MAC\r"; continue
expect "\r\n*" send "FKAOTS=FOROTS.MAC\r"; continue
expect "\r\n*" send "FKAPLT=FORPLT.MAC\r"; continue
expect "\r\n*" send "FKAPSE=FORPSE.MAC\r"; continue
expect "\r\n*" send "FKAQUE=FORQUE.MAC\r"; continue
expect "\r\n*" send "FKARTF=FORRTF.MAC\r"; continue
expect "\r\n*" send "FKASIN=FORSIN.MAC\r"; continue
expect "\r\n*" send "FKATRP=FORTRP.MAC\r"; continue
expect "\r\n*" send "FKAXIT=FORXIT.MAC\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DELETE FKADAR.UNV,FKAMSC.UNV,FKAPRM.UNV\r"; continue
expect "\r\n." send "RENAME FKADAR.UNV=FORDAR.UNV\r"; continue
expect "\r\n." send "RENAME FKAMSC.UNV=FORMSC.UNV\r"; continue
expect "\r\n." send "RENAME FKAPRM.UNV=FORPRM.UNV\r"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "FRSKA.CMD@\r"; continue
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "FORLKA.REL=FORLKA.REL/INDEX/NOLOCALS\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R GLOB\r"; continue
expect "\r\n*" send "FORLKA_FORLKA.REL\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "FOROKA.MAP/MAP\r"; continue
expect "\r\n*" send "FOROKA/SSAVE=FKAOTS,FORLKA/SEARCH/GO\r"; continue
goto KA
:KI
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "FKIPRM=FORCPU.KI,FORPRM.MAC\r"; continue
expect "\r\n*" send "FKICNV=FORCNV.MAC\r"; continue
expect "\r\n*" send "FKICPX=FORCPX.MAC\r"; continue
expect "\r\n*" send "FKIDAR=FORDAR.MAC\r"; continue
expect "\r\n*" send "FKIDMP=FORDMP.MAC\r"; continue
expect "\r\n*" send "FKIDUM=FORDUM.MAC\r"; continue
expect "\r\n*" send "FKIERR=FORERR.MAC\r"; continue
expect "\r\n*" send "FKIFUN=FORFUN.MAC\r"; continue
expect "\r\n*" send "FKIINI=FORINI.MAC\r"; continue
expect "\r\n*" send "FKIJAK=FORJAK.MAC\r"; continue
expect "\r\n*" send "FKIMSC=FORMSC.MAC\r"; continue
expect "\r\n*" send "FKIOPN=FOROPN.MAC\r"; continue
expect "\r\n*" send "FKIOTS=FOROTS.MAC\r"; continue
expect "\r\n*" send "FKIPLT=FORPLT.MAC\r"; continue
expect "\r\n*" send "FKIPSE=FORPSE.MAC\r"; continue
expect "\r\n*" send "FKIQUE=FORQUE.MAC\r"; continue
expect "\r\n*" send "FKIRTF=FORRTF.MAC\r"; continue
expect "\r\n*" send "FKISIN=FORSIN.MAC\r"; continue
expect "\r\n*" send "FKITRP=FORTRP.MAC\r"; continue
expect "\r\n*" send "FKIXIT=FORXIT.MAC\r"; continue
expect "\r\n*" send "FKIDBL=FORDBL.MAC\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "DELETE FKIDAR.UNV,FKIMSC.UNV,FKIPRM.UNV\r"; continue
expect "\r\n." send "RENAME FKIDAR.UNV=FORDAR.UNV\r"; continue
expect "\r\n." send "RENAME FKIMSC.UNV=FORMSC.UNV\r"; continue
expect "\r\n." send "RENAME FKIPRM.UNV=FORPRM.UNV\r"; continue
expect "\r\n." send "R PIP\r"; continue
expect "\r\n*" send "FRSKI.CMD@\r"; continue
expect "\r\n." send "R MAKLIB\r"; continue
expect "\r\n*" send "FORLKI.REL=FORLKI.REL/INDEX/NOLOCALS\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R GLOB\r"; continue
expect "\r\n*" send "FORLKI_FORLKI.REL\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R LINK\r"; continue
expect "\r\n*" send "FOROKI.MAP/MAP\r"; continue
expect "\r\n*" send "FOROKI/SSAVE=FKIOTS,FORLKI/SEARCH/GO\r"; continue
:KA
expect "\r\n." send "R MACRO\r"; continue
expect "\r\n*" send "FORDDT=FORDDT\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "R RUNOFF\r"; continue
expect "\r\n*" send "FRS5A1.DOC=FRS5A.RND\r"; continue
expect "\r\n*" send "FOR5A1.DOC=FDT5A.RND\r"; continue
expect "\r\n*" send "FORDDT.HLP=FDT5A.RNH\r"; continue
expect "\r\n*" send "\3"; continue
