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

case $# in

0) arg0 $FS $TY ;;

1) if numeric $1
   then
   (cat $ENT/$TY.ent ; zex $FS | grep $1 | tee $REF )| ind 
   echo ' '
   else
   case $1 in
    -dn) op-dn $FS $TY 5 ;;
    -nb) op-nb $FS $TY 1 ;;
    -plt) op-plt $FS $TY 0 ;;
    -src) op-src $FS $TY ;;
     *) op$1 $FS $TY ;;
   esac
   echo ' '
   fi ;;

*) if numeric $1
   then 
   op-m $FS $TY $*
   exit 0
   else
   opt=$1 ; shift
   fi
   case $opt in
   -g|-p|-i) col=$1 ; shift
    pos=`awk ' $1 == cle {print $2,$3} ' cle=$col $DIC/pos.dic`
    opt_pgi $opt $FS $TY $pos $* ;;
   -e|-n|-ex|-nx) op$opt $FS $TY 7 4 $* ;;
   *) op$opt $FS $TY $* ;;
   esac ;;
  
esac