.IFNINS ...MAC INS $MAC
	.IFNINS ...TKB INS $TKB
	.IFNINS ...PIP INS $PIP

	MAC POWERD=POWERD
	.IF <EXSTAT> <> 1 .EXIT <EXSTAT>

	.OPEN POWERDBLD.CMD
	.DATA POWERD/PR:0/-SE=POWERD
	.DATA /
	.DATA PRI=200
	.DATA ASG=TI:1,CO:2
	.DATA UNITS=2
	.DATA //
	.CLOSE

	TKB @POWERDBLD
	.IF <EXSTAT> <> 1 .EXIT <EXSTAT>

	PIP POWERD.OBJ;*,POWERBLD.CMD;*/DE/NM