.IFNLOA	LS:	ASN NL:=LS:
	MAC @AVDASM
	.IF	<EXSTAT> NE 1	.STOP 4
	.IFNLOA MP:	ASN NL:=MP:
	TKB @AVDBLD
	.IF	<EXSTAT> NE 1	.STOP 4
	.IFINS	AVD	REM AVD
	INS AVD
	.ASK COPY COPY TO LB:[1,54]
	.IFT	COPY	@COPAVD