CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/bells.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/hats.dls)"}

INT TRACK_KEY					=	0	; //	原曲キーは0です。色々キー変えて好みの君が代を見付けて下さい。(-5〜5)の範囲内推奨です。

INT EST=126PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"君が代 (MIDI Collection)"}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+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,083,00,0,K,064,6,7,127,09,0)WIN(07,07,039,08,0,K,074,5,2,120,10,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,082,00,0,K,064,0,2,100,10,0)WIN(08,08,083,00,0,K,000,5,7,100,09,2)WIN(14,14,082,01,0,K,100,2,3,120,10,0)
WIN(03,03,081,00,0,K,000,5,2,110,10,0)WIN(09,09,083,00,0,K,127,5,7,100,09,2)WIN(15,15,003,00,0,K,096,3,8,110,10,0)
WIN(04,04,083,00,0,K,127,5,2,110,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,5,2,120,10,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,5,9,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 ME3=41INT ME4=49INT NK1=57INT ME5=65INT ME6=73INT ME7=81INT END=89
/*1*/STR MNH={[16r]e^g^a^gaMD({`d^b^a^g^},3,!1)[16r]e^g^a^g^MD({e^^gd^^r},8,!1)}
STR MNI={[d^c^d^e^MD({g^e^d^^},3,!1)r[16r]]}
STR MNJ={[d^c^d^e^MD({g^e^d^^},2,!1)r[16r]]}
STR MN1={d^c^d^e^g^e^d^^re^g^a^ga`d^b^a^g^;e^g^a^^r`d^`c^`d^^re^g^a^g^e^^gd^^r}
STR MN2={a^`c^`d^^r`c^`d^a^g^;a^^^g^e^d^^^^^^r}
STR MN2A={a^`c^`d^^r`c^`d^a^g^MD({a^^^g^e^d^^^^^^r},6,!1)}
STR MN3={a^`c^`d^^r`c^`d^a^g^MD({a^^^g^e^d^^^^^^r},1,!1)EP=80a^^^MD({>g^e^e^^^^^^r<},2,!1)}
TR=1l8q=99EP=115REV.W(40,90,!1)HAM({DL=HAZ;EP=105MNH;DL=BGN;MNI;EP=115DL=ME1;MN1;MN2;DL=ME3;MN1;MN2A;DL=ME5;MN1;EP=120MN1;MN3;DL=END;EP=115MNJ;})
/*2*/STR PKH={@81,8l16EP=110P.onCycle(!16,0,127)>[[32r][`aara`ar`a`a`aararrrr]]<}
STR PKI={@81,8l16EP=110P.onCycle(!16,0,127)>[8`aara`ar`a`a`aararrrr]<}
STR PK1={@81,8l16EP=110P.onCycle(!16,0,127)>[8"aara`ar`a`a`aar"arrrr]<}
STR PK2={@81,8l16EP=110P.onCycle(!16,0,127)>[8`aara`ar`a`a`aararrrr]<}
STR PK3={@81,8l16EP=110P.onCycle(!16,0,127)>rrrr`ar`a`a`aararrrr[7`aara`ar`a`a`aararrrr]<}
STR PK4={@81,8l16EP=110P.onCycle(!16,0,127)>[[`aara`ar`a`a`aararrrr]:[`ggrg`gr`g`g`ggrgrrrr]]`ggrg`gr`g`g`ggrgrrrr[16r]<}
TR=2DL=HAZ;PKH;PKI;DL=BGN;PK1;DL=ME1[PK2]DL=ME3;PK3;PK4;PK1;DL=ME5;PKI[PK3]DL=END;PK1;
/*3&4*/STR RTH={If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}l4EP=65HAM2({[a&&^^^^^^^`a^^^^^^^]})If(CH==3){>}If(CH==4){<}}
STR RTI={l4>EP=50['"acea'^^^^^^^'"f"acf'^^^'"g"bdg'^^^]<}
STR RT1={l8EP=55CHO.W(50,127,!4)If(CH==3){>}[7['a"a']'"acea'^'a"a''"acea'^'"acea']BR=24CHO=50EP=50HAM({SUB{'`c`e'^^^^^^^}`a^^^^^^&&"a})If(CH==3){<}}
STR RT2={If(CH==2){<@31,110,0}If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}
l8q=101EP=60M.W(10,100,!1^1)['"acea'^^^^^^^^^^^BR=12p.W(127,64,!16)SUB{gggg}"g"g"g"gp=64'afc"a'^^^^^^^^^^^p.W(127,64,!16)SUB{gggg}"g"g"g"gp=64]If(CH==3){>}If(CH==4){<}}
STR RT3={If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}
l8q=101EP=60M.W(10,100,!1^1)['"acea'^^^^^^^^^^^BR=12p.W(127,64,!16)SUB{gggg}"g"g"g"gp=64:'afc"a'^^^^^^^^^^^p.W(127,64,!16)SUB{gggg}"g"g"g"gp=64]
'afc"a'^^^^^^^'gd"b'^^^^^^^If(CH==3){>}If(CH==4){<}}
STR RT4={l16If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}q=100EP=70M.W(10,100,!1^1)rr[SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a:'"acea'^]
['"acfa'^SUB{aa}"a"a]['"acfa'^]SUB{aaaa}"a"a"a"a;l8EP=85HAM({`d&&^^`e^^b^})EP=70l16/*['"acea'^SUB{aa}"a"a]['"acea'^]SUB{aaaa}"a"a"a"a*/;
['"acea'^SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a]['"acfa'^SUB{aa}"a"a]['"acfa'^]SUB{aaaa}"a"a"a"a;l8EP=85HAM({`d&&^^`e^^^^})
If(CH==3){>}If(CH==4){<}}
STR RT5={If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}l8q=100EP=70M=0
p=64[['"aa''"aa''`cafc'^'"aa''`cafc'^'`cafc']:['"gg''"gg''`dbgd'^'"gg''`dbgd'^'`dbgd']]'"gg''"gg''`dbgd'^'"gg''`dbgd'^'`dbgd'
BR=24p.T(64,0,!1)HAM({'`g#`d'^^^^^^^})p=64If(CH==3){>}If(CH==4){<}}
STR RT6={EP=85SUB{[8['a"a']'"acea'^'a"a''"acea'^'"acea']}HAM({`d`c`d`e^^^r`g^`e`d^^^re^g^a^ga`d^ba^^^r;e^ga^^^r`e^`d`e^^^r>e^ga^^g^e^gd^^^r<})}
STR RT7={l16If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}q=100EP=70M.W(10,100,!1^1)['"acea'^SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a]
['"acfa'^SUB{aa}"a"a]['"acfa'^]SUB{aaaa}"a"a"a"a;l8EP=85HAM({`d&&^^`e^^b^})EP=70l16/*['"acea'^SUB{aa}"a"a]['"acea'^]SUB{aaaa}"a"a"a"a*/;
['"acea'^SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a]['"acfa'^SUB{aa}"a"a]['"acfa'^]SUB{aaaa}"a"a"a"a;l8EP=85HAM({`d&&^^`e^^^^})
If(CH==3){>}If(CH==4){<}}
STR RT8={l16If(CH==3){<@31,110,0}If(CH==4){>@31,91,0}q=100EP=70M.W(10,100,!1^1)['"acea'^SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a]
['"acfa'^SUB{aa}"a"a]['"acfa'^]SUB{aaaa}"a"a"a"a;'"acea'^SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a
['"acea'^SUB{aa}"a"a'"acea'^SUB{aa}"a"a['"acea'^]SUB{aaaa}"a"a"a"a]['"acfa'^SUB{aa}"a"a]['"acfa'^]SUB{aaaa}"a"a"a"al8BR=24HAM({SUB{'`c`e'^^^^^^^}`a^^^^^^&&"a})
If(CH==3){>}If(CH==4){<}}
STR RT9={l8EP=55CHO.W(50,127,!4)[4['a"a']'"acea'^'a"a''"acea'^'"acea']l2M=10'"acea'^^^^^^^}
STR RRF={l16DL=HAZ;<RTH;RTI;DL=BGN;RT1;DL=ME1;RT2;RT3;DL=ME3;RT4;RT5;DL=NK1;RT6;DL=ME5;RTI;RT7;RT8;RT9;}TR=3RRF;TR=4RRF;
/*5*/STR BSA={BR=3If(CH==5){p%=300}Else{p%=-300}}
STR BSH={BSA@40,90,0l4a^^^^^^^f^^^e^^^If(CH==5){@40,90,0}Else{@39,0}l8[16a][8f][8g]}STR BSI={BSA@40,90,0l4[a^^^^^^^f^^^g^^^]l8If(CH==5){@40,90,0}Else{@39,0}}
STR BS1={[64a]}STR BS2={BSA[[16a][16f]]}STR BS3={[[16a]:[16f]][8f][8g]}STR BS4={rr[6a][8g][8f][4d][4e];[8a][8g][8f][4d][4e][[16f]:[16g]][8g][8g#]}
STR BS5={[[16a][8f][8g]]}
STR BASS={l8<<DL=HAZ;BSH;BSI;DL=BGN;BS1;DL=ME1;BS2;BS3;BS4;BS1;DL=ME5;BSI[BS5]BS1;}TR=5@40,90,0BASS;TR=7@39,0BASS;
/*6*/STR COH={@45,0,0l2EP=80REV=110BR=24q=99[SUB{`e^^^^^^}`a^^^^^&&"ar]q=100}
STR COI={@82,110,3l8EP=75REV=90[[4rr'aec"a'r][rr'afc"a'r][rr'gd"b"g'r]]}
STR CO1={@82,110,5l8EP=75REV=90[16rr'aec"a'r]}STR CO2={@55,110,8l8EP=80REV=110[[4rr'aec"a'r][4rr'afc"f'r]]}
STR CO3={@55,110,8l8EP=80REV=110[[4rr'aec"a'r]:[4rr'afc"f'r]][rr'afc"f'r][rr'gd"b"g'r]}
STR CO4={@55,110,8l8EP=80REV=110[[rr'aec"a'r][rr'gd"b"g'r][rr'afc"f'r]rr'"bdgb'r;rr'"begb'r]}
STR CO5={@55,110,8l8EP=80REV=110[[4rr'aec"a'r]:[4rr'gd"b"g'r]][rr'gd"b"g'r]@49,90,1EP.T(50,110,!1)>'g#d"b"g#'^^^^^^^<}
STR CO6={@49,90,1l8EP=80REV=110SUB{>[4ab`cab`cab;ab`eab`cab]<}[16rr'aec"a'r]}
STR CO7={@49,90,1l8EP=80REV=110SUB{>[4ab`cab`cab;ab`eab`cab]<}[[4rr'aec"a'r][rr'fc"a"f'r][rr'gd"b"g'r]]}
TR=6@49DL=HAZ;COH;COI;DL=BGN;CO1;DL=ME1;CO2;CO3;CO4;CO5;DL=NK1;CO6;DL=ME5;COI[CO7]CO6;
/*8&9*/STR ULA={BR=3If(CH==8){p%=-100}Else{p%=100}}
STR ULH={ULA[16r]EP=100'"a"f'^'"a"f'^'"a"f'^'"a"f''"a"f';SUB{"f^"e^""b^""g^}"a^"g^"e^""b^[16r]SUB{"f^"a^"a^"a^}"a^c^d^c^MD({SUB{c^^e"b^^}"a^^c"g^^r},8,!1)}
STR ULI={ULA;EP=100["a^"g^"a^c^EP=105MD({SUB{"b^"g^"g^^}d^"b^"b^^},3,!1)r[16r]]}
STR ULJ={ULA;EP=100["a^"g^"a^c^EP=105MD({SUB{"b^"g^"g^^}d^"b^"b^^},2,!1)r[16r]]}
STR UL1={ULA;EP=110"a^"g^"a^c^EP=105SUB{"b^"g^"g^^r}d^"b^"b^^r;'"a"f'^'"a"f'^'"a"f'^'"a"f''"a"f';SUB{"f^"e^""b^""g^}"a^"g^"e^""b^;
EP=105SUB{c^d^e^^}"a^"b^c^^r;EP=110a^g^a^^r;EP=105SUB{"f^"a^"a^"a^c^^e"b^^}"a^c^d^c^"a^^c"g^^r}
STR UL2={EP=110e^g^a^^r;g^a^e^d^EP=105SUB{"b^^^"b^"g^"d^^^^^^}e^^^d^"b^"a^^^^^^r}
STR UL3={EP=110e^g^a^^r;g^a^e^d^;MD({SUB{c^^^"b^"g^"e^^^^^^}e^^^d^"b^"g^^^^^^r},1,!1)>EP=100MD({e^^^d^"b^"a^^^^^^r},2,!1)<}
STR ULMR={DL=HAZ;l8q=99REV.W(40,90,!1)HAM({ULH;DL=BGN;ULI;})DL=ME3;l8q=99REV.W(40,90,!1)HAM({V=100UL1;UL2;DL=ME5;UL1;V=105UL1;UL3;DL=END;ULJ;})}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={O1[31r][O1[15r]][16O1;rrr]}STR DDI={O1[63r]O1[31r]O1[15r][4O1;rrr]}STR DDJ={[28O1;rrr][16r]}
STR DD1={[32O1;rrr]}STR DD2={[24O1;rrr][16O1;r]}STR DD3={rrrr[31O1;rrr]}STR DD4={[29O1;rrr]rrrrO1[7r]}
STR DD5={O1[63r][O1[15r]][O1[7r]][4O1;rrr]}STR DD6={[32O1;rrr]}STR DD7={[24O1;rrr][16O1;r]}STR DD8={[28O1;rrr]}
TR=10l16DL=HAZ;BR=20p%=-1000@27,90,0V=120DDH;DDI;DL=BGN;BR=20p%=-1000@27,90,0V=120CHO=40DDJ;DD1;DD2;DL=ME3;DD3;DD4;DL=NK1;DD5;DL=ME5;DDI;DD6;DD7;DD8;
/*11*/STR GR={'n42'}STR GA={n44}STR GB={'n46'}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={n49[31r]n57[15r]n49[15r]SUB{n55}[15rra^][c]a^}STR GGI={SUB{n49}l8[4a^^aa^^^]l16SUB{n49[31r]n57}[16rrar]}
STR GGJ={SUB{n49[63r]n57[31r][n49[7r]][4n57rrr]}[28rra^][4rr`d#^]}
STR GG1={SUB{n49}[32rr`d#^]}STR GG2={[24rr`d#^]SUB{n49[7r]n57[7r][n49rrrn57rrr]}[[GR]`d#^[3rr`d#^]]}
STR GG3={SUB{n49}rrrr[31rr`d#^]}STR GG4={SUB{n55}SUB{[7[12r]n55rrr]}[28rr`d#^]SUB{n49[7r]n57}[GR]`d#^[3rr`d#^]}
STR GG5={SUB{n49[63r]n49[15r]n57[15r]n49[7r]n57[7r][4n49rrr]}l8[8rrar]l16[12rr`d#^][GR]`d#^[3rr`d#^]}
STR GG6={SUB{n49}l8[4rrrra^^^]l16SUB{n49[31r]n57}[16rrar]}STR GG7={SUB{n49}[32rr`d#^]}STR GG8={SUB{'n49n57'[63r]n49[31r]n49[15r]n49[7r]n49rrrn49}[32rr`d#^]}
TR=11l16DL=HAZ;BR=20p%=0@2,88,1EP=100q=300GGH;GGI;DL=BGN;BR=20p%=0@2,88,1EP=100q=300GGJ;GG1;GG2;DL=ME3;GG3;GG4;DL=NK1;GG5;DL=ME5;GG6;GG7;GG2;
DL=END;GG8;l8BR=20p%=-500REV.W(0,127,!1)'fn49n55n58'^^^^^^^
/*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 PPI={[64r][7rrrr'n38n40'rrr]rrrr'n38n40'r['n38n40']}STR PPJ={[7rrrr'n38n40'rrr]rrrr[4'n38n40'][6rrrr'n38n40'rrr]rrr['n38n40']r[10'n38n40']}
STR PP1={[15rrrr'n38n40'rrr]rrr['n38n40']r['n38n40']}
STR PP2={[11rrrr'n38n40'rrr]rrr['n38n40']r['n38n40'];rrrr'n38n40'rrr;rrrr'n38n40'r'n38n40''n38n40'[5'n38n40']r['n38n40']l24[12'n38n40']l16}
STR PP3={[15rrrr'n38n40'rrr]rrr['n38n40']r['n38n40']}STR PP4={[14rrrr'n38n40'rrr][16r]}
STR PP5={l8[8r]rrrrr['n38n40']r;[12r]l16[rr['n38n40']][8rrrr'n38n40'rrr]}
STR PP6={[11rrrr'n38n40'rrr]rrr['n38n40']r['n38n40'][3rrrr'n38n40'rrr]['n38n40']r[5'n38n40']}
STR PP7={[7rrrr'n38n40'rrr]rrrr'n38n40'r['n38n40']}
TR=12l16DL=HAZ+8@9,90,1V=127BR=20p%=2500PPI;PPJ;DL=ME1@9,90,1V=127BR=20p%=2500PP1;PP2;DL=ME3;PP3;PP4;DL=NK1;PP5;DL=ME5;PPI;PP3;PP6;PP7;
/*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={rr`g`g`drar`g`e`cbagfd}STR DS19={@126,8BR=48p.T(127,64,!1^1)l2P.T(127,0,!1^1)REV=120EP=110'ce'^^^^rl16EP=127p=64@119,8}
TR=13l16<DL=HAZ@119,8PG1;DL=HAZ+7DS13;DL=HAZ+11P.T(0,127,!1)@48,0REV=100HAM({DS8})@119,8DL=HAZ+15REV=0DS6;DL=BGN;PG1;DL=ME1+7DS18;DL=ME2+7DS8;DL=ME3+7DS18;DL=ME4+7DS8;
DL=ME5;DS19;DL=ME5+3P.T(0,127,!1)@48,0REV=100P.T(0,127,!1)HAM({DS8})@119,8PG1;DL=ME5+7REV=0DS6;DL=ME6+7DS18;DL=ME7+7DS8;
/*14*/STR SPH={@1,90,0EP=105[l8'"a""a'^'`caec'^'bgd"b''bgd"b'^'bgd"b'^'`caec'^^^l16"e"g"a"g"e"gl8'"f""f'^'`cafc'^'`cgd"b''`cgd"b'^'bgd"b'^:'`caec'^^^l16"e"g"a"g"e"gl8]'`caec'^^^^^^}
STR SPI={@1,90,0EP=105l8[32r]l16"a^['`caec'^^['bgd"b'^^'`caec'^^]r]'`cafc'^^'bgd"b'^^'`cafc'^^'bgd"b'^^'`cafc'^;"g^'bgd"b'r[4"g'bgd"b'r]}
STR SP1={@1,90,0EP=105l8[4'"a""a'^'`caec'^'bgd"b'^^'bgd"b'^'`caec'^^^^rr]}
STR SP2={@1,90,0EP=105[l8'aec'^'`caec'^'bgd"b''bgd"b'^'bgd"b'^'`caec'^^^l16"e"g"a"g"e"gl8'afc'^'`cafc'^'bge"b''bge"b'^'bge"b'^:'`cafc'^^^l16"e"g"a"g"e"gl8]'`cafc'^^^^^^}
STR SP3={@1,90,0EP=105[l8'aec'^'`caec'^'bgd"b''bgd"b'^'bgd"b'^'`caec'^^^l16"e"g"a"g"e"gl8:'afc'^'`cafc'^'bge"b''bge"b'^'bge"b'^'`cafc'^^^:l16"e"g"a"g"e"gl8]
'afc'^'`cafc'^'`cafc''`cafc'^'bgd"b'^^^^^^^^}
STR SP4={l16@1,90,0EP=105"a^rrr['bgd"b'^^'`caec'^^'bgd"b'^^'`caec'^^r:'`caec'^^]'`cafc'^^'bfd"b'^^'`cafc'^^'bfd"b'^^'`cafc'^^r;'`dbgd'^^'`dbgd'^^'`e`cae'^^'`e`cae'^^'`e`cae'^^r;
['`caec'^^'bgd"b'^^'`caec'^^'bgd"b'^^'`caec'^^r]'`cafc'^^'bfd"b'^^'`cafc'^^'bfd"b'^^'`cafc'^^r;'`dbgd'^^'`dbgd'^^'`e`cae'^^'`e`cae'^^'`e`cae'^}
STR SP5={l16@1,90,0EP=105"a^[['`caec'^^'bgd"b'^^'`caec'^^'bgd"b'^^'`caec'^^r]:['bgd"b'^^'bgd"b'^^'bgd"b'^^'bgd"b'^^'bgd"b'^^r]/*['bgd"b'^^'afc"a'^^'bgd"b'^^'afc"a'^^'bgd"b'^^r]*/]
'bgd"b'^^'bgd"b'^^'bgd"b'^^'bgd"b'^^'bgd"b'^^r;'bg#d"b'^^'g#e"b"g#'^^'bg#d"b'^^'g#e"b"g#'^^'bg#d"b'^^r}
STR SP6={@1,90,0EP=105l8[4'"a""a'^'`caec'^'"a""a''`caec'^^]l16[4'"a""a'^'`caec'r[4'"a""a''`caec'r]]l8}
STR SP7={l16@1,90,0EP=105"a^['`caec'^^'bgd"b'^^'`caec'^^'bgd"b'^^'`caec'^^r]'`cafc'^^'bfd"b'^^'`cafc'^^'bfd"b'^^'`cafc'^^r;'`dbgd'^^'`dbgd'^^'`e`cae'^^'`e`cae'^^'`e`cae'^^r;
['`caec'^^'bgd"b'^^'`caec'^^'bgd"b'^^'`caec'^^r]'`cafc'^^'bfd"b'^^'`cafc'^^'bfd"b'^^'`cafc'^^r;'`dbgd'^^'`dbgd'^^'`e`cae'^^'`e`cae'^^'`e`cae'^}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;DL=ME1;SP2;SP3;DL=ME3;SP4;SP5;DL=NK1;SP6;DL=ME5;SPI[SP7]SP1;
/*15*/STR FTA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}
STR FTH={FTA@82,110,3EP=95l8MD({["aa`ea`ca`c`e[3ra`ea`ca`c`e]]},6,!24)}
STR FT1={FTA@82,110,3EP=100q.T(10,200,!1^1^1^1^1^1^1^1)["aa`ea`ca`c`e[3ra`ea`ca`c`e]]q=100}
STR FT2={FTA@82,110,3EP=110l8MD({["aa`ea`ca`c`era`ea`ca`c`e;rf`ea`cf`c`erf`ea`cf`c`e]},6,!24)}
STR FT3={FTA@82,110,3EP=110l8MD({["aa`ea`ca`c`era`ea`ca`c`e;rf`ea`cf`c`e:rf`ea`cf`c`e]rg`dgbgb`d},6,!24)}
STR FT4={FTA@82,110,3EP=110l8MD({rr`ea`ca`c`era`ea`ca`c`e;rf`ea`cf`c`ere`ea`ce`c`e;"aa`ea`ca`c`era`ea`ca`c`e;rf`ea`cf`c`ere`ea`ce`c`e},6,!24)}
STR FT5={FTA@82,110,3EP=110l8MD({"aa`ea`ca`c`era`ea`ca`c`e[rg`dgbgb`d][ra`ea`ca`c`e]rg`dgbgb`d;rg#`dg#bg#b`d},6,!24)}
STR FT6={FTA@82,110,3EP=100["aa`ea`ca`c`e[3ra`ea`ca`c`e]]}
STR FT7={FTA@82,110,0EP=110l8MD({["aa`ea`ca`c`era`ea`ca`c`e;rf`ea`cf`c`era`ea`cr`c`e]},6,!24)}
STR FT8={FTA@82,110,5EP=85l8MD({["aa`ea`ca`c`e[3ra`ea`ca`c`e]]},6,!24)}
TR=15DL=HAZ[FTH]DL=BGN;FT1;DL=ME1;FT2;FT3;DL=ME3;FT4;FT5;DL=NK1;FT6;DL=ME5;FTH[FT7]DL=END;FT8;
/*16*/STR BGH={TrackKey=(K)@125,5CHO=80REV=120EP=80BR=24[p.T(64,64,!8,64,0,!1^1,0,64,!1^1)P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4)
l1'<<bf#d>>'^^^]CHO=20REV=10TrackKey=0P=84p=64}
STR BG1={TrackKey=(K);@11,10,0EP=110REV=70l8rrrr>a`c`d`a^^^^<TrackKey=0}
STR BG2={@123,4l1BR=48p.T(127,64,!1^1^1^1)EP.T(80,127,!1^1^1^1)REV=100'cd'^^^}
STR BG3={TrackKey=(K)@49,90,1EP=95l4q=95REV=70[a&&^^^^^^^`a^^^^^^^]q=100TrackKey=0}
STR BG4={@123,1l1BR=56p.T(127,64,!1^1^1^1^1^1^1)EP=110REV=100'cd'^^^^^^}
STR BG5={@126,8l4BR=48p.T(96,128,!1)EP=127'cde'^^^rp=64}
STR BG6={TrackKey=(K)@125,5CHO=80REV=120EP=80BR=24p.T(64,64,!8,64,0,!1^1^1)P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4)
l2'<<bf#d>>'^^^^rCHO=20REV=10TrackKey=0P=84p=64}
STR BG7={@128,2l16REV=80EP.T(100,0,!1^1)MidiDelay({'"a'^},24,!8)}
STR BG8={@126,8l4BR=48p.T(96,128,!1)EP=127'cde'^^^p=64}
TR=16DL=HAZ;BGH;DL=HAZ+8BG3;DL=BGN;BG4;BG5;DL=ME1+3BG1;DL=ME2+4BG2;DL=ME3;BG3;DL=NK1;BG4;BG5;DL=ME5;BG3;DL=ME6;BG6;DL=ME6+3BG1;DL=ME7;BG3;DL=END;BG4;BG8;DL=END+8BG7;