noet=`echo $3 | awk ' {printf"%04d",$1} '`
zex $1 | grep $noet | sort -n +2 >$SRT
clear
(cat $ENT/$2.ent ; cat $SRT) | ind ; echo ' '
echo " Mesures:  "`wc -l $SRT|awkpr1` | ind
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
echo ' '
case $rep in 
o|y) cut -c1-6,15-25,26-26,29-36 $SRT | awkv2 > irv.pln
   plt_vrv2 ;;
n) echo ' ' ; exit 0 ;;
esac

