ans='!'
case "$dflt" in
  '');;
  *)echo $n "[$dflt] $c"
    case "$fastread" in
      yes) ans=$dflt; echo ;;
    esac;;
esac

while expr "X$ans" : "X!" >/dev/null; do
  read ans
  case "$ans" in
  '') ans="$dflt";;
  *) if test ! -z "$rep"; then
       for i in $rep; do
	 if test "$i" = "$ans"; then break 2; fi
       done
       ans='!'; echo $n "***  Please try something else : [$rep] $c"
     else
       break
     fi;;
  esac
done
