TY=`basename $0`
FS=`nof TY`

case $# in
0) (cat $ENT/lyn.ent ; zex lyn.dat | paste $BDA/descri/lyn.txt - )| page
   echo ' ' ;;
1) case $1 in
   -p) TIT=`setit` ; echo ' '
       case $LNG in
         fr) echo "	Parametres de l'amas $TIT" ;;
        eng) echo "	Parameters of the cluster $TIT" ;;
       esac
       echo ' '
       zex lyn.dat | awklyn2 ;;
   -c) TIT=`setit` ; echo ' '
       case $LNG in
         fr) echo "	Coordonnees de l'amas $TIT" ;;
        eng) echo "	Coordinates of the cluster $TIT" ;;
       esac
       echo ' '
       zex lyn.dat | awklyn3 ;;
   -d) TIT=`setit` ; echo ' '
       case $LNG in
         fr) echo "	Diametre de l'amas $TIT" ;;
        eng) echo "	Diameter of the cluster $TIT" ;;
       esac
       echo ' '
       zex lyn.dat | paste $BDA/descri/lyn.txt - | grep diameter
       echo ' ' ;;
   -i) (cat $ENT/lyn.ent;zex lyn.dat|paste $BDA/descri/lyn.txt - ) > lyn.lst
       imprime -r lyn.lst ; rm lyn.lst ;;
*) cd $BDA/ngc 
   test -d $1
   if test $? -eq 0 
   then
   cd $1
   (cat $ENT/lyn.ent ; zex lyn.dat | paste $BDA/descri/lyn.txt - )| page
   echo ' '
   else
   cd ../ic
   test -d $1
   if test $? -eq 0 
   then
   cd $1
   (cat $ENT/lyn.ent ; zex lyn.dat | paste $BDA/descri/lyn.txt - )| page
   echo ' '
   else
   cd ../anon
   test -d $1
   if test $? -eq 0 
   then
   cd $1
   (cat $ENT/lyn.ent ; zex lyn.dat | paste $BDA/descri/lyn.txt - )| page
   echo ' ' 
   else
   cd $BDA/catalogue/lynga
   test -f $1.lyn.Z
   if test $? -eq 0 
   then
   (cat $ENT/lyn.ent ; zex $1.lyn | paste $BDA/descri/lyn.txt - )| page
   echo ' ' 
   fi
   fi
   fi
   fi 
   esac ;;
esac