.ENABLE SUBSTITUTION
	.SETS	OLDUIC	<UIC>
	SET /UIC=[1,54]
	PIP LB:='OLDUIC'AVD.TSK/NV
	.IF	<EXSTAT> NE 1	.STOP
	PIP LB:AVD.TSK/PU:2
	.IFINS	AVD	REM AVD
	INS $AVD
	SET /UIC='OLDUIC'