clear
echo ' '
case $LNG in
  fr) echo " $us Interrogation de la Base de Donnees $ue";;
  eng) echo "$us Database Interrogation $ue";;
esac
echo ' '

case $LNG in
  fr) echo -n "  Quel amas vous interresse?  ";;
  eng) echo -n "  Which cluster are you interested in?  ";;
esac
read amas 
cd $BDA/$amas
echo ' '

case $LNG in
  fr) echo -n "  Quel type de donnees?  ";;
  eng) echo -n "  Which kind of data?  ";;
esac
read type 

while :
do
echo ' '
echo -n "  Option?  "
read opt 

case $opt in
menu|help) clear
case $LNG in
fr)
echo "  Rappel des options:"
echo ' '
echo "  Nombre de mesures par reference ................. -d "
echo "  Nombre de mesures par reference et references ... -dr"
echo "  Extraction des mesures d'une reference .......... -eq "
echo "  Extraction des mesures non dans une reference ... -ne "
echo "  Extraction des mesures dont un parametre est:"
echo "          plus grand qu'une valeur donnee ......... -gt "
echo "          plus petite qu'une valeur donnee ........ -lt "
echo "          comprise entre deux limites ............. -i "
echo ' '
echo "  Aide concernant les reponses .................... -h "
echo "  Fin de l'interrogation .......................... -f "
echo ' '
echo -n "  Quelle Option?  ";;
eng)
echo ' '
echo "  Available options:"
echo ' '
echo "  Number of data per reference .................... -d "
echo "  Number of data per reference and references ..... -dr"
echo "  Selection of the data of one reference .......... -eq"
echo "  Selection of the data not in a reference ........ -ne"
echo "  Selection of data where one parameter is:"
echo "           larger than a given limit .............. -gt"
echo "           less than a given limit ................ -lt"
echo "           inbetween two limits ................... -i"
echo ' '
echo "  Meaning of the options .......................... -h"
echo "  End of interrogation ............................ -f"
echo ' '
echo -n "  Which option?  ";;
esac
read opt
echo ' '
esac

case $opt in
  -f|fin) break ;;
  -1) case $LNG in
        fr) echo -n "  Quel type de donnees?  ";;
        eng) echo -n "  Which kind of data?  " ;;
      esac
      read type ; echo ' ' ;;
  "") etoil=1
      while :
      do
      case $LNG in
        fr) echo -n "  Quelle etoile?  " ;;
        eng) echo -n "  Whic star?  ";;
      esac
      read etoil 
      case $etoil in
       0) echo ' ' ; break ;;
      -1) echo ' ' ; etoil=$prev
          case $LNG in
            fr) echo -n "  Quel type de donnees?  ";;
            eng) echo -n "  Which kind of data?  " ;;
          esac
          read type ;;
      esac
      prev=$etoil
      meas $type $etoil
      done ;;
  -d) detail $type ;;
  -dr) detref $type ;;
  -eq) extrf $type ;;
  -c) compar $type ;;
  -h) option ;;
  -t|-x|-s|-y|-z) $type $opt ;;
  -eq|ne) case $LNG in
          fr) echo -n "  Quelle reference?  ";;
          eng) echo -n "  Which reference?  ";;
        esac
        read ref
        $type $opt $ref ;;
  *) idon=0 ; echo ' '
     case $type in
      ubv) echo -n "  Selection: v, b-v, u-b?  " ; read don ; idon=1 ;;
      uvby) echo -n "  Selection: b-y, m1 c1?  " ; read don ; idon=1 ;;
      gk) case $LNG in
            fr) echo -n "  Quel systeme?  " ;;
            eng) echo -n "  Which system?  " ;;
          esac
          read don ; idon=1 ;;
     esac
     case $opt in
     -gt|-lt) echo ' ' 
      case $LNG in
        fr) echo -n "  Quelle valeur du parametre?  ";;
        eng) echo -n "  Which parameter value?  " ;;
      esac
      read param
      case $idon in
      0) $type $opt $param ;;
      1) $type $opt $don $param ;;
      esac ;;
     -u|-i) echo ' ' 
            case $LNG in
              fr)  echo -n "  Premier parametre:  " ;;
              eng) echo -n "  First parameter:  " ;;
            esac
            read par1 
            echo ' ' 
            case $LNG in
              fr) echo -n "  Second  parametre:  " ;;
              eng) echo -n "  Second parameter:  " ;;
            esac
            read par2 
      case $idon in
      0) $type $opt $par1 $par2;;
      1) $type $opt $don $par1 $par2 ;;
      esac ;;
    esac ;;
esac

done