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

case $# in

0) (cat $ENT/prob4.ent ; zex $FS | paste - - - - )| page ;;
*) if numeric $1
   then
     opt_noet $FS $TY $*
   else
   case $1 in
  -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 ' '