for i in `cat $BTP/amas.lst`
do
cd $BDA/$i
echo $i
if test -f mkk.don.Z || test -f mkk.don
then
n=`zex mkk.don | grep -i P | wc -l`
echo $n
test $n -gt 0 && echo "$i $n" >> $BTP/amas.ap
fi
done