%
% write_tag_rec(file_id, one_tag_def) 
%
% version 0.1.1 (1999-12-01)

function write_tag_rec(id, tagDef) 
  TagHIntLen=30;
  fwrite(id, tagDef(2), 'char');

  pString=zeros(TagHIntLen+1,1);
  pString(2:TagHIntLen)=tagDef(4:TagHIntLen+2);
  pString(1)=sum(pString(2:TagHIntLen+1)~=0);
  
  fwrite(id, pString(1), 'uchar');
  fwrite(id, pString(2:size(pString,1)), 'char');

  offset=TagHIntLen+3;
  fwrite(id, tagDef(offset),   'int32');
  fwrite(id, tagDef(offset+1), 'uchar');
  fwrite(id, tagDef(offset+2), 'int32');
  fwrite(id, tagDef(offset+3), 'uchar');
  fwrite(id, tagDef(offset+4), 'uchar');
  fwrite(id, tagDef(offset+5), 'short');