$date=f$cvtime("TODAY","ABSOLUTE","DATE")
$write sys$output "›''p1';''p2'H''date'"
$write sys$output "›22;30HPRESS RETURN TO ACCEPT TODAYS DATE                       "
$read sys$command a /prompt="›''p1';''p2'H"
$if a .eqs. ""
$	then
$		a="''date'"
$	else
$		a="''a'"
$endif
$result:=='a
$exit