######
else {
print EBSDET parser ($bai{$ocab}{d16}[$1]{text_full},
      (27- $bai{$ocab}{d16}[$1]{n2_offset}), 27,"\;",12);
}
  
######