zex $1 | grep $3 | 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