$choices="1-IMMEDIATE,2-TOMORROW,3-TODAY,4-NEXT WEEK,5-WHENEVER,6-SOMETHING ELSE"
$pad=f$fao("!80* ")
$max=6
$reask:
$write sys$output "›21;0HPlease choose from the following :"
$write sys$output "›22;0H''choices'"
$read sys$command a /prompt="›''p1';''p2'H"
$z=f$integer(a)
$if z .lt. 0 .or. z .gt. max
$	then
$		write sys$output "›21;0H"
$		goto reask
$endif
$z=z-1
$get=f$element(z,",",choices)
$get=f$extract(2,f$length(get)-2,get)
$a=get
$write sys$output "›''p1';''p2'H''a'"
$if z .eq. 5
$	then
$		write sys$output "›21;0HPLEASE ENTER YOUR OWN INFORMATION"
$		read sys$command a /prompt="›''p1';''p2'H"
$endif			
$write sys$output "›21;0H",pad
$write sys$output "›22;0H",pad
$result:=='a
$exit