$! List specified files.  Uses a dialog format
$!	Input:		Enter a device:[directory]filename spec.
$!
$	if p1 .eqs. "" then inquire confirm "Confirm each? [Y/N] <N>"
$	if confirm .eqs. "" then confirm := "N"
$	if p1 .eqs. "" then inquire p1 "Enter input dev:[dir]file spec."
$	p1 = 'f$parse("''p1'", ".MAC")
$ next:	name = 'f$search("''p1'")
$	if "''name'" .eqs. "" then goto done
$	filename = 'f$parse("''name'",,, "NAME")
$	test := "Y"
$	if confirm .eqs. "Y" then inquire test "''name'? "
$	if test .nes. "Y" then goto next
$	write sys$output "Compiling ''filename' from ''name'"
$		mcr mac ,'filename'/-sp=rsx,'name'
$	goto next
$!
$ done:
$!