my_echo()
{
        echo ' '
        echo $n "$*" $c
}

if [ "`echo -n qq`" = "-n qq" ]; then
 n=''
 c='\c'
else
 n='-n'
 c=''
fi

AMA=`awkam $OCL`
DAT=`date '+%h %y' | awkdate`

(cat $BDA/descri/entete_1.exp 
echo "           (Version $VRS, $DAT)"
cat $BDA/descri/entete_2.exp
dbms_setit
echo ' '
echo ' Reference for the star numbering: ' 
sysno $AMA | colrm 1 10
echo ' ') > .T/f.exp

for i in $*
do
FS=`nof $i`
case $FS in

  adel.coo) (echo ' Coordinates  1950 ' ; echo ' ' 
             echo '  No   Ref     Alpha   1950   Decl ' 
             echo ' ' ; zex $FS ; echo ' ' ; echo ' References:'
             echo ' ' ; ref -t coo ; echo ' ') >> .T/f.exp ;;

  adel.pos) (echo " Coordinates  1950 " ; echo ' '
             echo '  No   Ref   Alpha  1950  Decl' 
             echo ' ' ; zex $FS ; echo ' ' ; echo ' References:'
             echo ' ' ; ref -t pos ; echo ' ') >> .T/f.exp ;;

  beta.mes) (echo ' Hbeta photometry ' ; echo ' ' 
             echo '  No   Ref  Hbeta    n ' ; echo ' '
             zex $FS ; echo ' ' ; echo ' References: '
             ref -t beta ; echo ' ') >> .T/f.exp ;;

  beta.moy) (echo ' Hbeta mean values' ; echo ' '
             echo '  No        Hbeta '
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  bdp.cat)  (echo ' Alter et al bibliography'
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  ddo.mes)  (echo ' DDO photometry ' ; echo ' '
             echo '  No   Ref  C4548  C4245  C4142    n Rem'
             echo ' ' ; zex $FS ; echo ' '
             echo ' References: '
             ref -t ddo ; echo ' ') >> .T/f.exp ;;

  gK)       (echo ' List of red giants' ; echo ' '
             echo '  No   Pr MVP  Vr  Phot.    Type  V    B-V   TS '
             echo ' ' .T/f.exp ; zex $FS ; echo ' ') >> .T/f.exp ;;

  gen.cat)  (echo ' Geneva observation' ; echo ' '
echo ' No    Q sig   V      Q sig    U      V      B1     B2     V1     G'

             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  idam.id1) (echo ' Cross-identifications ' ; echo ' '
             echo ' No     BS    HD      DM           NLS    LSS   GCVS '
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  idam.id2) (echo ' Cross-identifications ' ; echo ' '
             echo ' No       IDS          ADS   SAO   Divers '
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  idam.ids) (echo ' Double star Data ' ; echo ' '
   echo '  No       IDS          ADS    Mult  Ang   Sep   m(1)   m(2)'
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  mkk.don)  (echo ' Spectral classification' ; echo ' '
             echo '  No   Ref   MK '
             echo ' ' ; zex $FS ; echo ' '
             echo ' References: '
             ref -t mkk ; echo ' ') >> .T/f.exp ;;

  mkk.sel)  (echo ' Spectral classification (Selected)' ; echo ' '
             echo '  No   Ref   MK '
             echo ' ' ; zex $FS ; echo ' '
             echo ' References: '
             ref -t mkk ; echo ' ') >> .T/f.exp ;;

  spt.don)  (echo ' Spectral classification' ; echo ' '
             echo '  No   Ref   SpT'
             echo ' ' ; zex $FS ; echo ' '
             echo ' References: '
             ref -t spt ; echo ' ') >> .T/f.exp ;;

  rem.txt)  (echo ' Remarks ' ; echo ' ' ; echo '  No   Remarks '
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  trans.ref)(echo ' References for the cross-reference table'
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  trans.tab)(echo ' Cross-reference table' ; echo ' ' ; zex trans.ref ; echo ' '
             echo '  No     1    2    3    4    5    6    7    8    9   10 '
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  prob.mu)  (echo ' Membership probability' ; echo ' '
             echo '  No  Prob' ; echo ' ' ;
             zex $FS ; echo ' ' 
             ref -t prob ; echo ' ') >> .T/f.exp ;;

  ubv.peo)  (echo ' UBV photoelectric photometry' ; echo ' '
             echo '  No   Ref    V     B-V    U-B  Rem  PHO '
             echo ' ' ; zex $FS ; echo ' ' ; echo ' References:'
             echo ' ' ; ref -t ubv ; echo ' ') >> .T/f.exp ;;

  ubv.pgo)  (echo ' UBV photographic photometry' ; echo ' '
             echo '  No   Ref    V     B-V    U-B ' ; echo ' '
             zex $FS ; echo ' ' ; echo ' References:'
             ref -t pgh ; echo ' ') >> .T/f.exp ;;

  ubv.ccd)  (echo ' UBV CCD photometry' ; echo ' '
             echo '  No   Ref    V     B-V    U-B ' ; echo ' '
             zex $FS ; echo ' ' ; echo ' References:'
             ref -t ccd ; echo ' ') >> .T/f.exp ;;

  ubv.cmd)  (echo ' UBV mean or selected' ; echo ''
             echo '  No   Ref    V     B-V    U-B ' ; echo ' '
             zex $FS ; echo ' ' ) >> .T/f.exp ;;

  rik.mes)  (echo ' RI (Kron) photometry' ; echo ' ' ;
             echo '  No   Ref    V     V-R    R-I      n ' ; echo ' ' ;
             zex $FS ; echo ' ' ; echo ' References:'
             ref -t rik ; echo ' ') >> .T/f.exp ;;

  uvby.egg) (echo ' Eggen s uvby photometry' ; echo ' '
             echo '  No   Ref    V      b-y     m1    c1      n Rem'
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

  uvby.mes) (echo ' uvby photometry'; echo ' '
             echo '  No   Ref    V      b-y     m1    c1      n Rem '
             echo ' ' ; zex $FS ; echo ' ' ; echo ' References: '
             ref -t uvby ; echo ' ') >> .T/f.exp ;;

  uvby.moy) (echo ' uvby mean values' ; echo ' '
             echo '  No          V      b-y     m1    c1        Rem '
             echo ' ' ; zex $FS ; echo ' ') >> .T/f.exp ;;

   vil.mes)  (echo ' Vilnius photometry' ; echo ' '
echo '  No   Ref    V     U-P    P-X    X-Y    Y-Z    Z-V    V-S      n  R '
             echo ' ' ; zex $FS ; echo ' ' ; echo ' References: ' ;
             ref -t vil ; echo ' ') >> .T/f.exp ;;

  vrad.irv) (echo ' Individual radial velocities' ; echo ' '
             echo '  No   Ref     JD               Vr     pe     n  Disp'
             echo ' ' ; zex $FS ; echo ' ' ; echo ' References:'
             ref -t irv ; echo ' ') >> .T/f.exp ;;

  vsini.don)(echo ' Rotational velocities' ; echo ' '
             echo '  No   Ref     Vsini ' ; echo ' '
             zex $FS ; echo ' ' ; echo ' References:'
             ref -t vsini ; echo ' ') >> .T/f.exp ;;

  lyn.dat)  echo " Catalogue of Lynga (5th edition)" >> .T/f.exp
            echo ' ' >> .T/f.exp
            zex lyn.dat | paste $BDA/descri/lyn.txt - >> .T/f.exp
            echo ' ' >> .T/f.exp ;;

  hipad.xy) (echo ' x,y rectangular positions' ; echo ' '
             echo '  No     V         X         Y' ; echo ' '
             zex $FS ; echo ' ' ) >> .T/f.exp ;;

   *)  ;;
esac
done </dev/tty

case $LNG in
  fr) my_echo " Voulez-vous aussi la bibliographie (o/n)? [n]";;
 eng) my_echo " Do you want to send the bibliography (y/n) [n]" ;;
esac
read rep
case $rep in
  n) ;;
  o|y) case $LNG in
         fr) my_echo ' Annee initiale:  ' ; read dep ; echo ' '
             my_echo ' Annee finale:  ' ; read fin ;;
        eng) my_echo " First year:  " ; read dep ; echo ' '
             my_echo " Last year:  " ; read fin ;;
       esac
   bib -i $dep $fin $AMA | sed -f $BIN/sedes >> .T/f.exp ;;
esac

case $LNG in
  fr) my_echo " Voulez-vous editer le fichier resultant (o/n) ?  " ;;
 eng) my_echo " Do you want to edit the resulting file (y/n) ?  " ;;
esac
read edt
case $edt in
  n) ;;
  ""|o|y) $EDT .T/f.exp ;;
esac

case $LNG in 
  fr) my_echo " Donnez le nom du fichier (extension .pst):  " ;;
 eng) my_echo " Enter the filename (extension .pst):  " ;;
esac
read nom
mv .T/f.exp $POS/$nom.pst
echo ' '