while :
do
clear
echo ' '
echo '	Analyse des surfaces de pics de correlation '
echo ' '
echo ' '
echo '	Que voulez-vous faire? '
echo ' '
echo '	Fabriquer le fichier de donnees .......... 1'
echo '	Editer le fichier de donnees ............. 2'
echo '	Lister le fichier de donnees ............. 3'
echo '	Derougir les B-V ......................... 4'
echo '	Dessiner le diagramme Surf vs (B-V)o ..... 5'
echo '	Calculer les ecarts ...................... 6'
echo "	Determiner l'abondance ................... 7"
echo ' '
echo '	Terminer le processus .................... f'
echo ' '
echo -n '	Donnez votre choix:  '
read cho
case $cho in
1) zex gK | cut -c1-7,39-44 > .T/surf.gk
   vi .T/surf.gk ;;
2) vi .T/surf.gk ;;
3) cat $ENT/surf.ent .T/surf.gk | page 
   echo ' ' ; echo -n " - suite - " ; read suit ;;
4) ebv=`zex lyn.dat | awklyn 25`
   awksurf $ebv < .T/surf.gk > .T/surf.tmp
   mv .T/surf.tmp .T/surf.gk ;;
5) cp $BDA/sequence/surf.seq .T/surf.seq
   plt_surf ;;
6) awkds < .T/surf.gk > .T/surf.tmp 
   mv .T/surf.tmp .T/surf.gk ;;
7) ;;
f) break ;;
esac
 
done