expect "\r\n." send "r credir\r"; continue expect -ri "directory:" send "[10,6,COB12A]\r"; continue expect -ri "directory:" at %TAPE% -r tapes/ap-c800d-sb.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,COB12A]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,6,COB12A]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,6,COB12A]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,6,COB12A]*.*=*.*\r"; continue expect "\r\n/" send "EXIT\r"; continue expect "\r\n." send "R SETSRC\r"; continue expect "\r\n*" send "CP [10,6,COB12A]\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "ASSIGN DSK: SRC:\r"; continue expect "\r\n." send "ASSIGN DSK: C68:\r"; continue expect "\r\n." send "ASSIGN DSK: C74:\r"; continue expect "\r\n." send "TECO COBASM.MAC\r"; continue if "%CPU%" != "KL" 'expect "\r\n*" send "SBIS==\033DI0\033EX\033\033"; continue' if "%CPU%" == "KL" 'expect "\r\n*" send "SBIS==\033DI1\033EX\033\033"; continue' expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "COBASM=COBASM\r"; continue expect "\r\n*" send "FTDEFS=FTDEFS\r"; continue expect "\r\n*" send "INTERM=INTERM\r"; continue expect "\r\n*" send "LBLPRM=LBLPRM\r"; continue expect "\r\n*" send "COMUNI=COMUNI\r"; continue expect "\r\n*" send "P=P\r"; continue expect "\r\n*" send "CHREQV=CHREQV\r"; continue expect "\r\n*" send "TABLES=TABLES\r"; continue expect "\r\n*" send "OPCTAB=OPCTAB\r"; continue expect "\r\n*" send "COBTST=COBTST\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBTST/GO\r"; continue expect "\r\n." send "SAVE COBTST\r"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "ASCEBC=ASCEBC\r"; continue expect "\r\n*" send "ASCSIX=ASCSIX\r"; continue expect "\r\n*" send "BISGEN=BISGEN\r"; continue expect "\r\n*" send "BTREE=BTREE\r"; continue expect "\r\n*" send "CLEANC=CLEANC\r"; continue expect "\r\n*" send "CLEAND=CLEAND\r"; continue expect "\r\n*" send "CLEANT=CLEANT\r"; continue expect "\r\n*" send "CLRNAM=CLRNAM\r"; continue expect "\r\n*" send "CMNGEN=CMNGEN\r"; continue expect "\r\n*" send "COBCOM=COBCOM\r"; continue expect "\r\n*" send "COBOLA=COBOLA\r"; continue expect "\r\n*" send "COBOLB=COBOLB\r"; continue expect "\r\n*" send "COBOLC=COBOLC\r"; continue expect "\r\n*" send "COBOLD=COBOLD\r"; continue expect "\r\n*" send "COBOLE=COBOLE\r"; continue expect "\r\n*" send "COBOLF=COBOLF\r"; continue expect "\r\n*" send "COBOLG=COBOLG\r"; continue expect "\r\n*" send "COBOLK=COBOLK\r"; continue expect "\r\n*" send "COBOLO=COBOLO\r"; continue expect "\r\n*" send "CTREE=CTREE\r"; continue expect "\r\n*" send "DIAGS=DIAGS\r"; continue expect "\r\n*" send "DTREE=DTREE\r"; continue expect "\r\n*" send "EBCASC=EBCASC\r"; continue expect "\r\n*" send "EXPGEN=EXPGEN\r"; continue expect "\r\n*" send "FNDPOP=FNDPOP\r"; continue expect "\r\n*" send "GETASY=GETASY\r"; continue expect "\r\n*" send "GETCPY=GETCPY\r"; continue expect "\r\n*" send "GETERA=GETERA\r"; continue expect "\r\n*" send "GETGEN=GETGEN\r"; continue expect "\r\n*" send "GETITM=GETITM\r"; continue expect "\r\n*" send "GETTAG=GETTAG\r"; continue expect "\r\n*" send "IFGEN=IFGEN\r"; continue expect "\r\n*" send "IMPURE=IMPURE\r"; continue expect "\r\n*" send "IOGEN=IOGEN\r"; continue expect "\r\n*" send "IPCGEN=IPCGEN\r"; continue expect "\r\n*" send "MATGEN=MATGEN\r"; continue expect "\r\n*" send "MESGEN=MESGEN\r"; continue expect "\r\n*" send "MOVGEN=MOVGEN\r"; continue expect "\r\n*" send "MSCGEN=MSCGEN\r"; continue expect "\r\n*" send "PMATCH=PMATCH\r"; continue expect "\r\n*" send "PSCAN=PSCAN\r"; continue expect "\r\n*" send "PURAB=PURAB,PURE\r"; continue expect "\r\n*" send "PUREC=PUREC,PURE\r"; continue expect "\r\n*" send "PURED=PURED,PURE\r"; continue expect "\r\n*" send "PUREE=PUREE,PURE\r"; continue expect "\r\n*" send "PUREO=PUREO,PURE\r"; continue expect "\r\n*" send "PURFG=PURFG,PURE\r"; continue expect "\r\n*" send "PUTAS1=PUTAS1\r"; continue expect "\r\n*" send "PUTAS2=PUTAS2\r"; continue expect "\r\n*" send "PUTAS3=PUTAS3\r"; continue expect "\r\n*" send "PUTBIN=PUTBIN\r"; continue expect "\r\n*" send "PUTCPY=PUTCPY\r"; continue expect "\r\n*" send "PUTERA=PUTERA\r"; continue expect "\r\n*" send "PUTGEN=PUTGEN\r"; continue expect "\r\n*" send "PUTLST=PUTLST\r"; continue expect "\r\n*" send "RPWGEN=RPWGEN\r"; continue expect "\r\n*" send "SQUIRL=SQUIRL\r"; continue expect "\r\n*" send "SRTCRF=SRTCRF\r"; continue expect "\r\n*" send "SRTGEN=SRTGEN\r"; continue expect "\r\n*" send "SRTTAB=SRTTAB\r"; continue expect "\r\n*" send "STINFL=STINFL\r"; continue expect "\r\n*" send "STRGEN=STRGEN\r"; continue expect "\r\n*" send "SUGENS=SUGENS\r"; continue expect "\r\n*" send "SYMBOL=SYMBOL\r"; continue expect "\r\n*" send "TRYNAM=TRYNAM\r"; continue expect "\r\n*" send "XFRGEN=XFRGEN\r"; continue expect "\r\n*" send "XPAND=XPAND\r"; continue expect "\r\n*" send "XPNPPL=XPNPPL\r"; continue expect "\r\n*" send "CMLSYM=CMLSYM\r"; continue expect "\r\n*" send "GENDCL=GENDCL\r"; continue expect "\r\n*" send "DBSDCL=DBSDCL\r"; continue expect "\r\n*" send "STRUNV=STRUNV\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "STRDCL=STRDCL\r"; continue expect "\r\n*" send "DBDML=DBDML\r"; continue expect "\r\n*" send "DBGETF=DBGETF\r"; continue expect "\r\n*" send "CMLVOK=DMLVOK\r"; continue expect "\r\n*" send "CMLERR=DMLERR\r"; continue expect "\r\n*" send "CMLIO=DMLIO\r"; continue expect "\r\n*" send "HANDAN=HANDAN\r"; continue expect "\r\n*" send "TRACER=TRACER\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOL/MAP=\r"; continue expect "\r\n*" send "@PABDB\r"; continue expect "\r\n." send -t after=400000 "SSAVE COBOL\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOLC/MAP=\r"; continue expect "\r\n*" send "@PCDB\r"; continue expect "\r\n." send -t after=400000 "SSAVE DSK:COBOLC\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOLD/MAP=\r"; continue expect "\r\n*" send "@PDDB\r"; continue expect "\r\n." send -t after=400000 "SSAVE DSK:COBOLD\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOLE/MAP=\r"; continue expect "\r\n*" send "@PED\r"; continue expect "\r\n." send -t after=400000 "SSAVE DSK:COBOLE\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOLO/MAP=\r"; continue expect "\r\n*" send "@POD\r"; continue expect "\r\n." send -t after=400000 "SSAVE DSK:COBOLO\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOLF/MAP=\r"; continue expect "\r\n*" send "@PFGD\r"; continue expect "\r\n." send -t after=400000 "SSAVE DSK:COBOLF\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "COBOLK/MAP=\r"; continue expect "\r\n*" send "@PKD\r"; continue expect "\r\n." send -t after=400000 "SSAVE DSK:COBOLK\r"; continue expect "\r\n." send "MAKE P1.MAC\r"; continue expect "\r\n*" send "ISHR==1\r\33EX\33\33"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "COMUNI=COMUNI\r"; continue expect "\r\n*" send "CHREQV=CHREQV\r"; continue expect "\r\n*" send "NUMEQV=NUMEQV\r"; continue expect "\r\n*" send "FLGDF=FLGDF\r"; continue expect "\r\n*" send "METUNV=METUNV\r"; continue expect "\r\n*" send "ACCEPT=ACCEPT\r"; continue expect "\r\n*" send "ALBSTB=ALBSTB\r"; continue expect "\r\n*" send "ALF=ALF\r"; continue expect "\r\n*" send "ARGS=ARGS\r"; continue expect "\r\n*" send "CANCEL=CANCEL\r"; continue expect "\r\n*" send "CBLIO=CBLIO\r"; continue expect "\r\n*" send "CDD=CDD\r"; continue expect "\r\n*" send "CMP=CMP\r"; continue expect "\r\n*" send "CMPX=CMPX\r"; continue expect "\r\n*" send "COBFUN=COBFUN\r"; continue expect "\r\n*" send "COBST=COBST\r"; continue expect "\r\n*" send "COMPD=COMPD\r"; continue expect "\r\n*" send "COVRLY=COVRLY\r"; continue expect "\r\n*" send "DSORT=DSORT\r"; continue expect "\r\n*" send "DEBSTB=DEBSTB\r"; continue expect "\r\n*" send "DIV11=DIV11\r"; continue expect "\r\n*" send "DPADD=DPADD\r"; continue expect "\r\n*" send "DPDIV=DPDIV\r"; continue expect "\r\n*" send "DPMUL=DPMUL\r"; continue expect "\r\n*" send "DPSUB=DPSUB\r"; continue expect "\r\n*" send "DSPFP=DSPFP\r"; continue expect "\r\n*" send "EASTBL=EASTBL\r"; continue expect "\r\n*" send "EDIT=EDIT\r"; continue expect "\r\n*" send "EDITB=EDITB\r"; continue expect "\r\n*" send "EXAM=EXAM\r"; continue expect "\r\n*" send "EXPON=EXPON\r"; continue expect "\r\n*" send "FIX=FIX\r"; continue expect "\r\n*" send "FLOAT=FLOAT\r"; continue expect "\r\n*" send "GC=GC\r"; continue expect "\r\n*" send "GD=GD\r"; continue expect "\r\n*" send "INSPEC=INSPEC\r"; continue expect "\r\n*" send "KEY=KEY\r"; continue expect "\r\n*" send "KPROG=KPROG\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "LCM10=LCM10\r"; continue expect "\r\n*" send "LCMIPC=LCMIPC\r"; continue expect "\r\n*" send "LIBREL=LIBREL\r"; continue expect "\r\n*" send "LIBSHR=LIBSHR\r"; continue expect "\r\n*" send "LILOWS=LILOWS\r"; continue expect "\r\n*" send "LINE=LINE\r"; continue expect "\r\n*" send "LSU=LSU\r"; continue expect "\r\n*" send "MAGNEG=MAGNEG\r"; continue expect "\r\n*" send "METIO=METIO\r"; continue expect "\r\n*" send "MOVE=MOVE\r"; continue expect "\r\n*" send "NUM=NUM\r"; continue expect "\r\n*" send "NTBSTB=NTBSTB\r"; continue expect "\r\n*" send "NUBSTB=NUBSTB\r"; continue expect "\r\n*" send "PC=PC\r"; continue expect "\r\n*" send "PD=PD\r"; continue expect "\r\n*" send "PERF=PERF\r"; continue expect "\r\n*" send "PNZ=PNZ\r"; continue expect "\r\n*" send "PUTRES=PUTRES\r"; continue expect "\r\n*" send "REMOVL=REMOVL\r"; continue expect "\r\n*" send "RESOLV=RESOLV\r"; continue expect "\r\n*" send "SETRET=SETRET\r"; continue expect "\r\n*" send "SIZ23=SIZ23\r"; continue expect "\r\n*" send "SIZE1=SIZE1\r"; continue expect "\r\n*" send "SPAC=SPAC\r"; continue expect "\r\n*" send "STRNGL=STRNGL\r"; continue expect "\r\n*" send "SUBSCR=SUBSCR\r"; continue expect "\r\n*" send "TODAY=TODAY\r"; continue expect "\r\n*" send "TRACED=TRACED\r"; continue expect "\r\n*" send "USRDSH=P1,USRDSP\r"; continue expect "\r\n*" send "USRDSL=USRDSP\r"; continue expect "\r\n*" send "ZERC=ZERC\r"; continue expect "\r\n*" send "COBDDT=COBDDT\r"; continue expect "\r\n*" send "ISAM=ISAM\r"; continue expect "\r\n*" send "LIBARY=LIBARY\r"; continue expect "\r\n*" send "RERUN=RERUN\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R PIP\r"; continue expect "\r\n*" send "LIBOL.REL/B=LILOWS.REL,COBST.REL,CBLIO.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRNGL.REL,LSU.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,FIX.REL,CDD.REL,MOVE.REL,EXPON.REL,COMPD.REL,CMPX.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,CMP.REL,SPAC.REL,ZERC.REL,ALF.REL,PNZ.REL,NUM.REL,DSPFP.REL,DIV11.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,DPDIV.REL,DPADD.REL,DPSUB.REL,DPMUL.REL,MAGNEG.REL,SUBSCR.REL,TODAY.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,SIZE1.REL,SIZ23.REL,EXAM.REL,INSPEC.REL,EDIT.REL,PERF.REL,COVRLY.REL,METIO.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,KEY.REL,KPROG.REL,DSORT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DEBSTB.REL\r"; continue expect "\r\n*" send "LIBOL.REL/B=LIBOL.REL,EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM10.REL,LCMIPC.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." continue expect "\r\n." continue expect "\r\n." send "R MAKLIB\r"; continue expect "\r\n*" send "LIBOL.REL=LIBOL.REL/INDEX\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "LIBO12.MAP/MAP=LIBSHR,LIBOL/SEARCH/GO\r"; continue expect "\r\n." send "SSAVE DSK:LIBO12\r"; continue expect "\r\n." send "R GLOB\r"; continue expect "\r\n*" send "LIBOL.GLB=LIBSHR.REL,LIBOL.REL\33"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "ISAM.MAP/MAP=ISAM,LIBOL/SEARCH/GO\r"; continue expect "\r\n." send "SSAVE ISAM\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "LIBARY.MAP/MAP=LIBARY,REL:HELPER/GO\r"; continue expect "\r\n." send "SSAVE LIBRARY\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "RERUN.MAP/MAP=RERUN/GO\r"; continue expect "\r\n." send "SSAVE RERUN\r"; continue