$idd="+44 296"
$write sys$output "›''p1';''p2'H''idd'"
$write sys$output "›22;30HPRESS RETURN TO ACCEPT DEFAULT DIALLING CODE                       "
$read sys$command a /prompt="›''p1';''p2'H"
$if a .eqs. ""
$	then
$		a="''idd'"
$	else
$		a="''a'"
$endif
$result:=='a
$exit