FS=$1
TY=$2
shift
shift

clear
cat $ENT/$TY.ent

for i in $*
do
noet=`echo $i | awk ' {printf"%04d",$1} ' `
case $TY in
ubv|pg|ccd|sit) zex $FS | grep $noet | awkmubv ;;

*) zex $FS | grep $noet | tee $REF 
   echo ' ' 
   case $TY in
     mk) FS2=mkk.sel ;;
    irv) zex vrad.mrv | grep $noet | awkmrv ;;
      *) FS2=$TY.moy ;;
   esac
   zex $FS2 | grep $noet ;;
esac
echo ' '
done