.ENABLE SUBSTITUTION .SETS S$PROC .SETS S$MCR "" .IF <> "MCR" .SETS S$MCR "MCR " ; ; Rebuild cryptic addition program. ; .TESTFILE CRPADD.OBJ .IF = 1 'S$MCR'PIP CRPADD.OBJ;*/DE .TESTFILE CRPADD.LST .IF = 1 'S$MCR'PIP CRPADD.LST;*/DE 'S$MCR'F77 CRPADD=CRPADD.FOR .TESTFILE CRPADD.TSK .IF = 1 'S$MCR'PIP CRPADD.TSK;*/DE .TESTFILE CRPADD.MAP .IF = 1 'S$MCR'PIP CRPADD.MAP;*/DE .TESTFILE CRPADDBLD.CMD .IF = 1 .GOTO BUILD .ASKS F77OTS Where is your F-77 OTS (default: SYSLIB) .IF F77OTS <> "" .SETS F77OTS ","+F77OTS+"/LB" .OPEN CRPADDBLD.CMD .DATA CRPADD/FP/CP = CRPADD'F77OTS' .DATA / .DATA ASG = TI:6 .DATA STACK = 200 .DATA IDENT = V91.340 .DATA // .CLOSE .BUILD: 'S$MCR'TKB @CRPADDBLD