66
66
/* create new CSD tag and encode file */
68
68
fprintf(outfl, "<CsMidifileB>");
70
70
fprintf(outfl, "<CsFileB filename=\"%s\">", s);
71
71
linepos = bitcnt = inval = 0;
72
72
while (encode_byte(infile, outfl));
74
74
fprintf(outfl, "\b</CsMidifileB>\n");
76
76
fprintf(outfl, "\n</CsFileB>\n");
78
78
fclose(infile); infile = NULL;