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

case $# in

0) (cat $ENT/$TY.ent ; zex $FS) | page ;;

*) if numeric $1
   then
     opt_noet $FS $TY $*
   else
   case $1 in
     -c) echo ' ' 
         case $LNG in
          fr) echo ' Etoile centrale:  ' ;;
         eng) echo ' Central star:  ' ;;
         esac
         echo ' '
         zex $FS | grep " 0\.00 " ; echo ' ' ;;
  -info) cat $ENT/xy_scl.ent
         zex $BDA/information/info.hpd | grep $2 
         echo ' ' ;;
   -plt) carte ;;
  x|y) pos=`grep $TY  $DIC/pos.dic | awk ' $1 == cle {print $2,$3} ' cle=$1`
       opt_pgine $2 $FS $TY $pos $3 $4 ;;
   xy|r) opt_hpd $FS $TY $* ;;
  -h|-t) opt_drnbt $1 $FS $TY ${2-val} ;;
 -f|-sort) opt_star $1 $FS $TY $2 $3 ;;
  esac
  fi ;;
esac