$! Copy modified files.  Uses a dialog format
$!	Since-date:	Enter a vms date (02-Feb-1982)
$!	Input:		Enter a device:[directory]filename spec.
$!	Output:		Enter a device:[directory] spec.
$!
$	if p1 .eqs. "" then inquire p1 "Enter modified-since date"
$	if p2 .eqs. "" then inquire p2 "Enter input dev:[dir]file spec."
$	if p3 .eqs. "" then inquire p3 "Enter output dev:[dir] spec."
$	on control_y	then goto done
$	directory/versions=1/columns=1/nodate/nosize/noheading -
		/modified/since='p1' -
		/notrailing/output=direct.tmp 'p2'
$	if .not. $status then goto dirx
$	open/read dirfile direct.tmp
$!
$ next:	read/end=done dirfile name
$	write sys$output "Copying ''name'"
$	copy 'name' 'p3'
$	goto next
$!
$ done:	close dirfile/error=ddel
$	goto ddel
$!
$ dirx:	write sys$output "Error reading directory: ''F$MESSAGE()'"
$ ddel:	delete direct.tmp;*
$	exit