INT TRACK_SELECT				=	1	;	//	1 : CUM IN VAG!			https://www.youtube.com/watch?v=1ejNmfe8tLs
									//	2 : FROM MIDDLE EAST MOON	https://www.youtube.com/watch?v=A5HYWhCSPYg
									//	3 : BAILA PARA LA GENTE		https://www.youtube.com/watch?v=DdjBaG83HmA

INT TRACK_KEY				=	2	;	//	�L�[���� (-3�`3)


If(TRACK_SELECT==1){

INT EST=158PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"CUM IN VAG!"}Copyright={H�J}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,8,2,127,09,0)WIN(07,07,039,08,0,K,054,2,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,083,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,6,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,081,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,6,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,083,00,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,074,2,2,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=19INT ME1=27INT ME2=35INT SB1=43INT RF1=59INT ME3=67INT ME4=75INT SB2=83INT RF2=99INT NK1=109INT ME5=127INT ME6=135INT SB3=143INT RF3=159
/*1*/
TR=1DL=ME1-1l16[15r]Lyric={"Hey Hey Girl, Why don't you grow this kitten?"}[32r]Lyric={"Surely my kitten will be happy"}[32r]
Lyric={"A-B-C, I teach you how to session"}[32r]Lyric={"touch and shake! Kitten is growin big!"}[32r]Lyric={"Hey moving up and down cuty"}[32r]
Lyric={"Clap your peach and making music"}[32r]Lyric={"Open your mind and flower just"}[26r]Lyric={"Here we go! fusion of you and me"}[32r]
Lyric={"Into the Cum in Vag! Va-Va-Va-Vagina!"}[38r]Lyric={"Cum in Vag! Bazooka for you! Hey Hey Hey!"}[32r]Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]
Lyric={"1-2-3-4 Rocket shootin!"}[32r]Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]Lyric={"Cum in Vag! Bazooka desperate! Hey Hey Hey!"}[32r]
Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]Lyric={"Hey Hey Take off panties and open!"}[42r]Lyric={""}DL=ME3-1l16[15r]Lyric={"Hey Hey Man, My kitten is bigger than you"}[32r]
Lyric={"That's right My kitten will be bigger"}[32r]Lyric={"Look at me, I teach you heaven ascention"}[32r]Lyric={"Lick and tick! Kitten enters the moon"}[32r]
Lyric={"Hey moving up and down sexy"}[32r]Lyric={"Clap your peach and taking druggy"}[32r]Lyric={"Open your clam and flower fast"}[26r]
Lyric={"Let me go! together body and soul"}[32r]Lyric={"Into the Cum in Vag! Va-Va-Va-Vagina!"}[38r]Lyric={"Cum in Vag! Bazooka in you! Hey Hey Hey!"}[32r]
Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]Lyric={"1-2-3-4 Missile fire!"}[32r]Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]Lyric={"Cum in Vag! Bazooka dangerous! Hey Hey Hey!"}[32r]
Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]Lyric={"Hey Hey please suck trouser snake and gem!"}[42r]Lyric={""}DL=ME5-3l16[15r]Lyric={"Cum in Vag!"}[20r]Lyric={""}[12r]
Lyric={"Takin Shakin Movin Divin"}[16r]Lyric={"Bangin Boogie Freakin Dreamin"}[16r]Lyric={"Pumpin Gimme satisfaction in electric"}[32r]Lyric={"Dancin Housey Techy Funky"}[16r]
Lyric={"Rockin Drummin Rollin Deepin"}[16r]Lyric={"Trippin Jackin your passion to desire"}[36r]Lyric={""}DL=SB3-1l16[15r][Lyric={"Cum in Vag!"}[40r]Lyric={""}[24r]]
Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]Lyric={"Cum in Vag! Bazooka desperate! Hey Hey Hey!"}[32r]Lyric={"Cum in Vag! Va-Va-Va-Vagina!"}[32r]
Lyric={"Hey Hey Take off panties and open!"}[42r]Lyric={""}
STR MN1={[regarega`c^`c^ba^r:regaregagg^g^^^r]ra`c`era`c`e`d`d^`d^^^r}
STR MN2={[`e^a`c`e`e^`e`g`f^`e^:`d^r`d^gb`d`d^`d`f`e^`c^g^r]`e`g`ar`c`d`e`d`ega^^^^r}
STR MN3={`c`d`e[[`e^`c^`d^r`d^`d`d`c`d^`e^:`e^`c^`d^rg`g`f`e`d^`c`d`e]:`c^`c^`c^`c^b`c`d`g^^b^]`e^`e^`e^`e^`d`d`c`d^^`f^`e^^^^^}
STR MNH={`e^`c^`d^r}STR MN4={[l16[arerareragr`c^^gr]arfrarfrafr`c^^frl8:gg^g^^^r]`d`d^`d^^^r}
STR MN5={[MD({`e^`c^`d^r},4,!1)[25r]][`e^`c^`d^r`d^`d`d`c`d^`e^:`e^`c^`d^rg`g`f`e`d^`c`d`e]`e^`e^`e^`e^`d`d`c`d^^`f^`e^^^^^}
TR=1l8>HAM2({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=ME5-2MNH;DL=ME5;MN4;DL=SB3;MN5;})
/*2&3&4*/STR RTA={BR=6@83,0If(CH==3){@82,110,0p%=300}If(CH==4){@82,110,0p%=-300}}STR RTB={BR=6@1,90,0If(CH==3){@4,110,0p%=300}If(CH==4){@4,110,0p%=-300}}
STR RTC={BR=6@4,110,0If(CH==3){@1,90,0p%=300}If(CH==4){@1,90,0p%=-300}}
STR RTH={RTA;EP=100l16[8MD({rr'`cae''`cae'rrrr},3,!4)[8r]]}
STR RTI={RTA;EP=100l16HAM2({SUB{[64r][[`e`d^`c^^`c^]:`g`d^`c^^`c^`g`d^b^^b^]}[[[ag^"a^^"a^]:`cg^c^^c^`dg^d^^d^]:`cgreregr`dgreregr]})>EP=110'"f"ac'^^r'"f"ac'^^r'"g"bd'r'"g"bd'^^^^r<}
STR RTJ={EP=110RTA;REV=50l8['`e`ca'^'`e`ca'^]l16['`e`ca'^]['`e`ca''`e`ca'^]}
STR RT1={EP=110RTA;REV=50l8['`e`ca'^'`e`ca'^'`dbg'^r'`dbg'^'bge''`dbg''bge''`dbg'^'`e`ca'^:'`e`ca'^'`e`ca'^'`dbg'^r'bge''`g`db''`f`db''`e`ca''`dbg'^'`cge''`dbg''`e`ca']
['`e`ca'^][3'`e`ca']'`dbg'^[3'`dbg']['`dbg'^]}STR RT2={RTB;l8EP=120HAM3({>[[8r]`c^`c^ba^r[16r]]<})}
STR RT3={RTB;EP=127HAM3({>[8r]`g`f^`e^`d^r[8r]`f`e^`c^g^r[8r]`g`f^`e^`e`g`a^[15r]<})}
STR RT4={RTC;EP=120HAM3({[[3SUB{`c^`c^b^}`e^`e^`d^r[9r]]:SUB{f^f^f^f^gggg^^g^}`c^`c^`c^`c^b`c`d`g^^b^]SUB{`c^`c^`c^`c^bbbb^^b^}`e^`e^`e^`e^`d`d`c`d^^`f^})}
STR RT4A={RTC;EP=120HAM3({[[3SUB{`c^`c^b^}`e^`e^`d^r[9r]]:SUB{f^f^f^f^gggg^^g^}`c^`c^`c^`c^b`c`d`g^^b^]SUB{`c^`c^`c^`c^bbbb^^b^}`e^`e^`e^`e^`d`d`c`d^^SUB{If(CH==2){EP=120CHO=70@103,0HAM3({l16SUB{egab}ab`c`d})}}l8`f^})}
STR RT1A={RTA;REV=50If(CH==2){@103,0EP=127v=120CHO=70M.W(30,90,!1)HAM3({[l8SUB{`c^^b^^g^b^^a^}`e^^`d^^b^`d^^`cl16SUB{e^c^egab}a^g^ab`c`dl8:SUB{b^^g^^e^bgb`c^aec}`e^^`d^^b^`gb`g`e^`d`ca]SUB{`c^`c^`c`c`cb^^^^^^^^}`e^`e^`e`e`e`d^^^^^^^^})CHO=20v=100M=0
}Else{l8['`e`ca'^'`e`ca'^'`dbg'^r'`dbg'^'bge''`dbg''bge''`dbg'^'`e`ca'^:'`e`ca'^'`e`ca'^'`dbg'^r'bge''`g`db''`f`db''`e`ca''`dbg'^'`cge''`dbg''`e`ca']
['`e`ca'^][3'`e`ca']'`dbg'^[3'`dbg']['`dbg'^]}}
STR RTK={RTA;EP=100l8M.T(30,90,!1)'`e`ca'^^^^^^^[8r]M=0}
STR RRF={l8DL=HAZ;RTH;RTI;RTJ;DL=BGN;RT1;RT2;RT3;RT4;DL=RF1;RT1;RT2;RT3;RT4A;DL=RF2;RT1A;RTJ;DL=NK1;RTH;RTI;RTK;DL=ME5;RT2;RT3;RT4;DL=RF3;RT1;RTJ;}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,100)BR=6If(CH==5){p%=100}Else{p%=-100}@35,90,1}STR BSH={l8[4"aa"a"ar"ar"a:r"ar"a"aa"gg]BSA[c`c][d`d]}
STR BSI={BSA[[4"aa][c`c][d`d]:[4"aa]["ff][d`d]][4"ff]"f^"f^"g"g^r}STR BSJ={[4"ff][3"f^]rr}
STR BS1={[["ff]["gg]["ee]["aa]:["ff]["gg]["ee]["a"a]][4"d:d]q=90"g^"g"g"g"g^"g^BSA}
STR BS2={[[8"aa][4"ff]:["gg]l16q=90"g"gg^l8BSA"gg]"g"g^"g"gg"f#f#}
STR BS3={l16["f^ff[3"f^f^]"g^gg[3"g^g^]:"e^ee[3"e^e^]"a^aa"a^a^[g^g^]]"a^aa"a^a^l8/*[l16q=90"f"ff^l8BSA[3"ff][4"gg]:[4"ee]["aa]["gg]]["aa]*/"a"a"aq=100"a^^^^^^a&&"aBSA}
STR BS3A={l4q=100f^^^g^^^e^^^"a^^^BSA;l16"f^ff[3"f^f^]"g^gg[3"g^g^]"a^aa"a^a^l8/*[l16q=90"f"ff^l8BSA[3"ff][4"gg]:[4"ee]["aa]["gg]]["aa]*/"a"a"aq=100"a^^^^^^a&&"aBSA}
STR BS4={[[l16"f^ff"f^f^l8["gg]["ee]["aa]:l16"f^ff"f^f^l8["gg]["ee]["a"a]]l16"d^dd"d^d^l8["dd]:gggg^^g^]q=90"g"g"g"g^^"g^BSA}
STR BSK={q=90a^^^^^^&&"a"a"a"g"arrrrBSA}
STR BASS={l8<<DL=HAZ;CHO=60V=100BSH;BSI;BSJ;DL=BGN;CHO=60V=100BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4;BS1;BSJ;DL=NK1;BSH;BSI;BSK;DL=ME5;BS2;BS3;BS4;BS1;BSJ;}TR=5/*@40,90,0@37,90,0*/@35,90,1BASS;TR=7/*@35,90,1@34,90,1*/@40,90,0BASS;
/*6*/STR COH={@31,91,0EP=80l8<[8'aec'^^'"aa'^'aec'r'aec']>}STR COI={@31,110,0EP=80l8SUB{[14ae`ce]}<[7[@31,110,0EP=80l8]'aec''aec'^'aec']l16['fc"a'^^r]'gd"b'r'gd"b'^^^rr>}
STR COJ={@49,90,1EP=100l4[3'`a`e'^]r}STR CO1={@49,90,1EP=100l1'`a`e'^^^'`a`e'^^^}STR CO2={@82,110,0EP=80M.W(30,60,!1)REV.W(10,80,!1)l8HAM({[a^^^^^^g&&a^^^^^^^a^^^^^^^:g^^^^^^^]b^^^^^^^})M=0}
STR CO3={@49,90,1EP=110l4f^^^g^^^g^^^a^^^f^^^g^^^a^^^rrrr/*['afc'^^^'gd"b'^^^:'bge'^^^'`cae'^^^]'`cae'^^^rrrr*/}
STR CO3A={@49,90,1EP=110SUB{l8HAM({[a^^^^ea`cb^^^^gb`db^^^^^:g^a^^^^^^^]`c^})}l4f^^^g^^^g^^^a^^^f^^^g^^^a^^^rrrr/*['afc'^^^'gd"b'^^^:'bge'^^^'`cae'^^^]'`cae'^^^rrrr*/}
STR CO4={@49,90,1EP=110[l1'`a'^^^l2'`a'^^^^^^r]/*['afc'^'gd"b'^'ge"b'^'aec'^:'afc'^'gd"b'^'bge'^'`cae'^]'d"b"g'^^^'gd"b'^^^*/}
STR COK={@31,110,0EP=80l8'aec'^^^^^^^[4'aec']rrrr}
TR=6@49DL=HAZ;COH;COI;COJ;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3;CO4;CO1;COJ;DL=NK1;COH;COI;DL=ME5-2COK;DL=ME6;CO3A;CO4;CO1;COJ;
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR UL1={ULA;EP=127[r"acer"aceSUB{g^g^ge^}e^e^dc^r:r"acer"aceSUB{"b"b^"b^^^}dd^d^^^r]regaregaSUB{gg^g^^^}bb^b^^^r}
STR UL2={ULA;EP=127SUB{[`c^`c`c`c`c^`c`d`d^`d^:`d^rb^bbbb^b`c`c^`e^`e^r]`d`d`er`e`e`e`e`e`e`e^^^^}[a^aaaa^agg^g^:g^rg^gggg^gaa^a^a^r]ggaraaaaaaa^^^^r}
STR UL3={ULA;EP=120SUB{MN3}SUB{eee}aaaSUB{[[`a^`f^`g^rg^gggg^a^:`a^`f^`g^rgggge^eee]:a^a^a^a^bbbb^^b^]}[[SUB{a^a^g^}`c^a^b^rb^bbab^`c^:SUB{a^a^g^}`c^a^b^rbbbba^aaa]:f^f^f^f^gggg^^g^]SUB{`c^`c^`c^`c^bbbb^^b^`c^^^^^}a^a^a^a^gggg^^g^a^^^^^}
STR ULH={ULA;EP=110SUB{MNH}SUB{`a^`f^`g^}SUB{a^a^g^}`c^a^b^r}STR UL4={ULA;EP=127[l16[3ercrercrecra^^cr]l8:SUB{"b"b^"b^^^}dd^d^^^r]SUB{gg^g^^^}bb^b^^^r}
STR UL5={ULA;EP=120SUB{MN5}[MD({SUB{`a^`f^`g^}SUB{a^a^g^}`c^a^b^r},4,!1)[25r]]SUB{[`a^`f^`g^rg^gggg^a^:`a^`f^`g^rgggge^eee]}[SUB{a^a^g^}`c^a^b^rb^bbab^`c^:SUB{a^a^g^}`c^a^b^rbbbba^aaa]SUB{`c^`c^`c^`c^bbbb^^b^`c^^^^^}a^a^a^a^gggg^^g^a^^^^^}
STR ULMR={DL=ME1;l8UL1;UL2;If(CH==8){HAM({UL3})}Else{HAM2({UL3})}DL=ME3;UL1;UL2;If(CH==8){HAM({UL3})}Else{HAM2({UL3})}DL=ME5-2If(CH==8){HAM({ULH})}Else{HAM2({ULH})}
DL=ME5;UL4;DL=SB3;If(CH==8){HAM({UL5})}Else{HAM2({UL5})}}TR=8ULMR;TR=9;>ULMR;
/*10*/STR OA={n27n32n35n36}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDH={O3[63r]O3[31r]O4[15r][3O1;rrr][O1]rO1}STR DDHA={O3[63r][O3[15r]][O3[7r]][3O1;rrr][O1]rO1}
STR DDI={[16O1;r:rr][O1][12O1;rrr][O1;rrr][O1;r]rrrr}STR DDJ={[4O1;rrr]l8O1;r[3O1]rrrl16}
STR DD1={[14O1;rrr]O1;rO1;rrrO1;r[10O1;rrr][4O1;r]rr[4O1;r]rrO1;rrr}STR DD2={[16O1;r:rr]O1;r[12O1;rrr]l8[O1]rO1[O1;r]l16}
STR DD3={[14O1;rrr]l8[O1]rO1;l16[12O1;r:rr]O3;r[16r]}STR DD4={SUB{[[96r][4'n51n59'rrr][4'n51n59'r]rrrrn49rrr]}[28O1;rrr][4O1;r]rrrrO1;rrr[28O1;rrr][3O1;r]O3;rrrrrO4;rrr}
STR DD3A={[O3[15r]O4:[15r]][7r]l8[O1]rO1;l16[12O1;r:rr]O3;r[16r]}STR DDK={[O1;rrr][3O1;r]rr[4O1;r][8r]}
TR=10l16DL=HAZ@25,90,1BR=20p%=1000V=115DDH;DDI;DDJ;DL=BGN@25,90,1BR=20p%=1000V=115DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4;DD1;DDJ;DDHA;DDI;DL=ME5-2DDK;DL=ME5;DD2;DD3;DD4;DD1;DDJ;
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]}
STR GGH={[16'n51'[7r]]}STR GGI={[16'n51'rrr][3GP2][16r]}STR GGJ={[6GR;rGB;r]rrO1;rREV=100CHO=120'n38n40'rrrREV=0CHO=30}
STR GG1={SUB{[122r]O1;rREV=100CHO=120'n38n40'rrrREV=0CHO=30}[14GR;rGB;r][[GR]GB;r][12GR;r:GB;r]l8GB;r[4GB]rGB;rl16}STR GG2={[14GR;rGB;r][[GR]GB;r][12GR;r;GB;r]l8[GB]rGB;l16[GR;rGB;r]}
STR GG3={SUB{[122r]O1;rREV=100CHO=120'n38n40'rrrREV=0CHO=30}[15GR;rGB;r][GR]GB;r[9GR;r:GB;r]l8[7GB]rrrrrrrrl16}STR GG4={[26GR;GR;GB;r][6GR;rGB;r]SUB{[122r]O1;rREV=100CHO=120'n38n40'rrrREV=0CHO=30}[26GR;GR;GB;r][2GR;rGB;r][4GB;r]rrrrGR;rGB;r}
STR GG3A={SUB{[122r]O1;rREV=100CHO=120'n38n40'rrrREV=0CHO=30}[8'n51n59':[7r]]rrr[GR]GB;rSUB{n49}[9GR;r:GB;r]l8[7GB]rrrrrrrrl16}STR GGK={SUB{[10r]O1;rREV=100CHO=120'n38n40'rrrREV=0CHO=30}['n51n59'[7r]][4'n51n59'r][8r]}
TR=11l16DL=HAZ@27,90,0BR=20p%=-500GGH;GGI;GGJ;DL=BGN@27,90,0BR=20p%=-500GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4;GG1;GGJ;GGH;GGI;DL=ME5-2GGK;DL=ME5;SUB{n49}GG2;GG3;GG4;GG1;GGJ;
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PW={'n31n39```e'}STR PP1={SUB{[122r]O1;rREV=100CHO=120'n38n40```c```d```e'rrrREV=0CHO=30}SUB{PD3}[14rrrrPW;rrr][16r]}
STR PPH={SUB{PD3}[64r][8rrrrPW;rrr]}STR PPI={SUB{PD3}[64r][6rrrrPW;rrr][16r]}STR PPJ={SUB{[3n49[7r]]}[rrrrPW;rrr][16r]}
STR PP2={SUB{[[n35rn39r][n35rn39n39][16r][n35rn39r]n35rn39n39rn39rn39[16r]]}[14rrrrPW;rrr][8r]rrrrPW;rrr}STR PP3={SUB{[122r]O1;rREV=100CHO=120'n38n40```c```d```e'rrrREV=0CHO=30}[12rrrrPW;rrr][32r]}
STR PP4={SUB{[[96r][4'n51n59'rrr][4'n51n59'r]rrrrn49rrr]}SUB{PD3}[14rrrrPW;rrr][16r]PP1}STR PP3A={SUB{[122r]O1;rREV=100CHO=120'n38n40```c```d```e'rrrREV=0CHO=30}[64r][4rrrrPW;rrr][32r]}
STR PWA={'```c```d'}STR PPHA={SUB{PD3}SUB{[4[3PWA;rrr][PWA]rr][16PWA;r][28PWA]}[64r][8rrrrPW;rrr]}
STR PPK={rrrrPW;rrr;rrO1;rREV=100CHO=120'n38n40```c```d```e'rrrREV=0CHO=30[16r]}
TR=12l16DL=HAZ@121,100,0PPH;PPI;PPJ;DL=BGN@121,100,0PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4;PP1;PPJ;PPHA;PPI;PPK;DL=ME5;PP2;PP3;PP4;PP1;PPJ;
/*13*/STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr}
STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
STR DS18={[8r]`gr`drrrar}STR DS19={rr`gr`gr`dr`g`e`dbagec}STR DS20={`g`d`g`grr`db`grrrgrrr}STR DS21={rr`g`e`dr`cbg`gr`dggrd}STR DS22={[8r]g`g`gr`er`cr}STR DS23={`g`g`gr`er`er`cr`crbrgr}STR DS24={`g`g`gr`er`er`grrr`crrr}
TR=13l16<DL=HAZ@119,9PG1;DL=HAZ+7DS20;DL=HAZ+15DS22;DL=BGN+3DS18;DL=BGN+7DS19;DL=ME1+7DS20;DL=ME2+6DS21;DL=SB1+3DS22;DL=SB1+7DS23;DL=SB1+11DS22;DL=SB1+15DS24;DL=RF1+3DS18;DL=RF1+7DS19;DL=ME3+7DS20;DL=ME4+6DS21;
DL=SB2+3DS22;DL=SB2+7DS23;DL=SB2+11DS22;DL=SB2+15DS24;DL=RF2+3DS18;DL=RF2+7DS19;DL=NK1+7DS20;DL=NK1+15DS22;DL=ME5-1DS18;DL=ME5+7DS20;DL=ME6+6DS21;DL=SB3+3DS22;DL=SB3+7DS23;DL=SB3+11DS22;DL=SB3+15DS24;DL=RF3+3DS18;DL=RF3+7DS19;
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={SPA@39,8EP=80l16<HAM2({[8aaraarar:aa"aa`ca`d`c]aaraarar})>}
STR SPI={SPA@81,8EP=90l16[14ae`ce`de`ee][16r]}STR SPJ={SPA@81,8EP=90l16[3ae`ce`de`ee][8r]}STR SP1={SPA@81,8EP=90l16[14ae`ce`de`ee][16r]}
STR SP2={P=24/*@4,110,0*/@82,110,5EP=70l8[[8r'aec'][4r'afc'][4r'gd"b']]}
STR SP3={P=24/*@4,110,0*/@82,110,5EP=80 M.onCycle(!4,0,0,0,60)CHO.onCycle(!4,20,20,20,100)l8[[4r'afc'][4r'bgd']:[4r'bge'][4r'`cae']][4r'`cae'][8r]M=0CHO=20}
STR SP3A={P=24/*@4,110,0*/@82,110,5EP=80 M.onCycle(!4,0,0,0,60)CHO.onCycle(!4,20,20,20,100)l8[32r][4r'afc'][4r'bgd'][4r'`cae'][8r]M=0CHO=20}
STR SP4={SPA@81,8EP=90l16[[14ae`ce`de`ee][16r]]}STR SPK={SPA@81,8EP=90l16[ae`ce`de`ee][16r]}
TR=14DL=HAZ;SPH;SPI;SPJ;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3A;SP4;SP1;SPJ;DL=NK1;SPH;SPI;SPK;DL=ME5;SP2;SP3;SP4;SP1;SPJ;
/*15*/STR FTH={@56,90,0EP=110l8[32r]HAM({[arrararararaa:rgr]rrr})}STR FTI={@56,90,0EP=110HAM2({l16[[araaarararr`crr`dr:araaarararrgrrer]:arrarrararargrer]l8araraarr})}
STR FTJ={@82,110,0EP=110M.W(30,100,!16)l16HAM({[3'`e`ca'^^r'`e`ca'r['`e`ca']]'`e`ca'^^^^rrr})}
STR FT1={[@82,110,0EP=110M.W(30,100,!16)l16HAM({'`e`ca'^^r'`e`ca'r['`e`ca']'`dbg'^'`dbg'^^r'`dbg'^^r'`dbg'^'`dbg'^'bge'^})@56,90,0EP=120M=0HAM({'`dbg'^^^'`e`ca'^^^})@82,110,0EP=110M.W(30,100,!16):
HAM({'`e`ca'^^r'`e`ca'r['`e`ca']'`dbg'^'`dbg'^^r'bge'^'`g`db'^'`f`db'r'`e`ca'r'`e`ca''`dbg'^^'`cge''`cge''`dbg'r'`e`ca'r})]
HAM({l8['`e`ca'r][3'`e`ca']'`dbg'r[3'`dbg']'`dbg'^^^})M=0}
STR FT2={[@31,110,0l8EP=80M=0"a"a"a'aec'^^"a"a"a"a'aec'^"a'aec'^'aec';"f"f"f'afc'^^^^:>@11,0EP=110'gd"b''gd"b'^'gd"b'^^^r<]>@56,90,0EP=100SUB{"b"b^"b^^^}SUB{dd^d^^^}gg^g^^^r<}
STR FT3={@51,110,0EP=90l8HAM({[SUB{f^^^^^^^dfgad`cba}a^^^^^^^gb`c`dg`f`e`d:SUB{g^^^^^^^egabe`ebg}b^^^^^^^a`c`d`ea`a`e`c]})l8r@82,110,0EP=100'aec''aec''aec''aec''aec''aec''`e`ca'^^^^rrrr}
STR FT4={[[@82,110,0EP=110M.W(30,100,!16)l16'`e`ca'^^r'`e`ca'^^r'`dbg'^^^rrl8'`dbg'^[3'`dbg']'`dbg'^'`e`ca'^:l16'`e`ca'^^r'`e`ca'^^r'`dbg'^^^rrl8@100,0M=0EP=127HAM({SUB{d`d`cba^gab}>g`g`f`e`d^`c`d`e<})]
:@82,110,0[4'`caf'^][3'`dbg']@56,90,0EP=120HAM({'`dbg'^^'`dbg'^})]@31,110,0EP=100M=0[4'`e`ca'^][3'`dbg']'`dbg'^^^r}
STR FTK={@82,110,0l8EP=127BR=12p.T(64,64,!4,64,127,!2^4)'`cae'^^^^^^^p=64@56,90,0HAM({aagarrrr})}
TR=15DL=HAZ;FTH;FTI;FTJ;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;FT1;FTJ;DL=NK1;FTH;FTI;FTK;DL=ME5;FT2;FT3;FT4;FT1;FTJ;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}
STR BG10={V=127l4BR=24p.T(64,0,!1)@128,3'gab'^^^^^^^V=100}STR BG11={l4[@123,2P=64CHO=127REV=127'>"dg`d<'^^^^^^^REV=10CHO=20:[8r]]}
STR BG12={@125,4P.onCycle(!16,0,127)BR=32p.T(127,64,!1)CHO=127REV=127l16[16'`g`f`e']P=64CHO=20REV=10}
STR BG13={@80,0l4rrrBR=120l8rl16P.onCycle(!16,0,127)[p.T(127,0,!24)'`g`d']P=64p=64}
STR BG14={@128,3l1CHO=127REV=127p.T(64,64,!1,64,127,!1)'cde"a"b'^rCHO=20}
TR=16DL=HAZ+7BG13;DL=HAZ+14BG12;BG3;DL=BGN-2BG1;BG2;DL=BGN;BG11;DL=BGN+6BG1;BG2;DL=ME1+7BG13;DL=ME2+6BG1;BG2;DL=SB1+6BG12;DL=SB1+14BG12;BG2;DL=RF1;BG11;DL=RF1+6BG1;BG2;DL=ME3+7BG13;DL=ME4+6BG1;BG2;
DL=SB2+6BG12;DL=SB2+14BG12;BG2;DL=RF2;BG11;DL=RF2+6BG1;BG2;BG1;BG2;DL=NK1+7BG13;DL=NK1+14BG12;BG3;BG1;BG2;DL=ME5+7BG13;DL=ME6+6BG1;BG2;DL=SB3+6BG12;DL=SB3+14BG12;BG2;DL=RF3;BG11;DL=RF3+6BG1;BG2;BG1;BG2;
BG14;

}

If(TRACK_SELECT==2){

INT EST=157PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"FROM MIDDLE EAST MOON"}Copyright={H�J}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+35;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,5,2,127,09,0)WIN(07,07,039,08,0,K,054,2,0,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,001,90,0,K,064,2,2,127,09,0)WIN(08,08,012,00,0,K,000,5,2,110,09,2)WIN(14,14,082,01,0,K,107,2,2,127,09,0)
WIN(03,03,089,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,5,2,110,09,2)WIN(15,15,003,00,0,K,020,2,2,110,10,0)
WIN(04,04,099,01,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,074,2,0,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,110,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=41INT RF1=57INT ME3=65INT ME4=73INT SB2=81INT NK1=97INT RF2=113INT NK2=121INT ME5=123INT ME6=131INT SB3=139INT END=155
STR SBUP={TrackKey=(K+1)}
/*1*/STR MNH={a^^a^^^^^^^^^^rrb^^b^^^^^^^^^^rr`c^^`c^^^^`d^^^^^rr`c^^^^^^^b^^^^}
STR MNI={ab`c;`c^b^`ca^`c^b`cf^^rrb^a^ba^b^abe^^rr;afga^fga^fga`cb`c`d`e^`d`d^`c^`e^^rr}
STR MN1={agaga`c^a^gagab`c`c^f^f^^r`c^f^f^^^rafafab`ca^fafab`cb^b^b^`c^`d^^^^^rrr/*babab`c`db^abab`c`d`f^`e^`e^r`d`cbeg#b`e`d`c^*/}
STR MN2={bebeb`d^`c^`c`c`d`e`d`cb`dg`dg`d`f^`e^`c`c`d`e`d`c^;bebeb`d^`c^a^`c`c`c`d`e`f^`e`d^`c^`e^^^rr}
STR MN3={ab`c[`c^b^`ca^`c^b`cf^^rrb^a^ba^b^abe^^rr:a^g^a`cra^^g^ab`c`c^b^b^a^b^^rraab`c]afga^fga^fga`cb`c`d`e^`d`d^`c^`e^^rr}
STR MN4={agaga`c^a^gagab`c`c^f^f^^r`c^f^f^^^r}
STR MN5={ab`c[`c^b^`ca^`c^b`cf^^rrb^a^ba^b^abe^^rr:a^g^a`cra^^g^ab`c`c^b^b^a^b^^rrSBUP;aab`c]afga^fga^fga`cb`c`d`e^`d`d^`c^`e^^rrTrackKey=K;}
TR=1l8>HAM2({DL=HAZ;MNH;MNI;DL=ME1;V=100MN1;MN2;V=110MN3;DL=ME3;MN1;MN2;MN3;DL=NK1[MNH;rrr]DL=ME5;MN4;DL=SB3-1l8[5r]MN5;})
/*2&3&4*/STR RTA={BR=6If(CH==3){p%=200@100,0}If(CH==4){p%=-200@99,1}}
STR RTH={RTA;SUB{If(CH!=2){@11,0[EP=120`e^^^^^^^^a`c`da`g`f`e`f^^^^^^^^gb`cg`d`cb`c^^^^^^^:rab`c`cb`c`d`e^^^^^^^rrrrrrrr]rab`c`e`d`e`f`g^`g`g^`g^`e^^}}
EP=100y64=127"e"aea^^^y64=0ry64=127"acea^^^y64=0ry64=127"g"bdb^^^y64=0ry64=127"bdgb^^^y64=0ry64=127"acea^^^y64=0ry64=127"fdfa^^^y64=0ry64=127"ecea^^^y64=0ry64=127"beg#b^^^y64=0r}
STR RT1={RTA;EP=127`ea`c`e`ga`g`f^`d`d`e`f`e`d`c`dgb`d`fg`f`e^`c`c`d`e`d`cb;`cfa`c`ef`e`d^bb`c`d`cba`e^`f`e^`d^`e^bb`c`d`cbe/*begb`fe`f`e^bb`c`d`cbe*/}
STR RT2={RTA;If(CH!=2){@11,0EP=120[`e^^^^^^^^a`c`da`g`f`e`f^^^^^^^^gb`cg`d`cb`c^^^^^^^:rrrrab`c`e^`d^`d^`c^b^^rrrrrr]rab`c`e`d`e`f`g^`g`g^`g^`e^^}}
STR RT3={RTA;If(CH!=2){@89,0EP=110`e^^^^^^^^a`c`da`g`f`e`f^^^^^^^`d^^^^^^^`e^^^^a`c`d`e^^^^^^^`g^^^^b`c`d`g^^^^^^^}}
STR RT4={RTA;If(CH!=2){@11,0EP=120SUB{[64r]`e^`d^`ea^`f^`e`f`d^^^r`d^`c^`dg^`e^`d`e`c^^^r}
[`e^^^^^^^^a`c`da`g`f`e`f^^^^^^^^gb`cg`d`cb`c^^^^^^^:rrrrab`c`e^`d^`d^`c^b^^rrrrrr]rab`c`e`d`e`f`g^`g`g^`g^`e^^}}
STR RT5={RTA;If(CH!=2){@11,0EP=120[`e^^^^^^^^a`c`da`g`f`e`f^^^^^^^^gb`cg`d`cb`c^^^^^^^:rrrrab`c`e^`d^`d^`c^b^^rrrrrrSBUP]rab`c`e`d`e`f`g^`g`g^`g^`e^^}TrackKey=K}
STR RRF={l8DL=HAZ;RTH;DL=BGN;RT1;DL=SB1;RT2;DL=RF1;RT1;RT3;DL=SB2;RT4;DL=NK1;RTH;DL=RF2;RT1;DL=SB3;RT5;DL=END;SBUP[RT1:REC2]TrackKey=K}
TR=2@1,90,0V=120HAM3({RRF})TR=3@100,0HAM({RRF})TR=4@99,1HAM({RRF})
/*5*/STR BSA={q.onCycle(!8,50,100)}STR BSH={l4q=100rrrea^^ad^^dg^^gc^^cf^^fd^^de^^ee^^^l8q=90}STR BSI={BSA[4a`a][4d`d][4g`g][4c`c][4f`f][4d`d]e^eerere^^^^^rrr}
STR BSJ={l4q=100a^^ad^^dg^^gc^^cf^^fd^^de^^ee^^^l8q=90}
STR BS1={[4a`a][4d`d][4g`g][4c`c][4f`f][4"bb]q=90e^eerere[8r]BSA}STR BS2={[8a`a][8d`d][8f`f][8g`g]}
STR BS3={[4e`e][4a`a][4g`g][4c`c][4e`e][4a`a]q=90d^ddrdre^^^^^rrrBSA}STR BS4={[[4a`a][4d`d][4g`g][4c`c][4f`f][4d`d]:[8e`e]]e^eerere^^^^^rrr}
STR BS5={l4q=90e^^^a^^^g^^^c^^^l8BSA[4e`e][4a`a]q=90d^ddrdre^^^^^rrrBSA}STR BS6={[4a`a][4d`d][4g`g][4c`c][4f`f][4d`d]q=90e^eerere[8r]BSA}
STR BS7={q=90a^^^^^^^aaaaraarBSA}STR BS8={[[4a`a][4d`d][4g`g][4c`c][4f`f][4d`d]:[8e`e]SBUP]e^eerere^^^^^rrrTrackKey=K}
STR BASS={l8<<DL=HAZ-1REV=50BSH;BSI;DL=BGN;BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS5;BS4;DL=NK1;BSJ;BSI;BS6;BS7;BS2;BS3;BS8;DL=END;SBUP[BS1:REC2]TrackKey=K}TR=5;<@40,90,0BASS;TR=7@35,90,1BASS;
/*6*/STR COH={@49,90,1;>EP=80'`caec'^^^'ad"a"f'^^^'bgd"b'^^^'gc"g"e'^^^'afc"a'^^^'ad"a"f'^^^'"begb'^^^'"beg#b'^^^<}
STR COI={@49,90,1EP=100'`caec'^^^'ad"a"f'^^^'bgd"b'^^^'gc"g"e'^^^'afc"a'^^^'ad"a"f'^^^l8'be"b"g#'^['be"b"g#']r'be"b"g#'r'be"b"g#'^^^^^rrrl4}
STR CO1={/*@55,110,8*/@49,90,1;>EP=100'`caec'^^^'ad"a"f'^^^'bgd"b'^^^'gc"g"e'^^^'afc"a'^^^'bd"b"f#'^^^l8'ge"b"g'^'ge"b"g'['ge"b"g'r]'ge"b"g'^rrrrrrrl4<}
STR CO2={@49,90,1EP=90l4[23r]l8HAM({rrSUB{g^g^g^a^b^^^^}b^b^b^`c^`d^^^^rrr})l4}
STR CO3={@49,90,1EP=90l8SUB{HAM({[b^^^e^^^`c^a^e^^^:b^^^g^^^`e^^^`c^^^]`c^`c`cr`crb^^^^^rrr})}l4['bge'^^^'aec'^^^:'gd"b'^^^'gec'^^^]l8'afd'^'afd'['afd'r]'bge'^^^^^rrrl4}
STR CO4={@49,90,1EP=100['`caec'^^^'ad"a"f'^^^'bgd"b'^^^'gc"g"e'^^^'afc"a'^^^'ad"a"f'^^^:'be"b"g#'^^^^^^^]l8'be"b"g#'^['be"b"g#']r'be"b"g#'r'be"b"g#'^^^^^rrrl4}
STR CO5={@49,90,1;>EP=100'`caec'^^^'ad"a"f'^^^'bgd"b'^^^'gc"g"e'^^^'afc"a'^^^'"adf#a'^^^l8'ge"b"g'^'ge"b"g'['ge"b"g'r]'ge"b"g'^rrrrrrrl4<}
STR CO6={@55,110,8l4'`caec'^^^l8[4'`caec']r['`caec']r}STR CO7={@49,90,1EP=100['`caec'^^^'ad"a"f'^^^'bgd"b'^^^'gc"g"e'^^^'afc"a'^^^'ad"a"f'^^^:'be"b"g#'^^^^^^^SBUP]l8'be"b"g#'^['be"b"g#']r'be"b"g#'r'be"b"g#'^^^^^rrrl4TrackKey=K}
TR=6@49DL=HAZ;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3;CO4;DL=NK1;COH;COI;DL=RF2;CO5;CO6;CO2;CO3;CO7;DL=END;SBUP[CO1:REC2]TrackKey=K
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR ULH={ULA;l8'ec'^^'ec'^^^^^^^^^^rr'gd'^^'gd'^^^^^^^^^^rr'af'^^'af'^^^^^^^^^^rr'ae'^^^^^^^'g#e'^^^^}
STR ULI={ULA;EP=100SUB{MNI}HAM({SUB{def;`e^`d^`e`c^`e^`d`ea^^rr`d^`c^`d`c^`d^`c`dg^^rr}
fga;a^g^ae^a^gad^^rr;g^f^gf^g^fgc^^rr;SUB{ffff^fff^ffddddde^ee^e^e^^}fcdf^cdf^cdfagab`c^bb^a^b^^rr})}
STR UL1={ULA;l8EP=100ededea^e^dedegaSUB{`e^a^a^^r`e^a^a^^^}a^d^d^^ra^d^d^^^rececegae^cecegaSUB{`d^`d^`d^`e^`g^^^^^}g^g^g^a^b^^^^^rrr}
STR UL2={ULA;EP=100g"bg"bgb^a^aab`cbagbdbdb`d^`c^SUB{`e`e`g`a`g`e^}aab`cba^;g"bg"bgb^a^c^aaab`cSUB{a^aa^a^b^^^}`f^`f`f^`f^`e^^^rr/*`d^`cb^a^b^^^rr*/}
STR UL3={ULA;EP=100SUB{MN3}HAM({SUB{def[`e^`d^`e`c^`e^`d`ea^^rr`d^`c^`d`c^`d^`c`dg^^rr:>c^c^ccrc^^c^cccc^"b^"b^"a^"g#^^rrccde<]}
fga[a^g^ae^a^gad^^rr;g^f^gf^g^fgc^^rr:f^e^ffrf^^e^ffff^e^e^e^e^^rreega]SUB{ffff^fff^ffddddde^ee^e^e^^}fcdf^cdf^cdfagab`c^bb^a^b^^rr})}
STR UL4={ULA;l8EP=100ededea^e^dedegaSUB{`e^a^a^^r`e^a^a^^^}a^d^d^^ra^d^d^^^r}
STR UL5={ULA;EP=100SUB{MN5}HAM({SUB{TrackKey=K;def[`e^`d^`e`c^`e^`d`ea^^rr`d^`c^`d`c^`d^`c`dg^^rr:>c^c^ccrc^^c^cccc^"b^"b^"a^"g#^^rrSBUP;ccde<]}
TrackKey=K;fga[a^g^ae^a^gad^^rr;g^f^gf^g^fgc^^rr:f^e^ffrf^^e^ffff^e^e^e^e^^rrSBUP;eega]SUB{ffff^fff^ffddddde^ee^e^e^^}fcdf^cdf^cdfagab`c^bb^a^b^^rr})TrackKey=K}
STR ULMR={HAM({DL=HAZ;ULH})ULI;HAM({DL=ME1;UL1;UL2})UL3;HAM({DL=ME3;UL1;UL2})UL3;HAM({DL=NK1[ULH;rrr]DL=ME5;UL4;DL=SB3-1l8[5r]UL5;})}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n32n33n35n36}STR O1={'OA'}STR O2={'OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDI={O3[31r]O4[31r][8O1;rrr]l8O1;r[O1]rO1;rO1;rrrrrrrrl16}
STR DD1={[12O1;rrrO2;rrr]l8O1;rO1[O1;r]O1;rrrrrrrrl16}STR DD2={SUB{[94r][5'n55'rrr]}[32O1;rrr]/*[5O1;rrr][4O1;r]rrO1;rrr*/}
STR DD3={[16O1;r:rr]O1;r[8O1;rrr]l8O1;r[O1]rO1;rO1;rrrrrrrrl16}STR DD4={SUB{[94r][5'n55'rrr]}[32O1;rr:r]O1[24O1;rrr]l8O1;r[O1]rO1;rO1;rrrrrrrrl16}
STR DD5={[O3[15r]O4[15r]][8O1;rrr]l8O1;r[O1]rO1;rO1;rrrrrrrrl16}STR DD6={O3[15r]l8[4O1]r[O1]rl16}
TR=10l16DL=HAZ+8BR=20p%=1000REV=20@27,7,0V=120DDI;DL=BGN;BR=20p%=1000REV=20/*@9,90,1@1,100,0@121,100,0*/@27,7,0V=120DD1;DD2;DD3;DD4;DD1;DD2;DD5;DD4;DL=NK1+8DDI;DD1;DD6;DD2;DD3;DD4;DL=END[DD1:REC2]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]}
STR GGI={[16GR;rGB;r][8[GR]GB;r]l8GB;r[GB]rGB;rGB;rrrrrrl16REV=100'n38n40'rrrREV=0l16}
STR GG1={[24GR;rGB;r]l8GB;rGR[GB;r]GB;rrrrrrrrl16}STR GG2={SUB{[30r]n49[15r]n49}[32GR;rGB;r]}STR GG3={[15GR;r:GB;r][GB][GB;r][8GR;rGB;r]l8GB;rGR;GB;r[GB;r]rrrrrl16REV=100'n38n40'rrrREV=0}
STR GG4={[28[GR]GB;r]GP1[24[GR]GB;r]l8GB;r[GB]rGB;rGB;rrrrrrl16REV=100'n38n40'rrrREV=0l16}STR GG5={[8'n51'[7r]][8GR;rGB;r]l8GB;rGR;GB;r[GB;r]rrrrrl16REV=100'n38n40'rrrREV=0}
STR GG6={[4GR;rGB;r]l8[4GB]r[GB]rl16}
TR=11l16DL=HAZ+8BR=20p%=1000@1,100,0V=110GGI;DL=BGN;BR=20p%=1000@1,100,0V=110GG1;GG2;GG3;GG4;GG1;GG2;GG5;GG4;DL=NK1+8GGI;GG1;GG6;GG2;GG3;GG4;DL=END[GG1:REC2]
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PPI={SUB{PD3}[64r][4rrrr'n38n40'rrr][28r]BR=20p%=-2000'n38n40'rrrp%=1000}
STR PP1={SUB{PD3}[12rrrr'n38n40'rrr][32r]}STR PP2={SUB{[94r][5'n51n59'rrr]}[16rrrr'n38n40'rrr]}STR PP3={[12rrrr'n38n40'rrr][28r]BR=20p%=-2000'n38n40'rrrp%=1000}
STR PP4={SUB{[PD3]}SUB{[94r][5'n51n59'rrr]}[28rrrr'n38n40'rrr][28r]BR=20p%=-2000'n38n40'rrrp%=1000}STR PP5={[64r][4rrrr'n38n40'rrr][28r]BR=20p%=-2000'n38n40'rrrp%=1000}
STR PP6={[28r]BR=20p%=-2000'n38n40'rrrp%=1000}
TR=12l16DL=HAZ+8@1,100,0BR=20p%=1000V=110PPI;DL=BGN@1,100,0BR=20p%=1000V=110PP1;PP2;PP3;PP4;PP1;PP2;PP5;PP4;DL=NK1+8PPI;PP1;PP6;DL=ME5;PP2;PP3;PP4;DL=END[PP1:REC2]
/*13*/STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr}
STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
STR DS18={gr`g`fr`fr`f`er`e`dr`dr`d`cr;`g`g`d`dbr`gr`erbrgr}STR DS19={rr`g`dr`dbrbgrgbrgr}STR DS20={[8r]rr`g`darfr}STR DS21={rrbaragrgfrfedc"b}STR DS22={`g`er`e`cr`carabrarer}
TR=13l16<DL=HAZ@119,9PG1;DL=HAZ+7DS22;DL=HAZ+11DS19;DL=BGN+3DS6;DL=BGN+6P=64DS18;DL=ME1+7DS19;DL=ME2;PG1;DL=ME2+3DS20;DL=ME2+7P=64DS21;DL=SB1+7DS22;DL=SB1+15DS19;DL=RF1+3DS6;DL=RF1+6P=64DS18;
DL=ME3+7DS19;DL=ME4;PG1;DL=ME4+3DS20;DL=ME4+7P=64DS21;DL=SB2+7DS22;DL=SB2+15DS19;DL=NK1;PG1;DL=NK1+7DS22;DL=NK1+11DS19;DL=RF2+3DS6;DL=RF2+6P=64DS18;DL=NK2+1DS20;DL=ME5+7DS19;DL=ME6;PG1;DL=ME6+3DS20;DL=ME6+7P=64DS21;
DL=SB3+7DS22;DL=SB3+15DS19;DL=END+3DS6;DL=END+6P=64DS18;DL=END+8REC2;DL=END+11DS6;
/*14*/STR LC={"cceg`c}STR LC2={"ccea`c}STR LD={"ddfa`d}STR LD2={"ddfa`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LE2={"eeg#b`e}STR LF={"ffa`c`f}STR LFS={"f#f#a`c#`f#}
STR LG={"ggb`d`g}STR LA={"aa`c`e`a}STR LA2={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`d`f#`b}STR LB2={"bb`d#`f#`b}STR LB3={"bb`e`g#`b}
STR PSS={Play(,,,,,,,,,,,,,,MID(SWE,1,2))}FUNCTION PDA(STR SWE){l8PSS;l16'SWE'r[4PSS'SWE'r]}FUNCTION PDB(STR SWE){l8PSS;l16'SWE'r[PSS:'SWE'r]}FUNCTION PDC(STR SWE){[3'SWE'r:PSS]}
FUNCTION PDD(STR SWE,STR FF1){l8FF1;l16'SWE'r[4FF1'SWE'r]}FUNCTION SPC(STR SPD){['SPD'^rr]['SPD'^^]'SPD'^}
STR SPH={@3,0EP=90l8q=100SUB{<"e"b"a"b"g"b"f#"b>}r['`ebge'^]'`ebge'^'`ebge'EP=100SUB{[['aec'^^]'aec'^][['bge'^^]'bge'^]['`caf'^^]'`caf'^['`daf'^^]'`daf'^['`caf'^^]'`caf'^['bg#e'^^]'bg#e'^}
["aece][dfef]["gd"bd][cede]["aece]["fdcd]["eede][cede]q=90}
STR SPI={@1,90,0EP=100l16PDA=LA;PDA=LD;PDA=LG;PDA=LC;PDA=LF;PDA=LD[32r]}
STR SPJ={@3,0l8q=100EP=100SUB{[['aec'^^]'aec'^][['bge'^^]'bge'^]['`caf'^^]'`caf'^['`daf'^^]'`daf'^['`caf'^^]'`caf'^['bg#e'^^]'bg#e'^}
["aece][dfef]["gd"bd][cede]["aece]["fdcd]["eede][cede]q=90}
STR SP1={@1,90,0EP=110PDA=LA;PDA=LD;PDA=LG;PDA=LC;PDA=LF<PDA=LB>l16[30r]}
STR SP2={@1,90,0EP=90l8['"aa'^'"aa''LA'^^^^]['>LE<'^'"ff'^'"ff'^^^]SUB{r["ffga"fab`c]["ggab"gb`c`d]}['"ff'^'"ff''LF'^^^^]['"gg'^'"gg''LG'^^^^]l16}
STR SP3={@1,90,0EP=90l8['"ee'^'"ee''LE'^^^^;'"aa'^'"aa''LA'^^^^:'"gg'^'"gg''LG'^^^^;'"cc'^'"cc''LC'^^^^]r>'LC'^'LC'['LC'r]<'LB'^^^^^rrr}
STR SP4={@1,90,0EP=100[PDA=LA;PDA=LD;PDA=LG;PDA=LC;PDA=LF;PDA=LD:[PDA=LE]][32r]}
STR SP5={@1,90,0EP=110PDA=LA;PDA=LD;PDA=LG;PDA=LC;PDA=LF;PDA=LD;l16[32r]}
STR SP6={@1,90,0EP=110PDA=LA;l8[4'LA']r['LA']r}STR SP7={@1,90,0EP=100[PDA=LA;PDA=LD;PDA=LG;PDA=LC;PDA=LF;PDA=LD:[PDA=LE]SBUP][32r]TrackKey=K}
TR=14DL=HAZ-1SPH;DL=HAZ+8SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;DL=NK1;SPJ;SPI;SP5;SP6;DL=ME5;SP2;SP3;SP7;DL=END;SBUP[SP1:REC2]TrackKey=K
/*15*/STR FTA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}
STR FTI={l8@82,110,0P=107EP=110[13r]BR=12p.T(0,0,!16,0,64,!16)'`daf'^[14r]'`cge''`cge'^[5r]'`caf''`caf'r
[5r]'`caf''`caf'r@56,90,0'`e`c'r['`e`c']r'`eb'r'`eg#'rrrrrrrr}
STR FT1={@82,110,0EP=110l16MD({'`e`ca'^^r'`e`ca'^^r},1,!2)[6r]MD({'`daf'^^r'd"a'^'`daf'^^r},1,!2)[6r]MD({'`dbg'^^r'gd'^'`dbg'^^r},1,!2)[6r]MD({'`cge'^^r'c"g'^'`cge'^^r},1,!2)[6r]
MD({'`caf'^^r'fc'^'`caf'^^r},1,!2)[6r]MD({'bf#d'^^r'"b"f#'^'bf#d'^^r},1,!2)[8r]@56,90,0EP=110l8'`e`c'^'`f`c''`e`c'r'`d`c'r'`eb'^/*'`e`ca'^'`f`da''`e`ca'r'`dbg'r'`e`ca'^*/rrrrrrr}
STR FT2={FTA@46,0EP=127l8[ae`ce`de`e`d]fdad`cd`d`cP=107EP=90@100,0HAM({>SUB{"ccde"cagf}"ffga"f`cba<})@46,0EP=127rFTA[dad`cd`d:`cf]P=107EP=90@82,110,1[3'bgd'^]'`cge'^'`dbg'^^^^^rrr}
STR FT3={[FTA@47,0EP=110l8>SUB{"beg"bg"beg;egaeaega}egbebegb;ab`ca`cab`c:SUB{"bdg"bg"bdg;a}gb`dg`dgb`d;`c@82,110,0P=107q=70EP=110SUB{eeeeec^}SUB{aaaaae^}`c`c`c`c`ca^<q=100]<@56,90,0P=107EP=110'`f`d'^'`f`d'['`f`d'r]'`eb'^^^^rrrr}
STR FT4={[@82,110,0P=107EP=110[13r]BR=12p.T(0,0,!16,0,64,!16)'`daf'^[14r]'`cge''`cge'^[5r]'`caf''`caf'r:[7r]>@99,1EP=127'`caf'r'bg#e'r'bg#e'r'aec'r'g#e"b'^^^^^rrr<]
[5r]'`caf''`caf'r@56,90,0'`e`c'r['`e`c']r'`eb'r'`eg#'rrrrrrrr}
STR FT5={FTA@47,0EP=110l8[32r]>SUB{"beg"bg"beg;egaeaega}egbebegb;ab`ca`cab`c<@56,90,0P=107EP=110'`f`d'^'`f`d'['`f`d'r]'`eb'^^^^rrrr}
STR FT6={@82,110,0EP=110l16MD({'`e`ca'^^r'`e`ca'^^r},1,!2)[6r]MD({'`daf'^^r'd"a'^'`daf'^^r},1,!2)[6r]MD({'`dbg'^^r'gd'^'`dbg'^^r},1,!2)[6r]MD({'`cge'^^r'c"g'^'`cge'^^r},1,!2)[6r]
MD({'`caf'^^r'fc'^'`caf'^^r},1,!2)[6r]MD({'`dad'^^r'"a"f#'^'`dad'^^r},1,!2)[8r]@56,90,0EP=110l8'`e`c'^'`f`c''`e`c'r'`d`c'r'`eb'^/*'`e`ca'^'`f`da''`e`ca'r'`dbg'r'`e`ca'^*/rrrrrrr}
STR FT7={@82,110,0EP=110l16MD({'`e`ca'^^r'`e`ca'^^r},1,!2)[8r]@56,90,0EP=110l8HAM({gae`crgar})}
STR FT8={[@82,110,0P=107EP=110[13r]BR=12p.T(0,0,!16,0,64,!16)'`daf'^[14r]'`cge''`cge'^[5r]'`caf''`caf'r:[7r]>@99,1EP=127'`caf'r'bg#e'r'bg#e'r'aec'r'g#e"b'^^^^^rrr<SBUP]
[5r]'`caf''`caf'r@56,90,0'`e`c'r['`e`c']r'`eb'r'`eg#'rrrrrrrrTrackKey=K}
TR=15DL=HAZ+8FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT5;FT4;DL=NK1+8FTI;FT6;FT7;DL=ME5;FT2;FT3;FT8;DL=END;SBUP[FT1:REC2]TrackKey=K
/*16*/STR BGH={@127,4l4REV=30CHO=50EP=110[18'<ce>cde'^]REV=10CHO=20EP=127}
STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}
STR BG10={>>@123,5l32P=70BR=36p.T(64,32,!1)[6`e]rr[[3`e]r]rrrr[4`e]rrrr[4`e]p.T(64,32,!2^4)[24`e]<<p=64 @80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG11={>>@123,5l32P=70BR=36p.T(64,32,!1^2^4)[6`e]rr[[3`e]r]rrrr[4`e]rrrr[4`e][24`e]<<p=64 @80,0l4BR=120p.T(127,0,!6)`gp=64}
TR=16DL=HAZ-1BGH;DL=HAZ+14BG11;DL=BGN+6BG10;DL=ME2+6BG1;BG2;DL=SB1+6BG1;DL=SB1+14BG11;DL=RF1+6BG10;DL=ME4+6BG1;BG2;DL=SB2+6BG1;DL=SB2+14BG11;DL=NK1+14BG11;DL=RF2+6BG10;
DL=NK2;BG1;BG2;DL=ME6+6BG1;BG2;DL=SB3+6BG1;DL=SB3+14BG11;DL=END+6BG10;

}

If(TRACK_SELECT==3){

INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"BAILA PARA LA GENTE"}Copyright={H�J}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,7,2,127,09,0)WIN(07,07,039,08,0,K,074,1,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,082,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,7,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,10,0)
WIN(03,03,081,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,7,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,083,00,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,7,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,2,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=41INT RF1=49INT ME3=57INT ME4=65INT SB2=73INT RF2=89INT ME5=97INT ME6=105INT NK1=113INT SB3=130INT RF3=138INT END=146
/*1*/STR MNH={[3MD({b^b^^},1,!1)[11r]][b^b^^rrr]}STR MNI={[b^b^^ege:MD({b^b^^},6,!2)rrr:[16r]]b^b^^egebef#gageb^^b^}
STR MN1={[e"be"begre^"be"bef#g:f#^e^"b^^rd^"b^"b^^rr]f#^e^b^^rd^"b^b^^rr}
STR MN2={eeeeegre^eeeef#gf#^e^d^^rf#^e^d^r"b"bc"bcb^^d"bc"bcb^^agf#g^f#^f#f#ab^^^r}
STR MN3={ege[b^b^^egeb^b^^ege:bbb`c^bagab^b^^^r]bef#gageb^^b^r}STR MN4={b^b^^l16bbbrbrl8[b^b^^egeb^b^^ege:bbb`c^bagab^b^^^r]bef#gageb^^b^r}
TR=1l8>HAM2({DL=HAZ;MNH;MNI;DL=ME1;MN1;V=110MN2;MN3;DL=ME3;MN1;MN2[MN3]DL=NK1;MNH;MNI;DL=SB3-1MN4;DL=END;b^b^^;})
/*2&3&4*/STR RTA={BR=6If(CH==3){p%=200}If(CH==4){p%=-200}}STR RTH={@82,110,0EP=90RTA;HAM({<"b^^^^^^^&&e^^^^^^[7de^^^^^^]>})}
STR RT1={/*@82,110,0*/@82,110,1EP=115CHO=50SUB{[g^g^egrg^dgb^agf#g^g^f#gr[9r]]}HAM({SUB{["b^"b^"a"br"b^"f#"bd^c#"b"a"b^"b^"a"bre^^^^^^^r]}})
HAM2({[RTA;e^e^dere^"beg^f#ede^e^der
If(CH==2){a&&b^^^^^^r}Else{BR=2If(CH==3){p%.T(200,8192,!8)}Else{p%.T(-200,7992,!8)}a^^^^^^^r}RTA]})}
STR RT2={HAM2({If(CH==2){d&&e^^^^^^r}Else{BR=2If(CH==3){p%.T(200,8192,!8)}Else{p%.T(-200,7992,!8)}d^^^^^^^r}})}
STR RRF={l8DL=HAZ-1RTH;DL=BGN;RT1;DL=RF1;RT1;DL=RF2;RT1;DL=NK1-1RTH;DL=RF3;RT1;RT2;}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,30,100)}STR BSH={q=70[4l8e^e^l16"be^de^g^l8e^e^:l16e"bdegea^]rrrr}
STR BSI={q=95l4e^^^d^^^c^^^"b^d#^l8BSA[e`e][d`d][c`c]["bb]["aa]q=90"a"a"a"b^^"b^^^rrBSA}
STR BS1={[[4e`e][4d`d][4c`c]:["aa]"bbrb]r"b"b"b"brBR=24`b&&"b}STR BS2={[[8e`e][4"aa][4"bb]]}
STR BS3={[8c`c][8"bb][8"aa][4"bb]q=90[3"b^]BR=24`b&&"bBSA}STR BS4={[4e`e][4d`d][4c`c]["bb][d#`d#][e`e][d`d][c`c]["bb]["aa]q=90"a"a"a"b^^"b^^^rrBSA}
STR BS5={q=95l4c^^^^^^^"b^^^^^^^"a^^^^^^^"b^^^"b^^^l8BSA}STR BS6={[12e`e]["aa]"bbrb[4e`e][4d`d][4c`c]r"b"b"b"brBR=24`b&&"b}
STR BS7={[e`e]el16eeererl8BS4}STR BS8={q=95e^^^^^^^erderrrr}
STR BASS={l8<<DL=HAZ;V=120BSH;BSI;DL=BGN;V=120BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS5[BS4]BS6;BS2;BS3;DL=NK1;BSH;BSI;BS7;BS1;BS8;}TR=5@40,90,0BASS;TR=7;<@35,90,1BASS;
/*6*/STR CO1={@49,90,1EP=90SUB{>[b^^^a^b^g^^^:a^b^]<}['`ebg'^^^'`daf#'^^^'`cge'^^^:'aec'^'bf#d'^]rrrr}
STR CO2={@49,90,1EP=80l4HAM({>[`e^^^`e^^^`e^^^:`d^^^]`f#^^^<})}
STR CO3={@49,90,1EP=80SUB{>`e^^`d`e^`e^`f#^^^`d^^^`e^^`d`e^`g^`f#^^^`a^^^<}>'ec"g'^^^^^^^'d"b"f#'^^^^^^^'c"a"e'^^^^^^^'d"b"f#'^^^^^^^<}
STR CO4={>>@49,90,1EP=90'ge"b'^^^'f#d"b'^^^'ec"g'^^^'d"b"f#'^'f#d#"b'^;'ge"b'^'f#d"a'^'ec"g'^'d"b"f#'^'c"a"e'^^^'d"b"f#'^^^<<}
STR CO5={@49,90,1EP=90l4[16r]SUB{>b^^^a^b^g^^^<}'`ebg'^^^'`daf#'^^^'`cge'^^^rrrr}
STR CO6={>>@49,90,1EP=90['ge"b'^^^]'f#d"b'^^^'ec"g'^^^'d"b"f#'^'f#d#"b'^;'ge"b'^'f#d"a'^'ec"g'^'d"b"f#'^'c"a"e'^^^'d"b"f#'^^^<<}
STR CO7={@49,90,1EP=90'`b`ebg'^^^}
TR=6DL=BGN;l4<CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3[CO4]CO5;DL=ME6;CO3;DL=SB3-1CO6;CO1;CO7;
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR ULH={ULA;l8SUB{MNH}[3MD({SUB{e^e^^}g^g^^},1,!1)[11r]][SUB{e^e^^}g^g^^rrr]}
STR ULI={ULA;l8SUB{MNI}[SUB{e^e^^}g^g^^"b"b"b:MD({SUB{e^e^^}g^g^^},6,!2)rrr:[16r]]SUB{e^e^^}g^g^^"b"b"bSUB{eeeeeeed^^d^}gggggggf#^^f#^}
STR UL1={ULA["b"g"b"g"ber"b^"g"b"g"bde:d^"b^"g^^r"a^"f#^"g^^rr]d^"b^g^^r"b^"g^g^^rr}
STR UL2={ULA;cccccdrc^ccccddSUB{e^d^d^^re^d^d^r}"b^"b^"b^^r"b^"b^"b^r"g"g"a"g"ae^^"a"g"a"g"ae^^eeSUB{dd^d^ddd"b^^^}f#f#^f#^f#f#f#f#^^^r}
STR UL3={ULA;SUB{MN3}"b"b"b[SUB{e^e^^}g^g^^"b"b"bSUB{e^e^^}g^g^^"b"b"b:SUB{eeee^eeedd^d^^^}gggg^gggf#f#^f#^^^r]SUB{eeeeeeed^^d^}gggggggf#^^f#^r}
STR UL4={ULA;SUB{MN4}SUB{e^e^^}g^g^^l16[3'eg']r'eg'rl8[SUB{e^e^^}g^g^^"b"b"bSUB{e^e^^}g^g^^"b"b"b:SUB{eeee^eeedd^d^^^}gggg^gggf#f#^f#^^^r]SUB{eeeeeeed^^d^}gggggggf#^^f#^r}
STR ULMR={DL=HAZ;If(CH==8){HAM({ULH;ULI})}Else{HAM2({ULH;ULI})}DL=ME1;l8UL1;UL2;If(CH==8){HAM({UL3})}Else{HAM2({UL3})}
DL=ME3;UL1;UL2;If(CH==8){HAM({[UL3]})}Else{HAM2({[UL3]})}DL=ME5;UL1;DL=NK1;If(CH==8){HAM({ULH;ULI})}Else{HAM2({ULH;ULI})}
DL=SB3-1If(CH==8){HAM({UL4})}Else{HAM2({UL4})}DL=END;If(CH==8){HAM({SUB{e^e^^}g^g^^})}Else{HAM2({SUB{e^e^^}g^g^^})}}TR=8ULMR;TR=9;>ULMR;
/*10*/STR OA={n27n35n36}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDH={l8[O1[6r]O1;O2[7r]][O1;rrO1;O2;rrr:l16[3O1;r:r]l8O2;rrr]l8r[4O1]rO2;rl16}
STR DDI={l16[O3[15r]O4:[15r]][9r][3O1;r][8O1;rrr][7O1;r]O3;rrrrrO4[7r]'n38n40'rrr}
STR DD1={[12O1;rrr]O3;r[4O1;r]rrO1;rrr[12O1;rrr]O3;r[4O1;r]rrO1;rrr}
STR DD2={[[8O1;r:rr]SUB{['n51n59'rrr['n38n40'rrr]rrrr]}rr:[8O1;r:rr][O1]][8O1;rrr]}STR DD3={[28O1;rrr]O3;rrr[12r]}
STR DD4={[16O1;rr:r]O1[8O1;rrr][7O1;r]O3;rrrrrO4[7r]'n38n40'rrr}
TR=10l16DL=HAZ;BR=20p%=2000@25,90,1V=127DDH@12,7,0DDI;DL=BGN;BR=20p%=2000/*@25,90,1*/@12,7,0V=127DD1;DD2;DD3;DD4;DD1;DD2;@25,90,1DDH@12,7,0[DD4]DD1;DD2;DD3;
DL=NK1;BR=20p%=2000@25,90,1DDH@12,7,0DDI[3O1;r:rr][3O1]rO1;rDD4;DD1;O3;
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]}
STR GGH={[8GB;rrrrrrr][16GB;rrr]}STR GGI={[14GR;rGB;r][GR;GR;GB;GR][8[GR]GB;r][8GB;r]rrrrGB[11r]}
STR GG1={[12GR;GR;GB;GR][4GR;rGB;r][12GR;GR;GB;GR][4GB;rrr]}STR GG2={[32GR;rGB;r]}STR GG3={[28GR;rGB;r][4GB;r[GR]]}
STR GG4={[14[GR]GB;r][GR;GR;GB;GR][8[GR]GB;r][8GB;r]rrrrGB[11r]}
TR=11l16DL=HAZ;BR=20p%=1000@33,90,1V=110GGH;GGI;DL=BGN;BR=20p%=1000@33,90,1V=110GG1;GG2;GG3;GG4;GG1;GG2;GGH[GG4]GG1;GG2;GG3;DL=NK1;GGH;GGI[GR;rGB;r][8r]GG4;GG1;
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PPH={SUB{PD3}[124r]REV=100CHO=100'n38n40'rrrREV=0CHO=30}STR PPI={SUB{PD3}[64r][6rrrr'n38n40'rrr][12r]REV=100CHO=100'n38n40'rrrREV=0CHO=30}
STR PP1={SUB{PD3}[7rrrr'n38n40'rrr][8r][6rrrr'n38n40'rrr][16r]}STR PP2={[16rrrr'n38n40'rrr]}STR PP3={[14rrrr'n38n40'rrr][16r]}
STR PP4={SUB{PD3}[14rrrr'n38n40'rrr][12r]REV=100CHO=100'n38n40'rrrREV=0CHO=30}
TR=12l16DL=HAZ@1,100,0BR=20p%=1000V=120PPH;PPI;DL=BGN@1,100,0BR=20p%=1000V=120PP1;PP2;PP3;PP4;PP1;PP2;PPH[PP4]PP1;PP2;PP3;DL=NK1;PPH;PPI;rrrr'n38n40'rrr[8r]PP4;PP1;
/*13*/STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr}
STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
STR DS18={[8r]rr`g`g`drar}STR DS19={rr`g`g`gr`d`dbbrgercr;rr`g`g`drar`grrrarrr}STR DS20={`gr`gr`c`c`gr`crarfrcr}STR DS21={`gr`gr`c`c`grrr`crrarr}
STR DS22={rr`g`g`gr`d`d`grr`drrar}
TR=13l16<DL=HAZ@119,0PG1;DL=HAZ+3DS18;DL=HAZ+6DS19;DL=HAZ+15DS22;DL=BGN+3DS18;DL=BGN+6DS19;DL=ME1+3DS22;DL=ME1+7DS20;DL=ME2+7DS21;DL=SB1+7DS22;DL=RF1+3DS18;DL=RF1+6DS19;
DL=ME3+3DS22;DL=ME4+7DS20;DL=ME4+7DS21;DL=SB2+7DS22;DL=SB2+15DS22;DL=RF2+3DS18;DL=RF2+6DS19;DL=ME5+3DS22;DL=ME5+7DS20;DL=ME6+7DS21;DL=NK1+3DS18;DL=NK1+6DS19;DL=NK1+15DS22;
DL=SB3+7DS22;DL=RF3+3DS18;DL=RF3+6DS19;
/*14*/STR LC={"cceg`c}STR LC2={"ccea`c}STR LD={"ddf#a`d}STR LD2={"ddfa`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LE2={"eeg#b`e}STR LF={"ffa`c`f}STR LFS={"f#f#a`c#`f#}
STR LG={"ggb`d`g}STR LA={"aa`c`e`a}STR LA2={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`d`f#`b}STR LB2={"bb`d#`f#`b}STR LB3={"bb`e`g#`b}
STR PSS={Play(,,,,,,,,,,,,,,MID(SWE,1,2))}FUNCTION PDA(STR SWE){l8PSS;l16'SWE'r[4PSS'SWE'r]}FUNCTION PDB(STR SWE){l8PSS;l16'SWE'r[PSS:'SWE'r]}FUNCTION PDC(STR SWE){[3'SWE'r:PSS]}
FUNCTION PDD(STR SWE,STR FF1){l8FF1;l16'SWE'r[4FF1'SWE'r]}FUNCTION SPC(STR SPD){['SPD'^rr]['SPD'^^]'SPD'^}
STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={@82,90,1EP=100[7PDA=LE][16r]}
STR SPI={l16[64r]@1,90,0EP=100P=20PDB=LE;PDC=LD;PDB=LC<PDC=LB;PDA=LA;l8rr'LB'^rrrr>}
STR SP1={@82,111,3EP=90l16[[3`egababa`e^gababa`e][16r]]}
STR SP2={@29,110,0EP=100q=50l8[4e"bf#"bg"bbe^"bf#"bg"bb^]q=100}
STR SP3={@55,110,8EP=110l8[e"be"bb"bagr"be"bb"bag]c"gc"gg"gf#er"g"b"gg"gf#e;d"bd"bb"bagr[7r]/*"bd"bb"bag*/}
STR SP4={@1,90,0EP=100P=20PDA=LE;PDA=LD;PDA=LC<PDA=LB>PDB=LE;PDC=LD;PDB=LC<PDC=LB;PDA=LA;l8rr'LB'^rrrr>}
STR SP5={@82,111,3EP=90l16[64r][3`egababa`e^gababa`e][16r]}
STR SP6={@1,90,0EP=100P=20[PDA=LE]PDA=LD;PDA=LC<PDA=LB>PDB=LE;PDC=LD;PDB=LC<PDC=LB;PDA=LA;l8rr'LB'^rrrr>}
STR SP7={@82,111,3EP=90l16`egababa`e^gababa`e}
TR=14DL=HAZ;SPA;SPH;SPI;DL=BGN;SPA;SP1;SP2;SP3;SP4;SPA;SP1;SP2;SP3[SP4]SP5;SP2;SP3;DL=NK1;SPH;SPI;SP6;SP1;SP7;
/*15*/STR FTH={l16>@82,110,0EP=90[rr[3'`ebg"e']r['`ebg"e']:['`dbg"d'^'`ebg"e'r]]EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]rr[3'`ebg"e']r['`ebg"e']
EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]rr[3'`ebg"e']r['`ebg"e']EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]
EP=127rr[4'`dbg"d'r]rr'`dbg"d'^^r<}
STR FT1={l16>@82,110,0EP=90[rr[3'`ebg"e']r['`ebg"e']:['`dbg"d'^'`ebg"e'r]]EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]rr[3'`ebg"e']r['`ebg"e']
EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]rr[3'`ebg"e']r['`ebg"e']EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]
EP=127rr[4'`dbg"d'r]rr'`dbg"d'^^r<}
STR FT2={[@1,90,0EP=100l8HAM({[rr'e"b"g''e"b"g'^^^:r]}):@11,0EP=100HAM({>'f#d"b'^'e"b"g'^'"b"g"e'^^r'd"a"f#'^'"b"f#"d'^'"b"g"e'^^^r<})]
@11,0EP=100HAM({>'f#d"a'^'e"b"g'^'bge'^^r'd"a"f#'^'"b"g"e'^'bge'^^^r<})}
STR FT3={@101,0EP=90l4HAM({SUB{`c^^b`c^`c^`d^^^b^^^`c^^b`c^`e^`d^^^`f#^^^}`e^^`d`e^`e^`f#^^^`d^^^`e^^`d`e^`g^`f#^^^`a^^^})}
STR FT4={[@82,110,0EP=100l8HAM({['ge"b'^'ge"b'^^rrr]}):@100,0EP=120HAM({>SUB{eeee^eeed"f#"bc#d"f#"bd}gggg^gggf#"bdef#"bdf#<})]
EP=110HAM({'ge"b''ge"b''ge"b''ge"b''ge"b''ge"b''ge"b''f#d"b'^^'f#d"b'^^^rr})}
STR FT5={l16>@82,110,0[67r]EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]rr[3'`ebg"e']r['`ebg"e']EP=120HAM2({'`ebge'^^r'`dbgd'^^r'`ebge'^^})EP=90['`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]
EP=127rr[4'`dbg"d'r]rr'`dbg"d'^^r<}STR FT6={l16>@82,110,0EP=90rr[3'`ebg"e']r['`ebg"e']['`dbg"d'^'`ebg"e'r]<l8@56,90,1EP=110HAM({erderrrr})}
TR=15DL=HAZ;FTH;FT4;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]FT5;FT2;FT3;DL=NK1;FTH;FT4;DL=SB3;FT4;FT1;FT6;
/*16*/STR BGH={@127,110,0BR=12p=66EP.T(60,127,!2)"f^^^p=64}
STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=70}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}
STR BG10={>>@123,5l32P=70BR=36p.T(64,32,!1^1)EP=100[4`e]rrrr[3[4`e]rr]rr[8`e]rrrr[3[4`e]rr]<<p=64EP=127}STR BG11={@123,1BR=64p.T(80,127,!1)EP.T(110,127,!1)V=127l1'c'V=100}
TR=16DL=HAZ-1BGH;DL=HAZ+7BG4;DL=HAZ+14BG1;BG2;DL=BGN+7BG4;DL=ME1;BG10;DL=ME1+4BG10;DL=ME1+7BG9;DL=ME2+6BG1;BG2;DL=SB1+6BG1;BG2;DL=RF1+7BG4;DL=ME3;BG10;DL=ME3+4BG10;DL=ME3+7BG9;DL=ME4+6BG1;BG2;
DL=SB2+6BG1;BG2;DL=SB2+14BG1;BG2;DL=RF2+7BG4;DL=ME5;BG10;DL=ME5+4BG10;DL=ME6+7BG9;DL=ME6+6BG1;BG2;DL=NK1+7BG4;DL=NK1+14BG1;BG2;DL=SB3+6BG1;BG2;DL=RF3+7BG4;BG11;

}