TrackName={"MML変換"};
Copyright={"森と泉"};　
//SS={ }内にMMLを入れて下さい（いま、サンプルが入っています）。
//修正後のMMLを下側タブに表示・演奏します。

Str SS={
System.TimeBase=48
Tempo=116
TimeSignature=4,4
TR=1 CH=1 V(127) P(64) o5 @(GrandPiano) r1
l2  v123 e  c&  
l3  v121 c f+  c&  
l6  v115 c& c& c& c  e  e  
l12 v103  a& a& a<d+ d+&d+ f+ d+  c d+&d+ f+  
l12 v103  a  f  c  d  f& f  c& c  c  f  c  c  
l6  v115 f  d  g  b  d> b  
l2  v123 g  g  
l3  v121d+ d+ d+  
l6  v115 b< f  f& f& f> b 
l6  v115 e  c> g& g& g& g&  
l4  v119 g a+&a+  e  
l3  v121 a f+  a   
l12 v103 a+ a+< d  f& f& f& f g+  f& f  f a+ 
l6  v115 a  a& a& a  a  a& 
l3  v121 a`d a& 
l3  v121 a f+ f+ 
l2  v123 b< d
l6  v115 g& g c+ c+&c+  e
l2  v123 d  f
l12 v103  d  e& e> b g+&g+&g+ g+&g+  d& d& d& 
l6  v115 d  e& e g+&g+  b  
l6  v115 a`c+ a& a& a<c+  
l6  v115f+  d> a  a  a  a   
l2  v123 b  b  
l12 v103  e& e  c  c& c  c  e  c  e  e  e& e  
l6  v115 c  c> a`c a<d+   
l4  v119 f  c  c  d&  
l2  v123 d> b  
l4  v119 e  g  g  e  
l6  v115 f& f  f& f g+ g+  
l3  v121 c  c  g&  
l12 v103  g d+  g& g  g a+  g& g<c+&c+&c+>a+ 
l12 v103  c& c& c f+ f+  c  d f+  c  c f+&f+  
l12 v103 g+&g+&g+  b& b g+ g+<c+ c+>g+<c+  f 
l4  v119 c> g  g& g&  
l12 v103  g  g a+`c g< c& c> g a+&a+&a+&a+ 
l12 v103 d+&d+&d+&d+  f  a< c& c& c& c& c> a  
l12 v103  g  e& e  e  c  g  e  g< c  e  g& g  
l12 v103 g+< c& c  f g+  f g+ g+&g+&g+  c>g+ 
l3  v121 g  g  b
l2  v123 e  c  
l4  v119 g a+ a+ a+ 
l2  v123c+> g& 
l12 v103  g< c d+&d+  g< c d+  c> g& g& g d+ 
l12 v103  c  d> a< c& c  d& d> a`c a f+  a& 
l12 v103  a  a& a< c& c  d  f  a& a`c a  a  
l12 v103  b& b& b< d  f  g  d> b< f& f  g  d 
l6  v115 e  e  g  c> g  e 
}

Array S1=({c-},{c+},{c},{d-},{d+},{d},{e-},{e+},{e},
{f-},{f+},{f},{g-},{g+},{g},{a-},{a+},{a},{b-},{b+},{b})

SS=Replace(SS,{ },{},on)               //(1)スペースを除去する

SS=Replace(SS,{>},{ZZZ},on)            //(2)>と<を逆にする。
SS=Replace(SS,{<},{>},on)              //  これをしたらSystem.X68mode(on)は消して下さい。
SS=Replace(SS,{ZZZ},{<},on)

For(Int i=0; i<SizeOf(S1); i++){       //(3)行末以外の&`a+、&"a-、&aなどをタイ(^)にする
	SS=Replace(SS,{&`}+S1(i),{^},on) //　スラ―の意味で使用している個所は避けて下さい。
	SS=Replace(SS,{&"}+S1(i),{^},on)
	SS=Replace(SS,{&} +S1(i),{^},on) }

Print(SS)                              //(4)下側タブに修正後のMMLを表示する

SS                                     //(5)演奏する