$! Replace specified files.  Uses a dialog format
$!	Input:		Enter a device:[directory]filename spec.
$!
$	if p1 .eqs. "" then inquire p1 "Enter input dev:[dir]file"
$	p1 = 'f$parse("''p1'", ".MAC")'
$!
$ next:	filename = 'f$search("''p1'")
$	if "''filename'" .eqs. "" then goto done
$	name = 'f$parse("''filename'",,,"NAME")'
$	write sys$output "Replacing ''name' from ''filename'"
$		mcr mac 'name'=rsx,'filename'
$		mcr lbr c:c='name'/rp
$	goto next
$!
$ done:
$!