INT EST=130PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={MML Dub Mix}Copyright={Pitchbend Master Records}System.MeasureShift=3Tempo=1000Include(delay.h)SysEx$=f0,41,10,00,48,12,0,0,0,0,0,0,f7;
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;
//-(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,004,08,0,K,064,4,2,100,09,0)WIN(07,07,039,01,0,K,096,1,0,120,10,0)WIN(13,13,119,00,0,K,084,5,0,127,10,0)
WIN(02,02,082,01,0,K,064,7,1,100,09,0)WIN(08,08,079,00,0,K,044,3,2,127,09,0)WIN(14,14,082,01,0,K,044,2,2,127,10,0)
WIN(03,03,082,01,0,K,000,7,1,100,10,0)WIN(09,09,080,00,0,K,084,3,2,127,09,0)WIN(15,15,127,00,0,K,000,9,4,127,10,0)
WIN(04,04,082,01,0,K,127,7,1,100,10,0)WIN(10,10,025,00,0,0,064,2,0,127,10,0)WIN(16,16,127,00,0,K,127,9,4,127,10,0)
WIN(05,05,039,00,0,K,064,2,0,110,10,0)WIN(11,11,025,00,0,0,064,3,0,110,09,0)//--Light source ver1.7--//
WIN(06,06,039,01,0,K,032,1,0,120,10,0)WIN(12,12,026,00,0,0,064,3,0,110,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BK0=17INT BGN=33INT BK1=49INT BN1=81INT NK1=97INT BK2=113INT BN2=145INT NK2=161INT NK3=177INT END=193
/*1*/STR MNH={@81,96,1EP.T(40,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q.T(90,90,!1^1^1^1^1^1^1^1,100,300,!1^1^1^1^1^1^1^1)MidiDelay({[16rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)}
STR MN1={@82,96,1EP=105q=80MidiDelay({[8rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)}
STR MN2={@82,96,1EP.T(100,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q.T(80,300,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MidiDelay({[16rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)}
STR MN3={@82,96,1EP=105q=80MidiDelay({[rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]
[rr'g#c#"a'rr'g#c#"a'rr'g#c#"a'rr'g#c#"a'rrrr][rr'f#d"a'rr'f#d"a'rr'f#d"a'rr'f#d"a'rrrr]
rr'f#d"b'rr'f#d"b'rr'f#d"b'rr'f#d"b'rrrr;rr'f#c#"g#'rr'f#c#"g#'rr'fc#"g#'rr'fc#"g#'rrrr;
[rr'f#d"a'rr'f#d"a'rr'f#d"a'rr'f#d"a'rrrr][rr'g#e"b'rr'g#e"b'rr'g#e"b'rr'g#e"b'rrrr]
[4rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)}
TR=1l16>DL=BK0;MNH;DL=BGN[4MN1]MN2;DL=BN1[MN1][MN3]MN2;DL=BN2[MN1]MN2;
/*2&3&4*/STR RTA={If(CH==2){@82,96,4}q=90BR=10If(CH==3){p%=100q=100@82,98,0}If(CH==4){p%=-100q=100@82,96,3}}
STR RTH={RTA<[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]q.T(100,300,!1^1^1^1^1^1^1^1)[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]>}
STR RTI={RTA;EP.T(60,110,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
FOR(INT A=0;A<16;A++){MidiDelay({"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#},16-A,!16)}}
STR RT1={EP=115RTA[16"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]}
STR RT2={EP=115RTA[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]EP.T(115,127,!1^1^1^1^1^1^1^1)q.T(90,300,!1^1^1^1^1^1^1^1)[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]}
STR RT3={EP=115RTA[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]If(CH==3){p%.T(100,300,!1^1^1^1^1^1^1^1)q=100}If(CH==4){p%.T(-100,-300,!1^1^1^1^1^1^1^1)q=100}[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]}
STR RRF={l16DL=HAZ;RTH;RTI;DL=BGN[RT1]v=110RT2;DL=BN1;RT1;DL=BK2+16RTH;DL=BN2;<v=120RT1>RT3;}TR=2RRF;TR=3RRF;TR=4RRF;
/*5&6&7*/STR BSA={BR=10@40,98,3If(CH==6){@39,98,4}If(CH==7){@39,97,4}}STR BSB={BR=10@40,96,0If(CH==6){p%=100@82,96,1}If(CH==7){p%=-100@82,96,1}}
STR BSH={BSB<l4EP.T(70,110,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)f#^^^^^^^e^^^^^^^d^^^^^^^"b^^^c#^^^d^^^^^^^e^^^^^^^f#^^^^^^^^^^^^^^^l16>}
STR BS1={EP=110BSA[16[12"f#]rrrr]}STR BS2={EP.T(100,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)BSA[16[16"f#]]}
STR BASS={DL=BK0;l16<EP=110BSH;DL=BGN[BS1]BS2;DL=BN1;BS1;DL=BK2;BSH;BS2;DL=BN2[3BS1]}TR=5BASS;TR=6BASS;TR=7BASS;
/*8&9*/STR YT1={l4BR=30p.W(70,0,!32)@79,0q=15[32'"g"ec']}
//TR=8DL=HAZ;V=127[YT1]DL=BGN[YT1]DL=BN1[4YT1]DL=BN2[6YT1]
STR GF1={l4BR=30p.W(70,0,!32)@80,0q=15[32'"gc']}
//TR=9DL=HAZ;V=127[GF1]DL=BGN[GF1]DL=BN1[4GF1]DL=BN2[6GF1]
/*10*/STR OA={n27n32n35}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}
STR O6={'n49n55n57n81n59n58n36'}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={[32'n27n32n35'^^^]}STR DD1={[16'n27n32n35'^^^'n27n32n35n39n28'^^^]}
STR DD2={EP.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[128'n27n32n33n35n36'^^^]}
TR=10l16DL=HAZ;V=127BR=20p%=-8000q=100@17,105,0SUB{O6}[4DDH]DL=BGN@25,105,0BR=20p%=1000DDH;DD1;DD2;DL=BN1;BR=20q=100[DD1][DDH]DD2;DL=BN2;BR=20q=100DDH[4DD1]DDH;SUB{O6}[DDH]l8n51^^^^^^^^^^^^^
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR GC={'n35'}STR GD={'n40'}STR GE={'n28n39n38'}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={[8GC;r[GD]GE;r[GC:GE][GD]rGE;rGD;GE]}
STR GG1={SUB{[8[12GA][GR]GB;r]}[8GC;r[GD]GE;r[GC:GE][GD]rGE;rGD;GE]}
TR=11l16DL=HAZ;@26,106,0BR=50p%=5000SUB{O6}[GGH]n49DL=BGN;BR=50p%=5000SUB{n49}[GG1]DL=BK1+24GG1;DL=BN1;BR=50p%=5000SUB{n49}[GG1]SUB{n49}[GG1]DL=BK2+24SUB{n49}GG1;DL=BN2;BR=50p%=5000[3SUB{n49}[GG1]]SUB{n49}GG1;GGH;n49^^^^^^^^^;
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR LL1={[16rrrr'n28'rrr]}STR LL2={SUB{[8n69rrn69n73rn70rn69rn69rn73rrn70]}[8rrn33n33rn33rn33n86n86n86rn80rrn80]}STR LL3={SUB{LL1}LL2}
TR=12l16DL=HAZ@26,105,0BR=20p%=-3500SUB{O6}DL=HAZ+8LL2;DL=BGN+8BR=20p%=-3500LL3[SUB{O6}[LL3]]DL=BN1;BR=20p%=-3500SUB{n49}[LL3]DL=NK1+8LL3[SUB{O6}[LL3]]DL=BN2+8BR=20p%=-3500LL3;SUB{n49}[LL3]SUB{n49}LL3;
/*13*/STR UP1={EP.T(40,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
@51BR=1SUB{l8[256p.T(64,64,!16,96,64,!32,96,64,!32)r]}l1^1^1^1`f#^^^^^^^}
STR UP2={EP=100@51BR=1SUB{l8[64p.T(64,64,!16,96,64,!32,96,64,!32)r]}l1^1`f#^^^^^^^}
STR UP3={EP.T(70,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)@51BR=1SUB{l8[128p.T(64,64,!16,96,64,!32,96,64,!32)r]}l1^1^1^1`f#^^^^^^^}
TR=13l1DL=BK1;UP1;UP2;DL=BK2;UP1;DL=BN2;UP2;UP3;
/*14*/STR SP1={@54,96,0l1^1BR=24p.T(64,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)EP.T(70,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)'"f#f#'^^^^^^^}
STR SP2={@54,96,0l1^1EP=100BR=24p.T(127,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1,127,0,!1)'"f#f#'^^^^^^^}
STR SP3={>>@45,98,0l16EP.T(90,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)p=64[4[3rrf#^rf#^re^rf#^re^]rr`c#^r`c#^rb^ra^rf#^]<<}
TR=14DL=BK1+16SP1;SP2;DL=BK2+16SP1;DL=BN2;SP2;V=120SP3;DL=NK3;SP1;
/*15&16*/STR BG={If(CH!=15){l32r}}
STR BGH={@123,96,1l1EP.T(127,0,!1^1^1^1)BR=48p.T(127,32,!1^1^1^1)'>>cde<<'^^^}
STR BG1={@123,96,1l1EP.T(40,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1^1^1)BR=64p.T(30,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1^1^1)'>>cde<<'^^^^^^^^^^^}
STR BG2={@123,96,1l1EP.T(80,127,!1^1^1^1^1^1^1^1,127,50,!1^1)BR=32p.T(0,127,!1^1^1^1^1^1^1^1,127,0,!1^1)'>>cde<<'^^^^^^^^^}
STR BG3={@126,96,7l1EP=95BR=48p=127'cd'^}STR BG4={@123,96,1l1EP.T(40,127,!1^1^1^1^1^1^1^1,127,100,!1^1^1^1^1^1^1^1)BR=64p.T(30,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1^1^1^1^1)'>>cde<<'^^^^^^^^^^^^^^^}
STR BGMM={DL=HAZ;BGH;DL=HAZ+8BG;BG1;DL=BK0+8BG;BG2;DL=BGN+14BG;BG3;BGH;DL=BK1+8BG;BG4;DL=BK1+24BG;BG2;DL=BN1+14BG;BG3;BGH;DL=NK1+14BG;BG3;BGH;
DL=BK2+8BG;BG4;DL=BK2+24BG;BG2;DL=BN2+14BG;BG3;DL=NK2+8BG;BG2;DL=NK3+14BG;BG3;BGH;}TR=15BGMM;TR=16BGMM;