INT TRACK_SELECT = 1 ; // 1 : D-D-D (DJ is Droppin Inital-D's tune) https://www.youtube.com/watch?v=3icFXU2d_o4
//
// 熱気に満ちたフロアの盛り上がりも最高潮。満を持してDJがイニシャルDの楽曲をドロップ！
// その瞬間を表現しました。高まるリフにキレのある展開。一気に盛り上げるピークタイムチューンです！
//
//
// 2 : DON'T STOP THE MUSIC https://www.youtube.com/watch?v=sSJQxpwlGh4
//
// バランス勝負の正統派ユーロビート。光る部分は無いけれど、ひたすら基本に忠実です。
// 特に2コーラス目終わってからのEXTENDED展開がユーロビートらしくなるよう拘りました。
//
//
// 3 : FEELING ROYAL https://www.youtube.com/watch?v=9dZdNICS-N8
//
// 大ヒットした脱法ハーブのタイトルです。ちょっと作風を変えてみました。
// サビのコード進行はTwiceのFeel Specialからのインスパイアです。
//
//
INT TRACK_KEY = 0 ; // キー調整 (-3～3)
If(TRACK_SELECT==1){
INT EST=158PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"D-D-D (DJ is Droppin Inital-D's tune)"}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,011,00,0,K,064,9,2,127,09,0)WIN(07,07,039,08,0,K,074,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,011,00,0,K,000,8,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,081,00,0,K,000,2,2,100,10,0)WIN(09,09,011,00,0,K,127,8,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,083,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,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=0INT BGN=25INT ME1=33INT ME2=41INT SB1=49INT RF1=57INT ME3=65INT ME4=73INT SB2=81INT RF2=99INT NK1=107INT NK2=115INT NK3=123INT HZ2=132INT RF3=140INT SB3=148INT RF4=164INT END=172
STR SBUP={TrackKey=(K+2)}
/*1*/STR MN1={l8[a#`c`ca#`ca#r`d#^`d#`d#`f^`f`f`f:a#`c`ca#`c`cra#^^^^^rrr]a#`c`ca#`ca#`d#`d^^^^^rrr/*[g^gga#grg^gggfd#rg^^gga#gr:f^^^^^rrr]`c^^^^^rrr*/}
STR MN2={[g#^a#^`c^`d#`d^`d`d`d:`c^a#^`c^`d^`d#^`g`f^`f`f`f`d#^`d^]`d#^`f^`g^`g^`g`f`d#`g^r/*`c^g^`d#`da#`c^^^^^rrr*/}
STR MN3={l16`c^^^`d^^^`d#^^^[`g^^`g^^`g^`f^^`f^^`f^`d#^^`d#^^`d#^`c^`d^`d#^`c^;`g^^`g^^`g^`f^^`f^^`f^`d#^^`d#^^`d#^:`d#^^^`f^^^]`c^^^rrrr}
STR MN3A={l16`c^^^`d^^^`d#^^^[`g^^`g^^`g^`f^^`f^^`f^`d#^^`d#^^`d#^`c^`d^`d#^`c^;`g^^`g^^`g^`f^^`f^^`f^:`d#^^`d#^^`d#^`d#^^^`f^^^]`d#^^^}
STR MN3B={l16[`g^^`g^^`g^`f^^`f^^`f^`d#^^`d#^^`d#^`c^`d^`d#^`c^;`g^^`g^^`g^`f^^`f^^`f^`d#^^`d#^^`d#^:`d#^^^`f^^^]`c^^^rrrr}
STR MN4={l16[MD({`g^^`g^^`g^`f^^`f^^`f^`d#^^`d#^^`d#^`c^`d^`d#^`c^},1,!1^1)[32r]]}
STR MN5={l8[a#`c`ca#`ca#ra#^`c`ca#`ca#rra#`c`ca#`ca#r:`d#^`d#`d#`f^`f`f`f]a#ra#ra#ra#a#a#}
TR=1l8@11,0DL=ME1;HAM({MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3A;MN3;DL=NK2;MN4;MN5;DL=SB3;SBUP;MN4;MN3B;TrackKey=K})
/*2&3&4*/STR RTA={If(CH==2){@82,110,0}BR=6If(CH==3){p%=300@82,90,1}If(CH==4){p%=-300@115,0}REV=50CHO=50}
STR RTB={If(CH==2){@82,100,0}BR=6If(CH==3){p%=300@82,90,1}If(CH==4){p%=-300@82,90,1}REV=50CHO=50}
STR RTC={@40,90,0If(CH==3){p%=300}If(CH==4){p%=-300}}
STR RTD={If(CH==2){@1,90,0}BR=6If(CH==3){p%=300@100,0}If(CH==4){p%=-300@100,0}REV=50CHO=50}
STR RTH={RTB;l8[8"a#^^^^^&&a#r]l16}
STR RTI={RTA;EP=127M.W(30,80,!4)HAM({[3'`g`d#`c'^:['`g`d#`c''`g`d#`c'r]]['`g`d#`c':'`g`d#`c'r]'`f`d#`c'^^^rrrrrrrr})}
STR RTJ={RTD;EP=120l8MD({HAM({>c"d#"gc"d#"gc"d#;d"g"a#d"g"a#d"g;d#"g"a#d#"g"a#d#"g;f"g"a#f"g"a#f"g;gcd#gcd#gc;a#cga#cga#c;`cd#g`cd#g`cd#;/*`dd#g`dd#g`dd#<*/<})},3,!24)l16
RTA;EP=127M.W(30,80,!4)HAM({'`g`d#`c'^'`g`d#`c''`g`d#`c'^'`g`d#`c''`f`d#`c'^^^rrrrrrrr})}
STR RTR={RTA;EP=127M.W(30,80,!4)SUB{>HAM({[[d#^cd#^cd#^d^cd^cd^d#^cd#^cd#^:f^cf^cf^][8r]]})<}
HAM({[[4'gd#`c'^['gd#`c''gd#`c'r]:'fd`c'^['fd`c''fd`c'r]]'d#"a#g'^^r'fca#'^^r]})}
STR RT1={RTA;EP=127M.W(30,80,!4)SUB{>HAM({[[g^cg^cg^f^cf^cf^g^cg^cg^:a#^ca#^ca#^][8r]]})<}
HAM({[[4'`g`d#`c'^['`g`d#`c''`g`d#`c'r]:'`f`d#`c'^['`f`d#`c''`f`d#`c'r]]'`d#a#g'^^r'`f`ca#'^^r]})}
STR RT2={RTC[EP.T(60,110,!1^1)HAM({[8`cgd#g]})[32r]]}
STR RRF={l16DL=HAZ+8RTH;DL=BGN-8RTR;DL=BGN;RT1;DL=RF1;RT1;RT2;DL=RF2-2RTI;DL=RF2;RT1;RTJ;DL=NK3;RTH;DL=HZ2;SBUP;RTR;RT1;DL=RF4;RT1;TrackKey=K}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,10,100)}STR BSH={l4>q=100["a^^^^^^^"a#^^^^^^^]<l8BSA[[8"aa][8"a#a#]]q=100a#^^^^^^^}STR BSI={q=100[c^^^]c^^"a#^^rrBSA;}
STR BSS={q=100l4>[c^^^c^^^"g#^^^"a#^^^]<l8BSA}STR BS1={BSA[[8c`c][4"g#g#]["a#a#]q=100"a#^"a#^BSA]}STR BS2={[[4c`c][d#`d#][f`f]:[4c`c][4"a#a#]][4"g#g#][4"a#a#]}
STR BS3={[[4"g#g#][4"a#a#][4c`c]:[4d#`d#]]"gg[3"g^]}STR BS3A={l4>q=100"g#^^^"a#^^^c^^^d#^^^<l8BSA[4"g#g#][4"a#a#][4c`c]"gg[3"g^]}
STR BS4={[[8c`c][4"g#g#]["a#a#]"a#^"a#^]}STR BS5={[[8c`c][4"g#g#]:[4"a#a#]]l16q=100a#^a#a#^a#a#^[8r]BSA;l8}
STR BASS={l8<<DL=HAZ;BSH;DL=BGN-8CHO=80V=105BSS;DL=BGN;CHO=80V=105BS1;BS2;BS3;BS4;BS1;BS2;BS3A[BS4]BSI;BS1;DL=NK1;BS5;BSH;DL=HZ2;SBUP;BSS;BS1[BS4]BS1;l4q=100c^^^^^l8TrackKey=K}TR=5@35,90,1BASS;TR=7;<@40,90,0BASS;
/*6*/STR COH={@100,0EP=100l16HAM({[[SUB{e^^e^^e^^^e^e^e^}a^^a^^a^^^a^a^a^][SUB{f^^f^^f^^^f^f^f^}a#^^a#^^a#^^^a#^a#^a#^]]})}
STR COI={@49,90,1EP=110HAM({l4[`c^]l8`c^^`c^rrr})}
STR CO1={@49,90,1EP=110l4HAM({[`c^^^`c^^^`c^^^`c^rr]})}STR CO2={@49,90,1EP=90HAM({>[`c^^a#`c^^^`c^^^a#^^^]<})}
STR CO3={@49,90,1EP=90l4HAM({>[`c^^^^^^a#:`c^^^^^^^]`c^^^^^^r<})}
STR CO4={@49,90,1EP=110l4HAM({[`c^^^`c^^^`c^^^a#^rr]})}STR CO5={@49,90,1EP=110l4HAM({[`c^^^`c^^^`c^^^:`c^^^]`c^rr})}
TR=6@49DL=HAZ+8COH;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3[CO4]COI;CO1;DL=NK1;CO5;DL=RF3;SBUP;CO1[CO4]CO1;TrackKey=K
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR UL1={ULA;l8[d#ffd#fd#ra#^a#a#`c^`c`c`c:fggfggrf^^^^^rrr]fggfgfa#a#^^^^^rrr}
STR UL2={ULA[f^g^g#^`ca#^a#a#a#:g#^g^;g#^a#^`c^`d#`d^`d`d`d`c^a#^]`c^`d^EP=110SUB{`c^`c^`ca#g`c^^^}`d#^`d#^`d#`d`c`d#^rEP=127}
STR UL3={ULA;SUB{MN3}l8SUB{d#^f^g^}g#^a#^`c^l16SUB{[`c^^`c^^`c^a#^^a#^^a#^g^^g^^g^d#^d#^d#^d#^;g#^^g#^^g#^g#^^g#^^g#^f^^f^^f^:c^^^d^^^]d#^^^}
[`d#^^`d#^^`d#^`d^^`d^^`d^`c^^`c^^`c^g^g^g^g^;`c^^`c^^`c^`c^^`c^^`c^a#^^a#^^a#^:g^^^a#^^^]g^^^rrrr}
STR UL3A={ULA;SUB{MN3A}l8SUB{d#^f^g^}g#^a#^`c^l16SUB{[`c^^`c^^`c^a#^^a#^^a#^g^^g^^g^d#^d#^d#^d#^;g#^^g#^^g#^g#^^g#^^g#^:f^^f^^f^c^^^d^^^]f^^^}
[`d#^^`d#^^`d#^`d^^`d^^`d^`c^^`c^^`c^g^g^g^g^;`c^^`c^^`c^`c^^`c^^`c^:a#^^a#^^a#^g^^^a#^^^]a#^^^}
STR UL3B={ULA;SUB{MN3B}l16SUB{[`c^^`c^^`c^a#^^a#^^a#^g^^g^^g^d#^d#^d#^d#^;g#^^g#^^g#^g#^^g#^^g#^f^^f^^f^:c^^^d^^^]d#^^^}
[`d#^^`d#^^`d#^`d^^`d^^`d^`c^^`c^^`c^g^g^g^g^;`c^^`c^^`c^`c^^`c^^`c^a#^^a#^^a#^:g^^^a#^^^]g^^^rrrr}
STR UL4={ULA;l16SUB{MN4}[MD({SUB{`c^^`c^^`c^a#^^a#^^a#^g^^g^^g^d#^d#^d#^d#^}`d#^^`d#^^`d#^`d^^`d^^`d^`c^^`c^^`c^g^g^g^g^},1,!1^1)[32r]]}
STR UL5={ULA;l8SUB{MN5}[d#ffd#fd#rd#^ffd#fd#rrd#ffd#fd#r:a#^a#a#`c^`c`c`c]d#rd#rd#rd#d#d#}
STR ULMR={DL=ME1;l8>UL1;UL2;HAM2({UL3})DL=ME3;UL1;UL2;HAM2({UL3A;UL3})DL=NK2;HAM2({UL4;UL5})DL=SB3;SBUP;HAM2({UL4;UL3B})TrackKey=K}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n35n36}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={O3[63r][14O1;rrr]O1;r[O1]r[3O1]}STR DDI={[16O1;r:rr]O1;r[14O1;rrr]O1;r[O1]r[3O1]O4}
STR DDJ={[4O3:[15r]]r[3O1;r][[3O1]r]SUB{n49}[14O1;rrr]O1;r[O1]r[3O1]}STR DDK={[O3[7r]]O3;rrr[O1;r]l16EP.T(70,127,!2)[4O1;r]EP=127}
STR DD1={[32O1;rrr]}STR DD2={SUB{[12rrrr][rrn39rn39rn39n39]}[15O1;r:rr]O1;rrrEP=100[O1]EP=127[14O1;rrr]EP.onCycle(!8,127,100)[O1;rO1][O1]EP=127}
STR DD3={[26O1;rrr][4O1;r]EP.onCycle(!8,127,100)O1;rr[[O1]:r]EP=127[O1;rrr]}STR DD3A={O3[59r]O1;r[O1][10O1;rrr][4O1;r]EP.onCycle(!8,127,100)O1;rr[[O1]:r]EP=127[O1;rrr]}
STR DD4={[32O1;rrr]}STR DD5={[16O1;rrr][16O1;r][16O1]O1;r[[O1]r]l16EP.T(70,127,!2)[4O1;r]EP=127}
TR=10l16DL=HAZ@25,90,1BR=20p%=-1000V=115DDH;DDI;DL=BGN-8DDJ;DL=BGN@25,90,1BR=20p%=-1000V=115DD1;DD2;DD3;DD4;DD1;DD2;DD3A[DD4]DDK;DD1;DL=NK1;DD5;DDH;DDI;DL=HZ2;DDJ;DD1[DD4]DD1;REV=127O3;
/*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={[16rrGB;r][16GR;rGB;r]}STR GGI={[32GR;rGB;r]}STR GGJ={[6GR;rGB;r][8r]}
STR GG1={[[14GR;rGB;r][8r]]}STR GG2={SUB{[28rrrr]r'n38'rr'n38'rrr[8'n38']}[15GR;rGB;r][4r][16GR;rGB;r]}
STR GG3={[28GR;rGB;r][16r]}STR GG3A={[16rrGB;r][12GR;rGB;r][16r]}STR GG4={[[14GR;r;GB;r][8r]]}STR GG5={[30GR;rGB;r][8r]}
TR=11l16DL=HAZ;BR=20p%=0@27,90,0GGH;GGI;DL=BGN;BR=20p%=0@27,90,0GG1;GG2;GG3;GG4;GG1;GG2;GG3A[GG4]GGJ;GG1;DL=NK1;GG5;GGH;GGI;DL=RF3;GG1[GG4]GG1;
/*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 PPH={PD3}STR PPI={[n49[15r]]}STR PP1={SUB{PD3}SUB{[[56r]['n57'rrr]]}[[7rrrr'n38n40'rrr][8r]]}STR PP2={SUB{n49}[7rrrr'n38n40'rrr][8r][8rrrr'n38n40'rrr]}
STR PP3={SUB{[n49[63r]]}[14rrrr'n38n40'rrr][16r]}STR PP3A={SUB{[n49[63r]]}[64r][6rrrr'n38n40'rrr][16r]}STR PP4={SUB{PD3}SUB{[[56r]['n57'rrr]]}[[7rrrr'n38n40'rrr][8r]]}
STR PP5={SUB{PD3}SUB{[112r]n49[7r]n49}[15rrrr'n38n40'rrr][8r]}
TR=12l16DL=HAZ@17,100,0[PPH]DL=BGN-8PD3;DL=BGN@17,100,0PP1;PP2;PP3;PP4;PP1;PP2;PP3A[PP4]PPI;PP1;DL=NK1;PP5[PPH]DL=HZ2;PD3;PP1[PP4]PP1;REV=100O3;
/*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={`d`daaffdd}STR DS19={l8`g`drbrfrrl16}STR DS20={l8r`g`cf`crfrl16}STR DS21={`dr`draaer}STR DS22={`drrbgrdr}
TR=13l16<DL=HAZ@119,9CHO=90REV=100V=127PG1;DL=BGN+3HAM({DS18});DL=BGN+7HAM({DS18});DL=ME1+7HAM({DS19})DL=ME2+3HAM({DS20})DL=ME2+5HAM({DS20})HAM({DL=SB1+3DS21;DL=SB1+7DS22;DL=RF1+3DS18;DL=RF1+7DS18;})
DL=ME3+7HAM({DS19})DL=ME4+3HAM({DS20})DL=ME4+5HAM({DS20})HAM({DL=SB2+3DS21;DL=SB2+7DS22;DL=SB2+11DS21;DL=SB2+15DS22})DL=RF2+3HAM({DS18})DL=RF2+7HAM({DS18})DL=RF3+3HAM({DS18});DL=RF3+7HAM({DS18})
HAM({DL=SB3+3DS21;DL=SB3+7DS22;DL=SB3+11DS21;DL=SB3+15DS22})DL=RF4+3HAM({DS18})DL=RF4+7HAM({DS18})
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={SPA@82,110,4EP=100REV=90l16[[4aecaecac][4a#fda#fda#d]]REV=20}STR SPI={SPA@82,111,3EP=110REV=90l16[3gd#cgd#cgc][8r]}
STR SP1={SPA@82,111,3EP=110REV=90l16[[4gd#cgd#cgc:"a#fd"a#fd"a#f][8r]]REV=20}
STR SP2={SPA;SUB{l8[8@40,90,0rrr@39,0rrr@39,8rr]}l16EP=100[['c"gd#'^[4"a#c^]"a#^:'d#"a#g'^["a#d#^]'fca#'^["a#f^]]'"a#"fd'^[4"f"a#^]"f^]
/*@39,8BR=32[4p.T(0,127,!1,127,0,!1)l16SUB{@39,8[24r]@39,0[8'`cgd#']}[8SUB{"g"g"g^}ccc^]]*/}
STR SP3={SPA@82,90,1EP=100l16[[4`d#`cg#`c][4`f`da#`d][4`d#`cg`c]:[4`g`d#`c`d#]]/*[`cgd#g]*/[16r]}
STR SP3A={SPA@82,90,1EP=100l16[64r][4`d#`cg#`c][4`f`da#`d][4`d#`cg`c]/*[`cgd#g]*/[16r]}
STR SP4={SPA@82,111,3EP=110REV=90l16[[gd#cgd#cgc;"a#fd"a#fd"a#f][g#d#cg#d#cg#c:"a#fd"a#fd"a#f][8r]]REV=20}
STR SP5={SPA@82,111,3EP=110REV=90l16[8gd#cgd#cgc:"a#fd"a#fd"a#f][8r]REV=20}
TR=14DL=HAZ[SPH]DL=BGN-8SP1;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3A[SP4]SPI;SP1;DL=NK1;SP5[SPH]DL=HZ2;SBUP[SP1][SP4]SP1;TrackKey=K
/*15*/STR FTH={@31,110,0EP=80M.W(30,127,!2)CHO=70l8[['aec"a'^r'aec"a'^^^^]['a#fd"a#'^r'a#fd"a#'^^^^]]M=0CHO=20}
STR FTI={@31,91,0EP=100M.W(30,110,!2)l8[32r][3'gd#c"g'^r'gd#c"g'^^^^]'gd#c"g'^r'gd#c"g'^rrrM=0}
STR FTJ={@31,91,0EP=100M.W(30,110,!2)l8[3'gd#c"g'^r'gd#c"g']rrrr}
STR FT1={@31,91,0EP=100M.W(30,110,!2)l8[[3'gd#c"g'^r'gd#c"g'^^^^]'gd#c"g'^r'gd#c"g'^rrr]M=0}
STR FT2={@31,91,0EP=80M.W(30,110,!2)REV=60q=80l8[[BR=12[6p.T(64,64,!32,64,0,!16)'d#c"g']p=64'd#c"g'^:[4p.T(64,64,!32,64,0,!16)'gd#c'][p.T(64,64,!32,64,0,!16)'a#fc']p=64'a#fc'^][6p.T(64,64,!32,64,0,!16)'d"a#"g']p=64'd"a#"g'^]REV=20q=100}
STR FT3={@82,110,0l8EP=90HAM({g#^a#^`c^`d#`d^`d`d`d`c^a#^;`c^`d^`d#^`g`f^`f`f`f})@39,0EP.T(60,127,!2)l16HAM2({[8'`d#`cg#']})
@82,110,0l8EP=90HAM({g#^a#^`c^`d#`d^`d`d`d`d#^`f^})@39,8EP.T(100,127,!1)l16HAM2({[16'gd#c']})[16r]}
STR FT4={[@82,110,0M.W(30,110,!2)REV=60q=80EP=100l16'`g`d#`c'^^'`g`d#`c'^^'`g`d#`c'^;'`f`da#'^^'`f`da#'^^'`f`da#'^;'`g`d#`c'^^'`g`d#`c'^^'`g`d#`c'^;
M=0@100,0EP=110q=100l8HAM({>SUB{g#a#`cg#}`c`d`d#`c<})l16
@82,110,0M.W(30,110,!2)REV=60q=80EP=100l16'`g`d#`c'^^'`g`d#`c'^^'`g`d#`c'^;'`f`da#'^^'`f`da#'^^'`f`da#'^;'`g`da#'^^'`g`da#'^^'`g`da#'^;
@56,90,0M=0EP=127q=100HAM({['`c`d#`g'^^r]})]REV=20q=100}
STR FT5={EP=120M.W(30,110,!2)P.onCycle(30,97,!16)CHO=80REV=90l16SUB{[37@31,110,0r@31,90,0r@31,91,0r]}p.W(64,64,!32^64,64,0,!64)[7['`cgd#'^cccr]'`cgd#'^cr]P=96REV=20CHO=20p=64
@82,110,0M.W(30,110,!2)REV=60q=80EP=100l16'gd#c"g'^['`gd#c"g''gd#c"g'^][8r]}
TR=15DL=HAZ[FTH]DL=BGN-8FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]FTJ;FT1;DL=NK1;FT5[FTH]DL=HZ2;SBUP;FTI;FT1[FT4]FT1;BR=24p.T(64,64,!8,64,0,!2)EP=110@31,110,0l4'gd#c'^^^^rrrrp=64TrackKey=K
/*16*/STR BG1={TrackKey=(K)@82,110,0CHO=80REV=40EP=127BR=12p.T(64,64,!8,64,127,!2^4^8)l4'c"g#"f'^^^CHO=20REV=10TrackKey=0}
STR BG1A={@82,110,0SBUP;CHO=80REV=40EP=127BR=12p.T(64,64,!8,64,127,!2^4^8)l4'c"g#"f'^^^CHO=20REV=10TrackKey=0}STR BG2={TrackKey=(K)@97,0CHO=120REV=90CHO=20l4EP.T(110,127,!1)HAM({'d"a#"f'^^^})REV=10TrackKey=0}
STR BG3={TrackKey=(K)@82,110,0CHO=80REV=40EP=127BR=24p.T(64,64,!8,64,127,!1^8)l4'"g'^^^^CHO=20REV=10TrackKey=0}
STR BG4={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG5={@79,0l4BR=80p.T(127,0,!1)`g^^^p=64}STR BG5A={@79,0l4BR=80p.T(127,0,!1)`g^^^rrrp=64}
STR BG6={TrackKey=(K)@82,110,3q=80M.W(30,100,!1)EP=127REV=110CHO=60BR=12p.T(0,64,!16)HAM({<l8c^^^^^^l16"a#cl8d^^^^^^l16cdl8d#^^^^^^l16cd#l8f^^^^^^^g^^^^^^l16fgl8a#^^^^^^l16ga#l8`c^^^^^^l16a#`cl8`d^^^^^^^>})q=100REV=10CHO=20M=0p=64TrackKey=0}
STR BG6A={@82,110,3SBUP;q=80M.W(30,100,!1)EP=127REV=110CHO=80BR=12p.T(0,64,!16)HAM({<l8c^^^^^^l16"a#cl8d^^^^^^l16cdl8d#^^^^^^l16cd#l8f^^^^^^^g^^^^^^l16fgl8a#^^^^^^l16ga#l8`c^^^^^^l16a#`cl8`d^^^^^^^>})q=100REV=10CHO=20M=0p=64TrackKey=0}
STR BG7={@126,5l1BR=20p.T(90,0,!1^1^1^1)P.T(0,127,!1^1^1^1)EP=110REV=90'>cde<'^^^p=64REV=10P=84EP=127}STR BG8={l1TrackKey=(K)@39,1BR=32p.T(64,64,!4,64,127,!1^1^2^4)REV=40CHO=127HAM({l2"c^^^^^})p=64TrackKey=0REV=10CHO=20}
TR=16DL=HAZ+15BG1;BG5;DL=BGN-1BG1;DL=ME1+7BG2;DL=ME2+6BG3;BG4;DL=RF1-1BG1;DL=ME3+7BG2;DL=ME4+6BG3;BG4;DL=SB2+15BG1;DL=RF2;BG6;DL=NK1;BG7;DL=NK1+4BG8;BG5;DL=NK3+7BG1;BG5;DL=HZ2+7BG1A;DL=SB3+15BG1;DL=RF4;BG6A;BG5A;
}
If(TRACK_SELECT==2){
INT EST=158PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"DON'T STOP THE MUSIC"}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,009,00,0,K,064,9,2,127,09,0)WIN(07,07,039,08,0,K,074,2,1,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,10,0)WIN(08,08,009,00,0,K,000,7,2,100,09,2)WIN(14,14,082,01,0,K,024,2,2,127,09,0)
WIN(03,03,081,00,0,K,000,2,2,100,10,0)WIN(09,09,009,00,0,K,127,7,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,083,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,064,2,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,1,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,120,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 SB2=81INT RF2=97INT NK1=106INT NK2=114INT RF3=122INT SB3=130INT SB4=146INT END=154
/*1*/STR MNH={ab`ca`e^^^`d^^`d^`e^r[16r]ab`ca`e^^^`d^`d`d^`e^`er[15r]}STR MN1={[d^d^d^c"acd^d^^^r:d^d^f^fe^ee^d^c^]rdddfdfdfgra^^rr}
STR MN2={[argafd^a^rgafd^r:gggfg^fdfg^a^aga]gggfg^a#^a^rr/*grfgfdrg^rfgfdrrgggfg^fdfg^a^aga*/}
STR MN3={[ab`ca`e^^^`d^^`d^`e^rab`ca`c^`c^bgba^^rrab`ca`e^^^`d^`d`d^`e^`eraab`c^`c^`c`d`e`d^^^:r]`e^^rr}STR MN4={[4d^d^:d^c"a]fed#d[d^d^f^fd^d^:f^f^f]f}
STR MN5={MD({`e^^^`d^^`d^`e^r},3,!1)[20r]MD({`e^^^`d^`d`d^`e^`er},3,!1)[20r]}
TR=1l8>DL=HAZ+7rrrrHAM({MNH})HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=NK1;MN4;MNH;DL=SB3-1rrrrMN3;MN5;})
/*2&3&4*/STR RTA={BR=6@82,110,0If(CH==3){p%=300}If(CH==4){p%=-300}}STR RTI={RTA;EP=90l8['aec'[4'aec':r]'bge'[4'bge':r]'`cae'[4'`cae':r]:'`dbg'[4'`dbg':r]]'bge'['bge':r]rrrr}
STR RT1={RTA;EP=120[l16'`e`ca'^^r'`e`ca'r['`e`ca']l8'`dbg''`caf''bge''`caf'l16HAM({a"a`aa`ga`ea`d`e`d`caa^g})l8:
l16'`daf'^^r'`daf'r['`daf']l8'`caf''`dbg''`e`ca''`e`ca'l16HAM({a"a`c"a`d"a`e`d^`cb`c`d`e^`e})l8]l16'`e`ca'^^r'`e`ca'r['`e`ca']HAM({`ca`da`ea})'`e`ca''`e`ca'rr'`e`ca'r'`daf'^'`e`ca'^rrrrrrrr}
STR RT2={RTA;EP=120[l16'`e`ca'^^r'`e`ca'r['`e`ca']l8'`dbg''`caf''bge''`caf''aec'^^^[4r]:
l16'`daf'^^r'`daf'r['`daf']l8'`caf''`dbg''`e`ca''`e`ca'^^^^[4r]]l16'`e`ca'^^r'`e`ca'r['`e`ca']HAM({`ca`da`ea})'`e`ca''`e`ca'rr'`e`ca'r'`daf'^'`e`ca'^}
STR RT3={l8'`daf''`daf'r'`f`ca'r'`f`ca''`g`da''`g`da''`daf'^^^^^rr}
STR RT4={RTA;EP=120[[3l16'`e`ca'^^r'`e`ca'r['`e`ca']]l8'`dbg''`caf''bge''gd"b':
[3l16'`daf'^^r'`daf'r['`daf']]l8'`caf''`dbg''`e`ca''`e`ca']l16'`e`ca'^^r'`e`ca'r['`e`ca']HAM({`ca`da`ea})'`e`ca''`e`ca'rr'`e`ca'r'`daf'^'`e`ca'^}
STR RRF={l8DL=HAZ+8RTI;DL=BGN;RT1;DL=RF1;RT1;DL=RF2;RT2;DL=RF2+8RT3;DL=NK2;RTI;DL=RF3;RT4;DL=END[RT1:REC2]}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,100)}STR BSH={[[aaaa^aaa]ffff^fffgggg^ggg]}STR BSI={BSA[8a`a][8g`g][4f`f][4d`d][6e`e]e^^^}
STR BS1={[[f`f][g`g][4a`a]:[d`d][e`e][4a`a]][4f`f]g`gq=90l16grg^rrrrl8BR=24`g&&gBSA}STR BS2={[[d`d][f`f][4g`g][d`d][f`f]:[4c`c]]q=90gg^a^^^rBSA}
STR BS2A={[d^d^d^rr[4g`g]:d^d^d^rr[4c`c]][d`d][f`f]q=90gg^a^^^rBSA}STR BS3={>[[8"a#a#]:[7c`c]"bb][c`c]q=90c^c^"a^^^rr<BR=24`a&&"aBSA}
STR BS3A={q=100l4a#^^^^^^^`c^^^^^^^>l8BSA[8"a#a#][c`c]q=90c^c^"a^^^rr<BR=24`a&&"aBSA}
STR BS4={[[f`f][g`g][4a`a][[d`d][e`e][4a`a]]:[4d`d][e`e]e^e^][4d:`d]q=90e^^^e^^BR=24`e&&"eBSA}
STR BS4A={q=90l4f^g^a^^^[d^e^a^^^]d^^^e^^^BSA;l8[f`f][g`g][4a`a][[d`d][e`e][4a`a]][4d:`d]q=90e^^^e^^BR=24`e&&"eBSA}
STR BS4B={[f`f][g`g][4a`a][[d`d][e`e][4a`a]][4d`d][e`e]e^e^}
STR BS5={l16q=90[[d^dd^dd^f^f^g^^r:d^dd^dd^c^c^c^^r]d^rd^rd^c^rrrrrr]l8BSA}STR BS6={[16d`d][4d`d][4c`c][4"bb][e`e]e^^^}
STR BASS={l8<<DL=HAZ;CHO=70V=105BSH;BSI;DL=BGN;CHO=70V=105BSA;BS1;BS2;BS3;BS4;BS1;BS2A;BS3A;BS4;BS1;"a#"a#rcrcccDL=NK1;BS5;BS6;BS1;BS4A;BS4B[BS1:REC2]}TR=5@35,90,1BASS;TR=7/*@40,90,0*/@34,90,1;<BASS;
/*6*/STR COH={@49,90,1EP=70q=80l4[7'`e`ca'^^^]q=100'`e`ca'^^^}STR COI={@49,90,1EP=80l4'ae'^^^'be'^^^'`ca'^^^'`da'^^^'`ea'^^^'`da'^^^'`ca'^^^'be'^rr}
STR CO1={@49,90,1EP=85l2'``e`a'^^^^^^^^^^^^^^r}STR CO3={@49,90,1EP=80l4>[[a#a#`c`d]:`c`c`d`c`e`d`cg]`c^^^`e^rr</*>a#^^^`c^^^a#^^^`c^a^<*/}
STR CO3A={@49,90,1EP=80l4>a#^^^^^^^`c^^^^^^^[a#a#`c`d]`c^^^`e^rr</*>a#^^^`c^^^a#^^^`c^a^<*/}
STR CO4={@49,90,1EP=85HAM({[>l8a^^^^^^^^^^^ab`c`d`e^^^`d^^^`c^b^a^g^a^^^^^^^^^^^ab`c`d`e^^^^^^^`d^^^^^^^<]})}
STR CO4A={@49,90,1EP=85HAM({>l8a^^^^^^^^^^^ab`c`d`e^^^`d^^^`c^b^a^g^a^^^^^^^^^^^ab`c`d`e^^^^^^^`d^^^^^^^<})}
TR=6DL=HAZ;COH;COI;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;DL=ME4;CO3A;CO4;CO1;DL=NK1;COH;COI;CO1;CO4;CO4A[CO1:REC2]
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR ULH={ULA;EP=110SUB{MNH}HAM({SUB{defda^^^g^^g^a^r}fgaf`c^^^b^^b^`c^r[16r]SUB{defda^^^g^gg^a^ar}fgaf`c^^^b^bb^`c^`cr[15r]})}
STR UL1={ULA;EP=120[f^f^f^ecef^f^^^r:f^f^a^ag^gg^f^e^]rfffafafa`cr`d^^rr}
STR UL2={ULA;EP=127[frefd"a^f^refd"a^r:`c`c`ca#`c^a#ga#`c^`d^`cba#]SUB{`c`c`c`c`c^`d^`e^rr}eeeee^e^e^rr}
STR UL3={ULA;EP=110SUB{MN3}HAM({[SUB{defda^^^g^^g^a^rcdece^e^d"bdc^^rrdefda^^^g^gg^a^arccde^e^eeeg^^^}fgaf`c^^^b^^b^`c^rfgafa^a^gdge^^rrfgaf`c^^^b^bb^`c^`crffga^a^ab`cb^^^:r]'bg'^^rr})
/*[SUB{cccc`c^^^b^^b^`c^raaaae^e^ddde^^rr;cccc`c^^^b^bb^`c^`craaae^e^eeeg^^^}
eeeea^^^g^^g^a^reeeea^a^ggga^^rr;eeeea^^^g^gg^a^areeea^a^aaab^^^:r]SUB{f^^}a^^rr*/}
STR UL4={ULA;EP=120[4f^f^:f^ec]aaaa[f^f^a^af^f^:a^a^a]a}
STR UL5={ULA;EP=110SUB{MN5}MD({SUB{a^^^g^^g^a^r}`c^^^b^^b^`c^r},3,!1)[20r]MD({SUB{a^^^g^gg^a^ar}`c^^^b^bb^`c^`cr},3,!1)[20r]}
STR ULMR={DL=HAZ;l8>DL=HAZ+7rrrrULH;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3;DL=NK1;UL4;ULH;DL=SB3-1rrrrUL3;UL5;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n32n33n35n36}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={O3[61r]O1;rO4;rrr[7O1;r:rr]O1;rSUB{[16r][16'n40']}[8O1;r:rr]O1;r}STR DDI={[16O1;r:rr]O1;r[15O1;rrr][4O1]}
STR DDJ={[4O3:[15r]][13r]O1;rSUB{[4n57[15r]]}O4;rrr[7O1;r:rr]O1;rSUB{[16r][16'n40']}[8O1;r:rr]O1;r}STR DD1={[16O1;r:rr]O1;r[12O1;rrr]rr[3O1;r][8r]}
STR DD1A={[16O1;r:rr]O1;r[12O1;rrr]rrl16SUB{rrrrrrO4}SUB{rr[5'n40']}[3O1;r][8r]}STR DD2={[28O1;rrr]l8[O1]rO1;rrrrl16}STR DD2A={[3[3O1;rrr]rrrr[4O1;rrr]][4O1;rrr]l8[O1]rO1;rrrrl16}
STR DD3={[16O1;rr:r]O1[12O1;rrr]O3;rrrl16SUB{rrrrO4}[5'n40']rrrrrrr}STR DD3A={O3[31r]O4[30r]O1[12O1;rrr]O3;rrrl16SUB{rrrrO4}[5'n40']rrrrrrr}
STR DD4={[[16O1;r:rr]O1;r:[12O1;rrr]SUB{n49[7r]n57}[4O1;rrr]][10O1;rrr][4O1;r]SUB{EP.T(90,90,!2,90,127,!8)[16'n40']EP=127}O3;rrrrrO4[5r][4O1]}
STR DD4A={[3O3[31r]]O3[15r]SUB{n49[7r]n57}[O1;rrr][4O1;r][16O1;r:rr]O1;r[10O1;rrr][4O1;r]SUB{EP.T(90,90,!2,90,127,!8)[16'n40']EP=127}O3;rrrrrO4[5r][4O1]}
STR DD4B={[16O1;r:rr]O1;r[12O1;rrr]SUB{n49[7r]n57}[4O1;rrr]}
TR=10l16DL=HAZ;BR=20p%=1500REV=20@27,7,0V=120DDH;DDI;DL=BGN;BR=20p%=1500REV=20@27,7,0V=120DD1;DD2;DD3;DD4;DD1;DD2A;DD3A;DD4;DD1;l8O3[O1;r][3O1]l16DL=NK1;DDJ;DDI;DD1A;DD4A;DD4B[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={[8'n51'[7r]][[8'n51n59'r:rr]'n51n59'r]}STR GGI={[30GR;rGB;r][8r]}
STR GG1={[28GR;rGB;r][16r]}STR GG2={[28GR;GR;GB;r]l8[GB]rGB;rrrrl16}STR GG2A={[3[4GB;r:[GR]]rr[4GR;GR;GB;r]][4GR;GR;GB;r]l8[GB]rGB;rrrrl16}
STR GG3={[16GR;GR;GB:GR]r[12GR;GR;GB;GR]GR;rGB;r[GR]GB;GR;GB[7r]}STR GG3A={[8'n51n59'[7r]][12GR;GR;GB;GR]GR;rGB;r[GR]GB;GR;GB[7r]}
STR GG4={[[7[GR;GR;GB;r][GR;GR;GB;GR]]:[4GR;rGB;r]][16r]}STR GG4A={[8'n51'[7r]][[8'n51n59'r:rr]'n51n59'r][7[GR;GR;GB;r][GR;GR;GB;GR]][16r]}STR GG4B={[7[GR;GR;GB;r][GR;GR;GB;GR]][4GR;rGB;r]}
TR=11l16DL=HAZ;BR=20p%=3000@1,100,0CHO=70GGH;GGI;DL=BGN;BR=20p%=3000@1,100,0CHO=70GG1;GG2;GG3;GG4;GG1;GG2A;GG3A;GG4;GG1;l8[GB]rGB;r[3GB]l16DL=NK1;GGH;GGI;GG1;GG4A;GG4B[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 PPH={SUB{PD3}[64r][8rrrr'n38n40'rrr]}STR PPI={SUB{PD3}[15rrrr'n38n40'rrr][8r]}
STR PP1={SUB{PD3}[14rrrr'n38n40'rrr][16r]}STR PP2={[14rrrr'n38n40'rrr][16r]}STR PP2A={SUB{[3[n51rrr][2n51r]n49[19r]]}[3[8r][3rrrr'n38n40'rrr]][rrrr'n38n40'rrr][16r]}
STR PP3={[14rrrr'n38n40'rrr][16r]}STR PP3A={[64r][6rrrr'n38n40'rrr][16r]}STR PP4={SUB{[PD3]}[15rrrr'n38n40'rrr]['n38n40'rrr][15rrrr'n38n40'rrr]rrO1;r'n38n40'rrr}
STR PP4A={SUB{[PD3]}[128r][15rrrr'n38n40'rrr]rrO1;r'n38n40'rrr}STR PP4B={SUB{PD3}[15rrrr'n38n40'rrr]['n38n40'rrr]}
TR=12l16DL=HAZ@121,100,0BR=20p%=1000PPH;PPI;DL=BGN@121,100,0BR=20p%=1000PP1;PP2;PP3;PP4;PP1;PP2A;PP3A;PP4;PP1;DL=NK1;PPH;PPI;PP1;PP4A;PP4B[PP1: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={grrr`drrrgbrr`drrr}STR DS19={[8r]`g`c`g`cbafd}STR DS20={`g`e`cbge`g[8r]}STR DS21={rr`g`g`er`cr`errrbrrr}STR DS22={`g`g`gr`drar`drrreeee}STR DS23={rr`g`g`gr`dr`gr`drbrgr}STR DS24={l8`g`gr`drbbgl16}
TR=13l16<DL=HAZ@119,0PG1;DL=HAZ+7DS21;DL=HAZ+15DS22;DL=BGN+7DS18;DL=ME1+7DS19;DL=ME2+3DS6;DL=ME2+7DS20;DL=SB1+3DS23;DL=SB1+7DS21;DL=SB1+11DS23;DL=SB1+15DS22;DL=RF1+7DS18;DL=ME3+7DS19;DL=ME4+3DS6;DL=ME4+7DS20;
DL=SB2+3DS23;DL=SB2+7DS21;DL=SB2+11DS23;DL=SB2+15DS22;DL=RF2+7DS18;DS24;DL=NK1+7DS21;DL=NK1+15DS22;DL=RF3+7DS18;DL=SB3+3DS23;DL=SB3+7DS21;DL=SB3+11DS23;DL=SB3+15DS22;DL=SB4+3DS23;DL=SB4+7DS21;DL=END+7DS18;
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={@82,110,5EP=70l8[[8a'aec'][4f'fc"a'][4g'gd"b']]}
STR SPI={@82,110,5EP=70l8[8a'aec'][8g'gd"b'][4f'fc"a'][4d'd"a"f']l16EP=90SPA;"g"ggg"b"bbbdd`d`dee`e`egg`g`gbb`b`b>ee`e`e<rrrrP=24}
STR SP1={@82,110,5EP=80l8[[f'fc"a'][g'gd"b'][4a'aec']:[d'd"a"f'][e'e"b"g'][4a'aec']][4f'fc"a'][8r]}
STR SP1A={@82,110,5EP=75M=50l8HAM({[[f'fc"a'][g'gd"b'][4a'aec']:[d'd"a"f'][e'e"b"g'][4a'aec']][4f'fc"a'][8r]})M=0}
STR SP2={@82,110,4EP=70[[r'd"a"f'][r'fc"a']l16"gr'gd"b'r'gd"b'^'gd"b'rl8[r'gd"b'][r'd"a"f'][r'fc"a']:l16"cr'c"g"e'r'c"g"e'^'c"g"e'rl8[r'c"g"e']][8r]}
STR SP3={@82,110,5EP=70[[8r'a#fd']:[8r'`cge']][4r'`cge'][r'aec']rrrr}
STR SP4={@82,110,5EP=70l16>q=60[[['fc"a']'fc"a'^][['gd"b']'gd"b'^][4['aec']'aec'^][[['d"a"f']'d"a"f'^][['e"b"g']'e"b"g'^][4['aec']'aec'^]][4['d"a"f']'d"a"f'^][4['e"b"g']'e"b"g'^]]<q=90}
STR SP4A={@82,110,5EP=70l16>q=60[['fc"a']'fc"a'^][['gd"b']'gd"b'^][4['aec']'aec'^][[['d"a"f']'d"a"f'^][['e"b"g']'e"b"g'^][4['aec']'aec'^]][4['d"a"f']'d"a"f'^][4['e"b"g']'e"b"g'^]<q=90}
STR SP5={['aec']r'aec'r[3'aec']}STR SP6={@82,110,5EP=80l16[8"a"a'd"a"f'^"a'd"a"f'^'d"a"f'"a"a'd"a"f'^"a"a'd"a"f'"a]}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;SP1A;SP5;DL=NK1;SP6;SPI;SP1;DL=SB3+8[SP4A][SP1:REC2]
/*15*/STR FTH={@82,90,1EP=110l8HAM({SUB{[4erreredderrere:gg]}[4arraraggarrara:`c`c]})rr}
STR FTI={@82,90,1EP=110l8HAM({[4aebe`ce`ea^ebe:`ce`e^]rrrr})}
STR FT1={/*@56,90,1*/@82,90,1l8EP=120HAM({>['fc'^rr'gd'^rr'ae'^rrrrrr:'d"a'^rr'e"b'^rr'ae'^rrrrrr]'fc'^rrrrrr'gd'^rrrrrr<})}
STR FT1A={@56,90,1l8EP=120HAM({>['fc'^rr'gd'^rr'ae'^rrrrrr:'d"a'^rr'e"b'^rr'ae'^rrrrrr]'fc'^rrrrrr'gd'^rrrrrr<})}
STR FT2={@82,110,0[13r][l8EP=90'`daf'^:[13r]EP=100HAM({l16`dfa`c`fa`c`f`d^[24r]})]@56,90,0l8EP=100[9r]'fc''gd'^'ae'^^^r}
STR FT3={@82,110,0[l8[13r]EP=110l16[3'a#fd'r]'`cge'^^^:l8[6r]['`cge']r'`cge'^'`cge'['bf#d#']]l8rr['`cge'^]l16EP=120HAM3({>"acde"aeae^<})[7r]}
STR FT4={[@82,110,0EP=90l8HAM({'`e`ca'^^^'`dbg'^^'`dbg'^'`e`ca'^^})rrrr@56,90,0EP=110'fd'^rr'ge'^rr'ae'^rrrrrr
@82,110,0EP=90l8HAM({'`e`ca'^^^'`dbg'^'`dbg''`dbg'^'`e`ca'^'`e`ca'^^})rr:@82,110,4EP=100q=60l16HAM({[4ff`f`f][4gg`g`g]})q=100]
@82,110,4EP=100q=60l16HAM({[4ff`f`f][gg`g`g]})q=100@56,90,0EP=110'ge'^rrrrrr}
STR FT4A={@82,110,0EP=90l8HAM({'`e`ca'^^^'`dbg'^^'`dbg'^'`e`ca'^^})rrrr@56,90,0EP=110'fd'^rr'ge'^rr'ae'^rrrrrr
@82,110,0EP=90l8HAM({'`e`ca'^^^'`dbg'^'`dbg''`dbg'^'`e`ca'^'`e`ca'^^})rr@82,110,4EP=100q=60l16HAM({[4ff`f`f][4gg`g`g]})q=100}
STR FT5={l8@56,90,0`d`d^`d^`d`d`d`d^^^^}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;FT1;FT5;DL=NK1;FTH;FTI;FT1A;FT4;FT4A[FT1:REC2]
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}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={@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 BG11={@126,3l4EP.T(110,127,!2)'>cdef<'^^r}STR BG12={l4@123,2P=64CHO=127REV=127'>"dg`d<'^^^^^^^REV=10CHO=20}
TR=16DL=HAZ+4BG10;DL=HAZ+15BG11;DL=BGN;BG12;DL=BGN+4BG10;DL=BGN+6BG1;BG2;DL=ME1+7BG3;DL=ME2+6BG1;BG2;DL=SB1+14BG1;BG3;DL=RF1;BG12;DL=RF1+4BG10;DL=RF1+6BG1;BG2;DL=ME3+7BG3;DL=ME4;BG10;DL=ME4+6BG1;BG2;DL=SB2+14BG1;BG3;
DL=RF2;BG12;DL=RF2+4BG10;DL=RF2+6BG1;BG2;BG11;DL=NK1+4BG10;DL=NK2+7BG11;DL=RF3;BG12;DL=RF3+4BG10;DL=RF3+6BG1;BG2;DL=SB3;BG12;DL=SB3+4BG10;DL=SB3+14BG1;BG3;DL=SB4;BG12;DL=SB4+3BG10;DL=END;BG12;DL=END+4BG10;DL=END+6BG1;BG2;DL=END+8REC2;BG12;DL=END+12BG10;
}
If(TRACK_SELECT==3){
INT EST=157PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"FEELING ROYAL"}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,012,00,0,K,064,9,4,127,09,0)WIN(07,07,039,08,0,K,074,2,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,001,90,0,K,064,2,2,120,09,0)WIN(08,08,012,00,0,K,000,8,3,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,089,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,8,3,100,09,2)WIN(15,15,003,00,0,K,096,2,2,127,10,0)
WIN(04,04,091,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,049,00,0,K,032,1,2,120,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=58INT ME3=66INT ME4=74INT SB2=82INT RF2=98INT NK1=107INT NK2=115INT ME5=123INT ME6=131INT SB3=139INT END=155
STR SBUP={TrackKey=(K+1)}
/*1*/STR MN1={f^d#f^gg#^f^d#f^gg#^g^^d#^^^^rrrrrrrrg#^gg#^a#`c^g#^gg#^a#`c^a#^^g^^^^rrrrr}
STR MN1A={MD({f^d#f^gg#^f^d#f^gg#^[16r]g#^gg#^a#`c^g#^gg#^a#`c^[16r]},1,!1^1)}
STR MN2={[d#gg#a#^a#^a#`ca#a^g^f^:fg^g#^g#^g#a#g#g^f^d#r]fg^g#^g#^g#a#g#g^a#^ar
/*rrrr[ra#^gg#a#a^`c^f^^^rrr:g#^fgg#g^a#^d#^^^rr]g#^fgg#g^a#^ar*//*d#fg[a#fa#g#^fd#fa#fa#g^fd#c:f^g^g#a#g#`c^a#^g#^a#^r]f^d#^g#gd#f^^^rr*/}
STR MN3={fg#a#[`c^`c^rrrr`c^`c^rrrr`ca#a#fg#a#g#`c^a#a#fg#a#g#^;`c^`c^`c#^`c`c^a#g#a#^fg#f`c^`c^rrrr`c^`c^r:g#fg#]}
STR MN4={l8[rrrr`c^^^a#^^^g^^^a#^^^^^^^:a^^^aa#`c^]a^^^rrrr}STR MN5={[rrrr`c^^^a#^^^gg#a#^a#^a#^a#`ca#a^^^^:f^^^]rrrr}
TR=1l8>HAM2({DL=ME1;MN1;MN2;MN3;DL=ME3;REV=80MN1;MN2;REV=40MN3;DL=NK1;MN4;MN5;DL=ME5;MN1A;DL=SB3-1[5r]SBUP;MN3;TrackKey=K;})
/*2&3&4*/STR RTA={BR=6If(CH==3){p%=150@100,0}If(CH==4){p%=-150@99,1}}STR RTB={BR=6If(CH==3){p%=150@99,1}If(CH==4){p%=-150@99,1}}
STR RTC={BR=6If(CH==3){p%=200@28,110,1}If(CH==4){p%=-200@28,110,0}}STR RTD={BR=6If(CH==3){p%=200@3,0,0}If(CH==4){p%=-200@4,0,0l64r}}STR RTH={RTA;EP=110CHO=40l8[f"g#c#f^[3"g#c#:f^]f;g"a#d#g^[3"a#d#:g^]g]}
STR RTI={RTA;EP=110CHO=60l8[f"g#c#f`ca#g#f^"g#c#f`ca#g#f;g"a#d#ga#g#gd#^"a#d#ga#g#gd#]}STR RTJ={RTB;EP=120CHO=70l8`fg#`c#`f^l16`fr`fr`f`f}STR RTK={RTA;EP=110CHO=40l8f"g#c#fl16ffrffrff}
STR RT1={RTB;EP=120CHO=70l8`fg#`c#`f^g#`c#`f`g`c`d#`g^`c`d#`g;`g#`c`f`g#^`c`f`g#;`a#`d#`g`a#``c`f`g#``c;`a#`d#`g`a#^`d#`g`a#^`d#`g`a#`g#`a#`g#`a#>`cd#g#`c^d#g#`c^d#g#`c^^^r<;CHO=20}
/*[`cg#a#`ca#ga#g#^d#fgg#gfd#;g#d#gg#a#d#a#`c^:g#a#`c`d#`c#`cg#]g#a#`c^^^r*//*l8[q=80'`c#g#f'^'`c#g#f'^'`c#g#f''`c#g#f''`c#g#f''`cgd#'^'`cgd#''`cgd#''`cgd#''`cgd#''`c#g#f''`d#a#g'^
'`f`cg#'^'`f`cg#'^'`f`cg#''`f`cg#''`f`cg#''`g#`f`c'^'`g#`f`c''`g#`f`c''`g#`f`c':q=100l16HAM({`cg#`c`c#`cg#a#`c})l8]'`g#`f`c'^^^*/
STR RT2={RTC;EP=80CHO=50l16<If(CH!=2){[[['g#fc#'^"g#"g#"g#r]'g#fc#'^"g#r][['a#gd#'^"a#"a#"a#r]'a#gd#'^"a#r]]}>}
STR RT3={RTD;EP=90CHO=50If(CH!=2){l8['`cgd#'^"g'`cgd#'^^'`cgd#'^['`cg#f'^^]'`cg#f'^;'"a#df'^d'"a#df'^^'"a#df'^:['a#gd#'^^]'a#gd#'^]}}
STR RRF={DL=HAZ;RTH;RTI;RTJ;DL=BGN;RT1;DL=RF1;RT1;RT2;RT3;DL=RF2;RT1;RTK;RTH;RTI;DL=END;SBUP[RT1:REC2]TrackKey=K;}TR=2HAM3({RRF})TR=3HAM3({RRF})TR=4HAM3({RRF})
/*5*/STR BSA={q.onCycle(!8,70,100)}STR BSH={l4>q=100[c#^^^^^^^:d#^^^^^^^]d#^^^c^^^<l8q=90BSA}
STR BSI={[[8c#`c#]:[8d#`d#]][4d#`d#]q=100`d#^^^^^^&&d#BSA}STR BSJ={c#`c#c#`c#^l16c#rc#rc#c#l8}STR BSK={l4>q=100c#^l16c#c#rc#c#rc#c#<}
STR BS1={[4c#`c#][4c`c][4f`f][4g#`g#][8d#`d#][8g#`g#]}STR BS1A={l4q=100c#^^^c^^^f^^^g#^^^l8BSA[8d#`d#][8g#`g#]}
STR BS2={[8c#`c#][8d#`d#][8c#`c#][8d#`d#]}STR BS2A={q=90[c#rc#r`c#g#`c#c#rc#rc#`c#g#`c#r;d#rd#r`d#a#`d#d#rd#rd#`d#a#`d#r]BSA}
STR BS3={[[4c`c][4f`f][4"a#a#]:[4d#`d#]][d#`d#]q=100c^^^BSA/*[[4c#`c#][4d#`d#][4f`f]:[4c`c]][4f`f]*/}
STR BS3A={l4q=100[c^^^f^^^:"a#^^^d#^^^]l8"a#^^^^^^d#rd#rc^rrrBSA}STR BS4={[4[4c#`c#][4c`c][4f`f]:[4g#`g#]]BR=24q=100HAM({g#^^^^^^&&"g#})BSA}
STR BS4A={l4q=100[c#^^^c^^^f^^^:g#^^^]g#^l16g#^g#g#g#g#^g#l8BSA[[4c#`c#][4c`c][4f`f]:[4g#`g#]]BR=24q=100HAM({g#^^^^^^&&"g#})BSA}
STR BASS={l8<<DL=HAZ;CHO=60V=110BSH;BSI;BSJ;CHO=60V=110DL=BGN;BSA;BS1;BS2;BS3;BS4;BS1;BS2A;BS3A;BS4;BS1A;BSK;BSH;BSI;DL=ME5;BS2;BS3;SBUP;BS4A[BS1:REC2]TrackKey=K}TR=5;<@40,90,0BASS;TR=7@35,90,1BASS;
/*6*/STR COH={@55,110,8l4EP=80['c#"g#"f'^^^^^^^'d#"a#"g'^^^^^^^]}STR COI={@55,110,8l4EP=80SUB{g#^^^^^^^a#^^^^^^^`c^^^^^^^a#^^^^^^^}['c#"g#"f'^^^^^^^'d#"a#"g'^^^^^^^]}
STR COJ={l8EP=90@49,90,1'``c#c#"c#'^^^^l16'``c#c#"c#'^'``c#c#"c#'r['``c#c#"c#']}STR COK={@55,110,8l4EP=80'c#"g#"f'^l16[3['c#"g#"f']:r]}
STR CO1={l4EP=90@49,90,1SUB{>`c#^^^`c^^^a#^^^g#^^^g^^^^^^^`c^^^^^^^<}HAM2({c#^^^c^^^f^^^g#^^^d#^^^^^^^g#^^^^^^^})}
STR CO3={l4EP=85@55,110,8['a#gd#'^^^'afc'^^^:'g#fc'^^^'gd#"a#'^^^]l8'g#fc'^^^^^^['g#d#"a#'^]'afc'^rrr}
STR CO4={l4EP=75@49,90,1SUB{>[4`f^^^`d#^^^`f^^^`g#^^^]<}SUB{>[`c#^^^`c^^^a#^^^g#^^^f^^^g^^^g#^^^`c^^^]<}HAM2({[g#^^^g^^^f^^^d#^^^c#^^^c^^^f^^^g#^^^]})}
TR=6@49,90,1DL=HAZ;COH;COI;COJ;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;DL=ME4;CO3;CO4;CO1;COK;COH;COI;DL=ME6;CO3;SBUP;CO4[CO1:REC2]
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR UL1={ULA;EP=120c#^cc#^d#f^c#^cc#^d#f^d#^^"a#^^^^rrrrrrrrf^d#f^gg#^f^d#f^gg#^g^^d#^^^^rrrrr}
STR UL1A={MD({c#^cc#^d#f^c#^cc#^d#f^[16r]f^d#f^gg#^f^d#f^gg#^[16r]},1,!1^1)}
STR UL2={ULA;EP=127[cd#fg^g^gagf^d#^c#^:c#d#^f^f^fgfd#^c#^cr]c#d#^f^f^fgfSUB{c^d#^dr}d#^g^fr}
STR UL3={ULA;EP=120SUB{MN3}SUB{"g#cd#}c#fg[SUB{g#^g#^rrrrg^g^rrrrg#g#g#g#g#g#g#f^ffffff^}f^f^rrrrd#^d#^rrrrfffffffc^cccccc^
SUB{g#^g#^g#^g#g^ggg^d#d#d#f^f^rrrrg#^g#^rrrr}f^f^f^fd#^d#d#d#^cccc^c^rrrrf^f^r:SUB{c"g#c}d#cd#]
/*SUB{MN3}SUB{"g#cd#}c#fg[SUB{f^f^f^f^d#^d#^d#^d#^`f`d#`d#g#`c`c#`c`f^`d#`d#g#`c`c#`c^}g#^g#^g#^g#^g^g^g^g^g#ffcfgfg#^ffcfgf^;
SUB{`f^`f^`f^`f`g^`g`g`g^a#`d#`c`f^`f^rrrr`g#^`g#^rrrr}g#^g#^a#^g#g#^gfg^cc#cg#^g#^rrrr:g#^g#^rSUB{`ca#`c}d#cd#]*/}
STR UL4={ULA;EP=120SUB{MN4}l8SUB{[rrrrg#^^^f^^^c#^^^g^^^^^^^:f^^^fgg#^]c^^^}[rrrrf^^^c#^^^"g#^^^d#^^^^^^^:c^^^cc#d#^]f^^^rrrr}
STR UL5={ULA;EP=120SUB{MN5}l8SUB{[rrrrg#^^^f^^^c#d#f^f^f^ffff^^^^:c^^^]}[rrrrf^^^c#^^^"g#"a#c#^c#^c#^c#c#c#c#^^^^:"g#^^^]}
STR ULMR={DL=ME1;l8UL1;UL2;If(CH==8){HAM({UL3})}If(CH==9){HAM2({UL3})}DL=ME3;REV=90UL1;UL2;REV=30If(CH==8){HAM({UL3})}If(CH==9){HAM2({UL3})}
DL=NK1;If(CH==8){HAM({UL4;UL5})}If(CH==9){HAM2({UL4;UL5})}DL=ME5;UL1A;DL=SB3-1[5r]SBUP;If(CH==8){HAM({UL3})}If(CH==9){HAM2({UL3})}TrackKey=K;}TR=8ULMR;TR=9;>ULMR;
/*10*/STR OA={n32n35n36}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={[64r]EP.T(0,127,!1^1^1^1)[14O1;rrr]O1;r[4O1]rO1;}STR DDHA={O3[63r]O3[15r]EP.T(0,127,!1^1^1)[10O1;rrr]O1;r[4O1]rO1;}STR DDI={[16O1;r:rr]O1;r[12O1;rrr]REV=127CHO=127O3[15r]CHO=50REV=40}STR DDJ={[O1;rrr]rrrrO1;r[O1]}STR DDK={O1[7r][3[O1]:r]}
STR DD1={[28O1;rrr][16r]}STR DD1A={O3[63r][12O1;rrr][16r]}STR DD2={SUB{[[[10r]'n39n28'r'n39n28'rrr][32r]]}[31O1;rrr]EP.T(70,127,!4)[4O1]}
STR DD2A={SUB{[8[10r]'n39n28'r'n39n28'rrr]}[8[O1;rrr]EP=70O1;rEP=127O1;rEP=127:O1;rrr]EP.T(70,127,!4)[4O1]}STR DD3={[28O1;r:rr][3O1;rrr][6r]}STR DD3A={O3[61r]O1;rSUB{O3[15r]O1[15r][O1[7r]]}r[12r:rrr][3O1;rrr][6r]}
STR DD4={[28O1;rrr]EP.onCycle(!8,127,70)O1;r[O1]rrO1;rO1;r[4O1]rO1;EP=127[28O1;rrr][16r]}
STR DD4A={SUB{O3[61r]O1;rO3[15r][O1[15r]][O1;rrr]}[112r]EP.onCycle(!8,127,70)O1;r[O1]rrO1;rO1;r[4O1]rO1;EP=127[28O1;rrr][16r]}
TR=10l16DL=HAZ;BR=20p%=-2000@27,7,0V=115CHO=50REV=40DDH;DDI;DDJ;DL=BGN;/*@9,90,1@27,90,0*/BR=20p%=-2000@27,7,0V=115CHO=50REV=40DD1;DD2;DD3;DD4;DD1;DD2A;DD3A;DD4;DD1A;DDK;DDHA;DDI;DL=ME5;DD2;DD3;DD4A[DD1:REC2]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n46n31'}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={[32rrGB;r]}STR GGI={[16GR;rGB;r][12GR;GR;GB;r][16r]}STR GGJ={[GR;rGB;r]rrrrGR;rGR;GR}STR GGK={[rrGB;r][3[GB]:r]}
STR GG1={[32GR;rGB;r]}STR GG2={[32GR;rGB;r]}STR GG3={[28GR;rGB;r][16r]}STR GG4={[30GR;rGB;r][8r][32GR;rGB;r]}STR GG4A={[30rrGB;r][8r][32GR;rGB;r]}
TR=11l16DL=HAZ;@27,90,0BR=20p%=2000EP=110GGH;GGI;GGJ;DL=BGN@27,90,0/*@17,100,0@33,90,1*/BR=20p%=2000EP=110GG1;GG2;GG3;GG4;GG1;GG2;GG3;GG4;GG1;GGK;GGH;GGI;DL=ME5;GG2;GG3;GG4A[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 PD3B={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[46r][3n51rrr][3n51r]}
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 PPH={PD3}STR PPI={SUB{PD3A}[14rrrr'n39n55'rrr][16r]}STR PPJ={n49rrr'n39n55'rrr[8r]}STR PPK={n49[15r]}STR PP1={SUB{PD3}[14rrrr'n39n55'rrr][16r]}STR PP1A={SUB{PD3}[64r][6rrrr'n39n55'rrr][16r]}
STR PP2={[15rrrr'n39n55'rrr][8r]}STR PP2A={[7[8r]rrrr'n39n55'rrr][16r]}STR PP3={[14rrrr'n39n55'rrr][16r]}STR PP3A={PD3B}STR PP4={SUB{[PD3]}[[14rrrr'n39n55'rrr][16r]]}STR PP4A={SUB{[PD3]}[128r][14rrrr'n39n55'rrr][16r]}
TR=12l16DL=HAZ@17,100,0PPH;PPI;PPJ;DL=BGN@17,100,0PP1;PP2;PP3;PP4;PP1;PP2A;PP3A;PP4;PP1A;PPK;PPH;PPI;DL=ME5;PP2;PP3;PP4A[PP1: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={`gr`er`c`cra`craarrer}STR DS19={`gr`e`dr`cbrargreerr}
TR=13l16<DL=HAZ@118,8V=110CHO=127REV=50PG1;DL=BGN+7HAM({DS8})DL=ME2+6HAM({DS18})DL=SB1+14HAM({DS19})DL=RF1+7HAM({DS8})DL=ME4+6HAM({DS18})DL=SB2+14HAM({DS19})DL=RF2+7HAM({DS8})DL=ME6+6HAM({DS18})DL=END+7HAM({DS8})
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={l8@82,110,1EP=70[<[`c#g#`d#g#`fg#`g#g#][`d#a#`fa#`ga#`a#a#]>]}
STR SPJ={l16@82,110,3EP=90SPA[3`fg#:`c#`f]`fr`fr`f`f}STR SPK={l8@82,110,1EP=70;<`c#g#`d#g#l16[3`c#`c#:r]>}
STR SP1={l16@82,110,3EP=90SPA[4`fg#`c#`f][4`ga#`d#`g][4`g#`c`f`g#][`a#`d#`g`a#][>`cfg#`c<][8`a#`d#`g`a#][8``c`d#`g#``c]}
STR SP2={l8@82,110,1EP=65[<[`c#g#`d#g#`fg#`g#g#][`d#a#`fa#`ga#`a#a#]>]}
STR SP3={l16@82,110,3EP=70[[4a#`d#`c#`d#][4`c`f`d#`f][4a#`d#`c#`d#]:[4`c`d#`c#`d#]][`c`d#`c#`d#][8r]}
STR SP4={l16<@39,0,0EP=85[4[`c#fg#`c#`ca#`cg#][`cd#g#`ca#g#a#g][`fa#`c#`f`d#`c#`d#`c][`g#`c`d#`g#`g`f`g`d#]]>}
STR SP4A={l16<@39,0,0EP=85[[`c#fg#`c#`ca#`cg#][`cd#g#`ca#g#a#g][`fa#`c#`f`d#`c#`d#`c][`g#`c`d#`g#`g`f`g`d#]]>}
TR=14DL=HAZ;REV=50CHO=50SPA[SPH]SPJ;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;SP1;SPK[SPH]DL=ME5;SP2;SP3;DL=SB3+8SBUP;SP4A[SP1:REC2]
/*15*/STR FTH={@82,90,1EP=100l16[[8'c#"g#''c#"g#''fc#"g#'^][8'd#"a#''d#"a#''gd#"a#'^]]}
STR FTI={@82,110,0EP=100[[MD({['fc#"g#'^^r]},1,!2)[8r]]:[MD({['gd#"a#'^^r]},1,!2)[8r]]]MD({['gd#"a#'^^r]},1,!2)[8r]@98,0REV=127CHO=127EP.T(110,127,!1)HAM({l8'gd#"a#'^^^^^^^})REV=20CHO=20}
STR FTJ={@31,110,0EP=80q=80l8<'g#fc#'^^^^l16'g#fc#'^'g#fc#'r['g#fc#']>}STR FTK={@82,90,1EP=100l16['c#"g#''c#"g#''fc#"g#'^][3['c#"g#']:r]}
STR FT1={@31,110,0EP=80q=80l8<'g#fc#'^^['g#fc#'^]'g#fc#';'gd#c'^^['gd#c'^]'gd#c';'g#fc'^^['g#fc'^]'g#fc';'`cg#d#'^^['`cg#d#'^]'`cg#d#'['gd#"a#'^^['gd#"a#'^]'gd#"a#']['`cg#d#'^^['`cg#d#'^]'`cg#d#']>q=100}
STR FT2={@1,90,0EP=127CHO=90[21r]HAM3({>d#gd#g^fd#rg^^<})[21r]HAM3({>d#gg#a#`c^a#^^rr<})CHO=20}
STR FT3={@1,90,0EP=127CHO=90HAM3({>[a#^a#^a#`ca#a^g^f^^^r:g#^g#^g#a#g#g^f^d#^^^r]g#^g#^g#a#g#<})CHO=20@82,110,0EP=90l16>'gd#c'^^r'a#gd#'^^r'afc'^^rrrrrrr<}
STR FT4={@31,110,0EP=75q=80l8<[4'g#fc#'^^['g#fc#'^]'g#fc#';'gd#c'^^['gd#c'^]'gd#c';'g#fc'^^['g#fc'^]'g#fc':'`cg#d#'^^['`cg#d#'^]'`cg#d#']l16EP.T(40,127,!1)@39,8[16'`cg#d#']>q=100}
STR FT4A={@31,110,0EP=75q=80l8<['g#fc#'^^['g#fc#'^]'g#fc#';'gd#c'^^['gd#c'^]'gd#c';'g#fc'^^['g#fc'^]'g#fc':'`cg#d#'^^['`cg#d#'^]'`cg#d#']l16EP.T(40,127,!1)@39,8[16'`cg#d#']>q=100}
TR=15DL=HAZ;FTH;FTI;FTJ;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;FT1;FTK;FTH;FTI;DL=ME5;FT2;FT3;DL=SB3+8SBUP;FT4A[FT1:REC2]
/*16*/STR BG1={TrackKey=(K)@51,110,0l4CHO=100REV=100EP.T(70,127,!1)HAM2({'`cg#d#'^^^})CHO=20REV=10TrackKey=0}STR BG1A={@51,110,0SBUP;l4CHO=100REV=100EP.T(70,127,!1)HAM2({'`cg#d#'^^^})CHO=20REV=10TrackKey=0}
STR BG2={TrackKey=(K)@51,110,0l4CHO=100REV=100EP.T(70,127,!1)HAM2({'`d#a#g'^^^})CHO=20REV=10TrackKey=0}STR BG3={@79,0l4rl8rl4BR=120p.T(127,0,!6)`gp=64}
STR BG4={TrackKey=(K)l8@82,90,1REV=100rrrr'`f`cg#'r'`f`cg#'^^^rr'`d#`cg'r'`d#`cg'^^^/*[46r]*/REV=10TrackKey=0}
STR BG4A={SBUP;l8@82,90,1REV=100rrrr'`f`cg#'r'`f`cg#'^^^rr'`d#`cg'r'`d#`cg'^^^/*[46r]*/REV=10TrackKey=0}
STR BG5={>>@126,8l1P=70BR=36p.T(100,0,!1^1)'`e'^<<p=64}
STR BG6={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}
TR=16DL=HAZ+7BG2;DL=HAZ+14BG5;DL=BGN+7BG1;DL=ME1+7BG2;DL=ME2+7BG3;DL=SB1;BG4;DL=SB1+6BG5;DL=SB1+8BG4;DL=SB1+14BG5;DL=RF1+7BG1;DL=ME3+7BG2;DL=ME4+7BG3;DL=SB2;BG4;DL=SB2+6BG5;DL=SB2+8BG4;DL=SB2+14BG5;DL=RF2+7BG1;
DL=NK1+7BG2;DL=NK2+6BG5;DL=ME5+7BG2;DL=ME6+7BG3;DL=SB3;BG4A;DL=SB3+6BG5;DL=SB3+8BG4A;DL=SB3+14BG5;DL=END+7BG1A;
}