カノンはニ長調です。cdefgab を def#gabc# に変換すればok var d$[7]:copy d,@d,a$=mml$ @d:data "b","c#","d","e","f#","g","a" for i=0 to len(a$):if a$[i]>="A"&&a$[i]<="G" then ?d$[asc(a$[i])-65]; : else ?a$[i]; : endif:next こんなかんじ(たぶん)