;	B R U D I R . C M D
;
F77 BRUDIR,BRUDIR/-SP=BRUDIR
.IF <EXSTAT> NE <SUCCES> .GOTO 900
.OPEN BRUDIR.BLD
.ENABLE DATA
BRUDIR/FP/CP,BRUDIR/-SP=BRUDIR
LB:[1,1]F77FCS/LB
/
Task=...BRD
IDENT=HCS
//
.CLOSE
.;
TKB @BRUDIR.BLD
.IF <EXSTAT> NE <SUCCES> .GOTO 900
PIP BRUDIR.BLD/PU,BRUDIR.FTN,BRUDIR.OBJ,BRUDIR.LST,BRUDIR.TSK,BRUDIR.MAP
.;
.900:
;