NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
ArgCount		.BS 1
bPause			.BS 1

hSrcFile		.BS 1
hSrcFullPath	.BS 1
Count			.BS 2
RC				.BS 1

				.DO X.COPY.TO.DEST=1
hDstFileName	.BS 1
hDstFullPath	.BS 1
hDstFile		.BS 1
bCopy			.BS 1
hCopyBuf		.BS 1
CopyRC			.BS 1

				.FIN
				.DO X.DELETE.SOURCE=1
hToDelete		.BS 1

				.FIN
*--------------------------------------
MAN
SAVE usr/src/shared/x.cpmvrm.g
