while :
do

page <<Bout

	Parametres astrophysiques des etoiles d'amas

	Selon le systeme uvby/beta ............... a
	Fin du travail ........................... f

Bout
echo -n "	Donnez votre choix:  "
read choi
case $choi in
  a) echo ' ' 
     echo '	Etoile par etoile .......... 1 '
     echo '	Selection des etoiles ...... 2 '
     echo '	Tout le fichier ............ 3 '
     echo ' '
     echo -n '	Donnez votre choix:  '
     read mode
     cbr_uvby $mode 
     echo ' '
     echo -n " Voulez-vous dessiner le plan beta/Co (o/n) ?  "
     read rep
     case $rep in
     o) cp $BDA/sequence/uvby.grid .T/uvby.grid
        sm plt_uvby `dbms_setit` ;;
     n) ;;
     esac ;;
f|fin) echo ' ' ; exit 2 ;;
esac

case $? in
0) ;;
1) continue ;;
2) exit 2 ;;
esac
 
echo ' '
echo -n " suite (o/n/f)?  "
read suit
case $suit in
o) ;;
n) exit 1 ;;
f) exit 2 ;;
esac

done