TMP=/usr2/mermio/bda/tmp

testfZ beta.moy

echo ' '
echo -n ' Quelle reference UBV?  '
read rep
testf ubv.peo 
zcat ubv.peo.Z | grep $rep | awkq |
join -j1 1 - beta.moy > $TMP/ubv.btm

echo ' '
echo -n ' Quelle reference MK?  '
read ans
testf mkk.don
zcat mkk.don.Z | grep $ans > $TMP/mk.sel

echo ' '
echo ' No     Q    beta   TS '
echo ' '
join -a1 -j1 1 -o 1.1 1.2 1.3 2.3 2.4 $TMP/ubv.btm $TMP/mk.sel |
awk ' { printf "%s  %s  %s  %s%s\n", $1, $2, $3, $4, $5 } ' |
tee $TMP/btq.out | more -23
echo ' '

echo ' ' > $TMP/btq.fin
pwd | awk ' { printf "%s\n", substr($0,18,8) } ' >> $TMP/btq.fin
echo ' ' >> $TMP/btq.fin
echo ' ' >> $TMP/btq.fin
echo ' No     Q    beta   TS ' >> $TMP/btq.fin
echo ' ' >> $TMP/btq.fin
cat $TMP/btq.out >> $TMP/btq.fin

echo -n ' Voulez-vous copier le fichier resultant (o/n)?  '
read req
case $req in
n)  echo ' '; break ; exit 0 ;;
o)  mv $TMP/btq.fin  beta.q ; echo ' ' ;;
esac
 
echo -n ' Voulez-vous dessiner le plan beta/Q (o/n)?  '
read des
case $des in
n)  echo ' ' ; break ; exit 0 ;;
o)  plt_btq ; echo ' ' ;;
esac
 
echo -n 'Voulez-vous imprimer le dessin (o/n)?  '
read impr
case $impr in
n)  echo ' ' ; break ; exit 0 ;;
o)  pr_btq ; echo ' ' ;;
esac