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
     -a) shift ; op-a $FS $TY $* ;;
     -y) op-y $FS $TY ;;
   -plt) diag $TY ;;
   -info) shift ; op-info $FS $TY $* ;;
   -tel) shift ; op-tel $TY $* ;;
  -r|-u|-f|-sort) opt=$1 ; shift ; opt_star $opt $FS $TY $* ;;
  -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 ' '