TY=`basename $0`
FS=`nof $TY`
val=1
typ $TY

case $# in

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

*) if numeric $1
   then
     opt_noet $FS $TY $*
   else
   case $1 in
   R) opt_coo $* ; exit 0;;
    -eq) shift ; op-eq $FS $TY $* ;;
  -info) shift ; op-info $FS $TY $* ;;
  -r|-u|-f|-sort) opt_star $1 $FS $TY $2 $3 ;;
  -d|-h|-t|-dr|-nb) opt_drnbt $1 $FS $TY ${2-val} ;;
   esac
   case $2 in
     -gt|-lt|-i|-eq|-ne)  
 pos=`grep $TY  $DIC/pos.dic | awk ' $1 == cle {print $2,$3} ' cle=$1`
 opt_pgine $2 $FS $TY $pos $3 $4 ;;
     -id) opt_star $2 $FS $TY $1 $3 ;;
   esac 
   fi ;;
esac
echo ' '