//	久々にこのオープニングパターン使いました

INT K		=	0	;//キー設定
INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={HARMONY}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}DL=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}
//-(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,4,2,127,09,0)WIN(07,07,039,01,0,K,084,1,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,011,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,3,2,110,09,2)WIN(14,14,109,00,0,K,100,2,2,127,09,0)
WIN(03,03,100,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,3,2,110,09,2)WIN(15,15,003,00,0,K,027,2,2,110,10,0)
WIN(04,04,095,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,K,070,2,1,127,10,0)
WIN(05,05,088,00,0,K,044,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,005,00,0,K,032,1,2,080,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=18INT ME1=26INT ME2=34INT SB1=42INT RF1=50INT ME3=58INT ME4=66INT SB2=74INT NK1=90INT NK2=98
INT NK3=107INT RF3=115INT NK4=123INT NK5=131INT NK6=139INT SB3=147INT END=163
/*1*/STR MN1={V=100[e^f#g^^b^a^^r:agf#ec^de^f#grg^^^^rrr]`d`cbab^gg^^a^b^^^^rrr}
STR MN2={V=105b^ge^^b^aaf#d^^^rc^de^f#b^a^^b^^^rb^^g^^b^a^^f#^^d^e^^^^ede^^^r}
STR MN3={V=110ef#ga[b^`e`d^`er`d^`d`cb^aga:`c^`c^`cb^aa^^b^^^r]b^`e^`d`e^`f#`f#^^^`e^^r}
STR MN4={V=110[ef#ga[b^`e`d^`er`d^`d`cb^aga:`c^`c^`cb^aa^^b^^^r]b^`e^`d`e^`f#`f#^^^]`g#^^r}
STR MN5={V=110[4`b`b`b`b^`a`a`a^`g`g`g`f#`e`d`e]`b^^^^^^^^^^^^^``c`b^^^^^^^^^^^^^^^}
STR MN6={V=110[ef#ga[b^`e`d^`er`d^`d`cb^aga:`c^`c^`cb^aa^^b^^^r]b^`e^`d`e^`f#`f#^^^]`e^^r}
TR=1l8DL=HAZ+7rrrrMN3;HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN4;MN5;DL=SB3-1rrrrMN6;})
/*2&3&4*/STR RTA={@12,0If(CH==3){@100,0}If(CH==4){@95,0}}STR RTB={@3,0If(CH==3){l128r}If(CH==4){l64r}}
STR RT1={RTA;EP=127[ceba^b^a^f#^e^:ef#ga^bd^a^`d^`c^b^bag]ef#ga^^aag^b^f#^g^a^^}
STR RT2={RTA[32r]l4EP.T(70,127,!1^1^1)g^^^a^^^b^^^l8}STR RT3={RTA>EP=90[8rbarf#gr:e]b<}
STR RT4={>EP=90RTB;l8SUB{<<cecdrd^"br"b^"e^"e"d^"c^"c"dr"d^""br""b^"e^<ed"b;cc'`cge'd^d'`daf#'^"b"b'bf#d'e^e'`ebg'^
>[3'c"f"a']'c"f"a'^"f'c"f"a'"f[3'"bf#']'"bf#d'^^'"bf#d'^>>}
SUB{[eg^f#^^rd^d^"b^:"g"bef#^g"a^f#^b^f#^e^ed"b]"bdef^^ffd^f#^d^e^f#^}[ceba^b^a^f#^e^:ef#ga^bd^a^`d^`c^b^bag]ef#ga^^aag^b^f#^g^a^<}
STR RRF={l8DL=HAZ;V=80RT2;V=100DL=BGN;RT1;DL=ME2;RT2;DL=RF1;RT1;DL=ME4;RT2;DL=NK2;RT3;DL=NK3;RT4;DL=RF3;RT1;
DL=NK5;RT2;DL=END[RT1:REC2]}TR=2;>RRF;TR=3HAM({RRF})TR=4HAM({RRF})
/*5*/STR BSH={l4BR=12q=100[c&&^^^b^^^:a^d^e^^^]e&&^^^`e^^^l8q=90}STR BSI={BR=12q=100e^^^^^^&&"eq=90}
STR BS1={[3[c`c][d`d]["bb][e`e]][f`f]f`f^[3"br]"b^^}
STR BS2={[[4e`e][4"bb][4c`c][4g`g]]}STR BS3={[4c`c][4"bb]["aa][d`d][4e`e][4c`c][4"bb][4e`e]e^^^^rrr}
STR BS4={[[c`c][d`d]["bb][e`e]:["aa][d`d][e`e]["bb]]["aa][d`d]["bb][e`e]}STR BS5={[[8c`c][8"bb]]}
STR BS6={[8c`c][4"bb][4e`e][4"aa][4"bb][4c`c][4"bb]"b^^^^^^^rrrrrrrr}
STR BS7={[32r]q=100BR=24EP.T(50,127,!1^1^1)>c^^^d^^^"b^^^e^^^"a^^^d^^^"b^^^`e^^&&e<q=90If(CH==5){EP.W(110,30,!8)}}
STR BASS={l8<<DL=HAZ;BSH;DL=BGN-1BSI;DL=BGN;BS1;BS2;BS3;BS4;BS1;BS2;BSH[BS4]BS5;BS6;DL=RF3;BS1;BS2;BS3;BS4;BS7;BS4;DL=END[BS1:REC2]}TR=5EP.W(110,30,!8)<BASS;TR=7BASS;
/*6*/STR CO1={@5,0SUB{[b^a^a^g^:g^a^f#^b^]a^`c^b^f#^}HAM2({[3c^d^"b^e^]f^^^"b^^^})@49,1}
STR COH={[16r]@49,1SUB{HAM({g^f#^f#^g^e^f#^a^b^})}HAM2({c^d^"b^e^"a^d^"b^e^})}STR COI={EP.T(70,127,!1)'c#eg'^^^}
STR CO2={SUB{[b^^^l8`e^^`d^^^^l4:`e^^`f#`g^`d^]`c^^`db^^^}HAM2({[e^^^b^^^`c^^^:g^^f#]g^^^})}
STR CO3={SUB{>e^^^f#^^^e^f#^g#^ef#g^^^a^^^g#^^^b^^^<}HAM2({c^^^"b^^^"a^d^e^^^c^^^"b^^^e^^^e^^^})}
STR CO4={SUB{HAM({[g^f#^f#^g^:e^f#^a^gf#]e^f#^a^b^})}HAM2({[c^d^"b^e^:"a^d^e^"b^]"a^d^"b^e^})}
STR CO5={SUB{HAM({[g^f#^f#^g^:e^f#^a^gf#]e^f#^a^g#^})}HAM2({[c^d^"b^e^:"a^d^e^"b^]"a^d^"b^e^})}
STR CO6={SUB{HAM({e^^^d^e^f#^^^d^^^e^^^g^^^f#^^^d^^^})}HAM2({[c^^^^^^^"b^^^^^^^]})}
STR CO7={SUB{HAM({e^^^d^e^f#^^^g#^abe^^^g^^^a^^^b^^^^^^^})}HAM2({c^^^^^^^"b^^^e^^^"a^^^"b^^^c^^^f#^^^^^^^})}
TR=6DL=HAZ;CO3;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2@5,0CO3@49,1CO4;CO5;CO6;CO7;DL=RF3;CO1;CO2;CO3;CO4;@5,0CO4@49,1CO4[CO1:REC2]
/*8&9*/STR UL={BR=6If(CH==8){p%=100}Else{p%=-100}}
STR ULH={SUB{ef#ga[b^`e`d^`er`d^`d`cb^aga:`c^`c^`cb^aa^^b^^^r]b^`e^`d`e^`f#`f#^^^`e^^r}UL3}
STR UL1={EP=110If(CH==9){<}[e^f#g^^b^a^^r:agf#ec^de^f#grg^^^^rrr]`d`cbab^gg^^a^b^^^^rrrIf(CH==9){>}}
STR UL2={EP=110g^ec^^g^f#f#d"b^^^r"a^"ac^de^f#^^g#^^^rg^^e^^g^EP=100SUB{b^^a^^d^}f#^^d^^"b^HAM2({g#^^^^g#g#g#^^^r})}
STR UL3={EP=105cdef#SUB{`e^`e`f#^`f#r`f#^`f#`f#`e^}g^ga^ara^aag^EP=115eeeg^g^f#f#^dd^^e^^^r;
SUB{`e^`e`f#^`f#r`a^`a`a`b^`a`g`e}g^ga^ara^aag^eeeEP=115`g^`g^`f#`f#^`d`d^^^b^^r}
STR UL4={EP=105cdef#[SUB{`e^`e`f#^`f#r`f#^`f#`f#`e^}g^ga^ara^aag^EP=115eeeg^g^f#f#^dd^^e^^^r;
SUB{`e^`e`f#^`f#r`a^`a`a`b^`a`g`e}g^ga^ara^aag^eeeEP=115`g^`g^`f#`f#^`d`d^^^:bbbb]`e^^r}
STR UL5={EP=105[`g`g`g`g^`f#`f#`f#^`e`e`e`dbgb`f#`f#`f#`f#^`f#`f#`f#^`e`e`ebgeg]}
STR UL6={`g^^^^^^^^^^^^^`g`f#^^^^^^^^^^^^^^^}
STR UL7={EP=105cdef#[SUB{`e^`e`f#^`f#r`f#^`f#`f#`e^}g^ga^ara^aag^EP=115eeeg^g^f#f#^dd^^e^^^r;
SUB{`e^`e`f#^`f#r`a^`a`a`b^`a`g`e}g^ga^ara^aag^eeeEP=115`g^`g^`f#`f#^`d`d^^^:bbbb]b^^r}
STR ULMR={l8DL=HAZ+7rrrrUL;ULH;DL=ME1;UL;UL1;UL2;UL3;DL=ME3;UL;UL1;UL2;UL4;UL5;UL6;DL=SB3-1rrrrUL7;}TR=8ULMR;TR=9;>ULMR;
/*10*/STR OA={n27n32n33n35n36}STR O1={'OA'}STR O2={'n55n39OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR O6={'n38n40'}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={[6DM2]O3[9r]O1;rO6;rrr}STR DM21={[4DM2]SUB{n49}DM2;SUB{rr[3n57r]}[5O1;r]rrrrrrrrO1;rO6;rrr}
STR DM22={[5DM2]O1;rrO1;O2;rO1;rO3;[7r]O4;rrr[4O1]}STR DM23={SUB{O3}[DM2]SUB{O4}[DM2]SUB{O3}[DM2]SUB{O4}[DM2]DDJ}
STR DDH={@26O4={'n38OA'}DM18@33DM18;O4={'n57OA'}@25}STR DDI={O3[61r]O1;rSUB{O3}DM22}STR DDJ={EP.T(50,127,!1)[16O1]}
STR DD1={DM6;DM20}STR DD2={SUB{[[20r]n49[43r]]}DM6;DM7}STR DD3={DM6;DM21}STR DD4={DM6;DM22}STR DD5={DM6;DM7}
STR DD6={DM6;DM23}STR DD7={O3[63r]O4={'n38OA'}@33DM18;O4={'n57OA'}@25}STR DD8={O3[63r][10DM1]O1;rrO1;O2;rO1;rO3;[7r]O4;rrr[4O1]}
TR=10l16DL=HAZ;DDH;DDI;DDJ;DL=BGN;BR=20p%=2000DD1;DD2;DD3;DD4;DD1;DD2;DDH[DD4]DD5;DD6;DD7;DL=RF3;DD1;DD2;DD3;DD4;DD8;DD4[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={[4GP2][3GP3]GP1}STR GG1={[7GP3]GP1}STR GG2={[8GP3]}STR GG3={[7GP3][4GB;rrr]}STR GG4={[7GP3]GP1}
STR GG5={[7GP3]GP1}STR GG6={[7GP3]GP1}STR GG7={[4GP2][4GP3]}
TR=11l16DL=HAZ;O3;DL=HAZ+8PL1;GGI;DL=BGN;BR=20p%=-500GG1;GG2;GG3;GG4;GG1;GG2;SUB{O3}GG3;DL=SB2[GG4]GG5;GG6;DL=RF3;GG1;GG2;GG3;GG4;GG7;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={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 PCH={[64r]@33EP.T(0,127,!1^1^1)[48'n38n40']}
TR=12l16DL=HAZ;BR=20p%=3000l64rl16EP=80DDH;EP=127DL=HAZ+8PCH;O3;DL=BGN;BR=20p%=3000PD3;DL=SB1[PD3]DL=SB2[4PD3]DL=NK3;BR=20p%=3000l64rl16EP=80DD7;EP=127DL=RF3;PD3;DL=NK6;PD3;DL=SB3;SUB{PCH}PD3;DL=SB3+8PD3[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+3DS2;DL=HAZ+7DS5;DL=HAZ+11DS13;DL=HAZ+15DS2;DL=BGN+3DS2;DL=BGN+7DS7;
DL=ME1+3DS6;DL=ME1+7DS13;DL=ME2+3DS2;DL=ME2+7DS5;DL=SB1+3DS13;DL=SB1+7DS2;DL=RF1+3DS2;DL=RF1+7DS7;
DL=ME3+3DS6;DL=ME3+7DS13;DL=ME4+3DS2;DL=ME4+7DS5;DL=SB2+3DS13;DL=SB2+7DS11;DL=SB2+11DS13;DL=SB2+15DS2;
DL=NK1+7DS7;DL=NK3+3DS13;DL=NK3+7DS8;DL=RF3+3DS2;DL=RF3+7DS7;DL=NK4+3DS6;DL=NK4+7DS13;DL=NK5+3DS2;DL=NK5+7DS5;
DL=NK4+3DS6;DL=NK4+7DS13;DL=NK5+3DS2;DL=NK5+7DS5;DL=NK6+3DS13;DL=NK6+7DS2;DL=SB3+3DS13;DL=SB3+7DS11;DL=SB3+11DS13;DL=SB3+15DS2;DL=END+3DS2;DL=END+7DS7;DL=END+8REC2;DL=END+11DS2;
/*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={"gg`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={>V=127EP.T(50,127,!1)f#c#c#gc#c#g#c#c#ac#c#a#c#bc#<V=100}
STR SP1={EP=90[PDB=LC;PDC=LD;PDB=LD;PDC=LE:PDB=LC;PDC=LD<PDB=LB>PDC=LE]PDA=LF<PDA=LB2>}
STR SP2={EP=75[PDA=LE<PDA=LB>PDA=LC;PDA=LG]}STR SP3={EP=80PDA=LC<PDA=LB;PDB=LA>PDC=LD;PDA=LE2;PDA=LC<PDA=LB>PDA=LE2[16r]}
STR SP4={EP=85[PDB=LC;PDC=LD<PDB=LB>PDC=LE:<PDB=LA>PDC=LD;PDB=LE<PDC=LB>]<PDB=LA>PDC=LD<PDB=LB>PDC=LE}
STR SP5={EP=85[PDB=LC;PDC=LD<PDB=LB>PDC=LE:<PDB=LA>PDC=LD;PDB=LE<PDC=LB>]<PDB=LA>PDC=LD[16r]}
STR SP6={EP=80[[PDA=LC][<PDA=LB>]]}STR SP7={[PDA=LC]<PDA=LB>PDA=LE2<PDA=LA;PDA=LB>PDA=LC2<PDA=LB>[16r]}
STR SP8={EP=75[64r]PDB=LC;PDC=LD<PDB=LB>PDC=LE<PDB=LA>PDC=LD<PDB=LB>PDC=LE}
TR=14DL=HAZ+8SP4;SPH;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;DL=SB2;SP4;SP5;SP6;SP7;DL=RF3;SP1;SP2;SP3;SP4;SP8;SP4[SP1:REC2]
/*15*/STR FT1={l16@63,8q=80EP=80[3["c'`cge''`cge'^]["d'`daf#''`daf#'^][""b'`dbf#''`dbf#'^]["e'`ebg''`ebg'^]][4"f'`f`ca''`f`ca'^][4"b'bf#''bf#'^]}
STR FT2={[@81,1l8q=100EP.T(80,127,!1)M.W(0,50,!4)'be'^^^^^^^rr@5,24'`eg''`eg'^^'`dg'^'`cg'^^^^^^^EP=110:rr@60,0'`gb''`gb'^^^^]@82,0'bg'^r'bg'^^^rM=0}
STR FT3={l8>@11,0EP=80HAM({[egbebegb;df#bdbdf#b:cegcdf#ad;ef#ef#g#abe]ef#ef#g#ag#ab`cb`c`c`d`e`f#})<}
STR FT4={l16@63,8q=80EP=80[["c'`cge''`cge'^]["d'`daf#''`daf#'^][""b'`dbf#''`dbf#'^]["e'`ebg''`ebg'^]:
[""a'aec''aec'^]["d'`daf#''`daf#'^]["e'`ebg''`ebg'^][""b'`dbf#''`dbf#'^]][""a'aec''aec'^]["d'`daf#''`daf#'^][""b'`dbf#''`dbf#'^]["e'`ebg''`ebg'^]}
STR FT5={l16@63,8q=80EP=80[["c'`cge''`cge'^]["d'`daf#''`daf#'^][""b'`dbf#''`dbf#'^]["e'`ebg''`ebg'^]:
[""a'aec''aec'^]["d'`daf#''`daf#'^]["e'`ebg''`ebg'^][""b'`dbf#''`dbf#'^]][""a'aec''aec'^]["d'`daf#''`daf#'^][16r]}
STR FT6={@8,0l16<<EP=127[[c`c`cc`c^cc^`c`cc`ccc`c]["bbb"bb^"b"b^bb"bb"b"bb]]>>}
STR FT7={l16@63,8q=80EP=80[8"c'`cae''`cae'^][4"b'dbf#''dbf#'^][4"e'`ebg#''`ebg#'^][4""a'aec''aec'^][4"b'dbf#''dbf#'^][4"c'`cae''`cae'^][4"b'dbf#''dbf#'^]}
STR FT8={@11,0l8EP=110[cg`cgda`da"bf#bf#eb`eb:"aeaeda`daeb`eb"bf#b"b]"aeaeda`da"bf#bf#eb`ee}
TR=15DL=HAZ;FT3;FT4;DL=BGN;l16FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;FT5;FT6;FT7;DL=RF3;FT1;FT2;FT3;FT4;FT8;FT4[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'^^^}
TR=16DL=HAZ;BG5;DL=HAZ+6BG1;BG2;DL=HAZ+11BG3;DL=HAZ+14BG7;DL=BGN-1BG8;DL=ME1+7BG9;DL=ME2+6BG1;BG2;DL=SB1+6BG7;DL=ME3+7BG9;DL=ME4;BG5;DL=ME4+6BG1;BG2;DL=SB2+6BG7;
DL=NK1-1BG6;DL=NK2+8BG4;DL=NK3;BG5;DL=NK3+7BG1;DL=NK4+7BG9;DL=NK5+6BG1;BG2;DL=NK6+6BG7;DL=SB3+3BG3;DL=SB3+6BG7;DL=SB3+14BG7;