for i in `ls $BDA/anon`
do

cd $BDA/anon/$i
if test -f ubv.peo.Z || test -f ubv.peo
then
zex ubv.peo | ubv_moy |\
awk ' $3 < 12. || $4+$3 < 13. {printf" %04d %4d %7.3f %6.3f\n",$1,$2,$3,$4} ' > .T/ubv.pem
zex adel.coo > .T/adel.coo
join -j1 1 -a1 .T/ubv.pem .T/adel.coo | \
awk ' {printf" %04d %4d %7.3f %6.3f %4d %2d %02d %05.2f  %+3d %02d %04.1f\n",\
$1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11} ' > $HOME/tycho/$i.dat
rm .T/adel.coo .T/ubv.pem
fi

done