##############################################################################
# PrintEntry()
#
sub PrintEntry {
  if(($flag == 1) && (!IsEmpty($label)) {
#    print "NUMBER: ";
    print $label; print "\n";
    print "AUTHOR: "; print $author; print "\n";
    print "TITLE: "; print $title; print "\n";
    print "YEAR:   "; print $year; print "\n";
    print "\n";
  };
}