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
   -f|-sort)
   pos=`grep $TY $DIC/pos.dic | awk ' $1 == cle {print $2,$3} ' cle=$2`
   FS=`nof $TY`
   (cat $ENT/$2.ent ; awkidam $pos $FS )| more ;;
   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 ;;
   esac 
   fi ;;
esac
echo ' '