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

case $# in

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

*) if numeric $1
   then 
     opt_noet $FS $TY $*
   else
   case $1 in
     cl) op-cl $FS $TY $3 ; exit 0 ;;
     ph) dx=`ndx $3`
         pos=`expr $dx + 19`
         opt_pgine $2 $FS $TY $pos 1 $dx ;;
 no|p|v|b-v) 
 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 ' '