opt=$1
shift

case $opt in
-eq)
noet=`echo $3 | awk ' {printf"%04d",$1} ' `
zex $1 | grep $noet | sort -n +2 >$SRT
clear
(cat $ENT/$2.ent ; cat $SRT) | ind ; echo ' '
nobs=`wc -l $SRT|awkpr1`
case $LNG in
 fr)  echo " Etoiles observees:  $nobs" | ind ;;
 eng) echo " Observed stars:  $nobs" | ind ;;
esac
echo ' '

echo ' '
case $LNG in
 fr) echo -n " Voulez-vous dessiner les Vr (o/n) ?  " ;;
 eng) echo -n " Do you want to plot the RVs (y/n) ?  " ;;
esac
read rep
case $rep in 
o|y) cut -c1-6,16-23,29-36 $SRT > .T/irv.pln
   if test $3 -gt 10000 
   then
   jdate=`echo $3 | cut -c2-5`
   else
   jdate=$3
   fi
   sm plt_nrv $jdate `setit` ;;
n) echo ' ' ; exit 0 ;;
esac

test -f .T/irv.pln && rm .T/irv.pln ;;

-gt) noet=`echo $6 | awk ' {printf"%04d",$1} ' `
(cat $ENT/$2.ent ; zex $1 | awkg $3 $4 $5 | grep $noet |\
     tee .T/e$noet.lst )| ind | page ;;

-lt) noet=`echo $noet | awk ' {printf"%04d",$1} ' `
(cat $ENT/$2.ent ; zex $1 | awkp $3 $4 $5 | grep $noet |\
     tee .T/e$6.lst )| ind | page ;;

-i) noet=`echo $7 | awk ' {printf"%04d",$1} ' `
(cat $ENT/$2.ent ; zex $1 | awki $3 $4 $5 $6 | grep $noet |\
     tee .T/e$noet.lst )| page ;;
esac