/*--------------------------------------------------------------------------------------------------------------------------------------

制作：2021年3月

前の曲投稿したときに「MSGSでも問題なく聴けるように〜」みたいなこと言ってましたが、今回は諦めました(意志薄弱)。
MSGSだと最大発音数が間に合わないのでSoundCloudか適当な高位音源で聴いてください。
もっともSGM-V2.01以外では調整してませんので他の音源でどう聞こえるかは未知数ですが……

トラック12・13はアラビア音楽にありがちな女声の「あ〜あああ〜」みたいなやつで、
トラック14はDJがスクラッチ回した時の音のつもりです。

いつもお聴きいただきありがとうございます。それでは。

--------------------------------------------------------------------------------------------------------------------------------------*/
TrackName={"さくらさくら - Arabian Party Night Mix -"};
Copyright={"日本古謡 arr.by Nacky"};
MetaText={"アラビアの心"};
System.MeasureShift(1);ResetGM;Time(1:1:0);
Tempo(160);
TimeSignature(4,4);
KeyFlag=(0,0,0,1,0,0,1);//E Hijaz Kar
TrackSync;
TimeBase(096);
Include(delay.h);
//_Track Initial Setting
Function TrackSet(Array Set=1,1,127,100,0,0,0,64,0,127,64,0,5,100,80){
If(Set(00)==___){Channel(001);r*%1;}Else{Channel(Set(00));r*%1;};
If(Set(01)==___){Voice(001);r*%1;}Else{Voice(Set(01));r*%1;};
If(Set(02)==___){Expression(127);r*%1;}Else{Expression(Set(02));r*%1;};
If(Set(03)==___){MainVolume(100);r*%1;}Else{MainVolume(Set(03));r*%1;};
If(Set(04)==___){Reverb(000);r*%1;}Else{Reverb(Set(04));r*%1;};
If(Set(05)==___){Chorus(000);r*%1;}Else{Chorus(Set(05));r*%1;};
If(Set(06)==___){Modulation(000);r*%1;}Else{Modulation(Set(06));r*%1;};
If(Set(07)==___){Panpot(064);r*%1;}Else{Panpot(Set(07));r*%1;};
If(Set(08)==___){y71(000);r*%1;}Else{y71(Set(08));r*%1;};
If(Set(09)==___){y74(127);r*%1;}Else{y74(Set(09));r*%1;};
If(Set(10)==___){y73(064);r*%1;}Else{y73(Set(10));r*%1;};
If(Set(11)==___){VAR(000);r*%1;}Else{VAR(Set(11));r*%1;};
If(Set(12)==___){o(005);r*%1;}Else{o(Set(12));r*%1;};
If(Set(13)==___){v(100);r*%1;}Else{v(Set(13));r*%1;};
If(Set(14)==___){q(080);r*%1;}Else{q(Set(14));r*%1;};
If(Set(15)==___){BR(002);r*%1;}Else{BR(Set(15));r*%1;};
};
//_グラデーション
Function EG(Array LHL){Expression.onTime(LHL);}
Function RG(Array LHL){Reverb.onTime(LHL);}
Function PG(Array LHL){Panpot.onTime(LHL);}
Function CG(Array LHL){Chorus.onTime(LHL);}
Function MG(Array LHL){Modulation.onTime(LHL);}
//_関数TL...トリル
Function TL(Tl=0){
If(Tl==0){t(00)};
If(Tl==1){t(00)};
If(Tl==2){t.N(-04,000)};
If(Tl==3){t.N(-08,-04,000)};
If(Tl==4){t.N(-12,-08,-04,000)};
If(Tl==5){t.N(-16,-12,-08,-04,000)};
If(Tl==6){t.N(-20,-16,-12,-08,-04,000)};};
//_InstrumentName
Function Ins(Str Instr){InstrumentName={"Instr"}};

//	  (Cha,Voi,Exp,Vol,Rev,Cho,Mod,Pan,Res,Cut,Atk,Var,oct,vel,  q, BR);
TR=001;y0(000);
TrackSet(001,105,120,102,064,000,024,064,000,064,___,___,005,100,100,012);Ins={"Sitar"};
TR=002;y0(000);
TrackSet(002,007,120,087,064,064,024,064,000,064,___,___,005,100,100,012);Ins={"Sitar"};
TR=003;y0(000);
TrackSet(003,105,120,078,127,064,024,048,000,064,___,___,004,100,100,012);Ins={"Sitar"};
TR=004;y0(000);
TrackSet(004,088,120,066,084,127,000,096,000,064,___,___,003,100,080,012);Ins={"Bass"};
TR=005;y0(000);
TrackSet(005,088,120,066,084,127,000,032,000,064,___,___,003,100,080,012);Ins={"Bass"};
TR=006;y0(000);
TrackSet(006,046,120,080,084,000,000,050,000,064,___,___,003,100,100,012);Ins={"Pizz."};
TR=007;y0(000);
TrackSet(007,008,120,078,064,100,000,096,000,064,___,___,007,100,050,012);Ins={"Clavi"};
TR=008;y0(000);
TrackSet(008,049,120,078,064,000,032,082,000,064,___,___,005,100,100,012);Ins={"Strings"};
TR=009;y0(000);
TrackSet(009,112,120,102,064,064,032,064,000,064,___,___,005,100,100,012);Ins={"Shanai"};
TR=010;y0(127);
TrackSet(010,017,120,120,064,000,000,064,012,064,___,___,003,100,099,012);Ins={"Drums"};
TR=011;y0(000);
TrackSet(011,120,120,120,127,064,024,064,000,064,___,___,006,100,100,012);Ins={"R.Cymbal"};
TR=012;y0(000);
TrackSet(012,024,120,102,064,000,032,084,000,064,___,___,005,100,100,012);Ins={"Choir"};
TR=013;y0(000);
TrackSet(013,024,120,090,064,000,032,044,000,064,___,___,005,100,100,012);Ins={"Choir"};
TR=014;y0(000);
TrackSet(014,084,120,084,127,127,000,064,000,064,___,___,005,100,070,012);Ins={"Scratch"};
TR=015;y0(000);
TrackSet(015,031,120,084,064,064,064,070,000,064,___,___,005,100,100,012);Ins={"Synth"};
TR=016;y0(000);
TrackSet(016,029,120,066,064,064,064,070,000,064,___,___,005,100,100,012);Ins={"Synth"};


TR(001);Time(2:1:0);
#Sitar={"
l01[7r]
l08d16&&e16fb16a16fe16&&f16&&eg16&&a16a [b16&&a+16&&b^^^^^^ ^^^^r^g16&&a16a b16&&`c16&&b^^^^^^ r^g16&&a16bb16&&`c16bab16a16
   f&&e&&f^^^^^ r^d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^:r^g16&&a16a]r^^^
   g16&&a16ab^g16&&a16ab16&&`c16&&b g16&&a16b`cba+16&&a16b16a16f16&&e16&&f ecee16&&f16ee16c16c16&&"b16d d16&&e16fb16a16fe16&&f16&&e^^

l01[7r]
l16r^^^^^^^^^"bcdefa
   
   b^b&&`cb^a^bafrd&&efa b^b&&`cb^a^bafrecef erec"b^eceferecc&&"b e^fga^g&&ab^r^g&&aga
   b&&a+&&b^^ra^gab^r^`e`f `erb`cbrgagrefbagf d&&ec^d&&ef^d&&eecc&&"bd^ l8d16&&e16fb16a16fe16&&f16&&eg16&&a16a
   
   [b16&&a+16&&b^^^^^^ ^^^^r^g16&&a16a b16&&`c16&&b^^^^^^ r^g16&&a16bb16&&`c16bab16a16
   f&&e&&f^^^^^ r^d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^:r^g16&&a16a]r^^^
   
l01[8r]
   
l01r^
l16eceff&&e`d32&&`e32`c`c&&bg&&aa^a+&&b ae32&&f32gaa+&&b`c24b24g24g&&ag24a24g24e&&fe&&d
   r^^^^^gagagrr^^^ ^^`d`e`d`e`dr`c`db`cgaef b&&`ca24&&g24&&a24`c^`c&&bb&&`c`cag&&a&&g^ r1
l01[7r]
l08d16&&e16fb16a16ef16&&e16&&f"}
   
#Sitar2={"
g16&&a16a [4b16&&a+16&&b^^^^^^ ^^^^r^g16&&a16a b16&&`c16&&b^^^^^^ r^g16&&a16bb16&&`c16bab16a16
   f&&e&&f^^^^^ :r^d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^r^g16&&a16a]r^>d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^r^^^<
   g16&&a16ab^g16&&a16ab16&&`c16&&b g16&&a16b`cba+16&&a16b16a16f16&&e16&&f ecee16&&f16ee16c16c16&&"b16d d16&&e16fb16a16fe16&&f16&&e^^
   "}
S{#Sitar Key(1) #Sitar2}
v(30)Key(-7)#Sitar Key(-6)#Sitar2

TR(002);Time(2:1:0);Key(0);FineTune(66)
#Sitar
TR(003);Time(2:1:0);Key(0);
Str \={p%.T(-1024,0,!16)};
l08'eb'^^^r'eb'^^ 'eb'^`c24b24a24a+&&b`d16b16af 'eb'^^^r'eb'^^ 'eb'^`d+16&&`e16`f16`e16`d^b16&&`c16`d16`c16
   'eb'^^^e16&&f16gab 'eb'^^^ga+16&&b16`c`d l12'eb'`d`c'fb'`cb'egb'ag'fb'gf 'eb'1

l08['eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^
   'fb'^^^r'fb'^^ 'fb'^^^r\'gb'^^ 'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^]
   
   \'eb'^^^'eb'^^^ \'eb'^^^'eb'^^^ \'eb'^^^'eb'^^^ r^^^^^TL(4)'eb`d`f'^TL(0)
   
l01[8r]
l08'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^
   'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^^^TL(4)'eb`d`f'^TL(0)
   
l08['eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^
   'fb'^^^r'fb'^^ 'fb'^^^r\'gb'^^ 'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^]
   
   'eb''eb'r^^^^^ r^^^^^^'eb' 'eb''eb'r^^^^^ r^^^'eb'^^^
   'eb''eb'r^^^^^ r^^^^^^'eb' 'eb''eb'r^'eb''eb'r^ l12'eb'`d`c'fb'`cb'egb'ag'fb'gf
   
l08'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r\'fb'^^
l16'eb''eb'^'eb''eb'r'eb''eb'^'eb''eb'r'eb''eb'^'eb' 'eb'r'eb''eb'^'eb''eb'r'eb''eb'^'eb''eb'r'eb'r
l08'eb'^\'fb'^'eb'^\'fb'^ r2.\'fb'^

l08'eb'^^^r'eb'^^ 'eb'^`c24b24a24a+&&b`d16b16af 'eb'^^^r'eb'^^ 'eb'^`d+16&&`e16`f16`e16`d^b16&&`c16`d16`c16
   'eb'^^^e16&&f16gab 'eb'^^^ga+16&&b16`c`d l12'eb'`d`c'fb'`cb'egb'ag'fb'gf p%.T(0,683,!2)'eb'2r2p%(0)Key(1)
   
l08[4'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^ 'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^
   'fb'^^^r'fb'^^ 'fb'^^^r\'gb'^^ 'eb'^^^r'eb'^^ 'eb'^^^r\'fb'^^]
   
   \'eb'^^^'eb'^^^ \'eb'^^^'eb'^^^ \'eb'^^^'eb'^^^ r^^^^^^^
TR(004);Time(2:1:0);Key(0);
#Bass={"
l08e"er^^^^^ e"er^^^fd e"er^^^^^ e"er^^^ef
   e"er^e"er^ e"er^e"er^ e"ee"ee"ee"e r^^^^^^^
   
l16[[4"eede"eedf"eede"eefd]["efef"efeg"efef"efed]["eede"eedf"eede"eefd]]

   "eeffer^^"eeffer^^ "eeffer"er"eeffer"ee "eeee"eeee"eeee"eeee r^^^^^^^^^^"eeffd
   
   [8"e"eee"e"eee"e"eff"ef"ed]
   [7"e"eff"e"eff"e"egg"eg"ee]r^^^^^^^^^^"eeffd
   
   [[4"eede"eedf"eede"eefd]["efef"efeg"efef"efed]["eede"eedf"eede"eefd]]
   
   e"e"e"er^^^^^^^^^^^ r^^^^^^^^^^^^^e"e e"e"e"er^^^^^^^^^^^ r^^^^^^^"eee"eef"eg
   e"e"e"er^^^^^^^^^^^ r^^^^^^^^^^^^^e"e e"e"e"er^^^e"e"e"er^^^ "e"eef"eefd"eede"efed
   
   [4"e"eee"e"eee"e"eff"ef"ed]
   "e"eeefr"e"eeedr"e"eef er"e"eeefr"e"eeedr"e"e
   ee"e"eff"e"eee"e"eff"e"e r^^^^^^^^^^^^^^^
   
l08e"er^^^^^ e"er^^^fd e"er^^^^^ e"er^^^ef
   e"er^e"er^ e"er^e"er^ e"ee"ee"ee"e r^^^^^^^
   Key(1)
l16[4[4"eede"eedf"eede"eefd]["efef"efeg"efef"efed]["eede"eedf"eede"eefd]]
   "eeffer^^"eeffer^^ "eeffer"er"eeffer"ee "eeee"eeee"eeee"eeee r^^^^^^^^^^^"efff '"ee'r^^^^^^^^^^^^^^
   Key(0);"}
S{#Bass}v50>#Bass
TR(005);Time(2:1:0);Key(0);
S{#Bass}v50>#Bass
TR(006);Time(2:1:0);Key(0);
#Pizz={"
l08er"beree"b er"bereef er"beree"b ereereef
   er"bfercd er"bfergf erereeee r^^^^^"b^

   [er"beree"b er"bereef er"beree"b ereereeg
   fr"bfrffg fr"bfrffd er"beree"b er"bereef]
   
   er^"ber^f er^"ber^f e"be"be"be"b r^^^^^"b^
   
l01[15r]l08r^^^^^"b^
   [er"beree"b er"bereef er"beree"b ereereeg
   fr"bfrffg fr"bfrffd er"beree"b er"bereef]
   
   eer^^^^^ r^^^^^^e eer^^^^^ r^^^er^^
   eer^^^^^ r^^^^^^e eer^eer^ rerfgagf
   
l01[7r]l08r^^^^^"b^

l08er"beree"b er"bereef er"beree"b ereereef
   er"bfercd er"bfergf erereeee Key(1)r^^^^^"b^
   
   [4er"beree"b er"bereef er"beree"b ereereeg
   fr"bfrffg fr"bfrffd er"beree"b er"bereef]
   er^"ber^f er^"ber^f e"be"be"be"b r^^^^^fr er^^^^^^
Key(0)"}Sub{#Pizz}>#Pizz
TR(007);Time(2:1:0);Key(0);
MidiDelay({
l01[7r]<l08efb16a16fer^^>
l01[8r]
l16ef`cb`dbabef`cb`dbaf gabefedfefgab`cba b`cbfedefef`cb`dbaf efefb`cb`c`db`dbagag
   fab`cbafdefgb`c`dba gafgefdefgabfgab efgabagfefedc"b"a"g "a"bcdefgab`c`d`e`f`g`a`b
   
   a^a^b^r^a^a^b^r^ a^b^`c^b^a^baf^r^ e^c^e^f^e^ec"b^d^ e^f^baf^e^r^r^^^
   
   [4r1]
   efgabagfefgab`dba gfededc"bdefgagfe ebgfe`cbfe`d`cbagfd efedecefefgabagf
   [4r1]
   `d`cbafr`d`cbafrgagf ergagferefgabagf erefergagrb`cbr`d`e <e^f^baf^e^r^r^^^>
   
l01[8r]
l16ef`cb`dbabef`cb`dbaf gabefedfefgab`cba b`cbfedefef`cb`dbaf efefb`cb`c`db`dbagag
   fab`cbafdefgb`c`dba gafgefdefgabfgab efgabagfefedc"b"a"g "a"bcdefgab`c`d`e`f`g`a`b
   
l01[8r]

l16efgabagfefgab`dba gfededc"bdefgagfe ebgfe`cbfe`d`cbagfd efedecefefgabagf
   `e`e`e`e`er`e`e`e`e`er`e`e`e`e `er`e`e`e`e`er`e`e`e`e`er`e`e `e`d`cb`d`cba`cbagbagf r1
   
l01[7r]<l08efb16a16efr^^>Key(1)

l01[8r]
l16ef`cb`dbabef`cb`dbaf gabefedfefgab`cba b`cbfedefef`cb`dbaf efefb`cb`c`db`dbagag
   fab`cbafdefgb`c`dba gafgefdefgabfgab efgabagfefedc"b"a"g "a"bcdefgabagfedef
   ef`cb`dbabef`cb`dbaf gabefedfefgab`cba b`cbfedefef`cb`dbaf efefb`cb`c`db`dbagag
   fab`cbafdefgb`c`dba gafgefdefgabfgab efgabagfefedc"b"a"g "a"bcdefgabagfedef
   ef`cb`dbabef`cb`dbaf gabefedfefgab`cba b`cbfedefef`cb`dbaf efefb`cb`c`db`dbagag
   fab`cbafdefgb`c`dba gafgefdefgabfgab efgabagfefedc"b"a"g "a"bcdefgab`c`d`e`f`g`a`b
   
   a^a^b^r^a^a^b^r^ a^b^`c^b^a^baf^r^ e^c^e^f^e^ec"b^d^ e^f^baf^efgab`c`d`e
   Key(0)},3,!24)

TR(008);Time(2:1:0);Key(0);
Str /={p%.T(0,0,!4,0,-1024,!8)};

l01[8r]
l08[[4\'"beb'^^^^/'"beb'^^][\'"bfb'^^^^/'"bfb'^^][\'"beb'^^^^/'"beb'^^]]
   \'"beb'^^^\'"beb'^^^ \'"beb'^^^\'"beb'^^^ \'"beb'^'"beb'^\'"beb'^'"beb'r p%.T(-8192,8191,!1)EP.W(120,70,!12)[12'``e``b'12,,120]EP(120)

l01[14r]p%.T(-8192,8191,!1)EP.W(120,70,!12)[12'``e``b'12,,120]EP(120)p%(0)r1
l08[[4\'"beb'^^^^/'"beb'^^][\'"bfb'^^^^/'"bfb'^^][\'"beb'^^^^/'"beb'^^]]

l01[7r]p%.T(-8192,8191,!1)EP.W(120,70,!12)[12'``e``b'12,,120]EP(120)

l01[8r]

l01[6r]p%.T(-8192,8191,!1^2.)EP.W(120,70,!12)[21'``e``b'12,,120]EP(120)r4Key(1)

l08[4[4\'"beb'^^^^/'"beb'^^][\'"bfb'^^^^/'"bfb'^^][\'"beb'^^^^/'"beb'^^]]
   \'"beb'^^^\'"beb'^^^ \'"beb'^^^\'"beb'^^^ \'"beb'^'"beb'^\'"beb'^'"beb'r p%.T(-8192,8191,!1)EP.W(120,70,!12)[12'``e``b'12,,120]EP(120)

TR(009);Time(2:1:0);Key(0);
l01[7r]
l08r^^^^^g16&&a16a [b16&&a+16&&b^^^^^^ ^^^^r^g16&&a16a b16&&`c16&&b^^^^^^ r^g16&&a16bb16&&`c16bab16a16
   f&&e&&f^^^^^ r^d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^:r^g16&&a16a]r^^^
l01[3r]l16r^^^^^^^^^^^g32&&a32fga
   
   a+&&b^^^ra^gaa+&&b^rab b&&`cb`darbaf32f+32f^^r^ec
   eferd&&eeferefgafg ereferec"b32c32"b^^afga
   a+&&b^^^ra^gaa+&&b^rab b&&`cbga`dbaf32f+32f^^eg`c`d
   `e`f`e^`e`cb^baf^gfdr d&&ef^baf^e32&&f32e^^r^^^
l01[7r]
l08r^^^^^g16&&a16a [b16&&a+16&&b^^^^^^ ^^^^r^g16&&a16a b16&&`c16&&b^^^^^^ r^g16&&a16bb16&&`c16bab16a16
   f&&e&&f^^^^^ r^d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^:r^g16&&a16a]r^^^
   
l01[8r]

l16d&&ee&&fbae&&ff&&ega`d`cba a+&&bb&&`cb24b-24a24e&&ff&&eage32&&f32ee&&f r1^1
   efeferr^^^^^b`cb`c brr^^^^r`e`f`d`eb`cga `d&&`e`c24&&`c+24&&`c24`e^`e&&`f`d&&`e`e`cb&&`c&&b^ r1
   
l01[7r]Key(1)
l08r^^^^^g16&&a16a [4b16&&a+16&&b^^^^^^ ^^^^r^g16&&a16a b16&&`c16&&b^^^^^^ r^g16&&a16bb16&&`c16bab16a16
   f&&e&&f^^^^^: r^d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^r^g16&&a16a]r^>d16&&e16cee16&&f16ee16c16 c24&&"b24&&c24&&"b^^^^^^ ^^^^r^^^<
   
TR(011);Time(1:1:0);Key(0);
l04rp%.T(8191,-8192,!1)c^^ ^r^^
[26r1]
l1p%.T(8191,-8192,!1)c
[15r1]
l1p%.T(8191,-8192,!1)c
[23r1]
l1p%.T(8191,-8192,!1)c
[7r]
l1p%.T(8191,-8192,!1)c
[8r]
[32r]
[3r]
l1p%.T(8191,-8192,!1)EG(120,120,!2,120,0,!2)c ^ ^ ^

TR(012);Time(2:1:0);Key(0);FineTune(68)
#Choir={
l16r1^1 r^^^EG(64,120,!4)e&&d&&e^f&&e&&f^g^f+&&f a^^^a+^&&b^`d^`c^a24&&b24a24g^
   g&&ag^f^gfEG(120,120,!2,120,64,!4)e&&f&&e^^^^^ ^^^^r^^^r^^^^^^^ r1^1
l01[6r]
l16r^^^EG(64,120,!4)g*^^&&ga^g^b^b&&`c a&&a+&&b^`d^`cbg&&af^e^"b&&c
   EG(120,64,!2)"b^^^^^^^r^^^^^^^ r1^1^1
   r1^1 r^EG(64,120,!4)g*^^&&gagf^b^`cba^ a+&&b`d^`e&&`f`e^`d*&&`d`c^EG(120,64,!4)b^^^
l01[4r]
l01[16r]
l01[6r]
l16r^^^EG(64,120,!4)g*^^&&ga^g^b^b&&`c a&&a+&&b^`d^`cbg&&af^e^"b&&c
   EG(120,64,!2)"b^^^^^^^r^^^^^^^ r1^1^1
   r1^1 r^EG(64,120,!4)g*^^&&gagf^b^`cba^ a+&&b`d^`e&&`f`e^`d*&&`d`c^EG(120,64,!4)b^^^
   
l16r^^^^^EP(120)a^a+&&b`cbg&&aa24b24a24 e&&fe^cdeff&&eecEG(120,64,!4)"b&&c&&"b^ r^^^^^EG(64,120,!4)"g&&"a"b^c"b"adef d&&ee`cb^`e`fEG(120,64,!4.)`e^^^^^r^
   r1^1 r^EP(120)d&&e^^agf32&&f+32&&fb&&`c`d`c`e`f EG(120,120,!2,120,64,!4)`e&&`f&&`e^^^^^^^^^r^^^
   
l01[8r]

l16r1^1 r^^^EG(64,120,!4)e&&d&&e^f&&e&&f^g^f+&&f a^^^a+^&&b^`d^`c^a24&&b24a24g^
   g&&ag^f^gfEG(120,120,!2,120,64,!4)e&&f&&e^^^^^ ^^^^r^^^r^^^^^^^ r1^1Key(1)
   
l01[6r]
l16r^^^EG(64,120,!4)g*^^&&ga^g^b^b&&`c a&&a+&&b^`d^`cbg&&af^e^"b&&c
   EG(120,64,!2)"b^^^^^^^r^^^^^^^ r1^1^1
   r1^1 r^EG(64,120,!4)g*^^&&gagf^b^`cba^ a+&&b`d^`e&&`f`e^`d*&&`d`c^EG(120,64,!4)b^^^
l01[6r]
l16r^^^EG(64,120,!4)g*^^&&ga^g^b^b&&`c a&&a+&&b^`d^`cbg&&af^e^"b&&c
   EG(120,64,!2)"b^^^^^^^r^^^^^^^ r1^1^1
   r1^1 r^EG(64,120,!4)g*^^&&gagf^b^`cba^ a+&&b`d^`e&&`f`e^`d*&&`d`c^EG(120,64,!4)b^^^
   
}
#Choir
TR(013);Time(2:1:0);Key(0);FineTune(60);r12
#Choir

TR(014);Time(66:1:0);Key(0);
Str U={"p%.T(-8192,8191,!24)"};
Str Q={"p%.T(8191,-8192,!24)"};
Str X={"p%.T(8191,-8192,!16)"};
Str Z={"p%.T(-8192,8191,!16)"};
l16 P(28) X `g Z g X g Z "g X "gr X "g32`g32 Z g X g Z g X "gr Z "g32g32 X `g Z g X g  Z "gr P(100) X""g X""g Q`g24 U`g24 Q g24 Z g X g Z""g X "g Z g X`g Z`g r^^
   P(28) Z`gr Q"g24 U g24 Q g24 Z`g X g Z"g X""g P(100) Q"g24 U g24 Q g24 Z`g X g Z`g X g Z""gr P(64) l24 Q`g U`g*Q`f Q`f*U`e Q`d Q`d*U`c+Q`c Q b U a+Q a Q g U g*Q f+Q f U e Q d Q d*U c+Q c Q"b U"a+Q"a

l16P(28)r^^^^^^^^^^^^^Z g X "g P(100)r^^^^^^^^^Z `g X g Z "g X g Z "gr
   P(28)r^^^^^^^^^^^X g Z `g X "gr P(100)r^^^^^^^Q g24 U`g24 Q `g24 Z g X"g Z""g X"g Z "gr
   r1^1 P(64) X gr Q g24 U "g24 Q "g24 X"gr Z g X"g Z""gr Z g X"g Q""g24 U "g24 Q "g24 Q "g24 U "g24 Q ""g24 r1
   
l01[8r]

l01[24r]
l16r^^^^^^^^^P(28)Z `g X `g Z g X g Z g X "g r^P(100)Z gr Z `g X `g Z gr Z `g X `g Z gr Z "gr^^
   P(28)r^Q`g24 U`g24 Q g24 Z gr X"gr Z g r X"gr P(100)Z`g X`g Z gr Z"g X g Z`g X`g Z gr^^^^Z"g X g Z`g X`g Z gr
   P(28)r^^^Z `grX "g Z"g Q `g24 U `g24 Q g24 Z`g X g Z`g X`g Z "gr P(100) Z g r X "g Z g X "g r^^^^ Z "g X "g Z g X g Z `g X g
   P(28)Z"gr X gr Z gr X gr Z gr X "grr^Z `g X `g P(100)Z gr X gr Q`g24 U`g24 Q`g24 Z`g X g Q g24 U`g24 Q`g24 Z g X"g Z"g X"g Z""gr
   
   
TR(015);Time(102:1:0);Key(1);
#Synth={"
l16[g^^^^^f24g24a24b^`c24b24a24b^b24`c24`d24 `e^`e24`d24`c24b^b24`c24`d24`e&&`f&&`e&&`f&&`e&&`f&&`e&&`f
   b^^^^^f24g24a24b^b24`c24`d24`e^`e24`e24`c24 b^`c24b24a24b^^^^^^^gab`c
   b^`c24b24a24b^`c24b24a24b&&`c&&b&&`c`d`cba b^b24a24g24f&&f+&&f&&f+&&f&&f+&&f&&f+&&f&&f+&&f&&f+
   e^^^^^e24d24c24"b^a24g24f24e^`c24b24a24 g&&a&&g&&a&&g&&agab&&`c&&b&&`c&&b&&`c&&b&&`c]
"}
S{#Synth}v60>#Synth
TR(016);Time(102:1:0);Key(1);
S{#Synth}v60>#Synth

KeyFlag+();
TR(010);Time(2:1:0);Key(0);p%(-4096);
$k={v120 n35,0 v120 n36,0 v90 n43,};
$s={v88 n39,0 v56 n54,};
Rhythm{
{l8[4k^^k^^k^] [k^^kk^^k] k^k^k^k^ k^k^k^k^}
{l04[4rl8ssl4rs][rsrs]ssss rrrs}}
v64S{l8`c+,,80f+a+g+f+a+a+f+ [3f+f+a+g+f+a+a+g+][2f+f+a+f+f+f+a+f+][4ra+16f+16]r1}
>>v64S{l08[7c+c+cc+c+c+cc+]>v40l24eeed+eeeeed+eeer^^^^^^^^^^<}<<
[6r1]v64l12r`c`craarffraa r-32`c32l16`c`c`c`craaarff24f24f24r^^^

Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7rrssrrsr]rrssrsss}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<
Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7rrssrrsr]rrssrsss}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<

Rhythm{
{l4k^k^ k^k^ kkl8kkkk l16k^^^^^^^^^^kk^k^}
{l4s^s^ s^s^ ssss rrrs}}
S{v64l16[4`c+^,,80f+f+f+f+f+f+][4`c+^,,80f+f+]r2.`c+4,,80}
S{>>>v40l16[eed+eer^^eed+eer^^]eed+eeed+eeed+eeed+er2d+eed+eed+e<<<}
v64[3r1]r-16`c32`c32l16`c`cr`caaraf^f^r^^^

Rhythm{
{l4[7kkkk]l16k^^^k^^^k^k^^k^^}
{l4[3rsrs]rsrl16s^^s l4[3rsrs]l16r^^^s^^^r^^s^^s^}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64l16[8c+rc+crcc+rc+rc+crcc+r]<<
Rhythm{
{l4[4kkkk]l16k^^k^^k^^k^^k^^k ^^k^^k^^k^^k^^kk k^k^k^k^kkkkkkkk k^^^^^^^kk^kk^k^}
{l4[3rsrs]rsrl16s^^sl16s^^s^^s^^s^^s^^s ^^s^^s^^s^^s^^s^ s^s^s^s^s^s^s^s^ r^^^^^^^^^sss^^^}}
v64S{l16`c+0,,80[4[4f+^a+g+]]`c+0,,80[3[4f+^a+g+]]v80`c+^^^^^^^^^^^`c+^^^}
S{>>v64l16[7c+rc+crcc+rc+rc+crcc+r]>v40l24eeed+eeeeed+eeer^^^^^^^^^^<<<}
v64[7r1]l24`c`c`c`cr^aaaar^r2

Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7rrssrrsr]rrssrsss}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<
Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7rrssrrsr]rrssrsss}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<

Rhythm{
{l8kk^^^^^^ ^^^^^^^k kk^^^^^^ ^^^^k.k.k kk^^^^^^ ^^^^^^^k kk^^kk^^ k^k^k^k^}
{l8ss^^^^^^ ^^^^^^^s ss^^^^^^ ^^^^^s^s  ss^^^^^^ ^^^^^^^s ss^^ss^^ ^^^^^ss^}}
v64S{l16`c+,,80rg+f+a+^g+f+f+rg+f+a+^g+f+ g+f+g+f+a+^g+f+f+rf+f+a+^`c+,,80r `c+,,80r`c+,,80ra+^g+f+f+rf+f+a+^g+f+ f+rf+f+a+g+g+f+`c+,,80f+f+`c+,,80f+f+`c+,,80f+
`c+,,80rg+f+a+^g+f+f+rg+f+a+^g+f+ g+f+g+f+a+^g+f+f+rf+f+a+^`c+,,80r `c+,,80r`c+,,80ra+^g+f+f+rf+f+a+^g+f+ f+f+f+f+f+f+f+f+f+f+a+r`c+,,80r^^}
S{>>v64l16[8c+rc+crcc+rc+rc+crcc+r]<<}
v64[7r1]r-16`c32`c32l16`c`cr`caaraf^f^r^^^

Rhythm{
{l4[3kkkk]l16k^^^k^^^k^k^^k^^}
{l4[3rsrs]rsrl16s^^s}}
v64S{l16`c+0,,80[4[4f+^a+g+]]}
>>v64l16[4c+rc+crcc+rc+rc+crcc+r]<<
Rhythm{
{l16kkkkkrkkkkkrkkkk krkkkkkrkkkkkrkk krkrkrkrkrkrkrkr kr^^^^^^krkrkr^^}
{l16sssssrsssssrssss srsssssrsssssrss s^s^s^s^ r^^^^^s^}}
v64S{l16[10`c+,,80rr] `c+,,80r `c+,,80rf+f+`c+,,80rf+f+`c+,,80rf+f+`c+,,80rf+f+ r^^^^^^^^^^^`c+,,80r^^}
>>v64l16[3c+rc+crcc+rc+rc+crcc+r]<<r-16`c32`c32l16`cr`carafrfrr^^^^^

Rhythm{
{l8[4k^^k^^k^] [k^^kk^^k] k^k^k^k^ kr^^k12k12k12kr}
{l04[4rl8ssl4rs][rsrs]ssss rrs12s12s12s}}
v64S{l8`c+,,80f+a+g+f+a+a+f+ [3f+f+a+g+f+a+a+g+][2f+f+a+f+f+f+a+f+][4ra+16f+16]`c+,,80r^^a+12a+12a+12a+^}
>>v64S{l08[7c+c+cc+c+c+cc+]r2.c12c12c12c^}<<
[6r1]v64l12r`c`craarffraa r4'`g`a+'2.,,100

Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7rrssrrsr]rrssrsss}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<
Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7rrssrrsr]rrssrsss}}
v64S{l16[`c+0,,80[4[4f+^a+g+]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<

Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7srsrsssr]srssrsss}}
v64S{l16[`c+0,,80[4[4a+^f+r]]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<
Rhythm{
{l4kkkk kkkl8kkl4 kkkk kkl16kk^kk^k^ l4kkkk kkkl8kkl4 kkkk kkl16k^^kkk^k}
{l8[7srsrsssr]rrssrsss}}
v64S{l16`c+0,,80[4[4a+^f+r]][4[4`c+^,,80f+r]]}
>>v64S{l16[8c+rc+crcc+rc+rc+crcc+r]}<<
>>>v40l16[8eed+eeed+eeed+eeed+e]<<<

Rhythm{
{l4k^k^ k^k^ kkl8kkkk l4k^^k kr^^}
{l4s^s^ s^s^ ssss rrrs sr^^}}
S{v64l16[4`c+^,,80f+f+f+f+f+f+][4`c+^,,80f+f+]r2.`c+4,,80}
S{>>>v40l16[eed+eer^^eed+eer^^]eed+eeed+eeed+eeed+er2d+eed+eed+e<<<}
v64[3r1]r-16`c32`c32l16`c`cr`caaraf^f^r^^^