.ENABLE QUIET
.ENABLE SUBSTITUTION
F77 'P1'='P1'/-wr
.IF <EXSTAT> NE 1 .GOTO 1
.IF P2 EQ "" .GOTO 2
F77 'P2'='P2'/-wr
.IF <EXSTAT> NE 1 .GOTO 1
.IF P3 EQ "" .GOTO 2
F77 'P3'='P3'/-wr
.IF <EXSTAT> NE 1 .GOTO 1
.IF P4 EQ "" .GOTO 2
F77 'P4'='P4'/-wr
.IF <EXSTAT> NE 1 .GOTO 1
.IF P5 EQ "" .GOTO 2
F77 'P5'='P5'/-wr
.IF <EXSTAT> NE 1 .GOTO 1
.IF P6 EQ "" .GOTO 2
F77 'P6'='P6'/-wr
.IF <EXSTAT> NE 1 .GOTO 1
.2:
.OPEN #1 TMP.CMD
.DATA #1 'P1'/FP='P1'
.IF P2 NE "" .DATA #1 'P2'
.IF P3 NE "" .DATA #1 'P3'
.IF P4 NE "" .DATA #1 'P4'
.IF P5 NE "" .DATA #1 'P5'
.IF P6 NE "" .DATA #1 'P6'
.DATA #1 /
.DATA #1 LIBR=F77RES:RO
.DATA #1 //
.CLOSE #1
TKB @TMP
PIP TMP.CMD;*,'P1'.OBJ;*/DE
.IF P2 NE "" PIP 'P2'.OBJ;*/DE
.IF P3 NE "" PIP 'P3'.OBJ;*/DE
.IF P4 NE "" PIP 'P4'.OBJ;*/DE
.IF P5 NE "" PIP 'P5'.OBJ;*/DE
.IF P6 NE "" PIP 'P6'.OBJ;*/DE
.1:
PIP 'P1'.*/PU
.IF P2 NE "" PIP 'P2'.*/PU
.IF P3 NE "" PIP 'P3'.*/PU
.IF P4 NE "" PIP 'P4'.*/PU
.IF P5 NE "" PIP 'P5'.*/PU
.IF P6 NE "" PIP 'P6'.*/PU
