case $1 in
 -dn) op-dn $2 $3 5 ;;
 -nb) op-nb $2 $3 1 ;;
 -beta) op-beta ;;
 -plt) op-plt $2 $3 0 ;;
 -maj) vi $BDA/information/info.$2 ;;
 -mem) op-mem $2 $3 ;;
 -nm) op-nm $2 $3 ;;
 -src) op-src $2 $3 ;;
 -xy) op-xy ;;
 -xm) op-xm $2 ;;
  *) if numeric $1
     then
     noet=`echo $1 | awk ' {printf"%04d",$1} ' `
     (cat $ENT/$3.ent ; zex $2 | grep $noet | tee $REF )| ind 
     echo ' '
     else
     opt=$1 ; shift ; op$opt $1 $2 
     fi ;;
esac