System.RandomSeed=(2012-23)
Array UTA =
("は","る","か","ぜ","の",
"は","な","を","ち","ら","す","と",
"み","る","ゆ","め","は",
"さ","め","て","も","む","ね","の",
"さ","わ","ぐ","な","り","け","り")
Array KOE =
({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=13; i>=2; i--){
　#ARP=#ARP+SOU(i)
}

Int NN Int OTO_1 Int OTO_2
Tempo(64)
#N1="v.Random(40) q(100) M(20) "
#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(KOE)*SizeOf(KOE))
　OTO_2=NN-(NN/SizeOf(SOU)*SizeOf(SOU))
　#N1=#N1+"l("+RandomSelect(1,2)+")"+KOE(OTO_1)+ " "
　#N2=#N2+"l("+RandomSelect(2,1)+")"+SOU(OTO_2)+ " "
}

TR(1) @(55)  TrackName="Voice" P(64+24) REV(40) CHO(04) r2 #N1
TR(2) @(108) TrackName="Koto"  P(64-24) REV(40) CHO(10) #N2 r1r1 #ARP