CAT=$BDA/catalogue/cat.spt
FS1="mkk.sel"
FS2="mkk.don"
FS3="spt.don"
cata=$1

case $cata in
 ngc) code=2 ;;
 ic)  code=3 ;;
esac

for i in *
do
cd $BDA/$cata/$i
if test -f $FS3.Z || test -f $FS3
then

if test -f $FS1.Z || test -f $FS1
then
  zex $FS1 | awkpr1 > .T/mk.lst
else
  if test -f $FS2.Z || test -f $FS2
  then
    zex $FS2 | awkpr1 > .T/mk.lst
  fi
fi
 
if test -f .T/mk.lst
then
case $cata in
ngc|ic) kode=$code$i
        zex $FS3 | fgrep -v -f .T/mk.lst | awkodi $kode >> $CAT;;
anon) kode=`echo $i | sed -f $BDA/bin/coding` 
      zex $FS3 | fgrep -v -f .T/mk.lst | awkoda $kode >> $CAT;;
esac
rm .T/mk.lst
else
case $cata in
ngc|ic) kode=$code$i
        zex $FS3 | awkodi $kode >> $CAT;;
anon) kode=`echo $i | sed -f $BDA/bin/coding` 
      zex $FS3 | awkoda $kode >> $CAT;;
esac
fi
echo $i $kode
fi
done