INT TRACK_KEY			=	0	; //キー設定

INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"CALLING CHANCE"}Copyright={H゛}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,0,0,127,09,0)WIN(07,07,039,00,0,K,084,0,0,110,09,0)WIN(13,13,119,00,0,0,___,0,0,127,10,0)
WIN(02,02,082,00,0,K,064,0,0,100,09,0)WIN(08,08,012,08,0,K,000,0,0,100,09,2)WIN(14,14,082,00,0,K,___,0,0,110,10,0)
WIN(03,03,082,00,0,K,054,0,0,100,10,0)WIN(09,09,012,08,0,K,127,0,0,100,09,2)WIN(15,15,003,00,0,K,080,0,0,120,10,0)
WIN(04,04,082,00,0,K,074,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,0,084,0,0,127,10,0)
WIN(05,05,039,01,0,K,044,0,0,110,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=3INT BGN=19INT ME1=27INT ME2=35INT SB1=43INT RF1=51INT ME3=59INT ME4=67INT SB2=75INT RF2=91
INT NK1=101INT NK2=109INT NK3=117INT NK4=125INT SB3=135INT SB4=151INT END=159
/*1*/STR MN1={d#^`f^`d#^`d^`c^a#^g^a#^`d^^^^^^^^^[6r]d#^`f^`d#^`d^`c^a#^a^g^`d^^^^^^^^^rrrr}
STR MN2={[`f`d#`d^^`grr`da#`d^^`grr:`da#`c^^`f^^`d#^`d^^^^r]`d`d#`f^^`g^^`a^`g^rr}
STR MN3={l8>`d`ca#g[a#^a#^a^rd`d`ca#`d^`ca#g:a#^a#^`c^`f`d^^^rgaa#g]a#^^a#aa^rf^f^a^^r<}
STR MN3A={l8>[`d`ca#g[a#^a#^a^rd`d`ca#`d^`ca#g:a#^a#^`c^`f`d^^^rgaa#g]a#^^a#aa^r:`c^^`d]f^f^a^^r<}
STR MN3B={l8>[`d`ca#g[a#^a#^a^rd`d`ca#`d^`ca#g:a#^a#^`c^`f`d^^^rgaa#g]a#^^a#aa^r`c^^`d]<}
STR MN3C={l8>`d`ca#g[a#^a#^a^rl16rrgrfrgrfra#`cra#rg^r:grd#rgrd#ra#`cra#^`c`d^`d^`d#`dr`d#r`dl8gaa#g]l16grcrgrcra#^^`ca#`c`d^^`d`d`d`d#^`d^`d^^^^rrrl8}
TR=1l8DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3A;DL=SB3-1rrrrMN3B;MN3C;
/*2&3&4*/STR CUS={d#g"a#}STR CU2={ge"b}STR DSS={f"a`c}STR DV2={`c#f"a#}STR CVS={`d"a#g}STR CV2={`c#g#f}STR DVS={`ca"f}STR DV3={afc}
STR RTA={@109,0BR=6If(CH==3){p%=200@82,0}If(CH==4){p%=-200@82,0}}
STR RTB={BR=3If(CH==3){p%=200}If(CH==4){p%=-200}}
STR RTC={@14,0BR=6If(CH==3){p%=250@82,8}If(CH==4){p%=-250@82,8}}
STR RTH={If(CH==2){<@18,0l8BR=3p%=1500gp%=-1500aap%=1500grrp%=-1500g#arrrr@81,8[3a^^^l16rrrl8][8a^^^^rrr]>p%=0}}
STR RTI={If(CH!=2){RTB;l16>@82,1[3MidiDelay({rr'afc''afc'},7,!4)[28r]]<@103,2l16EP.T(60,100,!1)SUB{`d^`dr`d`dr`d}SUB{`f^`fr`f`fr`f}HAM({[4a^frafra]})}}
STR RTJ={If(CH==2){l16[128r]p%=0@109,0EP=100HAM2({[MD({aabb"a`c"gg"a`er`dr`cra"aa"aac`c"garrrrrrrr},1,!1^1)[32r]]})EP=127}
If(CH!=2){RTB;l8[@82,1'aec'^'gd"b'^'aec'^re'aec''aec''gd"b''aec'^'gd"b''aec'^:@9,0HAM({>"aa`ca`d`err<})@82,1'aec''aec''gd"b''aec'^rrr]
@9,0HAM({>"aa`cagergaagarrrr<})}}
STR RT1={RTA;EP=100l16
SUB{[[d#^d#d#^d#d#^d#^d#^^^d#^]:f^ff^ffff^f^^^f^g^gg^gg^a#^"g^`d^"g^]
d^dd^dddd^d^^^d^g^gg^gf^`d^a#^`g^b^}
HAM2({[[`g^d#`d#^ga#`c>`d^`c^^^<`a#^]`f^d`d^dfg:>`c^a#^^^a^g^"dg^"df^g^"d^a#^"d^<]
>`c^a#^^^a^b^"gg^"gd^g^"g^b^"g^<})}
STR RT1A={RTC;EP=100l16SUB{[[d#^d#d#^d#d#^d#^d#^^^d#^]:f^ff^ffff^f^^^f^g^gg^gg^a#^"g^`d^"g^]d^dd^dddd^d^^^d^g^gg^gf^`d^a#^`g^b^}
HAM2({[[`g^d#`d#^ga#`c>`d^`c^^^<`a#^]`f^d`d^dfg:>`c^a#^^^a^g^"dg^"df^g^"d^a#^"d^<]>`c^a#^^^a^b^"gg^"gd^g^"g^b^"g^<})}
STR RT2={If(CH!=2){RTB;l8q=100EP=70HAM({>[12r]@89,0`d`ca#g[8r]@100,0"ddfd`d`ca#g[8r]@92,0"d#d#gd#`d`ca#g<})
@103,2l16EP.T(60,100,!1)SUB{`d^`dr`d`dr`d}SUB{`f^`fr`f`fr`f}HAM({[4a^frafra]})}}
STR RT3={If(CH!=2){RTB;l8[@86,0EP=90[rr'`da#g''`da#g'^^^^]'`caf'^^^^^^^:@99,1HAM({ga#`c`d`g`da#g})]@100,0HAM({ga#`c`dg`c`d`g})}}
STR RT4={If(CH!=2){RTB;l8>EP=90[@82,0'a#gd#'^'a#gd#'^'afc'^^r@99,1HAM2({dgaa#ga#`d`g}):@82,1'a#gd'r'a#gd'r'afc'r'afc''a#gd'^^^^^rrr]
@30,0EP=80`c&&^^^^^^^`d^^^^^^^<}}STR RT5={TrackKey=(K+2)SUB{d#^d#d#^d#d#^d#^d#^^^d#^l8a#^^^^^^^l16}HAM2({`g^d#`d#^ga#`c>`d^`c^^^<`a#^l8`g^^^^^^^l16})TrackKey=K}
STR RT6={If(CH==2){@81,8l8BR=3p%=-1500[8rr"a^^^^r]p=64}If(CH!=2){RTB;l16>@82,1[8MidiDelay({rr'aec''aec'},3,!4)[12r]]<}}
STR RT7={If(CH!=2){RTB;l16>@82,1[32r][4MidiDelay({rr'afc''afc'},3,!4)[12r]]<@103,2l16EP.T(60,100,!1)SUB{`d^`dr`d`dr`d}SUB{`f^`fr`f`fr`f}HAM({[4a^frafra]})}}
STR RT8={If(CH==2){p%=0@109,0EP=100HAM2({l16[4aabb"a`c"gg"a`er`dr`cra][4aabb"a`c"gg][4aabb]l8aaga^^^r})EP=127}
If(CH!=2){RTB;l8@9,0HAM({>[4"aa`ca`d`era][4"aa`ca]"aa`cagergaagarrrr<})}}
STR RT9={If(CH!=2){RTB;l8>EP=90[@82,0'a#gd#'^'a#gd#'^'afc'^^r@99,1HAM2({[8r]}):@82,1'a#gd'r'a#gd'r'afc'r'afc''a#gd'^^^^^rrr]@30,0EP=80`c&&^^^^^^^`d^^^^^^^<}}
STR RRF={l16DL=HAZ-3RTH;DL=HAZ;RTI;RTJ;DL=BGN;M.W(0,127,!16)RT1;RT2;RT3;RT4;DL=RF1;RT1;DL=ME3;RT2;RT3[RT4]DL=RF2;RT1A;RT5;
DL=NK1;M=0RT6;RT7;RTJ;RT8;DL=SB3+8RT4;RT9;DL=END[RT1:REC2]}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,60,100)}STR BSH={l4[a&&^^^^^^^`a^^^^^^^]l8}STR BSI={[4[f`f][g`g][4a`a]]}
STR BS1={[[d#`d#]l16d#r`d#`d#l8[5d#`d#][4d`d]:[4g`g]]q=90l16g^rg^rg^BR=24g^^^^^&&`grl8BSA}
STR BS1A={q=97l2BR=32`d#^^^^^^&&"gl8BSA[d#`d#]l16d#r`d#`d#l8[5d#`d#][4d`d]q=90l16g^rg^rg^BR=24g^^^^^&&`grl8BSA}
STR BS2={[[8d#`d#]:[8d`d]][7d`d]dd}STR BS3={[[8d#`d#]:[4d`d][4g`g]][4d:`d]g^rg^^^rr}
STR BS3A={q=95l4>d#^^^d#^^^d^^^"g^^^<l8BSA[8d#`d#][4d:`d]g^rg^^^rr}
STR BS4={[d#`d#][f`f][4g`g][c`c][d`d][4g`g][d#`d#][f`f][4g`g][4c`c][4d`d]/*{[[c`c][d`d]:[4g`g][d#`d#][f#`f#][4g`g]][g`g][e`e][d#`d#][f#`f#][4g`g]}*/}
STR BS5={BR=12p.T(64,0,!1)q.T(10,95,!1)l16`a^`a`a^`a`a^`a^`a^^^`a^l4q=95`a^^^p=64}
STR BS6={l8[[a`ar`ar`ar`ar`ar`a:`e`e`g`e]l16`er`er`e`e`g`el8]}STR BS7={BSA[16r][24a`a]}STR BS8={[32a`a]}STR BS9={q=100l4`d^^^^^^^}
STR BS10={q=100l4>d#^f^g^^^c^^^d^^^<l8BSA}
STR BASS={l8<<DL=HAZ;EP=110BSH;BSI;DL=BGN;EP=110BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS3A[BS4]BS1A;BS5;
DL=NK1;BS6;BS7;BSI;BS8;BS9;DL=SB3+4BS10[BS4][BS1:REC2]}TR=5;<BASS;TR=7;BASS;
/*6*/STR COH={@103,0EP=100[8'afc'^^^]}STR COI={@104,0[a&&^^^^^^^`a^^^^^^r]}
STR CO1={l4EP=110@49,0['d#ga#'^^^^^^^'dfa'^^^:'dga#'^^^]'dgb'^'dga#'^}
STR CO2={EP=110@103,0ll4<SUB{>g^^fgaa#`ca^^^f^^^g^^fgaa#`cl8`d^^^^^^^^ga#g`d`ca#gl4<}['a#d#'^^^^^^^:'ad'^^^^^^^]EP.T(110,127,!1^1)'ad'^^^^^^^>}
STR CO3={EP=110@104,0l4['gd#"a#'^^^]'afd'^^^'a#gc'^'"g"a#d'^;'gd#"a#'^^^'fd"a#'^'gd#"a#'^'afd'^^^>'bgd'^'gd"a#'^<}
STR CO4={EP=110@81,0['d#ga#'^'fa`c'^'ga#`d'^^^:'cd#g'^'dfa'^'ga#`d'^^^]'cd#g'^^^'dfa'^^^}
STR CO5={EP=100@103,0SUB{[e^^^e^^^a^^^a^^^]}HAM2({[a^^^b^^^`c^^^`d^^^]})}
STR CO6={EP=100@104,0[7r]a&&`a^^^^^^ra&&^^^^^^^`a^^^^^^r}STR CO7={EP=100@104,0[a&&^^^^^^^`a^^^^^^r]}STR CO8={EP=110@103,0HAM({[a&&^^^^^^^`a^^^^^^r]})}
TR=6DL=HAZ;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3[CO4]DL=NK1;CO5;CO6;CO7;CO8;DL=SB3[3CO4][CO1:REC2]
/*8&9*/STR ULA={BR=6If(CH==8){p%=100}Else{p%=-100}}
STR ULH={ULA;l8EP=85[>rrSUB{c^^"a^^"a^^c^^^^^^^^^}SUB{f^^d^^d^^f^^^^^^^^^}a^^g^^g^^a^^^^^^^^^rrrrrrrrrrr<]}
STR UL1={ULA;l8EP=90d#^`f^`d#^`d^`c^a#^g^a#^`d^^^^^^^^^[6r]d#^`f^`d#^`d^`c^a#^a^g^`d^^^^^^^^^rrrr}
STR UL2={ULA;l8[EP=90;SUB{>a#g<}`d`c'a#g'^^'a#`d'rrSUB{a#a#g^^a#}>gaa#^^`drr<:EP=100`f`g`a^^``c^^a^EP=90'`a#g'^^^^r]
SUB{a#`c`d^^`d#^^`f^`d^^rr}gaa#^^`c^^`d^a#^^r}
STR UL3={ULA;l8EP=100;>SUB{fd#d"a#}<a#gfdSUB{>[d^d^c^r"ffd#df^d#d"a#:d#^d#^f^ag^^^rrrrr]<}[g^g^f^r"aagfa^gfd:g^g^a^`ca#^^^rSUB{a#`c`da#}>d#fgd#<]SUB{>d#^^d#dd^r"a#^"a#^c^^<}g^^gff^rd^d^f^^r}
STR UL3A={ULA;l8EP=100[>SUB{fd#d"a#}<a#gfdSUB{>[d^d^c^r"ffd#df^d#d"a#:d#^d#^f^ag^^^rrrrr]<}[g^g^f^r"aagfa^gfd:g^g^a^`ca#^^^rSUB{a#`c`da#}>d#fgd#<]SUB{>d#^^d#dd^r<}g^^gff^r:SUB{>f^^f<}a^^a]SUB{>"a#^"a#^c^^<}d^d^f^^r}
STR UL3B={ULA;l8EP=100;>SUB{fd#d"a#}<a#gfdSUB{>[d^d^c^r"ffd#df^d#d"a#:d#^d#^f^ag^^^rrrrr]<}[g^g^f^r"aagfa^gfd:g^g^a^`ca#^^^rSUB{a#`c`da#}>d#fgd#<]SUB{>d#^^d#dd^r<}g^^gff^rSUB{>f^^f<}a^^a}
STR UL4={ULA;l8EP=85rr>SUB{c^^"a^^c^^^^^^^}SUB{f^^d^^f^^^^^^^}a^^g^^a^^^^^^^<}
STR UL5={ULA;l8EP=85[32r]>rrSUB{c^^"a^^"a^^c^^^^^^^^^}SUB{f^^d^^d^^f^^^^^^^^^}a^^g^^g^^a^^^^^^^^^rrrrrrrrrrr<}
STR UL3C={ULA;l8EP=100;>SUB{fd#d"a#}<a#gfd[SUB{>d^d^c^r<}g^g^f^rl16rrdrdrdrdrfgrfrd^r:drdrdrdrfgrf^ga^a^a#ara#ral8SUB{a#`c`da#}>d#fgd#<]l16dr"grdr"grf^^gfga^^aaaa#^a^a^^^^rrrl8}
STR ULMR={DL=HAZ;ULH;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3A;DL=RF2+8UL4;DL=NK2;UL5;DL=SB3+7rrrrUL3B;UL3C;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n32n35n36n86n26}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 DDH={['OA'^^^[60r]]}STR DDI={[28'OA'^^^][4'OA'^][8r]}STR DD1={[28'OA'^^^]['OA'^^]['OA']'OA'^^^^^^^}
STR DD1A={'OA'^^^[60r][12'OA'^^^]['OA'^^]['OA']'OA'^^^^^^^}STR DD2={[31'OA'^^^]['OA'^]}
STR DD3={[27'OA'^^^]l8'OA''OA'rr'OA'rrrrrl16}STR DD3A={[4'OA'^^^[12r]][11'OA'^^^]l8'OA''OA'rr'OA'rrrrrl16}STR DD4={[29'OA'^^^][6r]O1;rO1;rrr}
STR DD5={'OA'^^^[4r]l8[['OA']r]rrrrrrl16}STR DD6={['OA'^^^[26r]'OA'^['OA'^^^]:[24r]][8r][4'OA'^^^]}
STR DD7={[32r][20'OA'^^^][16r]}STR DD8={[32'OA'^^^]}STR DD9={[16'OA'^^^][16'OA'^][8'OA']l32[16'OA']l8[4'OA']rr'OA'rl16}
STR DD10={'OA'^^^[58r]'OA'^'OA'^^^'OA'^^^[24r]['OA'[7r]]EP.T(30,127,!1)[8'OA'r]}
TR=10l16DL=HAZ;BR=20p%=1200V=127@25 EP.W(127,0,!6)DDH;DDI;DL=BGN;BR=20p%=1200V=127@25 EP.W(127,0,!6)DD1;DD2;DD3;DD4;DD1;DD2;DD3A[DD4]DD1A;DD5;
DL=NK1;DD6;DD7;DD8;DD9;DL=SB3;DD10[DD4][DD1:REC2]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n53n54n42'}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={[8[12r]rrGB;r]}STR GGI={[28rrGB;r][4GB;r][8r]}
STR GG1={[28rrGB;r]SUB{n49[7r][n52rrr]}GR;GR;GB;rGR;rGB;rGR;GR;GB;GR;rrrr}
STR GG1A={[4[12r]rrGB;r][12rrGB;r]SUB{n49[7r][n52rrr]}GR;GR;GB;rGR;rGB;rGR;GR;GB;GR;rrrr}STR GG2={[31rrGB;r][DR;r]}
STR GG3={SUB{[[[12r]n49rrr][32r]]}[28rrGB;r][DR;rl24[3GR]l16rr][DR;r]}
STR GG3A={SUB{[[[12r]n49rrr][32r]]}[3[8r][rrGB;r]][3rrGB;r]rr[GB][12rrGB;r][DR;rl24[3GR]l16rr][DR;r]}
STR GG4={[28rrGB;r]SUB{n49}[4rrGB;r]}STR GG5={[3'n51n59'rrrrrrr][GR;rGB;r]}STR GG6={[7[12r]rr'n51n59'r][4rrGB;r]}
STR GG7={[32r][24rrGB;r]}STR GG8={[28rrGB;r][4GR;rGB;r]}STR GG9={[24rrGB;r][4GB;r][8GB][rrGB;r][GR;GR;GB;GR]}
STR GG10={[12rrrr'n51n59'rrr][4rr'n51n59'r][8'n51n59'r]}
TR=11l16DL=HAZ;BR=20p%=4500@26V=127GGH;GGI;DL=BGN;BR=20p%=4500@26V=127GG1;GG2;GG3;GG4;GG1;GG2;GG3A[GG4]GG1A;GG5;
DL=NK1;BR=20p%=4500GG6;GG7;GG8;GG9;DL=SB3;GG10[GG4][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={@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}
STR PDK={BR=20p%=3500SUB{[31rr'n31'r]}[15rrrr'n55n28'rrr][8r]}
STR PD13={SUB{n49}SUB{PDK}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr]'n38n40'rrr}
STR PPH={SUB{[32rr'n31'r]}n49[63r]n57[63r]}STR PPI={SUB{n49}[122r]'n35n36'r'n38n40'rrr}
STR PP1={SUB{n49}SUB{[8'n51'[7r]]}SUB{[64r][16rr'n31'r]}SUB{[64r][7rrrr'n28'rrr][8r]}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr]'n38n40'rrr}
STR PP3={SUB{[n49[15r]][n57[15r]]}PDK}STR PP4={SUB{n49}SUB{PDK}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[60r]n55rrr}
STR PP5={n49[7r]l8[n57rr]rrrl16'n35n36'r'n38n40'rrr}STR PP6={BR=20p%=3500SUB{[n49[31r][n57rrr][24r]]}[32rr'n31'r]}
STR PP7={[32r]n49[15r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51r:rr]'n35n36'r'n38n40'rrr}STR PP8={n49[123r]'n38n40'rrr}STR PP9={[4n49[15r]][4n49[7r]][4n49rrr]n57[7r][n49rrr]}
STR PP10={BR=20p%=3500n49[61r]'n51n59'r[n57rrr][24r][8n40r]l24[24n40]l16}
TR=12l16DL=HAZ@17V=115BR=20p%=3500PPH;PPI;DL=BGN@17V=115PD13[PDK]PP4;PD13;DL=ME3;PDK;PP3[PP4]PP1;PP5;DL=NK1;PP6;PP7;PP8;PP9;DL=SB3;PP10[PP4][PD13: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={[14r]`g`gg^g^g`g^g`d`ca#gfdfg}
TR=13l16DL=HAZ @119,8PG1;BR=32p.W(127,0,!24)DL=HAZ+3DS6;DL=HAZ+7DS7;DL=HAZ+11DS13;DL=HAZ+15DS7;DL=BGN;BR=32p.W(127,0,!24)DL=BGN+2DS18;DL=BGN+7DS2;
DL=ME1+3DS7;DL=ME1+7DS6;DL=ME2+3DS7;DL=ME2+7DS5;DL=SB1+3DS13;DL=RF1+2DS18;DL=RF1+7DS2;DL=ME3+3DS7;DL=ME3+7DS6;DL=ME4+3DS7;DL=ME4+7DS5;
DL=SB2+3DS13;DL=SB2+7DS6;DL=SB2+11DS13;DL=RF2+2DS18;DL=RF2+7DS2;DL=NK1+3DS2;DL=NK1+7DS7;DL=NK2+3DS6;DL=NK2+7DS7;DL=NK3+3DS13;DL=NK3+7DS7;
DL=SB3+3DS13;DL=SB3+7DS6;DL=SB3+11DS13;DL=SB3+15DS6;DL=SB4+3DS13;DL=END+2DS18;DL=END+7DS2;DL=END+8REC2;DL=END+10DS18;
/*14*/STR SPA={P.onCycle(!12,0,127)}
STR SPH={@25,0EP=100l8MD({[4"aa`ca`d`erar"a`ca`d`err]},2,!8)}
STR SPI={@26,0EP=95l8MD({[4"aa`ca`d`era:r"a`ca`d`err]},2,!8)'aec''aec''gd"b''aec'^^^r}
STR SP1={@29,0EP=100q=70l16[["g"d#"g"a#d#fga#'`d#g'a#gfgfd#"a#]"f"d"f"a"g"a"a#`d'`ga#'`da#gfd"a#"f:"g"d"g"a#"g"a"a#c'`g`d'd"a#"gdc"a#"g]
@6,24EP=127q=100"g"d"g"b"g"a"b`dEP=110SUB{a#gfd}`g`da#gSUB{ga#ga#}dg`d`g}
STR SP2={@28,0EP=100q=70l16SUB{[[@28,0"d#"d#"d#"d#@32,0'gd#"a#'^^@29,0"d#"d#"d#"d#"d#@31,0'gd#"a#'^@30,0"d#@28,0'gd#"a#']
:[@28,0"f"f"f"f@32,0'fc"a'^^@29,0"f"f"f"f"f@30,0'fc"a'^@31,0"f@28,0'd"a"f']]
[@28,0"f"f"f"f@32,0'd"a"f'^^@29,0"d"d"d"d"d@30,0'fc"a'^@64,0"f@63,0'd"a"f']}
MidiDelay({[[grd#grd#fg`dr`cr:d#fgd#]:`d`ca#g[frcdrfga`cra#r;gaa#g]]gaa#`c[a#rga#rgaa#`dr`cr:`d`ca#g]gaa#`d},3,!16)}
STR SP3={@28,0EP=100q=70l16SUB{[[@28,0"d#"d#"d#"d#@32,0'gd#"a#'^^@29,0"d#"d#"d#"d#"d#@31,0'gd#"a#'^@30,0"d#@28,0'gd#"a#']
@28,0"d"d"d"d@32,0'fd"a'^^@29,0"d"d"d"d"d@30,0'fd"a'^@31,0"d@28,0'fd"a'@28,0"g"g"g"g@32,0'gd"a#'^^@29,0"g"g"g"g"g@30,0'gd"a#'^@31,0"g@28,0'gd"a#']}
MidiDelay({[[grd#grd#fg`dr`cr:d#fgd#]:`d`ca#g;frcdrfga`cra#r;gaa#g;grara#`cra#`dr`cra#rgr]},3,!16)[36r]}
STR SP3A={@28,0EP=100q=70l16SUB{[64r][@28,0"d#"d#"d#"d#@32,0'gd#"a#'^^@29,0"d#"d#"d#"d#"d#@31,0'gd#"a#'^@30,0"d#@28,0'gd#"a#']
@28,0"d"d"d"d@32,0'fd"a'^^@29,0"d"d"d"d"d@30,0'fd"a'^@31,0"d@28,0'fd"a'@28,0"g"g"g"g@32,0'gd"a#'^^@29,0"g"g"g"g"g@30,0'gd"a#'^@31,0"g@28,0'gd"a#'}
MidiDelay({[64r][grd#grd#fg`dr`cr:d#fgd#]},3,!16)[36r]}
STR SP4={@109,0l16EP=75HAM({[[d#gaa#][faa#`c][ga#`c`d]ga#`c`d^`ca#g:[cd#fg][dfga][ga#`c`d]ga#`c`d^`ca#g][4cd#fg][4dfga]})}
STR SP5={@29,0EP=100q.T(10,150,!1)l16TrackKey=(K+3)["g"d#"g"a#d#fga#'`d#g'a#gfgfd#"a#]TrackKey=K;q=100}
STR SP6={@26,0EP=95l8[4"aa`ca`d`era:r"a`ca`d`err]'aec''aec''gd"b''aec'^^^r}
STR SP7={@109,0EP=75l16HAM({[d#gaa#][faa#`c][ga#`c`d]ga#`c`d^`ca#g[4cd#fg][4dfga]})}
TR=14DL=HAZ;SPA;SPH;SPI;DL=BGN;SPA;SP1;SP2;SP3;SP4;SP1;SP2;SP3A[SP4]SP1;SP5;DL=NK2;SPH[SP6]DL=SB3+4SP7[SP4][SP1:REC2]
/*15*/STR LC={"ccd#g`c}STR LC2={"ccea`c}STR LD={"ddf#a`d}STR LD2={"ddfa`d}STR LDS={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={"gga#`d`g}STR LG2={"ggb`e`g}
STR LA={"aa`c`e`a}STR LA2={"aa`c#`e`a}STR LAS={a#dg`a#}STR LB={b`dg`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 PDE(STR SWE,STR FF1){l8FF1;l16'SWE'rFF1'SWE'rFF1}
FUNCTION PDF(STR SWE,STR FF1){l16[3'SWE'r:FF1]}
FUNCTION PDG(STR SWE,STR FF1){[FF1]'SWE'^FF1'SWE'^'SWE'}
FUNCTION PDI(STR SWE,STR FF1){[FF1]'SWE'^}
FUNCTION PDJ(STR SWE,STR FF1){FF1'SWE'^'SWE'}
FUNCTION SPC(STR SPD){['SPD'^rr]['SPD'^^]'SPD'^}
STR FTH={@29,0EP=100l8<[8PDG(LA,{"a})]>l16}STR FTI={@5,24EP=95l8[4PDI(LF,{"f})PDJ(LG2,{"g}):PDG(LA,{"a})]['LA']'LG2''LA'^^^rl16}
STR FT1={l16@3,0q=70EP=100[[PDD(LDS,{"d#})]PDD(LD2,{"d}):PDD(LAS,{"g})]PDE(LB,{"d})PDF(LG,{"g})}
STR FT2={@1,0EP=105[[PDD(LDS,{"d#})][PDD(LD2,{"d})]]}
STR FT3={@1,0EP=105[[PDD(LDS,{"d#})]PDD(LD2,{"d}):PDD(LG,{"g})][16r]}
STR FT3A={@1,0EP=105[64r][PDD(LDS,{"d#})]PDD(LD2,{"d})[16r]}
STR FT4={@3,0EP=100[PDE(LDS,{"d#})PDF(LF,{"f})PDD(LG,{"g}):PDE(LC,{"c})PDF(LD2,{"d})PDD(LG,{"g})]PDD(LC,{"c})PDD(LD2,{"d})}
STR FT5={@4,0EP=100l8q=103"a"bc"acdce"a"aq=97'LA'^^^^rrr}STR FT6={@27,0EP=70l8<[8MD({PDG(LA,{"a})},2,!8)]>l16}
STR FT7={@29,0EP=90l8<[16r][6PDG(LA,{"a})]>l16}STR FT8={@6,16EP=110l8<[7PDG(LA,{"a})]@5,24['LA']'LG2''LA'^^^r>l16l16}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3A[FT4]DL=RF2+8FT5;DL=NK1;FT6;FT7;FTI;FT8;DL=SB3[3FT4][FT1:REC2]
/*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'^^r>p=64}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={@128,0l16[[12r]P.T(0,127,!4)'cde'^^^^^^^^^^^[40r]P=64]}
STR BG11={l1@126,8EP=100BR=16[p.T(0,127,!1^1^1^1)'>cde<'^^^]EP=127p=64}
STR BG12={l1@126,8EP=117BR=24p.T(127,64,!1^1^1^1)'>cd<'^^^EP=127p=64}
STR BG13={l1@126,8EP=100BR=16p.T(0,127,!1^1^1^1)'>cde<'^^^EP=127p=64}
STR BG14={@56,0l8TrackKey=K;EP=100HAM({aagarrrr})EP=127TrackKey=0}STR BG15={@56,0l8TrackKey=K;EP=105HAM({a[14r]gaa})TrackKey=0}
STR BG16={l1@126,8EP=100BR=16p.T(0,127,!1^1^1^1)'>cde<'^^^EP=127p=64}
STR BG17={@81,8l8BR=3p%=-1500v=100EP.T(100,50,!1^1^1^1^1)[5rra^^^^r]rrl4a^^^^^^^rp=64v=127}
TR=16DL=HAZ;BG11;DL=HAZ+8BG12;DL=BGN+7BG4;DL=ME2+6BG1;BG2;DL=SB1;BG10;DL=RF1+7BG4;DL=ME4;BG12;DL=ME4+6BG1;BG2;DL=SB2[BG10]DL=RF2+7BG4;
DL=NK2+4BG13;DL=NK3;BG12;DL=NK3+7BG14;DL=NK4+4BG15;DL=NK4+7BG4;DL=SB3-2BG16;DL=SB3+8BG10;DL=SB4;BG10;DL=END+7BG4;DL=END+8BG17;