$user=f$getjpi("","USERNAME")
$write sys$output "›''p1';''p2'H''user'"
$write sys$output "›22;30HPRESS RETURN TO ACCEPT THE DEFAULT USERNAME                      "
$read sys$command a /prompt="›''p1';''p2'H"
$if a .eqs. ""
$	then
$		a="''user'"
$	else
$		a="''a'"
$endif
$result:=='a
$exit