SP({a})[13r]agSP({a})[7r]SP({f})[7r]SP({d})[13r]feSP({f})[7r]SP({g})[7r]SP({`c})[13r]faSP({`c})[7r]SP({a})[7r]SP({g})[13r]ceSP({g})[15r]<})}
SPJ={EP=100q=90@85l8P=80M=127[r'afd'r'afd'^^^^^^^^^^^^]r'`caf'r'`caf'^^^^^^^^^^^^;r'gec'r'gec'^^^^^^^^^^^^M=0}STR SPK={EP=90q=100@31BR=24l2HAM2({``d^^^^&&^d})}
SP1={@85,0EP=90q=90P=100l8[rr'dfa''dfa'^^rr;rr'"a#df''"a#df'^^rr;rr'fa`c''fa`c'^^rr:rr'gec''gec'^^rr]SPH}SP2={l8[rr@56,0EP=127P=50'`f`dad'[25r]:l16EP=100P=100@81,0`aa`gg`ff`ddl8]rrrr}
SP3={@85,0EP=100q=90P=100l8[rr'a#"a#''a#"a#'^^rr][rr'af''af'^^rr]rr'gd''gd'^^rr;EP=110rr'ad''ad'^^rr;EP=120rr'a#d''a#d'^^rr;EP=127raaaaa^r}SP4={EP=110q=70P=100l8[rr@56,0'`daf'[7r]@82,0'`a`d''`f`d'^^^^^[15r]]}
TR=14DL=HAZ;SP1;SP4;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4]DL=NK1;SPI;SPJ;SP4;DL=SB3+8SPH;
/*16*/BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<p=64}BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
BG4={@81,0l16P=70BR=24[10r]HAM2({"a&^`a&^"a^})}BG5={@128,0l4P=70rrr'cde'}
TR=16DL=HAZ-2BG2;BG3;DL=BGN+6EP=110BG1;BG2;EP=127DL=ME1+3BG4;DL=ME1+7BG5;DL=ME2+7BG3;DL=SB1+3BG5;DL=RF1+6EP=110BG1;BG2;EP=127DL=ME3+3BG4;DL=ME3+7BG5;DL=ME4+7BG3;
DL=SB2+3BG5;DL=SB2+11BG5;DL=RF2+6EP=110BG1;BG2;EP=127DL=NK2+7BG3;DL=SB3+3BG5;DL=SB3+8BG4;
//--------------------------HYPER X'mas TECHNO
K=1INT HX_TIME=508-9INT HX_EST=160FUNCTION HXW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(HX_TIME+9)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
//-(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)
HXW(01,01,012,00,0,K,064,4,2,127,09,0)HXW(07,07,088,00,0,K,074,1,2,120,09,0)HXW(13,13,119,09,0,0,___,5,0,127,09,0)
HXW(02,02,115,00,0,K,044,2,2,127,09,0)HXW(08,08,012,00,0,K,000,3,2,100,09,2)HXW(14,14,013,00,0,K,___,2,2,127,10,0)
HXW(03,03,016,00,0,K,084,2,2,127,10,0)HXW(09,09,012,00,0,K,127,3,2,100,09,2)HXW(15,15,056,00,0,K,096,2,2,127,09,0)
HXW(04,04,082,00,0,K,064,2,2,120,10,0)HXW(10,10,025,00,0,0,064,3,1,127,10,0)HXW(16,16,091,00,0,0,084,2,1,127,10,0)
HXW(05,05,039,01,0,K,054,2,2,120,09,0)HXW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
HXW(06,06,053,00,0,K,032,1,2,070,10,0)HXW(12,12,026,00,0,0,064,3,0,127,09,0)
DL=HX_TIME+9Tempo=HX_EST;HAZ=HX_TIME+1BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+16ME3=RF1+8ME4=ME3+8SB2=ME4+8NK1=SB2+16NK2=NK1+8INT NK3=NK2+8
/*1*/MNH={g#g#f#g#c#f#g#MidiDelay({`c#},8,!8)[8r]MidiDelay({`d#`c#},4,!4)[6r]f#^ff#^f#g#^[MidiDelay({d#a#},7,!4)[6r]]`d#`c#a#g#f#d#c#"a#}
MNI={@88,0TrackKey=2[f^^^e^MidiDelay({fd^^},6,!2)[22r]]@12,0TrackKey=K}MN1={a#^^f#^^c#^rra#^f#^a#^g#^^a#^^b^rrg#^a#^b^;a#^^f#^^a#^g#^^f#^^f^ff#rd#^^^rf#^f^f#g#^r}
MN2={[`c#^rfff#g#:f#^f^f#^f#g#^]b^a#^g#^a#f#^;d#d#d#f^^f#^g#g#g#a#^^a#^g#g#f#g#c#f#g#`c#^^^^rrrr}
MN3={V=110[`c#^^`d#`c#^^^^r`c#^`d#^`e^`e^^g#g#^`e^:`d#^`c#^b^a#^;b^^`c#b^^^^rb^`c#^`d#^`f#^^`f#`f^`d#`c#^ra#^a#^b^]`d#^`c#^ba#^^b^d#f#^^b^`c#^f#g#^^`c#^`f#^`c#a#^^`c#^`f#^^^^rrrV=100}
MN4={V=110[`c#^^`d#`c#^^^^r`c#^`d#^`e^`e^^g#g#^`e^:`d#^`c#^b^a#^;b^^`c#b^^^^rb^`c#^`d#^`f#^^`f#`f^`d#`c#^ra#^a#^b^]`d#^`c#^ba#^^[3b^d#f#^^b^`c#^f#g#^^`c#^`f#^`c#a#^^:`f#^`d#^^^^rrr]`c#^`f#^^^^rrrV=100}
MN5={>V=120q=100@22,0[TrackKey=1MidiDelay({fgg#`c^^^},8,!2)[25r]]EP=100@82,0SUB{a#^rra#^rd#f#g#ra#^^a#^}`d#^rr`d#^ra#`c#`d#r`d#^^`d#^})}STR SHI={l16HAM({[@85,0EP=110M=127[3MidiDelay({'`d#a#'^rr},4,!4)[12r]]:>@82,1EP=120c#ff#g#c#f#g#bc#g#b`c#c#b`c#`d#<]})[16r]M=0}
STR SH1={l16@82,0EP=90HAM({[56r]'bg#'^^r'a#g'^^r'bg#'^^r[28r]EP.T(50,100,!1)l8'bg#'^^^^^^^MidiDelay({c#`c#ba#g#a#`c#c#},2,!16)l16})}STR SH2={l16@82,0HAM({[56r]EP=80'a#f'^^r'bf#'^^r'g#a#'^^r[44r]EP.T(50,90,!4)'f#c#'^^^^^^^[8r]})}
STR SH3={@85,0EP=90HAM({[rrrrMidiDelay({'g#f'^^^},4,!2)[24r]]@86,0EP.T(50,100,!1)l4'"bf#'^^^'cg'^^^l8@82EP=70SUB{g#g#g#g#g#g#g#`c#^^^^}`d#`d#`d#`d#`d#`d#`d#`f^^^^rrrrl16})}
STR SH4={HAM({[l8@82,0EP=80[6r]SUB{f#rf#^^^}`c#ra#^^^[16r]@82,8EP=110l16`d#d#`c#c#b"ba#"a#:l8@82,0EP=80[6r]SUB{g#rg#^^^}`d#rb^^^[14r]@85,0EP=90f^f^f#^]@86,0EP.T(50,90,!1)l4'"bf#'^^^'c#g#'^^^@83,0l8EP=90SUB{f#^f#f#^^f#^f#^^^^}`c#^`c#`c#^^`c#^a#^^^^rrr})l16}
STR SH5={HAM({[l8@82,0EP=80[6r]SUB{f#rf#^^^}`c#ra#^^^[16r]@82,8EP=110l16`d#d#`c#c#b"ba#"a#:l8@82,0EP=80[6r]SUB{g#rg#^^^}`d#rb^^^[14r]@85,0EP=90f^f^f#^][3@86,0EP.T(50,90,!1)l4'"bf#'^^^'c#g#'^^^:@85,0l8EP=100SUB{f#^f#f#^^f#^f#^^^^}`c#^`c#`c#^^`c#^a#^^^^rrr]@83,0l8EP=90SUB{f#^f#f#^^f#^f#^^^^}`c#^`c#`c#^^`c#^a#^^^^rrr})l16}
TR=4DL=HAZ+8SHI;DL=BGN;SH1;SH2;SH3;SH4;SH1;SH2;SH3;SH4;SH1;SHH;SHI;
/*5*/BSH={l16[3[3`d#^r`d#^r`c#^]`d#`c#`f#`g#`a#`c#`a#`g#][`d#^r`d#^r`c#^]l8`d#^^^^^^&&d#[[6d#`d#]c#`c#d`d:[8d#`d#]][4d#`d#]`c#^^^^^^^}
BSI={[[6d#`d#]c#`c#d`d:[8d#`d#]][4d#`d#]`c#^^^^^^^}BS1={[4f#`f#][4f`f][4e`e][4d#`d#][4g#`g#][4g`g][4f#`f#][c#`c#]c#^^^}
BS2={[8f#`f#][7c#`c#]d`d[4d#`d#][4c#`c#]>[4"bb]<[c#`c#]c#^^r}BS3={[[4"a#a#][4d#`d#]][4"bb][4c`c][4c#`c#]`c#^^^^^^^}
BS4={[[4f#`f#][4f`f][4e`e][4d#`d#]:[4g#`g#][4g`g][4f#`f#][4c#`c#]][4"bb][4c#`c#][4f#`f#]f#^^^rrrr}
BS5={[[4f#`f#][4f`f][4e`e][4d#`d#]:[4g#`g#][4g`g][4f#`f#][4c#`c#]][[4"bb][4c#`c#][4f#`f#][4d#`d#]]l4"b^^^c#^^^f#^^^^^rrl8}
BASS={l8<<ULMR;
/*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n28n39OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n38n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]}
DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}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]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
DM20={[6DM2]O3[7r][3O2]r[3O1]r}DM21={[7DM2][O2;r]rrrr}DM22={[7DM2][3O1]rO2;rO1;r}DM23={[4DM2]SUB{O5}[8O1;r]O3[9r]O1;rO6;rrr}DM24={[7DM2][3O2]r[3O1]r}DM25={[4DM2]l8O3;rO1;O2;rrO1;rO2;rrrrO1;O6;rl16}
DDH={O3[63r]O3[15r]O4[15r]O5[15r]O3[15r]}DDI={[3[7DM1][O1;r]][4DM1]O3[7r][4O1]l32[8O1]l16}DD1={DM6;DM20}DD2={SUB{[20r]n49[31r]n57[53r]}DM6;DM21}DD3={DM22;SUB{O3[15r]O4[15r]O5}DM23}DD4={DM6;DM24;DM7;SUB{O3[15r]O4[15r]O5}DM25}DD5={DM6;DM24[3DM6]O3[15r]O5[15r]O4[23r]l8rO1;O6;rl16}
TR=10l16DL=HAZ+8DDI;DL=BGN@25BR=20p%=3000DD1;DD2;DD3;DD4;DD1;DDI;DDH;DD4;DD1;DL=NK2;DDH;DDI;
/*11*/GR={'n42n85'}GA={n44}GB={'n83n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,70)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]}
GG1={[7GP2][16r]}GG2={[7GP2][GB;r[GR]][DR;r]rrrrl16}GG3={[6GP2][GR;r]GB;rGR;r[3GR;r]GB;r[16r]}GG4={[7GP3]l8[GR;r]GB;rGR;rl16[6GP3]l8GR;rGR;GB;rrGR;rGB;rrr[4GA]l16}GG5={[7GP3]l8[GR;r]GB;rGR;rl16[12GP3]l8[GR;rrGR;GB;rGR;rrrGR;rGB;rGR;r]l16}
TR=11l16DL=HAZ+8PL1;GG1;DL=BGN;BR=20p%=-100GG1;GG2;GG3;GG4;GG1;GG2;GG3;GG4;GG1;DL=NK2[GG1]
/*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][n51rrr]SUB{MidiDelay({n84},4,!8)}rrrr[2n51r]SUB{n49}}
PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17}
TR=12l16DL=HAZ+8PD3A;DL=BGN;PD3A;DL=SB1[3PD3A]DL=SB2[3PD3A]DL=NK2[PD3A]
/*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr}
DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={DS12;DS11;DS13;DS14;DS1;DS5;DS15;DS7;}
TR=13l16ECS}SP3={v=70[EDS]EC;l8d#d#d#d#d#d#d#c#^^^^rrrrl16}SP4={v=80[EFS;EF;EE;EDS:EGS;EG;EFS;ECS]ECS;EFS[16r]}SP5={[ECS;EFS[16r]]}
TR=14DL=HAZ+8l16EP=80l16[3[d#rd#d#rd#d#rd#d#d#r:erer]c#rc#r]d#rd#d#rd#d#rd#d#d#rererl8>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<p=64}BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
BG4={l4EP.T(60,127,!1)@120,0'c"c`c'^^^}BG5={@126,7l2BR=100p=127PAN(!1^1^4,1)EP.T(120,127,!1)a^^^rrrrp=64}BG6={@126,7l2BR=100p=127PAN(!1^1^4,0)EP.T(120,127,!1)a^^^rrrrp=64}
BG7={@128,2l8BR=24EP=100p.W(127,0,!8)P=70[7[3'cde'^]['cde']]EP=127p=64}BG8={@128,2l8BR=24p.W(127,0,!8)rrrrP.onCycle(!4,0,127)[3'cde'r]P=70p=64}
BG9={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}BG10={@128,2l8rrrrMidiDelay({'cde'},6,!8)}
TR=16DL=HAZ+8BG7;DL=BGN-1BG3;DL=BGN+3BG8;DL=BGN+7BG9;DL=ME1+7BG10;DL=ME2+7BG9;DL=SB1+3BG8;DL=SB1+7BG2;DL=SB1+11BG8;DL=SB1+15BG4;DL=RF1+3BG8;DL=RF1+7BG9;
DL=ME3+7BG10;DL=ME4+7BG9;DL=SB2+3BG8;DL=SB2+7BG2;DL=SB2+11BG8;DL=SB2+15BG4;DL=NK1+3BG8;DL=NK1+7BG9;DL=NK2+6BG1;BG2;BG7;DL=NK3+7BG3;
//--------------------------THE LAST SUPPER
K=1INT TL_TIME=619-8INT TL_EST=156FUNCTION TLW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(TL_TIME+9)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
//-(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)
TLW(01,01,022,00,0,K,064,4,2,127,09,0)TLW(07,07,039,00,0,K,074,1,2,120,09,0)TLW(13,13,119,00,0,0,___,5,0,127,09,0)
TLW(02,02,082,00,0,K,064,2,2,100,09,6)TLW(08,08,022,00,0,K,000,3,2,100,09,2)TLW(14,14,103,00,0,K,096,1,2,085,09,0)
TLW(03,03,088,00,0,K,000,2,2,100,10,6)TLW(09,09,022,00,0,K,127,3,2,100,09,2)TLW(15,15,082,00,0,K,080,2,2,127,10,0)
TLW(04,04,081,00,0,K,127,2,2,100,10,6)TLW(10,10,025,00,0,0,064,3,1,127,10,0)TLW(16,16,091,00,0,0,084,2,1,127,10,0)
TLW(05,05,039,01,0,K,054,2,2,120,09,0)TLW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
TLW(06,06,103,00,0,K,032,1,2,085,10,0)TLW(12,12,026,00,0,0,064,3,0,127,09,0)
DL=TL_TIME+9Tempo=TL_EST;HAZ=TL_TIME+1BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+16ME3=RF1+8ME4=ME3+8SB2=ME4+8NK1=SB2+16
/*1*/MNH={EP=127q=150@3SUB{HAM2({l16'g#`c'^^^^^^^^^^^^^SUB{g#gg#^^^}`ca#`c^^^^^^^^^^^^^^^'`cg#'^^'`cg#'l12`d#g#`d#`c#g#`c#`cg#`ca#ga#l8'`cg#''`cg#''`cg#''`cg#'^l16'`cg#'^'`c#g#'^^^^^^^^^^^^[3'`c#g#']'`fa#'^^^^^^^^^^^[4'`fa#']'`g`c'^^^^^^^^^l8})}
<<<[4fcgcg#cgc][fc#gc#g#c#gc#][gca#c`ccgc]>>>@22q=95}MNI={EP=110q=100MidiDelay({fgg#`c^^^},8,!2)[25r]MidiDelay({c#cc#`c^^^},7,!2)[25r]q=90}
MN1={EP=110f^fc^fc^g^gc^gc^g#^g#c^g#c^g^gf^d#d#c;f^fc^fc^g#^g#c^g#c^ggffga#r`c^`ca#SUB{`c^^^^}rr}MN2={EP=120ffgg#^^^a#^`cg^rg^f^d#^g^gggg#rf^^rf`ca#g#fg#^^^a#^`cg^rg^f^d#^e^^ee^g`c^^^^rrrr}
MN3={EP=127[fgg#`c^fgg#`c^^ra#^g#^:[g^g#f^:c^r]cd#^c#cc#`c^c#cc#`c^^ra#^g#^gg#^g^gga#`c^^^^rrr]g^g#f^c^r;g^g#f^c`d#^`c#`c`c#`f^`c#`c`c#`g#^^r`g^`g#^`g^`f`g^`g#^`g^^^^rrrr}
MN4={EP=110MidiDelay({fgg#`c^^^},5,!2)[25r]}
TR=1l8>q=95DL=HAZ+8HAM({MNI;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3})MNH;HAM({MNI})DL=NK1+24y64=127HAM({fgg#`c^})DL=NK1+26y64=0
/*2&3&4*/RT={If(CH==3){p%=-300}If(CH==4){p%=300}}RTH={EP.T(60,127,!1^1)l4'gd#c'^^^^^^^l8}RTI={EP.T(60,127,!1)'`cg'^^^^^^^}
RT1={EP=127[g#fg#fg#a#`cg^d#gd#gg#a#:g#^c#fgg#gg#a#`c`c`c#`c^a#^r]`c#^a#`c#`d#`f`c#`d#`f`g#`g#`a#`g^^rr}
STR RT1A={EP=127fcg#cgfd#f^cg#cgfd#f^cfgg#gg#a#`cca#ca#`c^`cc#`d#^`c#^`c^a#c`c^a#^g#^gc#g#^ffgg#`c^`ca#`c^^^r}
RRF={l8DL=HAZ+15BR=3RTI;DL=BGN;RT;HAM({RT1A;DL=RF1;RT1;})DL=NK1+6RTH;DL=NK1+15RTI;q.T(100,1,!1^1^1^1^1^1^1^1)MidiDelay({HAM({[32g#f]})},3,!16)}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5&7*/BS={q=100EP.T(70,110,!1)'`cgc'^^^^^^^q=90}BSH={l4q=100f^^^d#^^^c#^^^c^^^"a#^^^^^^^c^^^c"a#"g#"gl8q=90}
BS1={[[4f`f][4d#`d#][4c#`c#][c`c]:[e`e]]c^^^}STR BS1A={[4f`f][4d#`d#][4c#`c#][4c`c][4"a#a#][4c`c][4c#`c#][c`c]c^^^}BS2={[14f`f][d#`d#][8c#`c#][8c`c]}BS3={[[4c#`c#][4d#`d#][4e`e]:[4f`f]]c^^^^^^&&"c}BS4={[[4f`f][4d#`d#][4c#`c#][4c`c][8"a#a#][4c`c]c^"a#^"g#^"g^]}
BASS={l8<ULMR;
/*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n55OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n40n38OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]}
DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}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]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
DM20={[6DM2]O3[9r]O1;rO6;rrr}DM21={[6DM2]O3[7r]n79rrrn78rrr}DM22={@25l16p%=1000O3[61r]O1;rO3[15r]O5[15r]O4[15r][O5;rrr][O5;r][4O5]}
DDH={BR=20p%=3000@17l8[O1;rrO1;O6;rO1;rrrO1;rO6;rO1;r]@25l16p%=1000O3[61r]O1;rO3[15r]O5[15r]O4[15r][O5;rrr][O5;r][4O5]}DD1={DM6;DM13}DD2={DM6;DM20}DD3={DM7;DM21}DD4={DM6;DM13}
TR=10l16DL=HAZ+8DM22;DL=BGN@25BR=20p%=2000DD1;DD2;DD3[DD4]DD1;DL=ME3+4DDH[DD4]DL=NK1+4DDH;DD1;SUB{O1}MidiDelay({n49},16,!8)
/*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]}
GG1={[7GP2][16r]}GG2={[8GP2]}GG3={[7GP2][16r]}GG4={[7GP2][16r]}
TR=11l16DL=HAZ+8BR=20p%=-1000PL1;GG1;DL=BGN;BR=20p%=-1000GG1;GG2;GG3[GG4]GG1;GG2;GG3[GG4][3GG1]MidiDelay({n46},16,!8)
/*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17}
TR=12l16DL=HAZ+8O3;DL=HAZ+12PD2;DL=BGN;PD3;DL=ME2+7PD4;DL=SB1[3PD3]DL=SB1+7PD4;DL=SB1+15PD4;DL=ME4+4PD2;DL=SB2[PD3]DL=SB2+7PD4;DL=SB2+15PD4;DL=NK1+8O3;DL=NK1+12PD2;DL=NK1+16PD3;
/*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr}
DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
TR=13l16<@54l8EP=80q=50[8'fc"g#'r][4'gc"g#'r][4'g#c"g#'r][4'`c#g#f'r][4'`fg#f'r][4'`g`cg'r]q=100EP.T(50,127,!1)'`g`cg'^^^^^^^<}
STR FTI={<<@7,0l16EP=110MidiDelay({fr`frfr`frffr`frfg#`c;d#r`d#rd#r`d#rd#d#r`d#rd#ga#;c#r`c#rc#r`c#rc#c#r`c#rc#fg#;cr`crcr`crccr`crcd#g["a#ra#r"a#ra#r"a#"a#ra#r"a#c#f][cr`crcr`crccr`crcd#g]},2,!32)>>[16r]}
FT1={@82,0l16EP=80HAM({[['g#f'^^r]rr'g#f'^^^^^['gd#'^^r]rr'gd#'^^^^^['g#c#'^^r]rr'g#c#'^^^^^'gc'^^^^^^^:'a#c'^^^^^^^]})'gc'^^^^^rr}
FT2={l8EP=80@100,0HAM({fg#`c`f^^^[19r]`f^`d#^`c^`f^^^^[27r]})}FT3={@82,0l16EP=70HAM({[['g#f'^^r]rr'g#f'^^^^^['a#g'^^r][8r]:['a#g'^^r]rr'a#g'^^^^^['`cg#'^^r][8r]]['`cg#'^^r]rr'`cg#'^^^^^'`cg'^^^^^rr[8r]})}
FT4={@82,0l16EP=70HAM({[['g#f'^^r]rr'g#f'^^^^^['gd#'^^r]rr'gd#'^^^^^['g#f'^^r]rr'g#f'^^^^^['a#g'^^r]['`cg#'^^r];['`d#a#'^^r]rr'`d#a#'^^^^^['`c#a#'^^r]['a#g'^^r]:['`cg#'^^r]rr'`cg#'^^^^^'`cg'^^^^^rr[8r]]['`cg#'^^r]rr'`cg#'^^^^^'`cg'^^^^^^^[8r]})}
TR=15l16DL=HAZ+8FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;DL=NK1;FTH;FTI;DL=NK1+16@3,0l8EP=110TrackKey=2[7"gggdfdfd][8r]
/*16*/BGH={@126,7BR=70p.T(70,105,!1)l4'`e`cg'^^^}BG1={@123,3l4BR=40p.T(127,32,!1)'gfe'^^^rrrrp=64}BG2={@126,7l2BR=100p=127PAN(!1^1^4,1)EP.T(120,127,!1)a^^^rrrrp=64}BG3={@126,8BR=40P=96p.T(127,0,!1^1)'gfe'^^^^^^^p=64}BG4={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
BG5={@83,0BR=48EP=110p.T(127,0,!1)l4'gd#"a#'^^^p=64EP=127}BG6={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<p=64}BG8={@120,0P=84l4'cde'^^^}BG9={@120,0l4V=127r'""c""c"cc`c``c'^^V=100}
TR=16DL=HAZ+8BG3;DL=BGN-1BG7;DL=BGN+6BG6;BG7;DL=ME1+6BG2;DL=ME2+6BG3;DL=SB1+6BG8;BG5;DL=SB1+14BG2;DL=RF1+6BG6;BG7;DL=ME3+6BG2;DL=ME4+6BG3;DL=SB2+6BG8;BG5;DL=SB2+14BG2;
DL=NK1+7BG8;BG3;DL=NK1+15BG7;DL=NK1+24MidiDelay({BG7},8,!8)
//--------------------------MERMAID
K=1INT MM_TIME=734INT MM_EST=162FUNCTION MMW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(MM_TIME)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
//-(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)
MMW(01,01,012,00,0,K,064,4,2,127,09,0)MMW(07,07,039,00,0,K,050,1,2,110,09,0)MMW(13,13,119,09,0,0,___,5,0,127,09,0)
MMW(02,02,063,00,0,K,064,2,2,100,09,5)MMW(08,08,012,00,0,K,000,3,2,100,09,2)MMW(14,14,082,00,0,K,100,2,2,110,09,8)
MMW(03,03,082,00,0,K,000,2,2,100,10,5)MMW(09,09,012,00,0,K,127,3,2,100,09,2)MMW(15,15,039,08,0,K,___,2,2,127,09,0)
MMW(04,04,081,01,0,K,127,2,2,100,10,5)MMW(10,10,025,00,0,0,064,3,1,127,10,0)MMW(16,16,091,00,0,0,084,2,1,127,10,0)
MMW(05,05,039,01,0,K,070,2,2,110,09,0)MMW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
MMW(06,06,081,00,0,K,032,1,2,080,10,0)MMW(12,12,026,00,0,0,064,3,0,127,09,0)
DL=MM_TIME;Tempo=MM_EST;INT HZ=MM_TIME;HAZ=HZ+4BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16NK1=RF2+8NK2=NK1+8NK3=NK2+8
/*1*/MNH={`d`ca#a;ga#`d`c^a#aa#fa`ca#^^[18r]ga#`d`c^a#aa#fa`f`d^^[18r]}MN1={[g^ggga#ra^gaga`crr:a#a#a#a#a#`c`d`crarf^rrr]`d`d`d`d^`ca#`d^^^r}MN2={g^a^a#^a#a#a#`cra^^^rg^f^a^aaafrg^^^rg^a^a#a#a#a#aa#r`c^`c`c`ca#`crr`d`d`d`dr`cr`d^^^r}
MN3={V=110`d`ca#a;ga#`d`c^a#aa#fa`ca#^^rrd#ga#a^aa#`c`d^a#^`c^`d^;ga#`d`c^a#aa#fa`f`d^^rr`d#^`d#^`f^`g^`g`fr`f^^rrV=100}MN4={V=110`d`ca#a;ga#`d`c^a#aa#fa`ca#^^rrd#ga#a^aa#`c`d^a#^`c^`d^;ga#`d`c^a#aa#fa`f`d^^rr`d#^`d#^`f^`g^`g`fr`fMN3}
MN5={V=110`d#^`d#^`f^`g^`g`fr`f^^rr`d#^^^`d#^^^`f^^^`g^^^[`g`fr`f]`g`fr`f^^rrV=100}TR=1l8>DL=HZ[3`d`d`d`dr`cr:r]`d^^^rDL=HAZ-1rrrrHAM2({MN4;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN4})
/*2&3&4*/RTH={[64r]l4EP.T(40,80,!1^1^1)'a#g'^^^'`cg'^^^l8'`dg'^^^^^^^rl16}RT1={EP=127[a#^g^a#rgrf^^g^^^a#ra#gra#rgrf^^g^^^^a#rgra#rgr`cr`c`c^a#ag:["gg^"ff^]ga#`c`d]"ggrgMidiDelay({fdfg},3,!4)rrrrrrrr}
RT3={[64r]l4EP.T(40,80,!1^1)'a#g'^^^'`cg'^^^l8[9r]l16}RT4={l8EP=90[[13r]'a#g''a#g'^:[8r]`d^`d^`c^`d^][16r]l16}
RRF={l16HAM({DL=HZ;l8[16r][9r]l16DL=HAZ+8RT4;DL=BGN;RT1;DL=ME2;RT3;RT4;DL=RF1;RT1;DL=ME4;RT3[RT4]RT1;DL=NK2;RT3;RTH})}TR=2;>RRF;TR=3p%=-500RRF;TR=4p%=500RRF;
/*5*/BS1={[[[d#`d#][f`f]:[d`d][g`g]]:[4g`g]][g`g]rrrr}BS2={[[4g`g][4f`f][4d#`d#]:[3d`d]f`f][d`d]d^d^}
BS3={[4d#`d#][4f`f][4d`d][4g`g][4d#`d#][4f`f][4d`d]d^^^rrrr}BS4={[[d#`d#][f`f][d`d][g`g]:[c`c][f`f]a#^a#^g#^g#^][4d#`d#]ffrf^^rr}BS5={[4d#`d#]ffrf^^rr[d#^^^][c^^^][ffrf]ffrf^^rr}
BASS={l8<[`f`g^^^^^^]r<})@81,0}CO1={l2EP=127SUB{[a#aaa#gaa#:`d]}HAM2({[d#fdgd#f:g^]gr})l4}CO2={EP=110SUB{[a#^^^a^^^a#^^^:a^`c^]g^aa}HAM2({[g^^^f^^^d#^^^:d^^f]d^dd})}
CO3={EP=110SUB{HAM({a#^^gagaa#`c^^ab^gaa#^^^a^^^l8a#a#a#a#ra#ra^^^^^l4})}HAM2({d#^^^f^^^d^^^g^^^d#^^^f^^^l8ddddrdrd^^^^^rrrl4})}CO4={EP=120SUB{HAM({[a#^a^a^a#^:g^a^`da#`c`d]l8a#^a#^a^a#^aara^^^^l4})}HAM2({[d#^f^d^g^:c^f^a#a#g#g#]l8d#^d#^f^g^gfrf^^^^l4})}CO5={EP=120SUB{HAM({l8a#^a#^a^a#^aara^^^^l4a#^a#^a^a#^l8[aara]aara^^^^})}HAM2({l8d#^d#^f^g^gfrf^^^^l4d#^d#^f^g^l8[gfrf]gfrf^^^^})}
TR=6DL=HZ;SUB{l8[3a#a#a#a#ra#r:r]a^^^^^l4}HAM2({l8[3ddddrdr:r]d^^^^^rrrl4})DL=HAZ[CO4]DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;DL=SB2[CO4]DL=NK1;CO2;CO3;COH;
/*8&9*/ULH={EP=110a#agfHAM({d#ga#a^gfgdfag^^})[18r]HAM({d#ga#a^gfgdf`ca#^^})[18r]}UL1={EP=110[16r]gggggaa#arfrd^^^r[16r]a#a#a#a#^aga#^^^r}UL2={EP=120d#^f^g^ggggrf^^^rd#^d^f^fffdrd^^^r;d^f^ggggfgra^aaagarrSUB{a#a#a#a#ra#ra^^^}ggggrgrf#^^^r}
UL3={EP=110a#agfHAM({d#ga#a^gfgdfag^^rr})EP=120cd#gf^fgaa#^g^g#^g#^EP=110HAM({d#ga#a^gfgdf`ca#^^rr})EP=120a#^a#^`c^`d^`d`cr`c^^rr}
UL4={EP=110a#agfHAM({d#ga#a^gfgdfag^^rr})EP=120cd#gf^fgaa#^g^g#^g#^EP=110HAM({d#ga#a^gfgdf`ca#^^rr})EP=120a#^a#^`c^`d^`d`cr`cUL3}UL5={EP=120a#^a#^`c^`d^`d`cr`c^^rra#^^^a#^^^`c^^^`d^^^[`d`cr`c]`d`cr`c^^rr}
ULMR={l8DL=HZ[a#a#a#a#ra#rr]SUB{a#a#a#a#ra#ra^^^}ggggrgrf#^^^rDL=HAZ-1rrrrUL4;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2;UL4;DL=NK2-1[4r]UL2}TR=8ULMR;TR=9;>ULMR;
/*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n28OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n38n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]}
DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO6;rO1;rrrO6;rO1;O6;rO6:[O1;r]O6;rO1;rrrO1;rO6;r[O6]][O1;r]O6;r[O1;O6]O6;rO1;r[O6]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}DD={[12r]O6}
DM20={[6DM2][O1]r[5O1]rrrrO6;rrr}DM21={[6DM2][O1;rrO1][3O1]rO6;rO1;r}DM22={[7DM2]O1;rrrO2;rrO1}DM23={[4DM2][4O1;r]rr[O1;rrr][10r]O6;rrr}DM24={[6DM2][DM1][O1;r]O6;rrr}DM25={[5DM2][[O1;r]:O2;rrr]rrO3;rrrO1;rO6;rrr}
DDH={BR=20p%=6000@9DM18@17DM18A@25BR=20p%=2000}DD1={DM6;DM20}DD2={DM5;DM21}DD3={DM22;DM23}DD4={DM24;DM25}DD5={DM2[[O1;r]:O2;rrr]rrO3;rrrO1;rO6;rrr[O5[7r]][O3[7r]]O1;rrrO2;r[O1;r]rrO2;rO1;rO2;rrrrrO3;rrrO1;rO6;rrr}STR DM18A={SUB{[24n42r]}[O1;rrrO6;rO1;rrrO6;rO1;O6;rO6:[O1;r]O6;rO1;rrrO1;rO6;r[O6]][16r]}
TR=10l16DL=HZ[3[4O1;r]rrO1;rrr:rr]O1;rrr[10r]O6;rrrDL=HAZ[DD4]DL=BGN-1DD;DL=BGN;BR=20p%=2000DD1;DD2;DD3;DD4;DD1;DD2;DDH[DD4]DD1;DD2;DD3;EP=110DDH;EP=127
/*11*/GR={'n42n85'}GA={n44}GB={'n54n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]}GG={[[GR]GB;r][8r]}GG1={[GB;rrr][GR;r]GB;rrr}GG2={l8GR;rGB;r[GR]GB;r[GR]rGB;rrrrl16}GG3={GG2;l8[GR;rGB;r[GR]GB;r]GG2}
TR=11l16DL=HZ;DL=HAZ;BR=20p%=2000PL1[7GP8]EP=127DL=HAZ+8[3GP3]GG1[GP3]GG2;DL=BGN@26BR=20V=120p%=2000[7GP3]GG[14GP2][32r][3GP3]GG1[GP3]GG2[7GP3]GG;DL=ME3[14GP2][32r]DL=SB2[[3GP3]GG1[GP3]GG2]DL=RF2+4[3GP3]GG[14GP2][32r]BR=20p%=8000EP=100PL1[7GP8]EP=127BR=20p%=2000
/*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@25SUB{n49}[48r]SUB{[8r][3'n39n28n55'rrr]}[3n51rrr][2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17}STR PD13={@25SUB{n49}[48r]SUB{[4'n39n28n55'rrr]}[3n51rrr][2n51r]SUB{n49}[32r][4'n39n28n55'rrr]l8[n51]rn51rrrrl16}STR PD14={[[4'n39n28n55'rrr]l8[n51]rn51rrrrl16:[32r]]}
TR=12l16DL=HAZ+8PD13;DL=BGN;PD3;DL=SB1;PD13;PD3;DL=SB2[PD13]PD3;
/*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr}
DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DS18={`g`gr`dafd"a}
TR=13l16cdf^dfg^dfg^^r>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<p=64}BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
TR=16DL=HZ[3BG1]BG2;DL=HAZ+6BG1;BG3;DL=HAZ+11BG3;DL=BGN+6EP=110BG1;BG2;EP=127DL=ME1+7BG3;DL=ME2+6BG1;BG2;DL=SB1+3BG3;DL=RF1+6EP=110BG1;BG2;EP=127DL=ME3+7BG3;DL=ME4+6BG1;BG2;DL=SB2+3BG3;DL=SB2+11BG3;DL=RF2+6EP=110BG1;BG2;EP=127DL=NK1+7BG3;DL=NK2+6BG1;BG2;DL=NK3+6BG1;BG3;
//--------------------------MAKE-OR-BREAK BET
K=2INT MB_TIME=858INT MB_EST=162FUNCTION MBW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(MB_TIME)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
//-(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)
MBW(01,01,103,01,0,K,064,4,2,127,09,3)MBW(07,07,039,00,0,K,117,1,2,120,09,0)MBW(13,13,119,09,0,0,___,5,0,127,09,0)
MBW(02,02,062,00,0,K,064,2,2,100,09,0)MBW(08,08,103,01,0,K,000,3,2,100,09,2)MBW(14,14,012,08,0,K,100,2,2,127,10,0)
MBW(03,03,082,00,0,K,000,2,2,100,10,0)MBW(09,09,103,01,0,K,127,3,2,100,09,2)MBW(15,15,003,00,0,K,080,2,2,127,10,0)
MBW(04,04,082,08,0,K,127,2,2,110,10,0)MBW(10,10,025,00,0,0,064,3,1,127,10,0)MBW(16,16,091,00,0,0,084,2,1,127,10,0)
MBW(05,05,039,01,0,K,010,2,2,120,09,0)MBW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
MBW(06,06,031,00,0,K,032,1,2,100,10,0)MBW(12,12,026,00,0,0,064,3,0,127,09,0)
DL=MB_TIME;Tempo=MB_EST;HAZ=MB_TIME+2BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+16ME3=RF1+8ME4=ME3+8SB2=ME4+8NK1=SB2+16RF2=NK1+8NK2=RF2+8NK3=NK2+8SB3=NK3+8
/*1*/MNH={[d^e^f#^^e^^MidiDelay({af#^^^^^},4,!2)[15r]]}MN1={V=110["b"bd^e^df#^^"bc#dc#"b^:f#^d^e^c#d^dddc#c#^r]f#f#eerdrf#^^^r}MN2={V=120d^e^[f#^^e^^af#^rf#^e^d^:c#c#c#c#^d^f#^^^rdede]f#^f#f#f#erf#^^^^rrrr}
MN3={V=120[`d`d`c#rbrarg#^^eref#g#;`d`d`c#rbr`dra^^brf#ab;`d`d`c#rb^r`d^`d`c#rb^^r:`f#^`e`e^`dr`d^`d`d`e`c#`c#^r]MidiDelay({a^br},3,!2)rrr`d^`d`dr`c#`c#^r}
MN4={V=120`d`d`c#rbrarMidiDelay({g#^^e},8,!2)[20r]`d`d`c#rbr`drMidiDelay({a^^b},8,!2)[20r]}
MN5={V=120`d`d`c#rbrarg#^^eref#g#;`d`d`c#rbr`dra^^brf#ab;`d`d`c#rb^r`d^`d`c#rb^^rMidiDelay({a^br},3,!2)rrr}
TR=1l8>q=95DL=HAZ-1rrrrMNH;HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3})DL=NK3-1rrrrMNH;HAM({DL=SB3;MN3})
/*2&3&4*/RT1={SUB{[f#^rf#^rf#^f#^dddddd;a^ra^ra^a^eeeeee;b^rb^rb^b^f#f#f#f#f#f#:`c#^r`c#^r`c#^`d^`d^a^f#^]a^ra^ra^f#^^^f#^^^}
HAM({[b^rb^rb^b^f#abf#ab;`c#^r`c#^r`c#^`c#^ab`c#ab`c#;`d^r`d^r`d^`d^b`c#`db`c#`d:`e^r`e^r`e^;`f#^`f#^`c#^a^]`c#^r`c#^r`c#^b^^^a^^^})}STR RT2={[4MidiDelay({SUB{f#^rf#^rf#^f#^^^^}b^rb^rb^b^^^^},3,!1)[19r]]}
RRF={l16DL=HAZ+8;DL=BGN;RT1;DL=RF1;RT1;DL=NK1;RT2;RT1;RT2;DL=SB3+16SUB{[f#^rf#^rf#^f#^:dddddd]}HAM({[b^rb^rb^b^:f#abf#ab]})}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/BSH={l1q=100[BR=1p.T(0,64,!16)"b^^^]q=90l8}BSI={[16"bb][8"ee][4"f#f#][8r]}BS1={[14"bb]["aa][8"gg][4"f#f#]"f#^^^^^^^}BS2={[[8"bb][4"ee][4"f#f#]]}BS3={[8"gg][8"f#f#][8"ee][4"f#f#]"f#^^^^^^^}BS4={[[8"bb][8"aa][8"g#g#][4"gg]["aa]"a^"a^]}BS5={l4"b^^^"b^^^"b^^^"b^"a^"g^^^"g^^^"f#^^^"f#^^^l8}
BASS={l8<@31}STR COI={}
CO1={l4EP=127HAM2({"b^^^"b^^^"b^^^"b^"a^"g^^^"g^^^"f#^^^"f#^^^})}CO2={l8EP=110[[4"b"b'"bdf#'"b]'"e"g"b'^^^[4'"e"g"b']:'"f#"ac#'^^^[4'"f#"ac#']]'"f#"ac#'^^^^^^^}
CO3={l8EP=110'bd"g"b'^^^^^'bd"g"b''bd"g"b'^^^^q=95[4'bd"g"b']q=100'ac#"f#"a'^^^^^'ac#"f#"a''ac#"f#"a'^^^^q=95[4'ac#"f#"a']q=100
'"e"bgb'^^^^^'"e"bgb''"e"bgb'^^^^q=95[4'"e"bgb']q=100'"f#"ac#`c#'^^^^^^^^^^^BR=36p.T(127,0,!2)'"f#"ac#`c#'^^^p=64}CO4={l4SUB{[d^^^c#^d^c#^^^"b^c#^d^^^e^^^f#^^^c#^^^]}["b^^^^^^^"a^^^^^^^"g#^^^^^^^"g^^^"a^^^]}
TR=6DL=HAZ;COI;CO1;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3;CO4[CO1]COH;COI;CO4;'"b""b'^^^l16['"b""b'^r]['"b""b'^]l4
/*8&9*/UL1={>EP=100[[16r]:SUB{`d^`d^`d^`d`c#^`c#`c#`c#`c#`c#^}b^b^b^ba^aaaaa^r]SUB{`d`d`d`dr`dr`f#^^^^^^^^}bbbbrbrEP.T(80,127,!1)`c#^^^^^^^^<}
UL2={>[EP=100SUB{b^^b^^bb^}`d^^`d^^`d`d^rEP=110`d^`c#^b^:aaaa^b^`c#^^^rbbba]EP.T(80,127,!1)SUB{`d^`d`d`d`dr`c#^^^^^^}a^aaaara^^^^^^rr<}
UL3={>[EP=110SUB{f#f#erdrc#r"b^^"b}bbbrbrbrb^^brEP=120ab`c#EP=110SUB{f#f#erdrerc#^^d}aaararara^^arEP=120a`c#`d`f#`f#`er`d^r`f#^`f#`er`d^^r:`d^`c#`c#^arb^bbbaa^r]MidiDelay({`d^`dr},3,!2)rrr`f#^`f#`f#r`e`e^r<}
UL4={>EP=110SUB{f#f#erdrc#r}bbbrbrbrMidiDelay({SUB{"b^^"b}b^^b},8,!2)[20r]SUB{f#f#erdrer}aaarararMidiDelay({SUB{c#^^d}a^^a},8,!2)[20r]<}
UL5={>EP=110SUB{f#f#erdrc#r"b^^"b}bbbrbrbrb^^brEP=120ab`c#EP=110SUB{f#f#erdrerc#^^d}aaararara^^arEP=120a`c#`d`f#`f#`er`d^r`f#^`f#`er`d^^rMidiDelay({`d^`dr},3,!2)rrr<}
ULMR={l8ULMR;
/*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n38n40OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]}
DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}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]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
DM20={[6DM2]O3[7r][4O1]O2;rrr}DM21={[7DM2][O3;rrr]}DM22={[6DM2]SUB{O3}l8[rO1;O5;r]l16}DDH={@26BR=10p.T(96,0,!1^1^1^1)EP.T(30,127,!1^1^1^1)[[[l8O1;rO2;O1;r:O2;O1;O2]l16[O2;r][O2]]:@17p=30]@25}DDI={O2={'OA'}DM6;DM22;O2={'n38n40OA'}}
DD1={DM6;DM13}DD2={DM6;DM5}DD3={DM6;DM20}DD4={[DM6:DM21]DM20}DD5={O3[15r]O5[15r]O4[15r]EP.T(90,127,!1)[3DM1][O1;r]DM20}
TR=10DL=HAZ-2l8[4rO1;O5;r]l16DL=HAZ@17DDI@25DD5;DL=BGN@25BR=20p%=1000DD1;DD2;DD3;DD4;DD1;DD2;DD5;DD4;DD1;DD5;DDH@25BR=20p%=1000DDI;DD4[DM2][3O3;r:r]O4[15r]
/*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]}
GGH={P=64BR=20p%=-1000@26[16GB;rrr][16GB;r[GR]]}GGI={@26[29GB;r[GR]][12r]@25PL1}GG1={[7GP3]GP8}GG2={[8GP3]}GG3={[7GP3][16r]}GG4={[7GP1][[GR]GB;r][GB;r[GR]]}GG5={@26P=64[16GB;r[GR]]@25PL1[3GP3][16r]}GG6={[4GP2][3GP3]GP8}
TR=11l16DL=HAZ;PL1;GGI;GG6;DL=BGN@25BR=20p%=-1000GG1;GG2;GG3[GG4]GG1;GG2;GG5[GG4]GG1;GG6;GGH;GG3[GG4]GP3;
/*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17}
TR=12l16DL=HAZ;PD3;DL=HAZ+7PD4;DL=BGN;PD3;DL=BGN+7PD4;DL=SB1[3PD3]DL=SB1+15PD4;DL=SB2[4PD3]DL=SB2+15PD4;DL=NK1+7PD4;DL=SB3[PD3]DL=SB3+15PD4;n49
/*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr}
DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
TR=13l16DL=HAZ;SPI;SP1;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4[SP1]SPH;SPI;SP4;
/*15*/Function DYMM(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+30;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}
FT={l8@56,0EP=127HAM({r`d`drr`c#`c#r})}FTH={l16EP=127[32r]>@82,1"bc#"bc#dedef#gf#gababl4M=127EP.T(127,90,!1)`d^^^l8EP=90M=80@82,0q=70DYMM({[['bg'^]rrrr][['af#'^]rrrr][['bg'^]rrrr]['`c#a'^]rrrr},1,!2)q=100@82,1EP=127M=0l16"f#"a"bc#c#def#df#ab@56,0'`c#af#c#'^^^l8<}
FT4={l8>[EP=110M=127@85,0rrMidiDelay({'bf#d'^},3,!2)[12r];rrMidiDelay({'aec#'^},3,!2)[12r][rrMidiDelay({'g#e"b'^},1,!2)rrrr]@30,0EP.T(80,110,!1^2)'gd'^^^^^^^'ae'^^^@56,0['`aae"a']rr]