wolffd@0: function mirsave(m)
wolffd@0: 
wolffd@0: nmat = get(m,'Data');
wolffd@0: n = get(m,'Name');
wolffd@0: for k = 1:length(nmat)
wolffd@0:     writemidi(nmat{k},[n{k},'.mid'],120,60);
wolffd@0: end