;	T P C . C M D
;
MAC TPC,TPC/-SP=TPC
.IF <EXSTAT> NE <SUCCES> .GOTO 900
.OPEN TPC.BLD
.ENABLE DATA
TPC,TPC/-SP=TPC
/
UNITS=3
ASG=MS0:1
ASG=MU0:2
ASG=TI:3
TASK=...TPC
//
.CLOSE
.;
TKB @TPC.BLD
.IF <EXSTAT> NE <SUCCES> .GOTO 900
PIP TPC.BLD/PU,TPC.MAC,TPC.OBJ,TPC.LST,TPC.TSK,TPC.MAP
.;
.900:
;