TY='coo'
EQ='1950'
cat=`awkam $SRC`
noam=`awkam $OCL`
amas="$cat$noam"
 
while : 
do
page <<Bout
 
                $us Preparation du fichier $amas.ask $se
 
 
        Possibilites:
 
 
        Preparation automatique et lancement de cogus ............. l
        Preparation des fichiers de donnees ....................... e
        Modification du format des donnees ........................ m
        Calcul des A, D a partir des x,y en unites quelconques .... c
        Calcul des A, D a partir des x,y en " ou ' d'arc .......... a
        Selection des coordonnees du fichier adel.coo ............. s
	Fusion des fichiers prepares .............................. p
        Traitement du fichier f.sup ............................... t
 
        Fin de la procedure ..................................... fin
 
 
Bout
 
echo -n "       Donnez votre choix:  "
read cho
 
case $cho in
e) echo ' ' ;  echo ' '
   echo -n "    Pour quel programme (cogxy/astrom/degrah/gould)?  "
   read cho
   case $cho in
     c) cpfmt cogus ;;
     a) cpfmt astrom ;;
     d) cpfmt degrah ;;
     g) cpfmt gould ;;
   esac ;;
 
m) echo ' ' ;  echo ' '
   echo -n "    Pour quel programme (cogxy/astrom/degrah)?  "
   read cho
   case $cho in
   a) awk ' {printf" %04d  %7.2f  %7.2f\n",$1,$2,$3 } ' astrom.xy > .T/f.xy
      mv .T/f.xy astrom.xy ;;
   c) awk ' {printf" %04d  %8.3f %8.3f\n",$1,$2,$3 } ' cogus.xy > .T/f.xy
      mv .T/f.xy cogus.xy ;;
   esac ;;
 
l) echo ' ' ; echo ' ' ; cho="c"
   echo -n "	Quel fichier [hipad.xy] ?  "
   read fic
   case $fic in
    "") FS="hipad.xy" ;;
     *) FS=$fic ;;
   esac
   echo ' ' ; echo -n "	Quelle reference [128] ?  "
   read refe
   case $refe in
     "") ref=128 ;;
      *) ref=$refe ;;
   esac
 
   zex $FS | awk ' {
     if (NF == 3)
       printf" %04d  %8.3f %8.3f\n",$1,$2,$3
     else
       printf" %04d  %8.3f %8.3f\n",$1,$3,$4 } ' > .T/f.xy
 
   zex adel.coo | awk1 7 4 $ref > .T/list.net
 
   net=`fgrep -f .T/list.net .T/f.xy | wc -l`
 
   if test $net -lt 6
   then
    echo ' '
    echo " Pas suffisamment d'etoiles de la reference $ref"
    echo ' '
    exit 0
   else
    echo ' '
    echo " $net etoiles de la references $ref"
    echo ' '
   fi
 
   echo "  71" > cogus.xy
   echo " $net" >> cogus.xy
   fgrep -f .T/list.net .T/f.xy >> cogus.xy
   echo ' '
   echo -n "    Selection des etoiles programme (o/n) ?  "
   read sele
   case $sele in
    o) echo ' ' ; echo " Selection des etoiles avec UBV sans positions "
       echo ' '
       zex adel.coo | awkpr1 | sort -u > .T/list.net
       zex ubv.peo | fgrep -v -f .T/list.net | sort -u > .T/sel.net
       nwc=`cat .T/sel.net | wc -l`
       echo " $nwc etoiles selectionnees " ; echo ' '
       fgrep -f .T/sel.net .T/f.xy >> cogus.xy ;;
    n) fgrep -v -f .T/list.net .T/f.xy >> cogus.xy ;;
   esac
 
   rm .T/f.xy
   if test -f .T/list.net
   then
   rm .T/list.net
   else
   rm .T/sel.net
   fi ;;
 
esac
 
case $cho in
 
t) break ;;
c) cogxy_txt ; question ; echo ' '
   echo -n "  Donnez votre choix:  "
   read rep
   case $rep in
     e) vi cogus.xy ;;
     r) echo ' ' ; echo -n " Donnez le nom du fichier:  "
        read nom ; mv $nom cogus.xy ;;
     f) echo ' ' ; exit 0 ;;
     p) ;;
   esac
   testfZ adel.coo
   suite="o"
   while test $suite -eq "o"
   do
     clear
     echo ' '
     echo " $so Transformation des (x,y) en coordonnees (A,D) $se"
     echo ' ' ; echo ' ' ; echo ' Le programme calcule ... ' ; echo ' '
     cogxy ; awkzcoo < f.tmp > cogxy.sup ; echo ' '
     echo -n ' Voulez-vous regarder les impressions (o/n)?  '
     read rep
     case $rep in
       n) ;;
       o) page imp.out ;;
     esac
     echo ' '
     echo -n " Voulez-vous recommencer (o/n) ?  "
     read suite
     case $suite in
       o) vi cogus.xy ;;
       n) break ;;
     esac
   done
   rm f.tmp imp.out ;;
 
a) astrom_txt
   question ; echo ' '
   echo -n " Donnez votre choix:  "
   read rep
   case $rep in
     e) vi astrom.xy ;;
     r) echo ' ' ; echo -n " Donnez le nom du fichier:  "
        read nom ; mv $nom astrom.xy ;;
     f) echo ' ' ; exit 0 ;;
     p) ;;
   esac
   echo ' ' ; echo " Le programme calcule ... "
   astrom | awkzcoo > astrom.sup ; echo ' ' ;;
 
s) clear
   (echo "            `setit`" ;
    op-d adel.coo coo ; ref -t coo) | more
   echo -n "  Donnez la liste des references a considerer:  "
   read liste
   selection adel.coo coo $liste
   mv f.tmp selec.sup ;;

p) cat *.sup | sort +0 +1 > f.sup 
   echo ' ' ; echo " Verification des redondances " ; echo ' '
   awkdup < f.sup 
   echo ' ' ; echo -n " - suite - " ; read suit ;;
 
f|fin) echo ' ' ; exit 0 ;;
esac
done
 
while :
do
clear
echo ' '
echo "  Preparation d'un fichier adel-mag MAMA"
echo ' '
echo "  Examiner les ecarts systematiques ..... a"
echo "  Calculer les moyennes UBV pe .......... b"
echo "  Calculer les moyennes UBV pg .......... c"
echo "  Ajouter les magnitudes aux adel ....... d"
echo "  Visualiser le fichier .ask ............ e"
echo "  Diagramme des magnitudes .............. g"
echo "  Transfert sur le Gould ................ h"
echo "  Editer un fichier ..................... i"
echo ' '
echo "  Fin de la procedure ................... f"
echo ' '
echo -n "       Donnez votre choix:  "
read ans
case $ans in
  a) Ecasy ubv $noam ;;
  b) Moyen ubv
     awk999 < ubv.pem > .T/ubv.tmp
     mv .T/ubv.tmp ubv.pem
     rm .T/* ;;
  c) Moyen pgh
     awk999 < ubv.pgm > .T/ubv.tmp
     mv .T/ubv.tmp ubv.pgm
     rm .T/* ;;
  d) if (test -f $ASK/$amas.ask )
     then
     echo ' '
     echo " Le fichier $ASK/$amas.ask existe deja!"
     echo ' '
     ls -l $ASK/$amas.ask
     while :
     do
     echo ' '
     echo " Que voulez-vous faire: "
     echo ' '
     echo -n "    l'editer / le suprimer / le renommer / arreter ?  "
     read fair
     case $fair in
      e) vi $ASK/$amas.ask ;;
      s) rm -i $ASK/$amas.ask ; break ;;
      r) echo ' ' ; echo -n " Donnez le nouveau nom:  "
         read nouvo ; mv $ASK/$amas.ask $ASK/$nouvo ; break ;;
      a) exit 0 ;;
     esac
     done
     fi
     if (test -f ubv.pem || test -f ubv.pem.Z)
     then
     join -j1 1 f.sup ubv.pem |\
     awkask > $ASK/$amas.ask
     chmod 777 $ASK/$amas.ask
     nV=`grep V $ASK/$amas.ask | wc -l`
     nB=`grep B $ASK/$amas.ask | wc -l`
     nU=`grep U $ASK/$amas.ask | wc -l`
     echo ' '
     echo " $nV etoiles avec mag V dans $amas.ask"
     echo " $nB etoiles avec mag B dans $amas.ask"
     echo " $nU etoiles avec mag U dans $amas.ask"
     echo ' '
     else
       break
     fi ;;
  e) echo ' ' ; head -15 $ASK/$amas.ask ;;
  g) grep V $ASK/$amas.ask | \
       awk ' {printf" %6.3f  0.5\n", $13} ' > $ASK/mV.sm
     echo ' ' ; echo "Mag V: `cat $ASK/mV.sm | wc -l`"
     grep B $ASK/$amas.ask | \
       awk ' {printf" %6.3f  0.5\n", $13} ' > $ASK/mB.sm
     echo ' ' ; echo "Mag B: `cat $ASK/mB.sm | wc -l`"
     grep U $ASK/$amas.ask | \
       awk ' {printf" %6.3f  0.5\n", $13} ' > $ASK/mU.sm
     echo ' ' ; echo "Mag U: `cat $ASK/mU.sm | wc -l`"
     test $TERM = vt100 && devi=tek4014
     test $TERM = vt300 && devi=x11
     sm plt_ask $devi ;;
  h) echo ' '
     echo "     Donnez la destination: (ne pas mettre les '  ') "
     echo ' '
     read dest
     dcp $ASK/$amas.ask "$dest" ;;
  i) echo ' '
     name=$amas.ask
     echo -n "  Donnez le nom du fichier [$name]:  "
     read nom
     case $nom in
     "") name=$ASK/$amas.ask ;;
      *) name=$nom ;;
     esac
     vi $name ;;
  f) test -f cogus.xy && rm cogus.xy
     test -f ubv.pem && rm ubv.pem
     test -f cogxy.sup && rm cogxy.sup
     test -f astrom.sup && rm astrom.sup
     test -f selec.sup && rm selec.sup
     test -f f.sup && rm f.sup
     echo ' ' ; exit 0 ;;
esac
echo ' ' ; echo -n "- suite - " ; read suit
 
done