cat=`awkam $SRC`
ama=`awkam $OCL`

case $cat in
  ngc) cat="NGC" ;;
  ic) cat="IC" ;;
  anon) cat=" " ;;
esac

case $ama in
  mel020) ama="Alpha Per" ; echo $ama ;;
  mel022) ama="Pleiades" ; echo $ama ;;
  mel025) ama="Hyades" ; echo $ama ;;
  mel111) ama="Coma Ber" ; echo $ama ;;
       *) echo "$cat $ama" ;;
esac