TY=`basename $0`
case $1 in
-f) FS=$2 ; shift ; shift ;;
-s) FS=$SRT ; shift ;;
*)  FS=`nof $TY` ;;
esac
typ $TY

case $1 in
-o) nout=1 ; fout=$2 ; shift ; shift ;;
esac

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 ;;
    -beta) op-beta ;;
    -plt) op-plt $FS $TY 0 ;;
    -maj) op-maj $FS $TY ;;
    -mem) op-mem $FS $TY ;;
    -nm) op-nm $FS $TY ;;
    -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) op$opt $FS $TY 7 4 $* ;;
   *) op$opt $FS $TY $* ;;
   esac ;;
  
esac

case $nout in
1) cp $SRT $fout ;;
esac