	.IFNLOA	LS:	ASN NL:=LS:
	MAC @DVDASM
	.IF	<EXSTAT> NE 1	.STOP 4
	.IFNLOA MP:	ASN NL:=MP:
	TKB @DVDBLD
	.IF	<EXSTAT> NE 1	.STOP 4
	.IFINS	DVD	REM DVD
	INS DVD
	.ASK COPY COPY TO LB:[1,54]
	.IFT	COPY	@COPDVD
