//	お久しぶりです

INT EST=160PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={READY TO DANCE!}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}
//-(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,01,0,K,084,0,0,127,10,0)WIN(13,13,048,00,0,0,___,0,0,127,09,0)
WIN(02,02,082,00,0,K,064,0,0,120,09,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,082,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,127,10,0)
WIN(04,04,082,00,0,K,127,0,0,110,10,0)WIN(10,10,025,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,088,00,0,K,044,0,0,127,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,070,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=21INT ME1=29INT ME2=37INT SB1=45INT RF1=53INT ME3=61INT ME4=69INT SB2=77INT RF2=85
INT NK1=95INT ME5=115INT ME6=123INT SB3=131INT END=147
/*1*/STR MNH={V=100l16a^^a#^^`cr`d^^^^^^l8}STR MN1={V=100[dddddd#rd^"a#"a#"f:dfd#d^^rrrrgf^^gf^^d#^]"a#c"a#d^^rrrrgaa#a#^`c^^}
STR MN2={V=110gaa#a#a#a#a#a#a#a#agfgrdgaa#a#a#a#`ca#`ca#`c`d`d#`dr;dgaa#a#a#a#a#a#a#a#agfgrda#da#ra#ra#ra#r`c`d`d#`d^^^r}
STR MN3={l16V=127[g^^a^^a#^`c^^rrrfrf^d^f^df^^g^^r:frg^^a^^a#^`c^^`c^^a#^a^grfrfgrra#^a^ag]rrg^^a^^a#^a#^^^^^rra^^a#^^`cr`d^^^^^^l8}
STR MN2A={V=110ga[l16a#rgra#rga#rr`c^a#^^r;arfrarfa#rr`d^a#^^r:a#rgra#rga#rr`c^a#^^r;l8`c`d`d#`drdga]grd#rgrd#grra#^g^^rl8`c`d`d#`d^^^r}
STR MN4={l16V=127[MidiDelay({g^^a^^a#^`c^^},8,!2)[53r]]}
TR=1l8>HAM2({DL=BGN-1MNH;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2A;MN3;DL=ME5-1MNH;DL=ME6-1l8[6r]MN2;MN4;MN3})
/*2&3&4*/STR RTA={BR=10If(CH==3){p%=100}If(CH==4){p%=-100}}
STR RTH={If(CH==2){@103,2EP=100M.W(10,70,!8)EP.W(70,127,!4)l8[8SUB{f^^fffff}c^^cc``c``cc]l16}Else{@82,0
BR=64p.T(127,0,!1^1^1^1)[4M.W(30,110,!16)q=30[7'`f`cg#']q=100'`f`cg#'^q=30[7'f`cg#']q=100]
RTA[4M.W(30,110,!16)q=30[7'`f`cg#']q=100'`f`cg#'^q=30[7'f`cg#']q=100]}M=0EP=127}
STR RTI={If(CH==2){@103,2EP=100M.W(10,70,!8)EP.W(70,127,!4)l8[8SUB{f^^fffff}HAM2({c^^cc``c``cc})]l16}Else{@82,0
RTA;FOR(INT A=0;A<8;A++){M.W(30,110,!16)q=(10+A*10)[7'`f`cg#']q=100'`f`cg#'^q=(15+A*10)[7'`f`cg#']q=100}}M=0EP=127}
STR RTJ={@82,0EP=110MidiDelay({RTA[['a#f']rr]},1,!8)[4'a#f']MidiDelay({'a#f'r},1,!8)['a#f']EP=127}
STR RT1={@82,0RTA;TrackKey=(K+3)MidiDelay({[SUB{a#ra#a#ra#a#ra^}`dr`d`dr`d`dr`c^fa`ca#afSUB{araaraarg^}`cr`c`fr`f`fr`d^a#`c`d`ca#g:
SUB{a#ra#a#ra#a#raraaraarfrffrffrg^}`dr`d`dr`d`dr`cr`c`cr`c`cr`cr`c`cr`c`cr`d^gaa#aa#`c]
SUB{grggrggrd#rd#d#rd#d#rgrggrggr}[a#ra#a#ra#a#r]`cr`c`cr`c`cr},1,!8)'a`d'^^^^rrrTrackKey=K}
STR RT2={If(CH==2){HAM({@103,0l16EP=100[14r][l16a#`cl8`c#^`c#`c^^g#^f^`ca#^^^:l16a#g#l8`c#^`c#`d#^^g#^`d#^`d#`f^^^]l16a#g#l8f#^f#`c#^^f#^`d#^^`f^^^^})EP=127l16}If(CH!=2){[16r]RT1}@82,0}
STR RTK={@82,0RTA;TrackKey=(K+3)[SUB{a#ra#a#ra#a#r}`dr`d`dr`d`dr][3SUB{a#ra#a#}`dr`d`d]rrrrTrackKey=K}
STR RRF={l16DL=HAZ;RTH;RTI;DL=BGN-2RTJ;DL=BGN;RT1;DL=RF1;RT1;DL=RF2-1RT2;RTK;DL=NK1;RTH;RTI;DL=ME5-2RTJ;DL=END[RT1:REC2]}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={If(CH==5){@88,0EP.W(110,30,!8)}If(CH==7){@39,1}}STR BSB={EP=127BR=20@39,8If(CH==5){p%=60}If(CH==7){p%=-60}}
STR BSH={[f`fr`fr`fr`fr`fr`fr`fl16`c^`d#`cl8f`fr`fr`fr`fr`fr`fl16`fff`f`g#g#`a#`g#l8]}
STR BSI={[16f`f]V.T(100,127,!1^1^1^1)[32f]V=100}STR BSJ={l1f^l16>["a#]rr["a#]rr[5"a#]r["a#]d^^d^^d^d^^^rrrr<l8}
STR BS1={TrackKey=(K+3)[[d#`d#][f`f][d`d][g`g]:[d#`d#][f`f][4g`g]][4c`c][3d`d]BR=24`d&&dTrackKey=K}
STR BS2={[[4g`g][4d#`d#][4a#`a#][4f`f]]}STR BS3={[3[4d#`d#][d`d][g`g]][4c`c][d`d]BR=24d^`d&&d}
STR BS4={[[d#`d#][f`f][d`d][g`g]:[d#`d#][f`f][4g`g]][4c`c][4d`d]}STR BSK={[7f#`f#]rr}
STR BSL={[BSB;l4`f^&&f^l16BSB;f^^f^^f^l12BSB;fff`f`f`f;BSB;l4`f^&&f^l16BSB;f^^f^^f^l12BSB;`f`f`f`f`f`f]BSA}
STR BASS={l8<<<V=127DL=HAZ;BSA;BSH;BSI;BSJ;DL=BGN;BS1;BS2;BS3;BS4;BS1;BS2;BS3;BS4;BS1;BSK;DL=NK1;HAM({[BSL]})BSJ;DL=ME5;BS2;BS3[BS4][BS1:REC2]}TR=5BASS;TR=7BASS;
/*6*/STR COH={l1SUB{`g#`a#`g#`g`g#`a#``c``d#}'`f'^^^^^^^V.T(100,127,!1^1^1^1^1^1^1^1)'>`f`cg#<'^^^^^^^l4V=100}
STR COI={l1'>`f`cg#f``f<'^l4}STR CO1={SUB{[`c#^`c^`c^`c#^:a#^`c^`d#^`c#`c]a#^^^`c^^^}HAM2({[f#^g#^f^a#^:f#^g#^a#^^^]d#^^^f^^^})}
STR CO2={SUB{[a#^^^g^^^`d^^^:`c^a#a]`c^^^}HAM2({[g^^^d#^^^a#^^^f^^^]})}
STR CO3={SUB{[g^a#gf^g^:g^a#g`c^`d^]>g^^^`c^`d^<}HAM2({[3d#^^^d^g^]c^^^d^^^})}
STR CO4={SUB{HAM({[g^a^a^a#^:a#^a^`c^`d`c]g^^^`c^`d^})}HAM2({[d#^f^d^g^:d#^f^g^^^]c^^^d^^^})}STR COK={['`c#a#f#'^][3'`c#a#f#']rr}
TR=6@49DL=HAZ;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3;CO4;CO1;COK;DL=NK1;COH;COI;DL=ME5;CO2;CO3[CO4][CO1:REC2]
/*8&9*/STR UL={BR=10If(CH==8){p%=100}Else{p%=-100}}STR ULH={l16EP=100SUB{a^^a^^ara^^^^^^}`c^^`c^^`cr`d^^^^^^l8}
STR UL1={UL;EP=100[dddddd#rd^"a#"a#"f:dfd#d^^rrrrgf^^gf^^d#^]"a#c"a#d^^rrrrgaa#a#^`c^^}
STR UL2={UL;EP=110ddggggggggfffg^"a#cdggggggggaaaa#^"a#cdggggggggfffg^"a#"a#"gEP=100SUB{crcrcrcrdddd^^^}grgrgrgraaa`d^^^r}
STR UL3={UL;l16[EP=110SUB{<a#^^a#^^a#^`c^^>}d#^^d#^^d#^f^^rrrara^f^a^fa^^a#^^r:ard#^^f^^g^a^^a^^g^`c^a#raraa#rr`d^`c^`ca#]rrSUB{g^^g^^g^g^^^^^rra^^a^^ara^^^^^^}a#^^a#^^a#^a#^^^^^rr`c^^`c^^`cr`d^^^^^^l8}
STR UL2A={UL;EP=110ddl16[grd#rgrd#grrg^g^^r;frdrfrdgrra#^g^^r:grd#rgrd#grrg^g^^r;l8aaaa#^dddl16]d#rcrd#rcd#rrd#^d#^^rl8EP=100SUB{dddd^^^}aaa`d^^^r}
STR UL4={UL;l16EP=110[MidiDelay({SUB{<a#^^a#^^a#^`c^^>}d#^^d#^^d#^f^^},8,!2)[53r]]}
STR ULMR={l8>DL=BGN-1ULH;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2A;UL3;DL=ME5-1ULH;DL=ME6-1l8[6r]UL2;UL4;UL3;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n33n35n36}STR O1={'OA'}STR O2={'n40OA'}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;r[[O1]r][3O1]r[4O1]}STR DM21={[4DM2]SUB{n49[7r]n57[7r]'n51n59'}[DM2][3O1;r]O3;rrrO1;rO6;rrr}
STR DM22={[6DM2]SUB{n49}DM2[8O1]}STR DDH={SUB{[8n64rn60rn61rn61n63rn64n64rn61rn61r]}[30DM1][8O1]}STR DDI={SUB{[8n64rn60rn61rn61n63rn64n64rn61rn61r]}FOR(INT B;B<16;B++){MidiDelay({DM2},B/4,!16)}}
STR DDJ={BR=20p%=3000SUB{MidiDelay({n49},12,!6)}O1;}STR DDK={[[O1]rr][5O1]r[O1][3O1;r:r]O4;rrrn40r[n40]}
STR DD1={DM6;DM20}STR DD2={DM6;DM7}STR DD3={DM6;DM21}STR DD4={DM6;DM22}STR DDL={[SUB{O3}DM2][3SUB{O3}DM1]n40rrr}
STR DDM={SUB{n49}[l8O1;rrO1;O2;rrl16O1;r[3O1;r:r]O2[7r];l8O1;rrl16[O1]O2[7r][O1;rrr]O2;rr[[O1]:r]]}
TR=10l16DL=HAZ;V=127BR=20p%=3000DDH;DDI;DDJ;DL=BGN-2DDK;DL=BGN;BR=20p%=3000DD1;DD2;DD3;DD4;DD1;DD2;DD3;DD4;DD1;DDL;DL=NK1;BR=20p%=-1000[DDM]DDJ;DL=ME5-2DDK;DL=ME5;DD2;DD3[DD4][DD1:REC]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n59n46'}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 GG1={[7GP3]GP1}STR GG2={[7GP3]GP1}STR GG3={[7GP3][4GB;r[GR]]}STR GG4={[8GP1]}
STR GGH={[32n51rn59r]}STR GGI={FOR(INT C=0;C<32;C++){MidiDelay({SUB{GR;rGB;r}n51rn59r},C/8,!8)}}
STR GGK={[7[GR]GB;r]rrrr}
TR=11l16DL=HAZ;PL1;BR=20p%=3000V=110GGH;GGI;DL=BGN;BR=20p%=3000GG1;GG2;GG3;GG4;GG1;GG2;GG3;GG4;GG1;GGK;DL=NK1+8GGI;DL=ME5;GG2;GG3[GG4][GG1:REC]
/*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=SB2[PD3]DL=NK1;PD3;DL=SB3[PD3][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;HAM({DL=HAZ+3DS7;DL=HAZ+7DS8;DL=HAZ+11DS6;DL=HAZ+15DS13;DL=BGN+3DS6;DL=BGN+7DS7;DL=ME1+3DS6;DL=ME1+7DS8;DL=ME2+3DS12;DL=ME2+7DS17;DL=SB1+3DS2;DL=SB1+7DS8;DL=RF1+3DS6;DL=RF1+7DS7;
DL=ME3+3DS6;DL=ME3+7DS8;DL=ME4+3DS12;DL=ME4+7DS17;DL=SB2+3DS2;DL=SB2+7DS8;DL=RF2+3DS6;DL=RF2+7DS7;DL=NK1+3DS7;DL=NK1+7DS8;DL=NK1+11DS6;DL=NK1+15DS13;DL=ME5+3DS6;DL=ME5+7DS8;DL=ME6+3DS12;DL=ME6+7DS17;
DL=SB3+3DS2;DL=SB3+7DS8;DL=SB3+11DS2;DL=SB3+15DS8;DL=END+3DS6;DL=END+7DS7;DL=END+8REC2;DL=END+11DS6;})
/*14*/STR SP1={@82,1v=110[f#a#`c#f#`c#f#a#`c#[g#`c`d#g#`d#g#`c`d#]a#`c#`fa#`fa#`c#`f:f#a#`c#f#`c#f#a#`c#;g#`c`d#g#`d#g#`c`d#[a#`c#`fa#`fa#`c#`f]][d#f#a#d#a#d#f#a#][fa`cf`cfa`c]}
STR SP2={@5,24v=80[[dga#da#dga#][d#g`cd#`cd#g`c][fa#`df`dfa#`d][fa`cf`cfa`c]]}
STR SP3={@82,8v=80[3[d#ga#d#a#d#ga#]dfadadfa;dg`dd`ddg`d][cd#gcgcd#g]dd#dd#fgfgaa#aa#`c`d`c`d}
STR SP4={@39,8v=90[d#ga#d#a#d#ga#;fa`cf`cfa`c;dfadadfa;ga#`dg`dga#`d:d#ga#d#a#d#ga#;fa`cf`cfa`c[ga#`dg`dga#`d]][cd#gcgcd#g][dg`dd`ddg`d]}
STR SPK={@82,1v=110[f#a#`c#f#`c#f#a#`c][3f#a#`c#f#]rrrr}
TR=14DL=HAZ;l16P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;SP1;SPK;DL=ME5;SP2;SP3[SP4][SP1:REC2]
/*15*/STR FTH={@88,0EP=90BR=16l1<p.T(64,127,!8,127,0,!1^2)'"a#a#`d`f`a#'^>p=64}
STR FT1={@3,0l8EP=90P.onCycle(!8,107,87,40,20,64)HAM({rrrg#`cg#`g#`f^^^^`c#`d#`c#`ca#^^`c^^^^`d#^^`c#^^`c^;`c#^^`cg#`c`g#`f^^^^`c#`d#`f`c#a#^^^f#^^^`c^^^})rrrr}
STR FT2={@31,0l8EP=90P=80["g"g'gd'"g"g'gd'^"g"d#"d#'d#"a#'"d#"d#'d#"a#'^^"a#"a#'a#f'"a#"a#'a#f'^"a#:"f"f'fc'"f"f'fc'^^]l16["f^"f"f'fc'^^^]}
STR FT3={[@83,0l8EP.T(50,100,!1)'a#gd#'^^^^^^^@85,0BR=12SUB{dddd^^}fffg&&^"grr:@83,0EP.T(50,100,!1)'a#gd#'^^^^^^^>>@100,0fa`f`d^^^r<<]@85,0EP=100[4'cd#g'r]@82,0EP=90'`dfa'^r'`dfa'^^^r}
STR FT4={[@82,0l16EP=100SUB{g^^g^^g^a^^^^}a#^^a#^^a#^`c^^^^rrr@30,0EP=127"f"f"f"f'fc'^^"f"g"g"g"g'gd'^^"g:@82,0EP=100SUB{g^rg^rg^a^ra^ra^g^grgrgg}a#^ra#^ra#^`c^r`c^r`c^`d^`dr`dr`d`d@31,0EP=127"g"g"g"g'g`d'^^"g]
@82,0EP=100SUB{a#^ra#^ra#^}g^rg^rg^@82,8EP=127d#gaa#`d#a#gd#@82,0EP=100SUB{a^ra^ra^a^^^^}`c^r`c^r`c^`d^^^^rrr}
TR=15DL=HAZ+16FTH;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;FT1;DL=NK1+16FTH;DL=ME5;FT2;FT3[FT4][FT1:REC2]
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG1A={>>@19,0l32P=70BR=48p.T(127,32,!1^1)l1`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={V=127l4[rrrBR=24p.T(64,0,!1)@128,3'>gab<'^^^^^^^[5r]]V=100}
STR BG6={@120,0l4'cd'^^^}STR BG7={@123,1l1BR=58p.T(0,127,!1^1^1^1)V=127EP.T(70,127,!1^1^1^1)'cde'^^^V=100p=64}
STR BG8={@127,0l1V=127EP.T(30,100,!1^1^1^2^4,100,30,!8)p.T(64,127,!1^1^1^2^4,127,0,!8)'cdef'^^^rp=64EP=127V=100}
STR BG9={@80,0l4BR=120p.T(127,0,!6)`gp=64}STR BG10={V=127l4BR=24p.T(64,0,!1)@128,3'>gab<'^^^V=100p=64}
TR=16DL=HAZ+12BG7;DL=HAZ+16BG1A;l8rl4P=0[BG9:P=127]P=64rrrrl8rBG10;DL=BGN+6BG1;BG2;DL=ME1+7BG6;DL=ME2+7BG4;DL=SB1;BG5;DL=RF1+6BG1;BG2;DL=ME3+7BG6;DL=ME4+7BG4;DL=SB2;BG5;DL=RF2+6BG1;BG2;
DL=NK1+12BG7;DL=NK1+16BG1A;l8rl4P=0[BG9:P=127]P=64rrrrl8rBG10;DL=ME5+7BG6;DL=ME6+7BG4;DL=SB3;BG5;DL=SB3+8BG5;DL=END+6BG1;BG2;