System.RandomSeed=(2012-22)
Array UTA =
("春","風","の","花","を","散","ら","す","と","見","る","夢","は",
"さ","め","て","も","胸","の","さ","わ","ぐ","な","り","け","り")
Array FUE =
({o5g},{o5a},{o6c},{o6d},{o6e-},{o6g},{o6a},{o7c},{o7d})
Array SOU =
({'o5do4g'},{o5d},{o4g},{o4a},{o4b-},{o5d},{o5e-},{o5g},{o5a},{o5b-},{o6d},{o6e-},{o6g},{o6a})

#ARP="l(64)"
For(Int i=2; i<=13; i++){
　#ARP=#ARP+SOU(i)
}

Int NN Int OTO_1 Int OTO_2
Tempo(64)
#N1="v.Random(40) q(100) M(12) "
#N2="v.Random(40) q(100) M(00) "

For(Int i=0; i<SizeOf(UTA); i++){
　NN=ASC(UTA(i))-ASC(UTA(i))/100*100
　OTO_1=NN-(NN/SizeOf(FUE)*SizeOf(FUE))
　OTO_2=NN-(NN/SizeOf(SOU)*SizeOf(SOU))
　#N1=#N1+"l("+RandomSelect(1,2)+")"+FUE(OTO_1)+ " "
　#N2=#N2+"l("+RandomSelect(2,1)+")"+SOU(OTO_2)+ " "
}

TR(1) @(Piccolo) TrackName="Fue" P(64+24) REV(40) CHO(04) Key(12) r2 #N1
TR(2) @(Koto) TrackName="Koto" P(64-24) REV(40) CHO(10) Key(00) #N2 r2 #ARP