;	B R U D I R . C M D
;
F77 BRUDIR,BRUDIR/-sp=BRUDIR
.If <EXSTAT> ne <SUCCES> .GoTo 900
.Open BRUDIR.TKB
.Enable Data
BRUDIR/-FP/CP,BRUDIR/-sp=BRUDIR,LB:[1,1]F4PEIS,F4POTS/LB
/
Task=...BRD
.Close
.;
TKB @BRUDIR.TKB
.If <EXSTAT> ne <SUCCES> .GoTo 900
PIP BRUDIR.TKB/PU,BRUDIR.OBJ,BRUDIR.LST,BRUDIR.TSK,BRUDIR.MAP
.;
.900:
;
