my $type;
     if ($B1=~ /^\*/ || $B2=~ /^\*/) {
       $type = "S";
     } else {
       $type = "I";
     }