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

hFilter			.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/BIN/BIN/X.CPMVRM.G
