christopherh@1: 
christopherh@1: function chord = stripinversion(chordinput)
christopherh@1: 
christopherh@1: chord = '';
christopherh@1: 
christopherh@1: ilength = length(chordinput);
christopherh@1: 
christopherh@1: for i = 1:ilength
christopherh@1:     
christopherh@1:     if chordinput(i)~='/'
christopherh@1:         chord = [chord chordinput(i)];
christopherh@1:     else
christopherh@1:         break;
christopherh@1:     end
christopherh@1: end
christopherh@1: 
christopherh@1: