code:

---

Function Choice($prompt,optional $choices)
 dim $i,$c,$opts,$key
 if not $choices
  $choices = "YN"
 endif
 for $i = 1 to len($choices)
  $opts = $opts + substr($choices,$i,1) + ","
 next
 $prompt = $prompt+" ["+substr($opts,1,len($opts)-1) + "] ? "
 ? $prompt
 while 1
  get $c
  if asc($c) = 3 ; ^c
   $choice = ""
   exit 0
  endif
  $key = instr($choices,$c)
  if $key
   $c = ucase($c)
   $c ; echo
   $choice = $c
   exit $key
  else
   beep
  endif
 loop
EndFunction  

---