// 三声の讃歌
System.RandomSeed=20171225
Tempo=48
t.Random=12 v.Random=36 q=120
Array A1=(“c”,“d”,“e”,“f”,“g”,“a”,“b”,“`c”“)
Int i=1
[3 TR=i @53 o(i+3)
　[16
　　Switch(RandomSelect(1,1,1,2,2,2,3,4)){
　　　Case(1){V=90[7 #N=A1(Random(1,4))l8#N]V=60l1d}
　　　Case(2){V=90[7 #N=A1(Random(5,8))l8#N]V=60l1a}
　　　Case(3){V=90[6 #N=A1(Random(6,9))l8#N]V=60l1a}
　　　Case(4){V=90[5 #N=A1(Random(5,8))l8#N]V=60l1g}
　　}
　]
　i++
]

音源：SoundFont