Int TRACK_SELECT			=	1	;	//	1 : LA SPRING FIESTA		https://www.youtube.com/watch?v=l_atvBc3q_w

								//	2 : SEASONS OF RESORT		https://www.youtube.com/watch?v=_eAPFEV8je0

								//	3 : HOT HOT POOLSIDE		https://www.youtube.com/watch?v=77yU1ZdLxrU


INT TRACK_KEY			=	0	;	//	キーの調整：-3〜3のお好みでどうぞ



If(TRACK_SELECT==1){

INT EST=147PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"LA SPRING FIESTA"}Copyright={KZ-5 Technology}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,3,0,127,09,0)WIN(07,07,039,08,0,K,084,0,0,120,09,0)WIN(13,13,119,00,0,0,___,0,0,127,09,0)
WIN(02,02,100,00,0,K,064,5,0,100,10,0)WIN(08,08,012,00,0,K,000,0,0,100,09,2)WIN(14,14,082,01,0,K,___,0,0,127,09,0)
WIN(03,03,089,00,0,K,000,0,0,110,10,0)WIN(09,09,012,00,0,K,127,0,0,100,09,2)WIN(15,15,003,00,0,K,096,0,0,120,10,0)
WIN(04,04,089,00,0,K,127,0,0,110,10,0)WIN(10,10,017,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,0,064,0,0,127,10,0)
WIN(05,05,039,00,0,K,044,0,0,120,09,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,0,0,080,10,0)WIN(12,12,026,00,0,0,064,0,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 NK1=81INT SB2=97INT RF2=121INT END=129
/*1*/STR MN1={V=100a^ga^^^ra^ga^^`c^`d^b^bagg^^^^^^rr;a^ga^^^ra^ga^^`c^b^^g^^^^^^^^^rrr}STR MN2={V=110[`e^^`f`e`d`c`d^`e`c#^r:ab`c`d`e^`d^`e^`d^`d`cb^gg^]ab`c`d`ea`d^`ea`d^^^^^^rr}
STR MN3={V=115CHO=90REV=60a^`e^a^`e^`e`d`c`d^^^rg^`g^g^`g^`g`f`e`c^^^ra^`e^a^`e^`e`d`c`d^bb`c`d^rg`d`g`f`e^^^^^r
`g`f`e`e`e`e`e`ar`e`d^^`g^rb`c`d`d`d`g^`f`e`d`d^`c`e^ra`c`e`e`e`e`e`cra`d^`e`d^r`e`g`a`c`d`e`d`e`d`c#^^^^rCHO=0REV=30}
/*STR MN1={[a^rfaf`e`d^^rfaf`e`d^^r:`d`d`c`d`e`c#^aa^agf]ggegega^a^}
STR MN2={ab`c`d`e^`d^`e^`d^`d`cb^`g^^`e^^`f`e`d`c`c^^^^rab`c`d^`d`c`d`c^`d^^`d`c`d`e^`d^^^^r`d`c`d^^^^^rrr}*/
/*STR MN1={ab`cf^^^^r`c^b`cbg^d^e^^^^^^^^rrrrrab`cf^^^^r`c^b`cbg^b^a^^^^^^^^rrrrr
ab`c`d^`e^`d`e^`d^`d`cb^`g^^`e^^`f`e`d`c`c^^^^r`c`d`ea^a^a`e^`d^`d`cb^gaa^^^^rgaa^^^^^rrr}
STR MN2={a^a^a^`cb^^^^rgg^a^a^a^`c`d^`c^b^^^ra^a^a^`cb^b^abag^b^^ab^`c`d^^`e`d^^^r}*/
STR MN4={V=115[rrrr`e^^^`d^^^b^^^`d^^b^^g^a^^^^rrr]}
STR MN5={V=115CHO=90REV=60[a^`e^a^`e^MD({`e`d`c`d^^^r},5,!2)[16r]]CHO=0REV=30}
TR=1l8>DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;DL=NK1+8MN4;MN5;MN3;DL=END;MN4;
/*2&3&4*/STR RTA={BR=12If(CH==3){p%=100}If(CH==4){p%=-100}}
STR RTH={l8EP=100RTA[fab'`e`ca'^^^^^^^^^^^^eab'`dbg'^^^^'`c#ae'^^^^^^^]l16}
STR RT1={EP=127RTA;l16[a^b^`c^`d^`e^^`d^^a^`e^^`d^^a^`e^^`d^^a^^^^^^^b`c`d^^`c^^g^g^^^e^^^:g^^a^^a^]a^e^d^e^c#^^^^^^^}
STR RT2={EP=127RTA;l16[a^b^`c^`d^`e^^`d^^a^`e^^`d^^a^`e^^`d^^a^^^^^^^b`c`d^^`c^^g^g^^^e^^^:g^^a^^a^]a^e^d^e^}
STR RRF={l16DL=HAZ[RTH]DL=BGN-1[8r]RT1;DL=RF1-1[8r]RT1;DL=NK1[RTH]DL=RF2-1[8r]RT2;}STR RRF2={DL=END-1l16[8r]RT1;}
TR=2HAM({RRF})RRF2;TR=3RRF;RRF2;TR=4RRF;RRF2;
/*5&7*/STR BSH={l4q=100[f^^^^^^^e^^^a^^^]l8q=90}STR BSI={[16f][8e][8a][8f][8d][8e][8a]}
STR BS1={[[16f][8e][8a]]}/*STR BS2={[[16f][8e][8a]]}STR BS3={[8f][8g][8a][8e][8f][8f#][16g]}*/
STR BS2={[[16f][16g]]}STR BS3={[[8e][8a][8f]:[8g]][4g]g^^^}STR BS4={[4[8f][8g]:[8e][8a]][16a]}
STR BS5={q=100l4[f^^^^^^^g^^^^^^^]l8q=90}STR BS6={[4[8f][8g][8e][8a]][5f]rrr[8g][8e][8a][8f][8g][16a]}
/*STR BS2={[[8f][8g][8e][8a][8f][8g][8a][8e]]}STR BS3={[[8f][8g]][8f][8f#][8g][8e]}*/
STR BS7={q=100l4f^^^^^^^e^^^a^^^f^^^d^^^e^^^a^^^l8q=90}
STR BBSS={l8<<DL=HAZ;BSH;BSI;DL=BGN;BS1;DL=ME1;BS2;BS3;BS4;BS1;BS5;BS3;BSH;BSI;DL=SB2;BS6;BS1;BS7;}TR=5BBSS;TR=7BBSS;
/*6*/STR COH={SUB{`c^^^`d^^^b^^^`c^^^`c^^^`d^^^`d^^^`c#^^^}HAM2({[f^^^^^^^e^^^a^^^]})}
STR CO1={SUB{`c^^^`d^^^b^^^`c^^^`c^^^`d^^^`d^^^`c#^^^}HAM2({[f^^^^^^^e^^^a^^^]})}
STR CO2={SUB{[a^^ga^`c^`d^^^:b^g^]b^^^}HAM2({[f^^^^^^^g^^^^^^^]})}
STR CO3={SUB{[b^^^`c#^^^a^^^b^^^]}HAM2({[e^^^a^^^f^^^g^^^]})}
STR CO4={@103,0v=100SUB{HAM({a^^^b^^^b^^^`c^^^a^^^b^^^`d^^^`c^^^;a^^^b^^^`d^^^`e^^^`c^^^`d^^^`e^^^`c#^^^})}HAM2({[4f^^^g^^^:e^^^a^^^]a^^^a^^^})v=80@49,0}
STR CO5={@103,0v=100SUB{HAM({a^^^b^^^b^^^`c^^^a^^^b^^^`d^^^`c^^^})}HAM2({[f^^^g^^^e^^^a^^^]})
SUB{HAM({a^^^b^^^b^^^`c^^^a^^^b^^^`d^^^`c^^^;a^rrb^^^`d^^^`e^^^`c^^^`d^^^`e^^^`c#^^^})}HAM2({[f^^^g^^^e^^^a^^^]f^rrg^^^e^^^a^^^f^^^g^^^a^^^a^^^})v=80@49,0}
TR=6@49DL=HAZ[COH]DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3[COH]DL=SB2;CO5;CO1;COH;
/*8&9*/STR ULA={BR=6If(CH==9){p%=200}Else{p%=-200}}STR UL1={ULA;EP=105f^ff^^^rf^ff^^f^g^g^gggg^^^^^^rr;f^ff^^^rf^ff^^f^g^^g^^^^^^^^^rrr}
STR UL2={ULA;EP=115[b^^bbbb`c#^`c#a^r:fgaaa^a^a^g^ggg^ee^]eeeaafa^afg^^^^^^rr}
STR UL3={ULA;EP=120SUB{`c^`c^`c^`c^`d`d`d`d^^^r`d^`d^`d^`d^`e`e`e`e^^^r;`c^`c^`c^`c^`d`d`d`d^`d`d`d`d^r`d`d`d`d`e^^^^^r}f^f^f^f^gggg^^^re^e^e^e^aaaa^^^r;f^f^f^f^gggg^ggab^rbbbb`c^^^^^r;
SUB{`cb`c`c`c`c`c`er`c`d^^b^rbb`d`d`d`d^`d`d`d`c^`c`e^r;}`e`daaaaa`crab^^`d^rggbbbb^bbba^a`c^r;
SUB{`c`c`e`e`e`e`e`crab^bb^rab`caaabbba^^^^r}fa`c`c`c`c`carfg^gg^r`c`e`e`c`c`c`d`d`d`e^^^^r}
STR UL4={ULA;EP=120[SUB{rrrra^^^g^^^e^^^g^^e^^"b^"a^^^^rrr}rrrr`c^^^b^^^g^^^b^^g^^e^c#^^^^rrr]}
STR UL5={EP=120[SUB{`c^`c^`c^`c^}f^f^f^f^MD({SUB{`d`d`d`d^^^r}gggg^^^r},5,!2)[16r]]}
STR ULMR={l8DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2;DL=NK1+8UL4;UL5;UL3;DL=END;UL4;}TR=8ULMR;TR=9;>ULMR;
/*10*/STR OA={n27n32n33n35n36}STR O1={'OA'}STR O2={'n38n55OA'}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 DM20={[7DM2][3O1]rO2[3O1]}STR DDH={[30'OA'rrr]['OA'r][4'OA']}STR DD1={DM6;DM20}STR DD2={DM6;DM7}STR DD3={DM6;DM13}STR DD4={DM6;DM7;DM6;DM13}
STR DD5={O3[31r]O4[31r]O3;rrr[8O2;rrr:rrrr]}STR DD6={[DM6;DM7]DM2;O3[7r][5DM2]O1;rrr[2O2;r]DM13;}STR DD7={[O3[15r]O4[15r]l8[3O5;r:r]:O2[7r]l16]O4;rrrrrrr}
TR=10l16DL=HAZ+8BR=20p%=4000DDH;DL=BGN;BR=20p%=4000DD1;DD2;DD3;DD4;DD1;DD5;DD3[DDH]DL=SB2;DD6;DD1;DD7;
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51'}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={[7GP2]GP1}STR GGI={[7GP2]GP3}STR GG1={[7GP2]GP1}STR GG2={[8GP2]}STR GG3={[7GP2]GP1}STR GG4={[15GP3]GP1}STR GG5={[64r]l8[GR;rrGR;GB;rGR;rrrGR;rGB;rGR;r]l16}STR GG6={[16GP3][[GR]GB;r][8r][6GP3]GP1}STR GG7={[28GR;rGB;r]n49^^^^^^^}
TR=11l16DL=HAZ;BR=20p%=-2000GGH;GGI;DL=BGN;BR=20p%=-2000GG1;GG2;GG3;GG4;GG1;GG5;GG3;GGH;GGI;DL=SB2;GG6;GG1;GG7;
/*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={@33SUB{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}
TR=12l16DL=HAZ[PD3]DL=BGN;PD3;DL=SB1[PD3]DL=NK1[PD3]DL=SB2[4PD3]
/*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]}
TR=13l16<DL=HAZ;PG1;DL=HAZ+3DS13;DL=HAZ+7DS2;DL=HAZ+11DS13;DL=HAZ+15DS8;DL=BGN;PG1;DL=BGN+3DS5;DL=BGN+7DS12;DL=ME1+7DS6;DL=ME2+7DS15;DL=SB1+7DS8;DL=RF1+3DS5;DL=RF1+7DS12;DL=ME3+7DS6;DL=ME4+7DS15;
DL=NK1+3DS13;DL=NK1+7DS2;DL=NK1+11DS13;DL=NK1+15DS8;DL=SB2+7DS8;DL=SB2+7DS8;DL=RF2+3DS5;DL=RF2+7DS12;
/*14*/STR SPH={@5,16EP=100P=24CHO=50REV=70l8["aa`ca`da`e"a^a`ca`da`ea;"ggbg`cg`d"a^a`ca`da`e"a]}
STR SPI={@6,16EP=100P=24CHO=50REV=70l8["aa`ca`da`e"a^a`ca`da`ea;"ggbg`cg`d"a^a`ca`da`e"a]}
STR SP1={@6,8EP=120P=24CHO=50REV=70l8["aa`ca`da`e"a^a`ca`da`ea;"ggbg`cg`d"a^a`ca`da`e"a]}
STR SP2={@5,24EP=100P=24CHO=30REV=50["fa`ca`da`e"f^a`ca`da`ea;"ggbg`cg`d"g^gbg`cg`dg]}
STR SP3={@8,0EP=90P=24CHO=30REV=50[eab`ceab`c;a`c#`d`ea`c#`d`e;fab`cfab`cgb`c`dgb`c`d]}
STR SP4={@82,1EP=100P=24CHO=70REV=20[3[a`e`d`e][g`d`c`d][g`db`d][a`e`c`e]][a`e`d`e][g`d`c`d][a`e`c`e][a`e`c#`e]}
STR SP5={@5,24EP=100P=24CHO=30REV=50[32r]"fa`ca`da`e"f^a`ca`da`ea;"ggbg`cg`d"g^gbg`cg`dg}
STR SP6={@82,1EP=100P=24CHO=70REV=20[4[a`e`d`e][g`d`c`d][g`db`d][a`e`c`e]]a`e`d`errrr[g`d`c`d][g`db`d][a`e`c`e][a`e`d`e][g`d`c`d][a`e`c`e][a`e`c#`e]}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP5;SP3;SPH;SPI;DL=SB2;SP6;SP1;
/*15*/STR FTI={@82,0CHO=80EP=70l16[[MD({['`e`caf'^rr]},1,!2)[8r]]MD({['`dbge'^rr]},1,!2)[8r]:MD({['`e`cae'^rr]},1,!2)[8r]]MD({['`e`c#ae'^rr]},1,!2)[8r]}
STR FT1={@82,0CHO=80EP=70l16[[MD({['`e`caf'^rr]},1,!2)[8r]]MD({['`dbge'^rr]},1,!2)[8r]:MD({['`e`cae'^rr]},1,!2)[8r]]MD({['`e`c#ae'^rr]},1,!2)[8r]}
STR FT2={[@82,1l8EP.T(70,110,!2^4)'afc'^^^^^@47,0EP=90'fa`c''fa`c'[8r]@82,1l8EP.T(70,110,!2^4)'bgd'^^^^^@47,0EP=90'bgd''bgd'[8r]]}
STR FT3={@101,0EP=75l4HAM({[b^^ab^`c#^a^^^:b^g^]b^^^})}
STR FT4={@82,0EP=80CHO=70M=50l8[[4'`caf'r][3'`dbg']'`dbg'^^^r:[4'`dge'r][3'`e`ca']'`e`ca'^^^r]EP.T(70,100,!2^4)'`dge'^^^^^rrCHO=0M=0@101,0EP=90`a`c`e`g`a`c`e`a;
@109,0EP=100REV=70[a`c`ea`c`ea`e;gb`dgb`dg`d:egbegbeb;a`c`ea`c`ea`e]a`c`ea`c`ea`e;"aa`c#a`da`ea;REV=0}
STR FT5={@82,0EP=80CHO=70M=50l8[[4'`caf'r][3'`dbg']'`dbg'^^^r[4'`dge'r][3'`e`ca']'`e`ca'^^^r]
[[4'`caf'r][3'`dbg']'`dbg'^^^r:[4'`dge'r][3'`e`ca']'`e`ca'^^^r]EP.T(70,100,!2^4)'`dge'^^^^^rrCHO=0M=0@101,0EP=90`a`c`e`g`a`c`e`a
@109,0EP=100REV=70a`c`earrrr;gb`dgb`dg`d;egbegbeb;a`c`ea`c`ea`e;a`c`ea`c`ea`e;gb`dgb`dg`d;a`c`ea`c`ea`e;"aa`c#a`da`ea;REV=0}
TR=15DL=HAZ+8FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;DL=ME4;FT3;DL=NK1+8FTI;DL=SB2;FT5;FT1;FTI;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^^>p=64}
STR BG3={V=127l4BR=24p.T(64,0,!1)@128,3'gab'^^^^^^^V=100}STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@126,8BR=40l4P.T(0,127,!2,127,0,!2,0,127,!2,127,0,!2)EP=100p.T(127,0,!1^1)'gfe'^^^^^^^EP=127p=64P=64}STR BG6={@120,0l4'cd'^^^}
STR BG7={l4[@123,2P=64'"dg`d'^^^^^^^:[8r]]}STR BG8={l4@123,2P=64'"dg`d'^^^^^^^}
TR=16DL=HAZ;DL=HAZ+7BG6;DL=HAZ+14BG1;BG2;DL=BGN;BG3;DL=BGN+4BG5;DL=ME1+7BG6;DL=ME2+7BG4;DL=SB1;BG7;DL=RF1;BG3;DL=RF1+4BG5;DL=ME3;BG8;DL=ME3+4BG5;DL=ME3+7BG6;DL=ME4+7BG4;
DL=NK1+7BG6;DL=NK1+14BG1;BG2;DL=SB2;BG7;DL=SB2+8BG7;DL=RF2;BG3;DL=RF2+4BG5;DL=END;BG8;

}If(TRACK_SELECT==2){

INT EST=145PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"SEASONS OF RESORT"}Copyright={KZ-5 Technology}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,083,00,0,K,064,4,2,127,09,0)WIN(07,07,028,00,0,K,074,1,2,127,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,011,00,0,K,064,2,8,100,10,0)WIN(08,08,083,00,0,K,000,3,2,100,09,2)WIN(14,14,003,00,0,K,100,2,2,127,09,0)
WIN(03,03,047,00,0,K,000,2,2,100,10,0)WIN(09,09,083,00,0,K,127,3,2,100,09,2)WIN(15,15,003,00,0,K,022,2,2,127,10,0)
WIN(04,04,046,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,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,101,00,0,K,032,1,2,100,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 NK1=81INT SB2=97INT SB3=113INT END=133
STR SBUP={TrackKey=(K+1)}
/*1*/STR MN1={[bf#bf#b`f#rb^f#bf#b`f#^`e^`c#ba^^^^^^^rrrrr]}STR MN2={`f#^^bb^^^r`c#`d`c#b`c#`d`f#`e^^aa^^^r`e`e`e`f#`e`d`c#`d^^gg^^r`c#^^`c#b^a^bf#b`d`f#b`f#`e^^^^^rrr}
STR MN3={[`f#b`f#b`f#`g^`f#^`e`d`e^^^r`ea`ea`e`f#^`e^`d`c#`d^b`c#`d:`f#b`f#b`f#`g^`f#^`e`d`e^`c#`d`e^`f#`f#^^^rr`a^^^`g^^^]`f#b`f#b`f#`f#^`e^`c#ba^f#gabf#bf#b`d^b^^^^^rrr}
STR MN4={`f#b`f#b`f#`g^`f#^`e`d`e^^^r`ea`ea`e`f#^`e^MD({`d`c#`d^},5,!2)}
STR MN5={SBUP[`f#b`f#b`f#`g^`f#^MD({`e`d`e^^^r},5,!2)[16r]]`f#b`f#b`f#`g^`f#^`e`d`e^^^r`ea`ea`e`f#^`e^`d`c#`d^b`c#`d[3`f#b`f#b`f#`f#^`e^`c#ba^f#ga]bf#bf#b`d^b^^^^^rrrTrackKey=K}
TR=1l8>DL=ME1;q=95HAM2({MN1;MN2;MN3;DL=ME3;MN1;MN2;DL=NK1+8MN4;DL=SB2;MN3;MN5;})
/*2&3&4*/STR RTH={If(CH==2){[64r]}If(CH!=2){HAM({EP=110SUB{[4"g"g"b"bc#"bd"b;"e"a"a"a"b"ac#"a]}[4"bb`db`eb`f#b;"aa`c#a`da`ea]})}}
STR RTI={If(CH==2){EP=100@31,90,0l8HAM({a&&b^^^^^^^^^^^^^aa&&b^^^^^^^^^^^^^^a&&b^^^^^aa&&b^^^^^^EP=80@31,110,0'bf#'^rr'f#d'^rr'e"b'^r'f#c#'^^^r})}
If(CH!=2){EP=110HAM({SUB{[d"be"bf#"bf#d^"be"bf#"bf#^]d"ge"gf#"gf#c#^"ac#"ae"ae^d"be"bf#"bagerrf#^^^r}[bf#`df#`f#f#`f#b^f#`df#`f#f#`f#^]gdbd`dd`da^f#`c#f#`ef#`e^bf#`df#`f#f#`f#`ebrr`c#^^^r})}}
STR RT1={If(CH==2){EP=120@11,0HAM3({SUB{[f#ab`df#ab`df#ab`d`c#^b^ab`c#`e^:`c#^^ab`c#`e^`c#^^]`c#b`c#a^^^^}[b`c#`d`f#b`c#`d`f#b`c#`d`f#`e^`d^`c#`d`e`a^:`e^^`c#`d`e`a^`e^^]`e`d`e`c#^^^^rrr})
}Else{HAM({EP=127SUB{[["g"g"b"bc#"bd"b]["e"a"a"a"b"ac#"a]]}[["bb`db`eb`f#b]["aa`c#a`da`ea]]})}}
STR RT2={If(CH==2){EP=120@11,0[64r]}Else{HAM({EP=127SUB{[["g"g"b"bc#"bd"b]["e"a"a"a"b"ac#"a]]}[["bb`db`eb`f#b]["aa`c#a`da`ea]]})}}
STR RT3={If(CH==2){EP=100@31,90,0l8HAM({a&&b^^^^^^^^^^^^^aa&&b^^^^^^^^^^^^^^a&&b^^^^^aa&&b^^^^^^})
}Else{HAM({EP=127SUB{[["g"g"b"bc#"bd"b]["e"a"a"a"b"ac#"a]]}[["bb`db`eb`f#b]["aa`c#a`da`ea]]})}}
STR RRF={l8DL=HAZ;RTH;RTI;DL=BGN;RT1;DL=RF1;RT1;DL=NK1;RT2;RTI;DL=END;SBUP;RT1;REC2;RT3;TrackKey=K}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSH={l8[4grrrrrg:a^rrrrrrr]a^^^^^aaa}STR BSI={[32b][8g][8f#][4b][4d]errf#^^^r}
STR BS1={[[gggl16ggl8gggg][aaal16aal8aaaa]]}STR BS2={[[16g][16a]]}STR BS3={[16g][16f#][8e][8f#][8g][8a]}
STR BS4={[eeel16eel8eeee;aaal16aal8aaaa:f#f#f#l16f#f#l8f#f#f#f#bbbl16bbl8bbbb]`d`d`dl16`d`dl8`d`d`d`d;`c`c`cl16`c`cl8`c`c`c`c
gggl16ggl8gggg;aaal16aal8aaaa;f#f#f#l16f#f#l8f#f#f#f#bbbl16bbl8aaaa;eeel16eel8eeee;aaal16aal8aaaa;f#f#f#l16f#f#l8f#f#f#f#bbbl16bbl8bbbb}
STR BS5={l4q=100g^^^^^^^f#^^^^^^^e^^^f#^^^g^g^l8q=90[8a]}
STR BS6={l4q=100[e^^^a^^^:f#^^^b^^^]`d^^^`c^^^l8q=90[3g^]ga^^[3a^][3f#^]f#b^^[3b^][3e^]ea^^[3a^][3f#^]f#b^^[3b^]}
STR BS7={SBUP[eeel16eel8eeee;aaal16aal8aaaa:f#f#f#l16f#f#l8f#f#f#f#bbbl16bbl8bbbb]`d`d`dl16`d`dl8`d`d`d`d;`c`c`cl16`c`cl8`c`c`c`c
gggl16ggl8gggg;aaal16aal8aaaa;f#f#f#l16f#f#l8f#f#f#f#bbbl16bbl8aaaa[eeel16eel8eeee;aaal16aal8aaaa]l4q=100e^^^a^^^l8q=90f#f#f#l16f#f#l8f#f#f#f#bbbl16bbl8bbbbTrackKey=K}
STR BASS={l8<<DL=HAZ;BSH;BSI;DL=BGN;V=127BS1;BS2;BS3;BS4;BS1;BS2;BS5;BS1;BSI;BS6;DL=SB3;BS7;SBUP[BS1:REC2]TrackKey=K}TR=5BASS;TR=7BASS;
/*6*/STR COH={EP=120@103,0'bgd'^^^'`c#ae'^^^'`dbg'^^^'`e`c#a'^^^}
STR COI={EP=120@103,0['bf#d'^^^^^^^]'bgd'^^^'af#c#'^^^@82,0l8'bf#d'^rr'f#d"b'^rr'ge"b'^r'af#c#'^^^rl4}
STR CO1={EP=110@101,0['bgd'^^^]['`c#ae'^^^]['`dbg'^^^]['`e`c#a'^^^]}STR CO2={EP=110@103,0[['bgd'^^^]['`c#ae'^^^]]}
STR CO3={EP=110@103,0['bgd'^^^]['af#c#'^^^]'ge"b'^^^'af#c#'^^^'bgd'^^^'`c#ae'^^^}
STR CO4={EP=120@101,0[['bgd'^^^'`c#ae'^^^:'`c#ac#'^^^'`dbf#'^^^]:'`f#`da'^^^'`e`cg'^^^]'`c#ac#'^^^'`dbf#'^^^}
STR CO5={EP=120@101,0SBUP['bgd'^^^'`c#ae'^^^:'`c#ac#'^^^'`dbf#'^^^]'`f#`da'^^^'`e`cg'^^^['bgd'^^^'`c#ae'^^^:'`c#ac#'^^^'`dbf#'^^^]['bgd'^^^'`c#ae'^^^]
'`c#ac#'^^^'`dbf#'^^^TrackKey=K}
TR=6DL=HAZ+4M.W(0,100,!2)COH;COI;DL=BGN;M.W(0,100,!2)CO1;CO2;CO3;CO4;CO1;CO2;CO3;CO1;COI;DL=SB2;CO4;CO5;SBUP[CO1:REC2]TrackKey=K
/*8&9*/STR UL1={l8EP=127[gdgdgbrg^dgdgb^a^f#ec#^^^^^^^rrrrr]}
STR UL2={l8EP=127b^^gg^^^rabagab`d`c#^^f#f#^^^r`c#`c#`c#`d`c#bab^^ee^^ra^^ag^f#^gdgb`dg`d`c#^^^^^rrr}
STR UL3={l8EP=100SUB{MN3}HAM({[SUB{bbbbbb^`c#^`c#`c#`c#^^^r`c#`c#`c#`c#`c#`c#^`d^`d`db^}`d`d`d`d`d`d^`e^`e`e`e^^^r`e`e`e`e`e`e^`f#^`f#`f#`f#^SUB{eef#}gga:
SUB{bbbbbb^`c#^`c#`c#`c#^`c#`c#`c#^`d`d^^^rr`d^^^`c^^^}`d`d`d`d`d`d^`e^`e`e`e^`e`e`e^`f#`f#^^^rr`f#^^^`e^^^]
SUB{bbbbbb^`c#^`c#`c#`c#^aaabbbbaa^f#^^^^}`d`d`d`d`d`d^`e^`e`e`e^`c#`c#`c#`d`d`d`d`c#`c#^`d^^^^^rrr})}
STR UL4={SUB{bbbbbb^`c#^`c#`c#`c#^^^r`c#`c#`c#`c#`c#`c#^`d^}`d`d`d`d`d`d^`e^`e`e`e^^^r`e`e`e`e`e`e^`f#^MD({SUB{`d`db^}`f#`f#`f#^},5,!2)}
STR UL5={l8EP=100SUB{MN5}SBUP;HAM({[SUB{bbbbbb^`c#^`c#`c#`c#^^^r}`d`d`d`d`d`d^`e^MD({SUB{`c#`c#`c#^^^r}`e`e`e^^^r},5,!2)[16r]]
SUB{bbbbbb^`c#^`c#`c#`c#^^^r`c#`c#`c#`c#`c#`c#^`d^`d`db^}`d`d`d`d`d`d^`e^`e`e`e^^^r`e`e`e`e`e`e^`f#^`f#`f#`f#^SUB{eef#}gga
SUB{[3bbbbbb^`c#^`c#`c#`c#^aaa]bbbbaa^f#^^^^}[3`d`d`d`d`d`d^`e^`e`e`e^`c#`c#`c#]`d`d`d`d`c#`c#^`d^^^^^rrr})TrackKey=K}
STR ULMR={DL=ME1;q=95UL1;UL2;UL3;DL=ME3;UL1;UL2;DL=NK1+8UL4;DL=SB2;UL3;UL5;}TR=8ULMR;TR=9;>ULMR;
/*10*/STR OA={n35n36}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[4O3;rrrrrO3;O4;rrrrrrrr]}STR DDI={l8[3O1;rO2;r[O1]O2;r:[O1;rO2;r]]O1;rO2;r[O1]O2;O1;O3;rO2;rO4;rO2;rO5;rrO3;rrrr}
STR DD1={l8[8O1;rO2;r[O1]O2;r]}STR DD2={l8[4O1;rO2[O1]rO2;rO1;rO2[O1]r[O2]]}STR DD3={l8[4O1;rO2[O1]rO2;r:O1;rO2[O1]r[O2]]O3[7r]}
STR DD4={l8[8O1;rO2;r[O1]O2;r:O1;rO2;r[O1][O2]]O3[7r]}STR DD5={l16O3[31r]O4[31r]O3[15r]O4[15r]O3[7r]O4[7r]l8SUB{n49}[O1]O2;O1;rO1[O2]}
STR DD6={l16[4O3[15r]O4:[15r]][7r][4O1^]l8[14rrO2;r]SUB{[8O1]}[rrO2;r]}STR DD7={l8[8O1;rO2;r[O1]O2;rO1;rO2;r[O1][O2]]O3[7r]O4[7r]O1;rO2;r[O1]O2;rO3[7r]}
TR=10l16DL=HAZ@17,100,0BR=20p%=-2000DDH;DDI;DL=BGN;DL=BGN@17,100,0BR=20p%=-2000V=120DD1;DD2;DD3;DD4;DD1;DD2;DD5;DD1;DDI;DL=SB2;DD6;DD7[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 GGH={[64r][8GR;rGR;rGB;rGR;r]}STR GGI={[24GR;rGB;r]l8GB;r[GR]GB[3GR]GB;rrGB;rrrrl16}
STR GG1={[32GR;rGB;r]}STR GG2={[16GR;rGR;rGB;rGR;r]}STR GG3={[7GR;rGR;rGB;r[3GR;r]GB;rGB;r][4GB;rrr]}STR GG4={[15[GR;rGB;r][[GR]GB;r]][4GB;r[GR]]}
STR GG5={@33,90,1[16n51rrr][12'n51n59'rrr]GP2@17,100,0}STR GG6={@33,90,1[16n51rrr][16'n51n59'rrr]SUB{[14rrrrGB;rrr]}[56n51r]GP3@17,100,0}
STR GG7={[16[GR;rGB;r][[GR]GB;r]][8'n51n59'rrr][GR;rGB;r][[GR]GB;r][4GB;r[GR]]}
TR=11l16DL=HAZ@17,100,0BR=20p%=-1000EP=110GGH;GGI;DL=BGN@17,100,0BR=20p%=-1000EP=110GG1;GG2;GG3;GG4;GG1;GG2;GG5;GG1;GGI;DL=SB2;GG6;GG7[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 PD3C={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[112r][3n51rrr][2n51r]}
TR=12l16DL=HAZ;DL=BGN@1,100,0V=120PD3;DL=SB1[3PD3]DL=NK1;PD3;DL=SB2[PD3]DL=SB3;PD3;PD3C;DL=END[PD3: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]}
TR=13l16<DL=HAZ;PG1;DL=HAZ+7DS13;DL=HAZ+15DS2;DL=BGN+3DS12;DL=BGN+7DS15;DL=ME1+7DS4;DL=ME2+7DS8;DL=SB1+7DS11;DL=SB1+15DS17;DL=RF1+3DS12;DL=RF1+7DS15;DL=ME3+7DS4;DL=ME4+7DS8;DL=NK1+3DS12;DL=NK1+7DS15;DL=NK1+15DS2;
DL=SB2+7DS11;DL=SB2+15DS17;DL=SB3+7DS11;DL=SB3+19DS17;DL=END+3DS12;DL=END+7DS15;
/*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 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={@4,0EP=100[4PDA=LG;PDA=LA]}STR SPI={@6,8EP=110[4PDA=LB]PDA=LG;PDD(LFS,{"f#})PDB=LB;PDC=LD;l8'"eegb`e'rr'"f#f#a`c#`f#'^^^rl16}
STR SP1={@7,0EP=110[[PDA=LG][PDA=LA]]}STR SP2={@4,0EP=100[[PDA=LG][PDA=LA]]}
STR SP3={@4,0EP=100[PDA=LG][PDD(LFS,{"f#})]PDA=LE;PDD(LFS,{"f#})PDA=LG;PDA=LA}
STR SP4={@3,0EP=120[PDA=LE;PDA=LA:PDD(LFS,{"f#})PDA=LB]>PDA=LD;PDA=LC<;PDA=LG;PDA=LA;PDD(LFS,{"f#})PDB=LB;PDC=LA;PDA=LE;PDA=LA;PDD(LFS,{"f#})PDA=LB}
STR SP5={@29,110,0EP=110l8<["g["g'gd"b'^]'gd"b']["f#["f#'f#c#"a'^]'f#c#"a']"e["e'e"b"g'^]'e"b"g'"f#["f#'f#c#"a'^]'f#c#"a'"g["g'gd"b'^]'gd"b'"a["a'aec#'^]'aec#'>l16@4,0,0}
STR SP6={@29,110,0EP=110l8<["e["e'e"b"g'^]'e"b"g'"a["a'aec#'^]'aec#':"f#["f#'f#c#"a'^]'f#c#"a'"b["b'bf#d'^]'bf#d']d[d'`daf#'^]'`daf#'c[c'`cge'^]'`cge'
@29,110,1EP=120"g["g'gd"b'^]'gd"b'"a["a'aec#'^]'aec#'"f#["f#'f#c#"a'^]'f#c#"a'"b["b'bf#d'^]'bf#d'"e["e'e"b"g'^]'e"b"g'"a["a'aec#'^]'aec#'"f#["f#'f#c#"a'^]'f#c#"a'"b["b'bf#d'^]'bf#d'l16>@3,0,0}
STR SP7={SBUP@3,0EP=120[PDA=LE;PDA=LA:PDD(LFS,{"f#})PDA=LB]>PDA=LD;PDA=LC<;PDA=LG;PDA=LA;PDD(LFS,{"f#})PDB=LB;PDC=LA[PDA=LE;PDA=LA]l8['LE'^]'LE''LE'^'LA'^^[3'LA'^]l16PDD(LFS,{"f#})PDA=LB;TrackKey=K}
TR=14DL=HAZ;REV=80SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP5;SP1;SPI;DL=SB2;SP6;SP7;SBUP[SP1:REC2]TrackKey=K;
/*15*/STR FTH={@56,90,1EP=110l8[4'gd'rrrrr'gd''ad'rrrrrrrr]}STR FTI={@62,0M=110EP=100[4MD({'bf#d'^'bf#d'^},1,!2)rrrr]MD({'bgd'^'bgd'^},1,!2)rrrrMD({'af#c#'^'af#c#'^},1,!2)rrrr
@85,0'bf#d'rrr'f#d"b'rrr'aec#'rr'af#c#'^^^rM=0}
STR FT1={l16@63,16M=110EP=100[MD({[['"bbgd'^rr][8r]]},1,!2)MD({[['c#`c#ae'^rr][8r]]},1,!2)]M=0}
STR FT2={l8@63,8M=110EP=100[MD({rr'"bbgd''"bbgd'^^^^},1,!1)rrrrrrrrMD({rr'c#`c#ae''c#`c#ae'^^^^},1,!1)rrrrrrrr]M=0}
STR FT3={EP=70@101,0l4HAM({SUB{g^^f#g^a^f#^^^c#^^^d^^dd^e^f#^^^a^^^}`d^^b`d^`e^`c#^^^a^^^b^^gb^`c#^`d^^^`e^^^})}
STR FT4={[EP=90@82,0M=110l8['bgd'r'bgd'r['bgd']r'`c#ae'r['`c#ae']:'`c#ae'^^^r'`c#ae'r'`c#ae'r['`c#ae']r'`dbf#'r['`dbf#']'`dbf#'^^^r]:'`c#ae'^['`c#ae']'`c#ae'^'`dbf#''`dbf#'^^^^r
@100,0EP=90HAM({>SUB{`dgb`d`cf#a`c}`f#b`d`f#`ea`c`e<})]'`c#ae'^^^r'`c#ae'r'`c#ae'r['`c#ae']r'`dbf#'r['`dbf#']'`dbf#'^^^rM=0}
STR FT5={SBUP[EP=90@82,0M=110l8'bgd'r'bgd'r['bgd']r'`c#ae'r['`c#ae']:'`c#ae'^^^r'`c#ae'r'`c#ae'r['`c#ae']r'`dbf#'r['`dbf#']'`dbf#'^^^r]'`c#ae'^['`c#ae']'`c#ae'^'`dbf#''`dbf#'^^^^r
@100,0EP=90HAM({>SUB{`dgb`d`cf#a`c}`f#b`d`f#`ea`c`e<})
[EP=90@82,0M=110l8'bgd'r'bgd'r['bgd']r'`c#ae'r['`c#ae']'`c#ae'^^^r:'`c#ae'r'`c#ae'r['`c#ae']r'`dbf#'r['`dbf#']'`dbf#'^^^r]['bgd'r'bgd'r['bgd']r'`c#ae'r['`c#ae']'`c#ae'^^^r]
'`c#ae'r'`c#ae'r['`c#ae']r'`dbf#'r['`dbf#']'`dbf#'^^^rM=0TrackKey=K}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT1;FTI;DL=SB2;FT4;FT5;SBUP[FT1:REC2]TrackKey=K;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3p.T(64,64,!4,70,127,!2)'a"a`a'^^^>p=64}
STR BG3={V=127l4BR=24p.T(64,0,!1)@128,3'gab'^^^^^^^V=100}STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@126,8BR=40l4P.T(0,127,!2,127,0,!2,0,127,!2,127,0,!2)EP=100p.T(127,0,!1^1)'gfe'^^^^^^^EP=127p=64P=64}STR BG6={@120,0l4'cd'^^^}
STR BG7={l4[@123,2P=64'"dg`d'^^^^^^^:[8r]]}STR BG8={l4@123,2P=64'"dg`d'^^^^^^^}STR BG9={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<rrrrp=64}
STR BG10={>>@123,5l32P=70BR=36p.T(32,64,!1)[32`e]<<rrrrp=64}STR DT1={TrackKey=K@101,0EP=90M=80l8[6r]HAM({>SUB{[g^f#^^^g^^^a^^^^^^^:e^^^^^^^[6r]]}[b^a^^^b^^^`c#^^^^^^^:a^^^^^^^[6r]]<})TrackKey=0EP=127M=0}
TR=16DL=BGN+7BG9;DL=ME1+7BG6;DL=ME2+7BG4;DL=SB1+14BG1;BG10;DL=RF1+7BG9;DL=ME3;DT1;DL=ME3+7BG6;DL=ME4+7BG4;DL=NK1+6BG1;BG10;DL=SB2+14BG1;BG4;DL=SB3+18BG1;DL=END+7BG9;

}If(TRACK_SELECT==3){

INT EST=140PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"HOT HOT POOLSIDE"}Copyright={KZ-5 Technology}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,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,3,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,063,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,3,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,063,08,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,120,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,100,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 NK1=73INT RF2=89INT SB2=98INT RF3=122INT END=138
STR SBUP={TrackKey=(K+1)}STR SBUP2={TrackKey=(K+2)}
/*1*/STR MN1={[7r][`c^`c`d#`c`g^r`c^`c`d#`c`g^`g:`f^`d`d`d^`ca#ga#`cr`c^^r]`f^`f`f`f^`a#`g#`g#^`g^^^r}
/*STR MN2={`c`d#`g^^`d#^^`c^`g^^`g#^^`g^`f^^`d^^`c^a#^^^^^rr`d#^^`c^^`d#^`f^^`d^^`f^``c^^^^`d#`f``c^^^^^^rr}*/
STR MN2={`d#`f[`g^`g#`g^`g#^`g#`g^`f`d#^`f^:r;`f^`g`f^`g^`g`f^`d#`d^`d#^r]`f^`g`g^^^^r``c^^``c^^^r}
STR MN3={SBUP[`g`f`d#`cr`c`d`d#`g`f`d#`cr`c`d`d#`a#`g#`g`d#r`d#`g`d#:`f^`d`c^a#^r]`f^^^^rrrTrackKey=K}
/*STR MN3={>SBUP[[`g^g#`c`g`gr`g`f^`d#`d^r:`d`d#`f`f`f`f`f`a#r`f`d#^`f`g^^^r]`d#`g^^^^^^rr`g#^^^`g^^^]<}
STR MN4={>SBUP[[`c`d`d#g^`c`d#g^a#`c`d#^`d^r][`d#`f`g`c^`d#`g`c^`d`d#`g^`f^r]]<TrackKey=K}*/
STR MN4={EP=110[MD({`ca#g#f},7,!2)[28r]]EP=127}STR MN5={SBUP[MD({`g`f`d#`c},7,!2)[28r]]TrackKey=K}
STR MN6={SBUP2[7r]MD({`c^`c`d#`c`g^r`c^`c`d#`c`g^`g},1,!1^1)[16r]REC2[MD({`c^`c`d#`c`g^r`c^`c`d#`c`g^`g},1,!1^1)[16r]]}
TR=1l8DL=ME1-1@82,111,3q=95V=110MN1;MN2;MN3;DL=ME3-1MN1;MN2;DL=NK1+8MN4;DL=SB2[MN3]MN5;DL=END-1MN6;
/*2&3&4*/STR RTA={BR=6If(CH==2){@82,110,0}If(CH==3){p%=200@82,110,0}If(CH==4){p%=-200@82,110,0}}
STR RTB={BR=6If(CH==2){@19,110,0}If(CH==3){p%=200@82,110,0}If(CH==4){p%=-200@82,110,0}}
STR RTH={EP=95RTB;SUB{[[g#gfc^c"a#c]g#gfc#^c#cc#;fd#c:c^c"g#c]c^^^}[`ca#g#f^fd#f`ca#g#f^fd#f`ca#g#f^fd#fg#gd#:d#^d#cd#]d#^^^r}
STR RT1={EP=110RTA['`cg#'^]'`cg#''`cg#'^'a#g'^^^^^^^^['`da#'^]'`da#''`da#'^'`cg'^^^^^^^^;
['`d#`cg#'^]'`d#`cg#''`d#`cg#'^'`da#g'^^^^^^^^['`f`da#'^]'`f`da#''`f`da#'^'`g`d#`cg'^^^^^^^^;}
STR RT2={EP=110RTA;rr'`cg#''`cg#'^^^^'a#g'^^^^^^^rr'a#g''a#g'^^^^'`cg'^^^^^^^rr'`d#`cg#''`d#`cg#'^^^^'`da#g'^^^^^^^rr'`f`da#''`f`da#'^^^^'`g`d#`cg'^^^^^^^}
STR RT3={SBUP;If(CH!=2){EP=110@100,0If(CH==3){p%=200}Else{p%=-200}
HAM({>[14r]SUB{g#g^^g#g^^g#g^^fd#^d^^^}`ca#^^`ca#^^`ca#^^g#g^f^^^[13r]SUB{g#g^^g#g^^g#a#^^^^}`ca#^^`ca#^^`c`d^^^^rrr<})}TrackKey=K}
STR RT4={SBUP2;EP=110RTA[['`cg#'^]'`cg#''`cg#'^'a#g'^^^^^^^^][['`d#`cg#'^]'`d#`cg#''`d#`cg#'^'`da#g'^^^^^^^^]SBUP2;RT1;TrackKey=K}
STR RT5={SBUP2;If(CH!=2){EP=100@103,0If(CH==3){p%=100}Else{p%=-100}
HAM({>SUB{`d#^^^^^g#^g#^g#^a#^`f^`d^^^^^^^a#^^^g^^^}`g^^^^^`c^`d#^`c^`d#^`a#^`g^^^^^^^`d^^^a#^^^<})
REC2[HAM({>SUB{`d#^^^^^g#^g#^g#^a#^`f^`d^^^^^^^a#^^^g^^^}`g^^^^^`c^`d#^`c^`d#^`a#^`g^^^^^^^`d^^^a#^^^<})]}TrackKey=K}
STR RRF={l8DL=HAZ+8RTH;DL=BGN;RT1;DL=RF1;RT1;DL=NK1+8RTH;DL=RF2;RT2;DL=SB2+16RT3;DL=RF3;RT4;DL=END;RT5;}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSH={[8ffrfl16fcd#fg#cg#gl8]}STR BSI={>[8"ff][4"c#c#][4"cc][8"ff][4"c#c#]<d#^^^^^^&&"d#}
STR BS1={[[4"g#g#][4"a#a#][4"gg][4c`c]]/*[[8g#][8a#][8g][8`c]]*/}STR BS2={[[8"g#g#][4"gg][4c`c]]}/*STR BS3={[16g#][16g][8f][8g][16`c]}*/
STR BS3={[[4"g#g#][4"a#a#][4"gg]:[4c`c]]c^^c^^^r}STR BS4={SBUP[[4c`c][4"g#g#][4d#`d#]:[4"a#a#]][4"a#^]TrackKey=K}/*STR BS4={SBUP[[[8f][8a#]:[8g][8`c]][8`d#][8`c#]]}STR BS5={SBUP[8[8`c][4g#][4a#]]TrackKey=K}*/
STR BS5={[32r]q=100"g#^^^^^^^"a#^^^^^^^"g^^^"g^^^c^^c^^^rq=90}STR BS6={SBUP;l4q=100[c^^^"g#^^^:d#^^^"a#^^^]d#^d#^"a#^^^q=90l8TrackKey=K}
STR BS7={SBUP2[4[4"g#g#][4"a#a#]][[4"g#g#][4"a#a#][4"gg][4c`c]]TrackKey=K}
STR BS8={SBUP2[8"g#g#][4"gg][4c`c]REC2[[8"g#g#][4"gg][4c`c]]TrackKey=K}
STR BASS={l8<<DL=HAZ;BSH;BSI;DL=BGN;V=105BS1;BS2;BS3;BS4;BS1;BS2;BS5;BSH;BSI;BS1;DL=SB2;BS6[BS4]DL=RF3;BS7;BS8;}TR=5@34,90,1BASS;TR=7@35,90,1BASS;
/*6*/STR COH={@49,90,1EP=100[>'fc"g#'^^^'gd#c'^^^'g#fc'^^^'a#gd#'^^^<]}
STR COI={@55,110,8EP=100[['`f`cg#'^^^]'`f`c#g#'^^^:'`d#`cg'^^^]'`g`d#a#'^^^}
STR CO1={@55,110,8EP=120'`d#`cg#'^^^'`da#g'^^^'`da#g'^^^'`d#`cg'^^^'g#`c`d#'^^^'a#`d`f'^^^'g`d`f'^^^'`c`d#`g'^^^}
STR CO2={@49,90,1EP=110['`d#`cg#'^^^^^^^'`da#g'^^^'`d#`cg'^^^]}
STR CO3={@49,90,1EP=110['`d#`cg#'^^^'`f`da#'^^^'`fa#g'^^^'`g`d#`c'^^^]}
STR CO4={SBUP@49,90,1EP=120['`d#`cg'^^^'`cg#d#'^^^'`g`d#a#'^^^'`f`da#'^^^]TrackKey=K}
STR CO5={SBUP2@55,110,8EP=120[4'`d#`cg#'^^^'`da#g'^^^]'`d#`cg#'^^^'`da#g'^^^'`da#g'^^^'`d#`cg'^^^'g#`c`d#'^^^'a#`d`f'^^^'g`d`f'^^^'`c`d#`g'^^^TrackKey=K}
STR CO6={SBUP2@49,90,1EP=110'`d#`cg#'^^^^^^^'`da#g'^^^'`d#`cg'^^^REC2['`d#`cg#'^^^^^^^'`da#g'^^^'`d#`cg'^^^]TrackKey=K}
TR=6l4<DL=HAZ;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3;COH;COI;CO1;DL=SB2[3CO4]CO5;CO6;
/*8&9*/STR ULA={BR=6If(CH==8){p%=100}Else{p%=-100}}STR UL1={ULA;EP=110[7r][g#^g#`cg#`d#^rg#^g#`cg#`d#^`d#:`d^a#a#a#^g#gd#ggrg^^r]`d^`d`d`d^`f`d#`d#^`c^^^r}
STR UL2={ULA;EP=120`c`d[`d#^`f`d#^`f^`f`d#^`d`c^`d^:r`d^`d#`d^`d#^`d#`d^`ca#^`c^r]`d^`d#`d#^^^^r`g^^`g^^^r}
STR UL3={ULA;SUB{MN3}SBUP;EP=120SUB{[a#g#gd#rd#fga#g#gd#rd#fg`d#`d`cgrga#g:a#^gf^d#^r]a#^^^^rrr}[`d#`d`cgrgg#a#`d#`d`cgrgg#a#;`g`f`d#`cr`c`d#`c:`d^a#g#^g^r]`d^^^^rrrTrackKey=K}
STR UL4={ULA;EP=100[MD({g#gfc},7,!2)[28r]]}STR UL5={ULA;SUB{MN5}SBUP;EP=120[MD({SUB{a#g#gd#}`d#`d`cg},7,!2)[28r]]TrackKey=K}
STR UL6={ULA;EP=110[7r]SBUP2;MD({g#^g#`cg#`d#^rg#^g#`cg#`d#^`d#},1,!1^1)[16r]REC2[MD({g#^g#`cg#`d#^rg#^g#`cg#`d#^`d#},1,!1^1)[16r]]}
STR ULMR={DL=ME1-1@82,110,3q=95l8UL1;UL2;UL3;DL=ME3-1UL1;UL2;DL=NK1+8UL4;DL=SB2[UL3]UL5;DL=END-1UL6;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n35n36}STR O1={'OA'}STR O2={'n55n28n39n40OA'}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[15r]O4:[15r]][11r][4O1][15DM1][4O1]}STR DDI={[16DM1][6DM2]O3[7r][O1;r][4O1]}STR DDJ={BR=24p%.T(-8000,8000,!1^1)[16'n38n40']@25,90,1BR=20p%=1500}
STR DD1={DM6[6DM2]O3[7r][5O1]r[O1]}STR DD2={DM6;DM7}STR DD3={DM6[4DM2]SUB{n49}DM2;SUB{n57}DM2;l8O3;rrO5;rrrrl16}STR DD4={DM6;DM13}
STR DD5={O3[61r]O1;rO3[15r]O4[15r]O3[7r]O4[7r]l8O3;rrO3;rrrrl16}STR DD6={O3[61r]O1;rSUB{[6rrrr'n55n28n39n40'rrr]}O3[15r]O4[15r]O3[7r]O4[7r][8O1;r]}
STR DD7={SUB{[4n49[15r]n57[15r]]}[8O1[7r]]SUB{[8rrrr'n55n28n39n40'rrr]}[3O1;rrr;rrO1;rO1[7r]][7O1;r][O1]}STR DD8={DM6;REC2;DD2}
TR=10l16DL=HAZ@25,90,1BR=20p%=1500DDH;DDI;DL=BGN@25,90,1BR=20p%=1500V=110DD1;DD2;DD3;DD4;DD1;DD2;DD5;DDH;DDI;DD1;DDJ;DL=SB2;DD6[DD4]DD7;DD1;DD8;
/*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={[16GR;rGA;r][16GR;rGB;r]}STR GGI={[16GR;rGB;r][12[GR]GB;r]GP2}
STR GG1={[28GR;GR;GB;r]GP1}STR GG2={[32GR;rGB;r]}STR GG3={[28GR;rGB;r]l8GB;rrGB;rrrrl16}STR GG4={[28GR;GR;GB;r]GP2}STR GG5={[15'n51'rrr]'n51'GR;GB;r[12GR;rGB;r]l8GB;rrGB;rrrrl16}
STR GG6={[8n51:[7r]]rrr'n51'GR;GB;r[12GB;rrr]GP2}STR GG7={[8GB[7r]][7GB;rrrGR;rGR;r][GB;rGR;r]}STR GG8={[16GR;rGB;r]REC2[32GR;rGB;r]}
TR=11l16DL=HAZ@27,90,0BR=20p%=1000GGH;GGI;DL=BGN@27,90,0BR=20p%=1000GG1;GG2;GG3;GG4;GG1;GG2;GG5;GGH;GGI;GG1;DL=SB2;GG6[GG4]GG7;GG1;GG8;
/*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}
TR=12l16DL=HAZ+8@17,100,0PD3;DL=BGN@17,100,0PD3;DL=SB1[PD3]DL=NK1+8[PD3]DL=SB2[3PD3]DL=RF3[PD3]
/*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]}
TR=13l16<DL=HAZ@119,9REV=80PG1;DL=HAZ+7DS2;DL=HAZ+15DS8;DL=BGN+3DS12;DL=BGN+7DS14;DL=ME1+3DS13;DL=ME1+7DS2;DL=ME2+7DS8;DL=SB1+7DS15;DL=RF1+3DS12;DL=RF1+7DS14;DL=ME3+3DS13;DL=ME3+7DS2;DL=ME4+7DS8;
DL=RF2+3DS12;DL=RF2+7DS14;DL=SB2+7DS8;DL=SB2+15DS15;DL=SB2+23DS15;DL=RF3+3DS11>DL=RF3+7DS17<DL=RF3+11DS12;DL=RF3+15DS14;DL=END+3DS13;DL=END+4REC2;DL=END+7DS2;
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}
STR SPH={@1,90,0EP=100l8[fcd#frcd#fgcd#grcd#gg#cfg#rcfg#a#d#ga#rd#ga#]}STR SPI={@1,90,0EP=100l8[["f"f'fc"g#'^"f'fc"g#'^'fc"g#']"c#"c#'c#"g#"f'^"c#'c#"g#"f'^'c#"g#"f':"c"c'c"g"d#'^"c"c'c"g"d#'"c][8r]}
STR SP1={@100,0EP=100l8HAM({g#a#`cg#a#`cg#`c;a#`c`da#`c`da#`d;ga#`dga#`dg`d;`c`d`d#`c`d`d#`c`d#;`c`d#`g`c`d#`g`c`g;`d`d#`f`d`d#`f`d`f;a#`d`fa#`d`fa#`f;`d#`f`g`d#`f`g`d#`g})}
STR SP2={@9,0EP=80l8HAM({[[g#`c`d#g#`c`d#g#`d#]ga#`dga#`dg`d;`c`d`d#`c`d`d#`c`d#]})}
STR SP3={@11,0EP=80l8HAM({[g#`c`d#g#`c`d#g#`d#;a#`d`fa#`d`fa#`f;g`d`fg`d`fg`f:`c`d#`g`c`d#`g`c`g][8r]})}
STR SP4={SBUP@11,0EP=90HAM({[`cg`dg`d#g`d#`c^g#`dg#`d#g#`d#;a#^g`d#g`gg`g`d^:a#`d#a#`fa#`f`d]rrrrrrr})TrackKey=K}
STR SP5={SBUP2@100,0EP=100l8[32r]HAM({[g#a#`cg#a#`cg#`c;a#`c`da#`c`da#`d]})SP1;TrackKey=K;}
STR SP6={SBUP2;@9,0EP=80l8HAM({[g#`c`d#g#`c`d#g#`d#]ga#`dga#`dg`d;`c`d`d#`c`d`d#`c`d#})REC2;HAM({[g#`c`d#g#`c`d#g#`d#]ga#`dga#`dg`d;`c`d`d#`c`d`d#`c`d#})TrackKey=K}
TR=14DL=HAZ;SPA;SPH;SPI;DL=BGN;SPA;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SPH;SPI;SP1;DL=SB2+8[SP4]SP5;SP6;
/*15*/STR FTH={@66,90,1EP=100l4[BR=12p.T(64,64,!1^1,64,127,!16)'fc"g#'^^^^^^^^^^^^^^^]p=64}
STR FTI={@82,110,0EP=80[[MD({l16'fc"g#'^^r'fc"g#'^^rl8},1,!2)rrrr]MD({l16'fc"g#'^^r'fc"g#'^^rl8},1,!2)rrrr:MD({l16'd#c"g'^^r'd#c"g'^^rl8},1,!2)rrrr]'gd#"a#'^^^^^rr}
STR FT1={@101,0EP=110l8HAM({['`cg#d#'^^^^^'`cg#d#''a#gd'^^^^^^^^'a#gd'^^^^^'a#gd''`cgd#'^^^^^^^^]})}
STR FT2={[@82,110,0EP=90[rr'`cg#d#''`cg#d#'^^^^]'a#gd'^^^^^^^:@1,90,0EP=110HAM({SUB{"gcd#g`cd#g`c}cga#`c`d#g`c`d#})]rr'`cgd#''`cgd#'^^^^}
STR FT3={@101,0EP=100['`d#`cg#'^^^^^'`d#`cg#''`da#g'^^^^^^^^'`da#d'^^^^^'`da#d''`d#`cg'^^^^^^^^]}
STR FT4={SBUP[@82,110,0EP=100MD({l16'`cgd#'^^r'`cgd#'^^rl8},1,!2)rrrrMD({l16'`cg#d#'^^r'`cg#d#'^^rl8},1,!2)rrrrMD({l16'`d#a#g'^^r'`d#a#g'^^rl8},1,!2)rrrr:
@101,0EP=90HAM({SUB{`d^a#g#^g^}`f^`d`c^a#^r})]'`f`da#'^^^^^rrTrackKey=K}
STR FT5={SBUP[@82,110,0EP=110MD({l16'`cgd#'^^r'`cgd#'^^rl8},1,!2)rrrrMD({l16'`cg#d#'^^r'`cg#d#'^^rl8},1,!2)rrrrMD({l16'`d#a#g'^^r'`d#a#g'^^rl8},1,!2)rrrr:
@101,0EP=120HAM({SUB{`d^a#g#^g^}`f^`d`c^a#^r})]'`f`da#'^^^^^rrTrackKey=K}
STR FT6={SBUP2@101,0EP=110l8HAM({[4'`cg#d#'^^^^^'`cg#d#''a#gd'^^^^^^^^]})FT1;TrackKey=K}
STR FT7={SBUP2@82,110,0EP=90@82,110,0EP=90[rr'`cg#d#''`cg#d#'^^^^]'a#gd'^^^^^^^@1,90,0EP=110HAM({SUB{"gcd#g`cd#g`c}cga#`c`d#g`c`d#})
REC2@82,110,0EP=90[rr'`cg#d#''`cg#d#'^^^^]'a#gd'^^^^^^^@1,90,0EP=110HAM({SUB{"gcd#g`cd#g`c}cga#`c`d#g`c`d#})TrackKey=K}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FTH;FTI;FT1;DL=SB2+8FT4;FT5;DL=RF3;FT6;FT7;
/*16*/STR BG1={@120,0REV=100CHO=100l4rr'cde'^}STR BG2={@80,0l4EP.T(127,30,!1)P.onCycle(!4,64,24,104,0,127)[4BR=90p.T(100,50,!4)c]p=64P=84EP=127}
STR BG3={@120,0REV=100CHO=100l4r'cde'^^}STR BG4={@128,2EP.T(127,30,!1)l8[8'cdef']EP=127}
TR=16DL=HAZ-1BG1;DL=HAZ+7BG1;DL=BGN+7BG2;DL=ME1+7BG3;DL=ME2+7BG2;DL=SB1+7BG4;DL=RF1+7BG2;DL=ME3+7BG3;DL=ME4+7BG2;DL=NK1+7BG1;DL=RF2+7BG2;DL=SB2-1BG3;DL=SB2+7BG2;DL=SB2+15BG3;DL=SB2+23BG4;
DL=RF3+7BG1;DL=RF3+15BG2;DL=END+3BG1;DL=END+4REC2;DL=END+7BG3;

}