$last_answer=p3
$write sys$output "›''p1';''p2'H''last_answer'"
$write sys$output "›22;30HPRESS RETURN TO ACCEPT DEFAULT ANSWER                       "
$read sys$command a /prompt="›''p1';''p2'H"
$if a .eqs. ""
$	then
$		a="''last_answer'"
$	else
$		a="''a'"
$endif
$result:=='a
$exit