INT TRACK_SELECT				=	1	;	//	1 : 	Keep a Compliance (Dub Mix)					https://www.youtube.com/watch?v=P3WC0nsR1Xk
									//
									//	2 :	Keep a Compliance							https://www.youtube.com/watch?v=k0sspph7SBY

CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/galaxy.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/hats.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/rev.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/teknew2016.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/newkick2016.dls)"}
CuePoint={"TwmParam(20,117,100,127)"}CuePoint={"TwmChorus(1,64,127,79,0,0,0)"}

If(TRACK_SELECT==1){
INT EST=126PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"Keep a Compliance (Dub Mix)"}Copyright={DJ MML}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}
K=-2
//-(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,000,0,0,090,10,0)WIN(07,07,039,08,0,K,096,0,0,060,10,0)WIN(13,13,119,00,0,0,064,0,0,127,09,0)
WIN(02,02,082,01,0,K,064,0,0,100,09,0)WIN(08,08,036,00,0,K,070,4,0,100,10,2)WIN(14,14,082,01,0,K,044,0,0,110,10,0)
WIN(03,03,082,01,0,K,024,0,0,100,10,0)WIN(09,09,012,00,0,K,127,0,0,090,10,0)WIN(15,15,003,00,0,K,084,0,0,110,10,0)
WIN(04,04,082,01,0,K,104,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,0,___,0,0,080,10,0)
WIN(05,05,035,00,0,K,064,3,1,110,12,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,082,01,0,K,032,0,0,060,10,0)WIN(12,12,026,00,0,0,064,9,4,127,09,0)TR=10IP;TR=11IP=2TR=12IP=3;TR=13IP=4;TR=16IP=5;
INT HAZ=1INT BGN=33INT ST0=49INT ST1=65INT ST2=81INT BK1=97INT BK2=113INT NK1=129INT BK3=145INT BN2=161INT ST3=177INT ST4=193
/*1&9*/STR MNA={BR=6If(CH==1){p%.T(100,-200,1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}Else{p%.T(-100,200,1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}}
STR MNB={BR=6If(CH==1){p%=200}Else{p%=-200}}STR MNC={BR=6If(CH==1){p%=200}Else{p%=-200}}
STR MN1={REV=70CHO=100EP=30l16q.T(10,50,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MNA[16@82,110,5'`ebge'^^@82,110,3'bge''bge'^^@82,110,4'bg"b''bg"b''`ebge'^@82,111,3'`ebge'^'bge''bge'^]}
STR MN2={l16@82,110,5q.T(50,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MNB;SUB{[128r]HAM({[8e`ee^`eee`e][8f#`f#f#^`f#f#f#`f#]})}[32'bg"b''`ebge'^'`ebge'^'bge''bge'^]}
STR MN3={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1'e'^^^^^'e'^^^^^^
[51r]'e'^^^^^'e'^^^^^^[51r]@3,44,2REV=20l16'e'^^^^rl64rl16REV=90'e'^^^^^^^[49r]l64rrrl16REV=20'e'^^^^rl64rl16REV=90'e'^^^^^^^
TrackKey=(K)<}
STR MN4={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1'e'^^^^^'e'^^^^^^
[51r]'e'^^^^^'e'^^^^^^[51r]@3,44,3REV=20l16'e'^^^^^l64rl16REV=90'e'^^^^^^^^[48r]l64rrrl16REV=20'e'^^^^^l64rl16REV=90'e'^^^^^^^^
TrackKey=(K)<}
STR MN5={MNC>TrackKey=(K+3)CHO=50REV=40@3,44,4l16[15r]l96rrrrl8M=127l16EP=65'e'^^^^^l96rrrEP=50
MidiDelay({l8SUB{l4rl8g^^^}SUB{l24rl8"b^^^}Div{eee}l16'e'^^^^^^},6,!2)TrackKey=(K)<}
STR MN6={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1'e'^^^^^'e'^^^^^^
[51r]'e'^^^^^'e'^^^^^^TrackKey=(K)<}
STR MN7={l16@82,110,5q.T(50,10,!1^1^1^1^1^1^1^2,10,100,!16)REV.T(70,10,!1^1^1^1^1^1^1^2,10,127,!16)CHO.T(100,10,!1^1^1^1^1^1^1^2,10,127,!16)
MNB[16'bg"b''`ebge'^'`ebge'^'bge''bge'^]q.T(50,50,!1^1^1^1^1^1^1,50,200,!16)REV=40CHO=70[16'bg"b''`ebge'^'`ebge'^'bge''bge'^]
q.T(50,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)REV=70CHO=100
SUB{[128r]HAM({[8e`ee^`eee`e][8f#`f#f#^`f#f#f#`f#]})}[32'bg"b''`ebge'^'`ebge'^'bge''bge'^]
}
STR MN8={MNC>TrackKey=(K+3)l16q=100[16r]v=90EP=65CHO=90REV=40@3,44,1If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}
[51r]If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}[51r]@3,44,2REV=20l16If(CH==1){'e'^^^^}Else{'`e'^^^^}rl64r
l16REV=90If(CH==1){'e'^^^^^^^}Else{'`e'^^^^^^^^}[49r]l64rrrl16REV=20If(CH==1){'e'^^^^}Else{'`e'^^^^}rl64rl16REV=90If(CH==1){'e'^^^^^^^}Else{'`e'^^^^^^^^}
TrackKey=(K)<}
STR MN9={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}
[51r]If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}[51r]@3,44,3REV=20l16If(CH==1){'e'^^^^^}Else{'`e'^^^^^}
l64rl16REV=90If(CH==1){'e'^^^^^^^^}Else{'`e'^^^^^^^^}[48r]l64rrrl16REV=20If(CH==1){'e'^^^^^}Else{'`e'^^^^^}l64rl16REV=90If(CH==1){'e'^^^^^^^^}Else{'`e'^^^^^^^^}
TrackKey=(K)<}
STR MN10={MNC>TrackKey=(K+3)CHO=50REV=40@3,44,4l16[15r]l96rrrrl8M=127l16EP=65If(CH==1){'e'^^^^^}Else{'`e'^^^^^}l96rrrEP=50
If(CH==1){MidiDelay({l8SUB{l4rl8g^^^}SUB{l24rl8"b^^^}Div{eee}l16'e'^^^^^^},6,!2)}Else{>MidiDelay({l8SUB{l4rl8g^^^}SUB{l24rl8"b^^^}Div{eee}l16'e'^^^^^^},6,!2)<}TrackKey=(K)<}
STR MN11={MNC>TrackKey=(K+3)l8CHO=60REV=70EP=80@3,22,10c^^^rrrl32rrrl8@3,22,9c^^^rrrrl32rl8@3,22,8c^^^rrrl16rl8@3,22,7c^^^rrrr
l8@3,22,6c^^^l32rl16@3,22,5c^^^^^^l32rl16@3,22,4c^^^^^^^l32rl16@3,22,3c^^^^^^^l32rl16@3,22,2c^^^^^^^@3,22,1c^^^^^rl32r@3,33,1l16EP=80CHO=50'c"a#'^^^^l8
@3,33,2REV=127CHO=100EP=110v=120'ce'^^^@3,33,5v=90EP=70CHO=50REV=90l8MD({'d"b'^},1,!6)rrrTrackKey=(K)<}
STR MN12={>TrackKey=(K+3)l8@3,33,3REV=10CHO=10EP=110'"bd#'^^^^^MNC;l8
@3,33,2REV=127CHO=100EP=127'c'^^^rr@3,33,5EP=70CHO=50REV=50l16MidiDelay({'c"b'^},3,!5)[5r]
l8@3,33,2REV=127CHO=100EP=127'c'^^@3,33,5EP=70CHO=50REV=50"g^^^""g^^^^^rrrr@3,33,2EP=110CHO=10REV=60'c'^r'd'^^^^^rr'c'^rr@3,33,5EP=70d^^rr"g#^^^
TrackKey=(K)<}
STR MNNN={<DL=HAZ;MN1;MN2;DL=BGN;MN3;DL=ST0;MN4;DL=ST1;MN5;DL=ST1+4MN5;DL=ST1+8MN6;DL=BK1;MN1;MN7;DL=BK3+8MN11;
DL=BN2;MN8;DL=ST3;MN9;DL=ST4;MN10;DL=ST4+4MN10;DL=ST4+8MN12;
}TR=1MNNN;TR=9MNNN;
/*2*/STR RK1={l16EP=127[[14r]@82,1`b&&b[14r]@49,90,1'`g`ebg'r[32r]]}
STR RK2={l16EP=127[[14r]@82,1``e&&`e[16r][32r]]}
STR RK3={l16EP=127[[14r]@82,1``e&&`e[14r]@49,90,1'`g`ebg'r[32r]]}
STR RK4={@49,90,1EP=60l8
SUB{[g^^g^^g^][a^^a^^a^][b^^b^^b^][`d^^`d^^`d^]}[[`e^^`e^^`e^][`f#^^`f#^^`f#^]]
>>SUB{`e[e`f#e`ge`a`e^e`f#e`ge`a`e^f#`f#f#`gf#`a`e^f#`f#f#`gf#`a:`e^]`e}<<
SUB{[`e^^`e^^`e^][`f#^^`f#^^`f#^][`g^^`g^^`g^][`a^^`a^^`a^]}>[b^^b^^b^][`d^^`d^^`d^][`e^^`e^^`e^][`f#^^`f#^^`f#^]<
EP=127}
STR RK5={EP=35REV.T(0,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)@82,110,5l1^1q=100>'`ebg'^^^^^^^<q=90REV=0}
STR RK6={EP.T(35,50,!1^1^1^1^1^1^1^1)REV.T(0,100,!1^1^1^1^1^1^1^1)@82,110,5l1q=100>'`ebg'^^^^^^^<q=90REV=0}
STR RK7={EP.T(50,30,!1^1^1^1^1^1^1^1)REV.T(0,100,!1^1^1^1^1^1^1^1)@49,90,1l1q=100>'`ebg'^^^^^^^<q=90REV=0}
TR=2DL=BGN;RK1;DL=ST0;RK1;DL=ST1;RK2;RK3;DL=ST2;RK4;DL=BK1;RK5;DL=NK1;RK1;RK3;DL=BK3+8RK6;DL=BN2;RK1;DL=BN2+8RK1;DL=ST3;RK4;RK7;
/*3*/
STR RT1={>l16q=15EP=80@82,1,0/*@5,24*/CHO=50[P.T(24,104,!1^1^1^1,104,24,!1^1^1^1)[rrMidiDelay({'"g"beg''"g"beg'},32,!8)[60r]]]<}
STR RT2={l16q=100EP=45CHO.T(30,70,!1^1^1^1,70,30,!1^1^1^1)REV.T(0,50,!1^1^1^1,50,0,!1^1^1^1)@82,8,0
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rr}FOR(INT A=0;A<32;A++){BR=(48-A)rr}}[64p.T(127,64,!8)e^]}
STR RT3={l16q=100EP=45CHO.T(30,70,!1^1^1^1^1^1,70,30,!1^1)REV.T(0,50,!1^1^1^1^1^1,50,0,1^1)SUB{@31,110,0[64r]@31,90,0}
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rr}FOR(INT A=0;A<32;A++){BR=(48-A)rr}}[64p.T(127,64,!8)e^]}
STR RT4={l16q=100EP=45CHO.T(30,70,!1^1^1^1^1^1,70,30,!1^1)REV.T(0,50,!1^1^1^1^1^1,50,0,1^1)@82,8,0
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rr}FOR(INT A=0;A<32;A++){BR=(48-A)rr}}[64p.T(127,64,!8)e^]}
STR RT5={l16q=100EP=45CHO.T(30,70,!1^1^1^1^1^1^1^1)REV.T(0,50,!1^1^1^1^1^1^1^1)SUB{@31,110,0[64r]@31,90,0}
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rrrr}}[64p.T(127,64,!8)e^]}
STR RT6={@49,90,1l1^1EP=40p=64'>``e`g<'^^^^^^^}
STR RRF={l16DL=BGN[RT1]DL=ST1;P.onCycle(!8,54,74,44,84,34,94,24,104,14,114,24,104,34,94,44,84,60,68)RT2;RT3;DL=BK1;RT2;RT3;
DL=BK3;RT4;RT5;DL=BN2;P=24RT6;
}TR=3@82,110,0RRF;
/*4*/STR JJ1={l16@82,110,4q=10EP=120[4[26r]MidiDelay({'`ebg''`ebg'^^'`ebg''`ebg'},4,!8)]}
STR JJ2={l16@82,110,0q=10EP=115[4[26r]MidiDelay({'`ebg''`ebg'^^'`ebg''`ebg'},4,!8)]}
STR JJ2A={l16@82,110,0q=10EP=115[3[26r]MidiDelay({'`ebg''`ebg'^^'`ebg''`ebg'},4,!8)]}
STR JJ3={l1@103,0,0 REV=127CHO.T(0,127,!1^1^1^1^1^1^1^1)EP.T(60,10,!1^1^1^1^1^1^1^1)q=100BR=32p.T(127,32,!1^1^1^1^1^1^1^1)'>e"b<'^^^^^^^
l1@103,0,0 REV=127CHO.T(0,127,!1^1^1^1^1^1^1^1)EP.T(60,10,!1^1^1^1^1^1^1^1)q=100BR=32p.T(127,32,!1^1^1^1^1^1^1^1)'>e"b<'^^^^^^^}
TR=4DL=ST1[JJ1:JJ2]JJ2A;DL=BK1;JJ3;DL=BK3;JJ3;DL=BN2;p=64CHO=10REV=20JJ1;JJ2;
/*5*/STR BSA={BR=8If(CH==5){p%.T(200,-200,!2)REV=10}Else{@40,90,0REV=30p%.T(-200,200,!2)}CHO.W(20,70,!2)}
STR BSB={p%=0If(CH==8){REV=0@33,0CHO=40}}
STR BSH={BSB;l24[8"e^^^^"e^^[19r]rr"e^^e"e^^rrr[6r]"e^^]}
STR BS1={l24"e^^^^"e^^e"e^^rrr"e^^^^^^^^^^^rr[15"e^^e"e^^rrr:"e^^^^^^^^^^^rr]"e^^^^^^^^}
STR BS2={l24BSA;"e^^^^"e^^e"e^^rrr"e^^^^^^^^^^^rr[3"e^^e"e^^rrr:"e^^^^^^^^^^^rr]"e^^^^^"d^^"c^^rr
["c^^c"c^^rrr:"c^^^^^^^^^^^rr]"c^^^^^^^^"d^^rr["d^^d"d^^rrr:"d^^^^^^^^^^^rr]"d^^^^^^^^}
STR BS2A={l24BSA;EP.T(110,90,!1^1^1^1^1^1^1^1)REV.T(30,100,!1^1^1^1^1^1^1^1)"e^^^^"e^^e"e^^rrr"e^^^^^^^^^^^rr[3"e^^e"e^^rrr:"e^^^^^^^^^^^rr]"e^^^^^"d^^"c^^rr
["c^^c"c^^rrr:"c^^^^^^^^^^^rr]"c^^^^^^^^"d^^rr["d^^d"d^^rrr:"d^^^^^^^^^^^rr]"d^^^^^^^^EP=127If(CH==5){REV=10}Else{REV=30}}
STR BS3={l16[128r]l24BSB[4"e^^^^"e^^[19r]rr"e^^e"e^^rrr[6r]"e^^]}
STR BS4={l24BSB;CHO=30EP.T(110,90,!1^1^1^1^1^1^1^1,90,110,!1^1^1^1^1^1^1^1)REV.T(30,100,!1^1^1^1^1^1^1^1,100,30,!1^1^1^1^1^1^1^1)
q.T(100,300,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
"e^^^^["e^^"e"e^^rrrrr"e^^e"e^^:rrrrr]"e^^^^["e^^"e"e^^rrrrr"e^^e:"e^^rrrrr]
"d^^"c^^^^["c^^"c"c^^rrrrr"c^^c"c^^:rrrrr]"d^^^^["d^^"d"d^^rrrrr"d^^d"d^^:rrrrr]
[3"e^^^^["e^^"e"e^^rrrrr"e^^e"e^^:rrrrr]]"e^^^^["e^^"e"e^^rrrrr:"e^^e"e^^rrrrr][12r]
If(CH==5){q=120}Else{q=100}EP=127}
STR BS5={l24BSA[8"e^^^^["e^^"e"e^^rrrrr"e^^"e"e^^:rrrrr]]}
STR BS6={l24BSA["e^^^^["e^^"e"e^^rrrrr"e^^"e"e^^:rrrrr]"e^^^^["e^^"e"e^^rrrrr"e^^"e:"e^^rrrrr]
"d^^"c^^^^["c^^"c"c^^rrrrr"c^^"c"c^^:rrrrr]"d^^^^["d^^"d"d^^rrrrr"d^^"d"d^^:rrrrr]]}
STR BS7={l24BSB[4"e^^^^["e^^"e"e^^rrrrr"e^^"e"e^^:rrrrr]]}
STR BS8={BSB;l24[4"e^^^^"e^^[19r]rr"e^^e"e^^rrr[6r]"e^^]l4"e^^^}
TR=5l8>>DL=HAZ@1,66,2q=400TrackKey=(K+1)[BSH]DL=BGN[3BS1][BS2]EP=110BS2;BS2A;DL=BK2;BS3;BSH;BS4;DL=BN2;BS5;DL=ST3;BS6;BS7;BS8;TrackKey=K;
TR=8l8<DL=HAZ@33,0[BSH]DL=BGN@40,90,0REV=30[3BS1][BS2]EP=110BS2;BS2A;DL=BK2;BS3;BSH;BS4;DL=BN2;BS5;DL=ST3;BS6;BS7;BS8;
/*6&7*/STR COA={BR=6If(CH==6){p%=100}Else{p%=-100}}
STR COH={@55,110,8l1COA;v=40CHO=30REV=100EP.W(50,100,!1^2^4^8,100,50,!8)[['ge"b"g'^]['f#e"b"g'^]['ec"g"e'^]:['f#d"b"f#'^]]EP.T(50,100,!1^1^1^1)'bf#d"b'^^^}
STR CO1={/*@51,110,0*/@19,110,0l2COA;v=65EP.W(50,100,!2^4^8,100,0,!8)[4'`ege"b"g'^^^]['`ef#e"b"g'^^^]['`ege"b"g'^^^]}
STR CO2={@82,110,5COA;v=45EP=60REV.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)CHO.T(50,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
M.T(0,40,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)l1^1````e^^^^^^^M=0}
STR CO3={/*@51,110,0*/@19,110,0l2COA;v=65CHO=30REV=100EP.W(50,100,!2^4^8,100,0,!8)[[3'`ege"b"g'^^^]'`daf#d"a'^^^]}
STR CO4={@82,110,1@82,110,5l1^1COA;v=65CHO=30REV=100EP=50'`ege'^^^^^^^}
STR CO5={/*@51,110,0*/@19,110,0l2COA;v=65EP.W(50,100,!2^4^8,100,0,!8)CHO=50REV=100[8'`ege"b"g'^^^]}
STR CO6={/*@51,110,0*/@19,110,0l2COA;v=65CHO=30REV=100EP.W(50,100,!2^4^8,100,0,!8)[[3'`ege"b'^^^]'`daf#d'^^^]}
STR COHH={DL=HAZ;<COH;DL=BGN[CO1]DL=ST1;CO2;DL=ST2;CO3;DL=BK1;CO4;DL=NK1;CO1;DL=BN2;CO5;CO6;}TR=6COHH;TR=7COHH;
/*10*/STR OA={c}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 AAR={}STR AAS={}
STR DDH={SUB{[96rr]FOR(INT A=0;A<63;A++){AAS="TwmChorus(1,64,127,"+(65+A)+",0,0,0)"CuePoint=AAS;r}
CuePoint={"TwmChorus(1,64,127,79,0,0,0)"}}
SUB{FOR(INT A=0;A<127;A++){AAR="TwmParam("+A+",117,110,127)";CuePoint=AAR;rr}}[60O1;rrr][12r]@120,100,2EP=110BR=20p%=-200P=0c#^P=127c#^P=64EP=127
BR=20p%=-1000@1,66,1;CuePoint={"TwmParam(20,117,110,127)"}}
STR DD1={[64O1;rrr]}STR DD1A={[16r][60O1;rrr]}
STR DD2={CuePoint={"TwmParam(20,117,110,127)"}FOR(INT A=0;A<128;A++){AAS="TwmChorus(1,64,127,"+(64-(A/2))+",0,0,0)"CuePoint=AAS;r}CuePoint={"TwmChorus(1,64,127,79,0,0,0)"}
[32O1;r:rr][O1]}STR DD3={[32O1;rrr]EP.T(127,0,!1^1^1^1^1^1^1^1)[32O1;rrr]EP=127}STR DD4={[64O1;rrr]}
TR=10l16DL=HAZ+16V=100BR=20p%=-1000CHO=40@1,66,1DDH;DL=BGN;V=110CHO=30BR=20p%=-1000@1,66,1;DD1;DD1A[DD1]
SUB{FOR(INT A=0;A<128;A++){AAR="TwmParam("+(A)+",117,110,127)";CuePoint=AAR;r}FOR(INT A=0;A<128;A++){AAR="TwmParam("+(127-A)+",117,110,127)";CuePoint=AAR;r}}
DL=BK2;DD2;DD3;O1;DL=BK3+15[12r]@120,100,2EP=110BR=20p%=-200P=0c#^P=127c#^P=64EP=127BR=20p%=-1000@1,66,1;DL=BN2;DD1;DD1A;DD4;
/*11*/STR GR={'c'}STR GA={n44}STR GB={'/*e*/`c#`d#'}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={[8[6GR;rGB;r]GR;r;GB;GR;GR;rGB;r]}
STR GG2={[96r][5[6GR;rGB;r]GR;rGB;GR;GR;rGB;r]}
TR=11l16DL=HAZ;DL=BGN@26BR=20p%=2500@2,88,1q=400EP=100EP=90EP=75[4GG1]DL=BK2;GG2;GG1;GG1;DL=BN2[3GG1]
/*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 CB1={BR=24SUB{[16l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[32l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}[16p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]}
STR CB2={BR=24SUB{[9l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]}SUB{[18l24n69^n69n70^n69n69^n70n69^n69l16]}[9p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]}
STR CB3={BR=24l16CHO.T(0,127,!1^1^1^1^1^1^1^1)REV.T(0,127,!1^1^1^1^1^1^1^1)
[8[16r]EP.T(30,80,!1)
SUB{l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]CHO=90REV=80}
STR CB4={BR=24EP.T(10,80,!1^1^1^1^1^1^1^1)REV.T(10,127,!1^1^1^1^1^1^1^1)CHO.T(10,127,!1^1^1^1^1^1^1^1)
SUB{[8l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[16l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}[8p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]EP=80CHO=90REV=80}
STR CB5={BR=24l16CHO.T(90,127,!1^1^1^1^1^1^1^1)REV.T(80,127,!1^1^1^1^1^1^1^1)
BR=24SUB{[8l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[16l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}
[8p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]}
TR=12l16DL=HAZ+16@1,90,1REV=40EP=80q=10CB1;DL=BGN@1,90,1EP=80q=10REV=80[CB1]n57DL=ST1+7CB2;CB1;DL=BK2;CB3;DL=BK3+8CB4;DL=BN2[CB1]CB5;
/*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=13l1DL=BGN@2,88,1REV=100CHO=50v=100gDL=ST0;fDL=ST2;gDL=BK2;fDL=BK3;fDL=BN2;gDL=ST3;fDL=ST4+16g
/*14*/STR SP1={l4TrackKey=-3@127,110,0REV=20CHO=40EP=100P=44[16"f^^^]TrackKey=K;}
STR SP1B={l4TrackKey=-3@127,110,0REV=20CHO=40EP=100P=44"f^^^TrackKey=K;}
STR SP1A={l4TrackKey=-3@127,110,0REV=20CHO=40EP=100P=44[4"f^^^rrrr][8"f^^^]TrackKey=K;}
STR SP2={l16/*@4,110,0@1,90,0*/@5,8REV=40CHO=60EP=80[(8)<P=40'`ebge'^^^P=10'bgeb'^^^y64=127;>MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
STR SP3={l16/*@3,0@1,90,0*/@6,8REV=40CHO=80EP=80[(4)<P=40'`ebge'^^^P=10'bgeb'^^^y64=127;>MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
STR SP4={l16/*@4,110,0*/@5,8REV=40CHO=60EP=80;<P=40'`ebge'^^^P=10'bgeb'^^^>y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16P=40'`ebge'^^^^^^^EP=80y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[12r]y64=0;
y64=127MD({SUB{a^^`d^^l8`f#^^^^l16}HAM({P=70`d^^P=110`f#^^l8P=120`a^^^^l16})},3,!2)l8[12r]y64=0;}
STR SP5={l16@5,8REV=40CHO=60EP=80[(4)<P=40'`ebge'^^^P=10'bgeb'^^^y64=127;>MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
STR SP6={l16/*@4,110,0*/@1,90,0@5,8REV=40CHO=60EP=80;<P=40'`ebge'^^^P=10'bgeb'^^^>y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16P=40'`ebge'^^^^^EP=80REV.T(40,120,!1^1^1^1^1^1^1^1)
SUB{ef#g^e^"b^g^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^e^b^'`ebge'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)`e`f#`g^`e^b^`e^'`g`ebe'^^^^^
SUB{b`d`e^b^e^g^}P.T(80,110,!4,110,80,!4,80,100,!2)>gab^g^e^b^<'``e`g`eb'^^^^^
SUB{gab^g^e^f#^}P.T(90,120,!4,120,90,!4,90,110,!2)>`e`f#`g^`e^b^`d^<'``e`bb`g'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)gab^g^e^f#^'bge"g'^^^^^
SUB{ef#g^e^"b^d^}P.T(30,60,!4,60,20,!4,20,40,!2)"bde^"b^"g^"b^'ge"b"g'^^^^^
SUB{ef#g^e^g^b^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^b^`d^'`ebge'^^^^^
SUB{`e`f#`g^`e^`g^`g^}SUB{gab^g^a^b^}P.T(50,100,!4,100,50,!4,50,100,!2)b`d`e^b^`d^`e^}
STR SP7={
EP=100l4'``e`b`e`g'^REV=40EP=85l16
y64=127SUB{e^^f#^^l8g^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^l16})y64=0
SUB{ef#g^e^"b^g^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^e^b^P=10'bge"b'^^^^^^^
y64=127SUB{f#^^g^^l8b^^^l16}HAM({P=60b^^P=100`d^^l8P=110`e^^^l16})y64=0
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)`e`f#`g^`e^b^`e^'`b`g`eb'^^^^^^^
y64=127SUB{<b^^`d^^l8`e^^^l16>}HAM({P=40f#^^P=80g^^l8P=90b^^^l16})y64=0
SUB{b`d`e^b^e^g^}P.T(50,80,!4,80,50,!4,50,110,!2)gab^g^e^b^'``e`g`eb'^^^^^^^
y64=127SUB{e^^"b^^l8"g^^^l16}HAM({P=60`f#^^P=100`d^^l8P=50`e^^^l16})y64=0
SUB{ef#g^e^"b^d^}P.T(30,60,!4,60,20,!4,20,40,!2)"bde^"b^"g^"b^
}
STR SP8={l16@1,90,0@6,8REV=40CHO=80EP=80;<P=40'`ebge'^^^P=10'bgeb'^^^>y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16P=40'`ebge'^^^^^^^EP=80y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16EP=100P=40'`ebge'^^^^^EP=80REV.T(40,120,!1^1^1^1^1^1^1^1)
SUB{ef#g^e^"b^g^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^e^b^'`ebge'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)`e`f#`g^`e^b^`e^'`g`ebe'^^^^^
SUB{b`d`e^b^e^g^}P.T(80,110,!4,110,80,!4,80,100,!2)>gab^g^e^b^<'``e`g`eb'^^^^^
SUB{gab^g^e^f#^}P.T(90,120,!4,120,90,!4,90,110,!2)>`e`f#`g^`e^b^`d^<'``e`bb`g'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)gab^g^e^f#^'bge"g'^^^^^
SUB{ef#g^e^"b^d^}P.T(30,60,!4,60,20,!4,20,40,!2)"bde^"b^"g^"b^'ge"b"g'^^^^^
SUB{ef#g^e^g^b^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^b^`d^'`ebge'^^^^^
SUB{`e`f#`g^`e^`g^`g^}SUB{gab^g^a^b^}P.T(50,100,!4,100,50,!4,50,100,!2)b`d`e^b^`d^`e^
l4'``e`g`eb'^^^^^^^}
STR SP9={l16@1,90,0@5,8REV=40CHO=60EP=80[(2)P=40'`ebge'^^^P=10'bgeb'^^^y64=127MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
TR=14DL=HAZ;SP1;DL=BGN;SP2;SP3;DL=ST2;SP4;DL=BK1;SP1A;DL=NK1-1SP1B;DL=NK1;SP5;SP6;DL=BN2;SP7;DL=BN2+8SP9;SP8;
/*15*/STR FT1={l4[24"g^^^]}STR FT2={l4[16"g^^^]}STR FT2A={l4rrrr[15"g^^^]}STR FT3={l4[7rrrr][9"g^^^]}STR FT4={l4[8"g^^^]}STR FT5={l4[8"g^^^]}
STR FT6={TrackKey=K;@3,33,4l1REV=127CHO=127EP=70'ceg'^^^TrackKey=-3@127,110,2REV=30CHO=40EP=100}
TR=15DL=HAZ+8TrackKey=-3@127,110,2REV=30CHO=40EP=100FT1;DL=BGN;FT2;FT2A;FT3;FT2;DL=BK1;FT6;DL=BK1+8FT4;DL=BK3;FT2;DL=BN2;FT2;FT2A[FT5]TrackKey=K;
/*16*/STR TS0={@33,90,1l16BR=20p%=1000P.onCycle(!8,0,22,106,127,106,22)}
STR TS1={v=80TS0;CHO=127REV=127n62[n38]r[n40]rn40n62n50n48n47MidiDelay({n45n43n41n36},8,!4)}
STR TS2={P=64@1,100,0BR=20p%=3000v=60EP=127'n39n40n37'EP.T(60,120,!4)[3n38]SUB{n57}n40rrrEP=127'n39n40n37'EP.T(60,127,!4)[3n38]SUB{n57}n40[3n38]}
STR TS3={P=64@1,100,0BR=20p%=3000v=80TS0;EP=127[10r][3n47]rn43r}STR TS4={'n55n46'}
TR=16DL=HAZ+15TS1;DL=BGN-1;TS2;DL=ST0;TS3;DL=ST2-1TS2;DL=BK1-1TS3;DL=BK1;TS4;DL=BK1+15TS1;DL=BK3+7TS3;DL=BN2-1;TS2;DL=ST3;TS3;

}

If(TRACK_SELECT==2){
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/galaxy.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/hats.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/rev.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/teknew2016.dls)"}
CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/newkick2016.dls)"}
CuePoint={"TwmParam(20,117,100,127)"}CuePoint={"TwmChorus(1,64,127,79,0,0,0)"}

INT EST=126PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"Keep a Compliance"}Copyright={DJ MML}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}
K=-3
//-(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,000,0,0,090,10,0)WIN(07,07,039,08,0,K,096,0,0,060,10,0)WIN(13,13,119,00,0,0,064,0,0,127,09,0)
WIN(02,02,082,01,0,K,064,0,0,100,09,0)WIN(08,08,036,00,0,K,070,4,0,100,10,2)WIN(14,14,082,01,0,K,044,0,0,110,10,0)
WIN(03,03,082,01,0,K,024,0,0,100,10,0)WIN(09,09,012,00,0,K,127,0,0,090,10,0)WIN(15,15,003,00,0,K,084,0,0,110,10,0)
WIN(04,04,082,01,0,K,104,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,0,___,0,0,080,10,0)
WIN(05,05,035,00,0,K,064,3,1,110,12,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,082,01,0,K,032,0,0,060,10,0)WIN(12,12,026,00,0,0,064,9,4,127,09,0)TR=10IP;TR=11IP=2TR=12IP=3;TR=13IP=4;TR=16IP=5;
INT HAZ=1INT BGN=33INT ST0=49INT ST1=65INT ST2=81INT BK1=97INT BK2=113INT NK1=129INT BK3=145INT BN2=161INT ST3=177INT ST4=193
/*1&9*/STR MNA={BR=6If(CH==1){p%.T(100,-200,1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}Else{p%.T(-100,200,1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}}
STR MNB={BR=6If(CH==1){p%=200}Else{p%=-200}}STR MNC={BR=6If(CH==1){p%=200}Else{p%=-200}}
STR MN1={REV=70CHO=100EP=30l16q.T(10,50,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MNA[16@82,110,5'`ebge'^^@82,110,3'bge''bge'^^@82,110,4'bg"b''bg"b''`ebge'^@82,111,3'`ebge'^'bge''bge'^]}
STR MN2={l16@82,110,5q.T(50,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MNB;SUB{[128r]HAM({[8e`ee^`eee`e][8f#`f#f#^`f#f#f#`f#]})}[32'bg"b''`ebge'^'`ebge'^'bge''bge'^]}
STR MN3={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1'e'^^^^^'e'^^^^^^
[51r]'e'^^^^^'e'^^^^^^[51r]@3,44,2REV=20l16'e'^^^^rl64rl16REV=90'e'^^^^^^^[49r]l64rrrl16REV=20'e'^^^^rl64rl16REV=90'e'^^^^^^^
TrackKey=(K)<}
STR MN4={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1'e'^^^^^'e'^^^^^^
[51r]'e'^^^^^'e'^^^^^^[51r]@3,44,3REV=20l16'e'^^^^^l64rl16REV=90'e'^^^^^^^^[48r]l64rrrl16REV=20'e'^^^^^l64rl16REV=90'e'^^^^^^^^
TrackKey=(K)<}
STR MN5={MNC>TrackKey=(K+3)CHO=50REV=40@3,44,4l16[15r]l96rrrrl8M=127l16EP=65'e'^^^^^l96rrrEP=50
MidiDelay({l8SUB{l4rl8g^^^}SUB{l24rl8"b^^^}Div{eee}l16'e'^^^^^^},6,!2)TrackKey=(K)<}
STR MN6={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1'e'^^^^^'e'^^^^^^
[51r]'e'^^^^^'e'^^^^^^TrackKey=(K)<}
STR MN7={l16@82,110,5q.T(50,10,!1^1^1^1^1^1^1^2,10,100,!16)REV.T(70,10,!1^1^1^1^1^1^1^2,10,127,!16)CHO.T(100,10,!1^1^1^1^1^1^1^2,10,127,!16)
MNB[16'bg"b''`ebge'^'`ebge'^'bge''bge'^]q.T(50,50,!1^1^1^1^1^1^1,50,200,!16)REV=40CHO=70[16'bg"b''`ebge'^'`ebge'^'bge''bge'^]
q.T(50,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)REV=70CHO=100
SUB{[128r]HAM({[8e`ee^`eee`e][8f#`f#f#^`f#f#f#`f#]})}[32'bg"b''`ebge'^'`ebge'^'bge''bge'^]
}
STR MN8={MNC>TrackKey=(K+3)l16q=100[16r]v=90EP=65CHO=90REV=40@3,44,1If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}
[51r]If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}[51r]@3,44,2REV=20l16If(CH==1){'e'^^^^}Else{'`e'^^^^}rl64r
l16REV=90If(CH==1){'e'^^^^^^^}Else{'`e'^^^^^^^^}[49r]l64rrrl16REV=20If(CH==1){'e'^^^^}Else{'`e'^^^^}rl64rl16REV=90If(CH==1){'e'^^^^^^^}Else{'`e'^^^^^^^^}
TrackKey=(K)<}
STR MN9={MNC>TrackKey=(K+3)l16[16r]q=100EP=65CHO=90REV=40@3,44,1If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}
[51r]If(CH==1){'e'^^^^^'e'^^^^^^}Else{'`e'^^^^^'`e'^^^^^^}[51r]@3,44,3REV=20l16If(CH==1){'e'^^^^^}Else{'`e'^^^^^}
l64rl16REV=90If(CH==1){'e'^^^^^^^^}Else{'`e'^^^^^^^^}[48r]l64rrrl16REV=20If(CH==1){'e'^^^^^}Else{'`e'^^^^^}l64rl16REV=90If(CH==1){'e'^^^^^^^^}Else{'`e'^^^^^^^^}
TrackKey=(K)<}
STR MN10={MNC>TrackKey=(K+3)CHO=50REV=40@3,44,4l16[15r]l96rrrrl8M=127l16EP=65If(CH==1){'e'^^^^^}Else{'`e'^^^^^}l96rrrEP=50
If(CH==1){MidiDelay({l8SUB{l4rl8g^^^}SUB{l24rl8"b^^^}Div{eee}l16'e'^^^^^^},6,!2)}Else{>MidiDelay({l8SUB{l4rl8g^^^}SUB{l24rl8"b^^^}Div{eee}l16'e'^^^^^^},6,!2)<}TrackKey=(K)<}
STR MN11={MNC>TrackKey=(K+3)l8CHO=60REV=70EP=80@3,22,10c^^^rrrl32rrrl8@3,22,9c^^^rrrrl32rl8@3,22,8c^^^rrrl16rl8@3,22,7c^^^rrrr
l8@3,22,6c^^^l32rl16@3,22,5c^^^^^^l32rl16@3,22,4c^^^^^^^l32rl16@3,22,3c^^^^^^^l32rl16@3,22,2c^^^^^^^@3,22,1c^^^^^rl32r@3,33,1l16EP=80CHO=50'c"a#'^^^^l8
@3,33,2REV=127CHO=100EP=110v=120'ce'^^^@3,33,5v=90EP=70CHO=50REV=90l8MD({'d"b'^},1,!6)rrrTrackKey=(K)<}
STR MN12={>TrackKey=(K+3)l8@3,33,3REV=10CHO=10EP=110'"bd#'^^^^^MNC;l8
@3,33,2REV=127CHO=100EP=127'c'^^^rr@3,33,5EP=70CHO=50REV=50l16MidiDelay({'c"b'^},3,!5)[5r]
l8@3,33,2REV=127CHO=100EP=127'c'^^@3,33,5EP=70CHO=50REV=50"g^^^""g^^^^^rrrr@3,33,2EP=110CHO=10REV=60'c'^r'd'^^^^^rr'c'^rr@3,33,5EP=70d^^rr"g#^^^
TrackKey=(K)<}
STR MNNN={<DL=HAZ;MN1;MN2;DL=BGN;MN3;DL=ST0;MN4;DL=ST1;MN5;DL=ST1+4MN5;DL=ST1+8MN6;DL=BK1;MN1;MN7;DL=BK3+8MN11;
DL=BN2;MN8;DL=ST3;MN9;DL=ST4;MN10;DL=ST4+4MN10;DL=ST4+8MN12;
}TR=1MNNN;TR=9MNNN;
/*2*/STR RK1={l16EP=127[[14r]@82,1`b&&b[14r]@49,0'`g`ebg'r[32r]]}
STR RK2={l16EP=127[[14r]@82,1``e&&`e[16r][32r]]}
STR RK3={l16EP=127[[14r]@82,1``e&&`e[14r]@49,0'`g`ebg'r[32r]]}
STR RK4={@49,90,1EP=60l8
SUB{[g^^g^^g^][a^^a^^a^][b^^b^^b^][`d^^`d^^`d^]}[[`e^^`e^^`e^][`f#^^`f#^^`f#^]]
>>SUB{`e[e`f#e`ge`a`e^e`f#e`ge`a`e^f#`f#f#`gf#`a`e^f#`f#f#`gf#`a:`e^]`e}<<
SUB{[`e^^`e^^`e^][`f#^^`f#^^`f#^][`g^^`g^^`g^][`a^^`a^^`a^]}>[b^^b^^b^][`d^^`d^^`d^][`e^^`e^^`e^][`f#^^`f#^^`f#^]<
EP=127}
STR RK5={EP=35REV.T(0,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)@82,110,5l1^1q=100>'`ebg'^^^^^^^<q=90REV=0}
STR RK6={EP.T(35,50,!1^1^1^1^1^1^1^1)REV.T(0,100,!1^1^1^1^1^1^1^1)@82,110,5l1q=100>'`ebg'^^^^^^^<q=90REV=0}
STR RK7={EP.T(50,30,!1^1^1^1^1^1^1^1)REV.T(0,100,!1^1^1^1^1^1^1^1)@49,90,1l1q=100>'`ebg'^^^^^^^<q=90REV=0}
TR=2DL=BGN;RK1;DL=ST0;RK1;DL=ST1;RK2;RK3;DL=ST2;RK4;DL=BK1;RK5;DL=NK1;RK1;RK3;DL=BK3+8RK6;DL=BN2;RK1;DL=BN2+8RK1;DL=ST3;RK4;RK7;
/*3*/
STR RT1={>l16q=15EP=80@82,1,0/*@5,24*/CHO=50[P.T(24,104,!1^1^1^1,104,24,!1^1^1^1)[rrMidiDelay({'"g"beg''"g"beg'},32,!8)[60r]]]<}
STR RT2={l16q=100EP=45CHO.T(30,70,!1^1^1^1,70,30,!1^1^1^1)REV.T(0,50,!1^1^1^1,50,0,!1^1^1^1)@82,8,0
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rr}FOR(INT A=0;A<32;A++){BR=(48-A)rr}}[64p.T(127,64,!8)e^]}
STR RT3={l16q=100EP=45CHO.T(30,70,!1^1^1^1^1^1,70,30,!1^1)REV.T(0,50,!1^1^1^1^1^1,50,0,1^1)SUB{@31,110,0[64r]@31,90,0}
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rr}FOR(INT A=0;A<32;A++){BR=(48-A)rr}}[64p.T(127,64,!8)e^]}
STR RT4={l16q=100EP=45CHO.T(30,70,!1^1^1^1^1^1,70,30,!1^1)REV.T(0,50,!1^1^1^1^1^1,50,0,1^1)@82,8,0
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rr}FOR(INT A=0;A<32;A++){BR=(48-A)rr}}[64p.T(127,64,!8)e^]}
STR RT5={l16q=100EP=45CHO.T(30,70,!1^1^1^1^1^1^1^1)REV.T(0,50,!1^1^1^1^1^1^1^1)SUB{@31,110,0[64r]@31,90,0}
SUB{FOR(INT A=0;A<32;A++){BR=(12+A)rrrr}}[64p.T(127,64,!8)e^]}
STR RT6={@49,90,1l1^1EP=40p=64'>``e`g<'^^^^^^^}
STR RRF={l16DL=BGN[RT1]DL=ST1;P.onCycle(!8,54,74,44,84,34,94,24,104,14,114,24,104,34,94,44,84,60,68)RT2;RT3;DL=BK1;RT2;RT3;
DL=BK3;RT4;RT5;DL=BN2;P=24RT6;
}TR=3@82,110,0RRF;
/*4*/STR JJ1={l16@82,110,4q=10EP=120[4[26r]MidiDelay({'`ebg''`ebg'^^'`ebg''`ebg'},4,!8)]}
STR JJ2={l16@82,110,0q=10EP=115[4[26r]MidiDelay({'`ebg''`ebg'^^'`ebg''`ebg'},4,!8)]}
STR JJ2A={l16@82,110,0q=10EP=115[3[26r]MidiDelay({'`ebg''`ebg'^^'`ebg''`ebg'},4,!8)]}
STR JJ3={l1@103,0,0 REV=127CHO.T(0,127,!1^1^1^1^1^1^1^1)EP.T(60,10,!1^1^1^1^1^1^1^1)q=100BR=32p.T(127,32,!1^1^1^1^1^1^1^1)'>e"b<'^^^^^^^
l1@103,0,0 REV=127CHO.T(0,127,!1^1^1^1^1^1^1^1)EP.T(60,10,!1^1^1^1^1^1^1^1)q=100BR=32p.T(127,32,!1^1^1^1^1^1^1^1)'>e"b<'^^^^^^^}
TR=4DL=ST1[JJ1:JJ2]JJ2A;DL=BK1;JJ3;DL=BK3;JJ3;DL=BN2;p=64CHO=10REV=20JJ1;JJ2;
/*5*/STR BSA={BR=8If(CH==5){p%.T(200,-200,!2)REV=10}Else{@40,90,0REV=30p%.T(-200,200,!2)}CHO.W(20,70,!2)}
STR BSB={p%=0If(CH==8){REV=0@33,0CHO=40}}
STR BSH={BSB;l24[8"e^^^^"e^^[19r]rr"e^^e"e^^rrr[6r]"e^^]}
STR BS1={l24"e^^^^"e^^e"e^^rrr"e^^^^^^^^^^^rr[15"e^^e"e^^rrr:"e^^^^^^^^^^^rr]"e^^^^^^^^}
STR BS2={l24BSA;"e^^^^"e^^e"e^^rrr"e^^^^^^^^^^^rr[3"e^^e"e^^rrr:"e^^^^^^^^^^^rr]"e^^^^^"d^^"c^^rr
["c^^c"c^^rrr:"c^^^^^^^^^^^rr]"c^^^^^^^^"d^^rr["d^^d"d^^rrr:"d^^^^^^^^^^^rr]"d^^^^^^^^}
STR BS2A={l24BSA;EP.T(110,90,!1^1^1^1^1^1^1^1)REV.T(30,100,!1^1^1^1^1^1^1^1)"e^^^^"e^^e"e^^rrr"e^^^^^^^^^^^rr[3"e^^e"e^^rrr:"e^^^^^^^^^^^rr]"e^^^^^"d^^"c^^rr
["c^^c"c^^rrr:"c^^^^^^^^^^^rr]"c^^^^^^^^"d^^rr["d^^d"d^^rrr:"d^^^^^^^^^^^rr]"d^^^^^^^^EP=127If(CH==5){REV=10}Else{REV=30}}
STR BS3={l16[128r]l24BSB[4"e^^^^"e^^[19r]rr"e^^e"e^^rrr[6r]"e^^]}
STR BS4={l24BSB;CHO=30EP.T(110,90,!1^1^1^1^1^1^1^1,90,110,!1^1^1^1^1^1^1^1)REV.T(30,100,!1^1^1^1^1^1^1^1,100,30,!1^1^1^1^1^1^1^1)
q.T(100,300,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
"e^^^^["e^^"e"e^^rrrrr"e^^e"e^^:rrrrr]"e^^^^["e^^"e"e^^rrrrr"e^^e:"e^^rrrrr]
"d^^"c^^^^["c^^"c"c^^rrrrr"c^^c"c^^:rrrrr]"d^^^^["d^^"d"d^^rrrrr"d^^d"d^^:rrrrr]
[3"e^^^^["e^^"e"e^^rrrrr"e^^e"e^^:rrrrr]]"e^^^^["e^^"e"e^^rrrrr:"e^^e"e^^rrrrr][12r]
If(CH==5){q=120}Else{q=100}EP=127}
STR BS5={l24BSA[8"e^^^^["e^^"e"e^^rrrrr"e^^"e"e^^:rrrrr]]}
STR BS6={l24BSA["e^^^^["e^^"e"e^^rrrrr"e^^"e"e^^:rrrrr]"e^^^^["e^^"e"e^^rrrrr"e^^"e:"e^^rrrrr]
"d^^"c^^^^["c^^"c"c^^rrrrr"c^^"c"c^^:rrrrr]"d^^^^["d^^"d"d^^rrrrr"d^^"d"d^^:rrrrr]]}
STR BS7={l24BSB[4"e^^^^["e^^"e"e^^rrrrr"e^^"e"e^^:rrrrr]]}
STR BS8={BSB;l24[4"e^^^^"e^^[19r]rr"e^^e"e^^rrr[6r]"e^^]l4"e^^^}
TR=5l8>>DL=HAZ@1,66,2q=400TrackKey=(K+1)[BSH]DL=BGN[3BS1][BS2]EP=110BS2;BS2A;DL=BK2;BS3;BSH;BS4;DL=BN2;BS5;DL=ST3;BS6;BS7;BS8;TrackKey=K;
TR=8l8<DL=HAZ@33,0[BSH]DL=BGN@40,90,0REV=30[3BS1][BS2]EP=110BS2;BS2A;DL=BK2;BS3;BSH;BS4;DL=BN2;BS5;DL=ST3;BS6;BS7;BS8;
/*6&7*/STR COA={BR=6If(CH==6){p%=100}Else{p%=-100}}
STR COH={@55,110,8l1COA;v=40CHO=30REV=100EP.W(50,100,!1^2^4^8,100,50,!8)[['ge"b"g'^]['f#e"b"g'^]['ec"g"e'^]:['f#d"b"f#'^]]EP.T(50,100,!1^1^1^1)'bf#d"b'^^^}
STR CO1={@51,110,0l2COA;v=45EP.W(50,100,!2^4^8,100,0,!8)[4'`ege"b"g'^^^]['`ef#e"b"g'^^^]['`ege"b"g'^^^]}
STR CO2={@82,110,5COA;v=45EP=60REV.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)CHO.T(50,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
M.T(0,40,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)l1^1````e^^^^^^^M=0}
STR CO3={@51,110,0l2COA;v=45CHO=30REV=100EP.W(50,100,!2^4^8,100,0,!8)[[3'`ege"b"g'^^^]'`daf#d"a'^^^]}
STR CO4={@82,110,1@82,110,5l1^1COA;v=45CHO=30REV=100EP=50'`ege'^^^^^^^}
STR CO5={@51,110,0l2COA;v=45EP.W(50,100,!2^4^8,100,0,!8)CHO=50REV=100[8'`ege"b"g'^^^]}
STR CO6={@51,110,0l2COA;v=45CHO=30REV=100EP.W(50,100,!2^4^8,100,0,!8)[[3'`ege"b'^^^]'`daf#d'^^^]}
STR COHH={DL=HAZ;<COH;DL=BGN[CO1]DL=ST1;CO2;DL=ST2;CO3;DL=BK1;CO4;DL=NK1;CO1;DL=BN2;CO5;CO6;}TR=6COHH;TR=7COHH;
/*10*/STR OA={c}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 AAR={}STR AAS={}
STR DDH={SUB{[96rr]FOR(INT A=0;A<63;A++){AAS="TwmChorus(1,64,127,"+(65+A)+",0,0,0)"CuePoint=AAS;r}
CuePoint={"TwmChorus(1,64,127,79,0,0,0)"}}
SUB{FOR(INT A=0;A<127;A++){AAR="TwmParam("+A+",117,110,127)";CuePoint=AAR;rr}}[60O1;rrr][12r]@120,100,2EP=110BR=20p%=-200P=0c#^P=127c#^P=64EP=127
BR=20p%=-1000@1,66,1;CuePoint={"TwmParam(20,117,110,127)"}}
STR DD1={[64O1;rrr]}STR DD1A={[16r][60O1;rrr]}
STR DD2={CuePoint={"TwmParam(20,117,110,127)"}FOR(INT A=0;A<128;A++){AAS="TwmChorus(1,64,127,"+(64-(A/2))+",0,0,0)"CuePoint=AAS;r}CuePoint={"TwmChorus(1,64,127,79,0,0,0)"}
[32O1;r:rr][O1]}STR DD3={[32O1;rrr]EP.T(127,0,!1^1^1^1^1^1^1^1)[32O1;rrr]EP=127}STR DD4={[64O1;rrr]}
TR=10l16DL=HAZ+16V=100BR=20p%=-1000CHO=40@1,66,1DDH;DL=BGN;V=110CHO=30BR=20p%=-1000@1,66,1;DD1;DD1A[DD1]
SUB{FOR(INT A=0;A<128;A++){AAR="TwmParam("+(A)+",117,110,127)";CuePoint=AAR;r}FOR(INT A=0;A<128;A++){AAR="TwmParam("+(127-A)+",117,110,127)";CuePoint=AAR;r}}
DL=BK2;DD2;DD3;O1;DL=BK3+15[12r]@120,100,2EP=110BR=20p%=-200P=0c#^P=127c#^P=64EP=127BR=20p%=-1000@1,66,1;DL=BN2;DD1;DD1A;DD4;
/*11*/STR GR={'c'}STR GA={n44}STR GB={'e'}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={[8[6GR;rGB;r]GR;r[GB]GR;rGB;r]}
STR GG2={[96r][5[6GR;rGB;r]GR;r[GB]GR;rGB;r]}
TR=11l16DL=HAZ;DL=BGN@26BR=20p%=3000@2,88,1q=400EP=100[4GG1]DL=BK2;GG2;GG1;GG1;DL=BN2[3GG1]
/*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 CB1={BR=24SUB{[16l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[32l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}[16p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]}
STR CB2={BR=24SUB{[9l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]}SUB{[18l24n69^n69n70^n69n69^n70n69^n69l16]}[9p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]}
STR CB3={BR=24l16CHO.T(0,127,!1^1^1^1^1^1^1^1)REV.T(0,127,!1^1^1^1^1^1^1^1)
[8[16r]EP.T(30,80,!1)
SUB{l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]CHO=90REV=80}
STR CB4={BR=24EP.T(10,80,!1^1^1^1^1^1^1^1)REV.T(10,127,!1^1^1^1^1^1^1^1)CHO.T(10,127,!1^1^1^1^1^1^1^1)
SUB{[8l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[16l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}[8p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]EP=80CHO=90REV=80}
STR CB5={BR=24l16CHO.T(90,127,!1^1^1^1^1^1^1^1)REV.T(80,127,!1^1^1^1^1^1^1^1)
BR=24SUB{[8l24n86^n86rrn86n86rrn87rrn64^n86n86^n86n86^rn87^rl16]/*[[n86]r]n87rn64[4n86]rn87r]*/}SUB{[16l24n69^n69n70^n69n69^n70n69^n69l16/*[[n69]n70][n69]*/]}
[8p.T(80,127,!2,127,64,!2)n70[4n62][3n61]r[4n62]n60[n61]]}
TR=12l16DL=HAZ+16@1,90,1REV=40EP=80q=10CB1;DL=BGN@1,90,1EP=80q=10REV=80[CB1]n57DL=ST1+7CB2;CB1;DL=BK2;CB3;DL=BK3+8CB4;DL=BN2[CB1]CB5;
/*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=13l1DL=BGN@2,88,1REV=100CHO=50v=100gDL=ST0;fDL=ST2;gDL=BK2;fDL=BK3;fDL=BN2;gDL=ST3;fDL=ST4+16g
/*14*/STR SP1={l4TrackKey=-3@127,110,0REV=20CHO=40EP=100P=44[16"f^^^]TrackKey=K;}
STR SP1B={l4TrackKey=-3@127,110,0REV=20CHO=40EP=100P=44"f^^^TrackKey=K;}
STR SP1A={l4TrackKey=-3@127,110,0REV=20CHO=40EP=100P=44[4"f^^^rrrr][8"f^^^]TrackKey=K;}
STR SP2={l16@3,0REV=40CHO=60EP=80[(8)<P=40'`ebge'^^^P=10'bgeb'^^^y64=127;>MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
STR SP3={l16@3,0REV=40CHO=60EP=80[(4)<P=40'`ebge'^^^P=10'bgeb'^^^y64=127;>MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
STR SP4={l16@3,0REV=40CHO=60EP=80;<P=40'`ebge'^^^P=10'bgeb'^^^>y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16P=40'`ebge'^^^^^^^EP=80y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[12r]y64=0;
y64=127MD({SUB{a^^`d^^l8`f#^^^^l16}HAM({P=70`d^^P=110`f#^^l8P=120`a^^^^l16})},3,!2)l8[12r]y64=0;}
STR SP5={l16@3,0REV=40CHO=60EP=80[(4)<P=40'`ebge'^^^P=10'bgeb'^^^y64=127;>MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
STR SP6={l16@3,0REV=40CHO=60EP=80;<P=40'`ebge'^^^P=10'bgeb'^^^>y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16P=40'`ebge'^^^^^EP=80REV.T(40,120,!1^1^1^1^1^1^1^1)
SUB{ef#g^e^"b^g^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^e^b^'`ebge'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)`e`f#`g^`e^b^`e^'`g`ebe'^^^^^
SUB{b`d`e^b^e^g^}P.T(80,110,!4,110,80,!4,80,100,!2)>gab^g^e^b^<'``e`g`eb'^^^^^
SUB{gab^g^e^f#^}P.T(90,120,!4,120,90,!4,90,110,!2)>`e`f#`g^`e^b^`d^<'``e`bb`g'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)gab^g^e^f#^'bge"g'^^^^^
SUB{ef#g^e^"b^d^}P.T(30,60,!4,60,20,!4,20,40,!2)"bde^"b^"g^"b^'ge"b"g'^^^^^
SUB{ef#g^e^g^b^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^b^`d^'`ebge'^^^^^
SUB{`e`f#`g^`e^`g^`g^}SUB{gab^g^a^b^}P.T(50,100,!4,100,50,!4,50,100,!2)b`d`e^b^`d^`e^}
STR SP7={
EP=100l4'``e`b`e`g'^REV=40EP=85l16
y64=127SUB{e^^f#^^l8g^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^l16})y64=0
SUB{ef#g^e^"b^g^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^e^b^P=10'bge"b'^^^^^^^
y64=127SUB{f#^^g^^l8b^^^l16}HAM({P=60b^^P=100`d^^l8P=110`e^^^l16})y64=0
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)`e`f#`g^`e^b^`e^'`b`g`eb'^^^^^^^
y64=127SUB{<b^^`d^^l8`e^^^l16>}HAM({P=40f#^^P=80g^^l8P=90b^^^l16})y64=0
SUB{b`d`e^b^e^g^}P.T(50,80,!4,80,50,!4,50,110,!2)gab^g^e^b^'``e`g`eb'^^^^^^^
y64=127SUB{e^^"b^^l8"g^^^l16}HAM({P=60`f#^^P=100`d^^l8P=50`e^^^l16})y64=0
SUB{ef#g^e^"b^d^}P.T(30,60,!4,60,20,!4,20,40,!2)"bde^"b^"g^"b^
}
STR SP8={l16@3,0REV=40CHO=60EP=80;<P=40'`ebge'^^^P=10'bgeb'^^^>y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16P=40'`ebge'^^^^^^^EP=80y64=127SUB{e^^f#^^l8g^^^^l16}HAM({P=50f#^^P=90g^^l8P=100b^^^^l16})y64=0;
y64=127SUB{b^^`d^^l8`e^^^^l16}HAM({P=60f#^^P=100g^^l8P=110b^^^^l16})y64=0;
y64=127SUB{g^^a^^l8b^^^^l16}HAM({P=70b^^P=110`d^^l8P=120`e^^^^l16})y64=0;
y64=127MD({SUB{`e^^`f#^^l8`g^^^^l16}HAM({P=80`g^^P=120`a^^l8P=127`b^^^^l16})},4,!2)l8[10r]y64=0;
EP=90P=100'`b`g`eb'P=90'`a`f#`e`c'^^^^^^P=70'`g`e`cg'P=50'`f#`dbf#'^^P=70'`g`e`cg'P=50'`f#`dbf#'^P=40'`dbgd'P=30'`db"g"d'^
l16EP=100P=40'`ebge'^^^^^EP=80REV.T(40,120,!1^1^1^1^1^1^1^1)
SUB{ef#g^e^"b^g^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^e^b^'`ebge'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)`e`f#`g^`e^b^`e^'`g`ebe'^^^^^
SUB{b`d`e^b^e^g^}P.T(80,110,!4,110,80,!4,80,100,!2)>gab^g^e^b^<'``e`g`eb'^^^^^
SUB{gab^g^e^f#^}P.T(90,120,!4,120,90,!4,90,110,!2)>`e`f#`g^`e^b^`d^<'``e`bb`g'^^^^^
SUB{b`d`e^b^g^b^}P.T(60,90,!4,90,60,!4,60,90,!2)gab^g^e^f#^'bge"g'^^^^^
SUB{ef#g^e^"b^d^}P.T(30,60,!4,60,20,!4,20,40,!2)"bde^"b^"g^"b^'ge"b"g'^^^^^
SUB{ef#g^e^g^b^}P.T(40,70,!4,70,30,!4,30,50,!2)gab^g^b^`d^'`ebge'^^^^^
SUB{`e`f#`g^`e^`g^`g^}SUB{gab^g^a^b^}P.T(50,100,!4,100,50,!4,50,100,!2)b`d`e^b^`d^`e^
l4'``e`g`eb'^^^^^^^}
STR SP9={l16@3,0REV=40CHO=60EP=80[(2)P=40'`ebge'^^^P=10'bgeb'^^^y64=127MidiDelay({SUB{e^^f#^^l4g^^[9r]l8rl16}HAM({P=50f#^^P=90g^^l4P=100b^^[9r]l8rl16})},7,!2)y64=0]}
TR=14DL=HAZ;SP1;DL=BGN;SP2;SP3;DL=ST2;SP4;DL=BK1;SP1A;DL=NK1-1SP1B;DL=NK1;SP5;SP6;DL=BN2;SP7;DL=BN2+8SP9;SP8;
/*15*/STR FT1={l4[24"g^^^]}STR FT2={l4[16"g^^^]}STR FT2A={l4rrrr[15"g^^^]}STR FT3={l4[7rrrr][9"g^^^]}STR FT4={l4[8"g^^^]}STR FT5={l4[8"g^^^]}
STR FT6={TrackKey=K;@3,33,4l1REV=127CHO=127EP=70'ceg'^^^TrackKey=-3@127,110,2REV=30CHO=40EP=100}
TR=15DL=HAZ+8TrackKey=-3@127,110,2REV=30CHO=40EP=100FT1;DL=BGN;FT2;FT2A;FT3;FT2;DL=BK1;FT6;DL=BK1+8FT4;DL=BK3;FT2;DL=BN2;FT2;FT2A[FT5]TrackKey=K;
/*16*/STR TS0={@33,90,1l16BR=20p%=1000P.onCycle(!8,0,22,106,127,106,22)}
STR TS1={v=80TS0;CHO=127REV=127n62[n38]r[n40]rn40n62n50n48n47MidiDelay({n45n43n41n36},8,!4)}
STR TS2={P=64@1,100,0BR=20p%=3000v=60EP=127'n39n40n37'EP.T(60,120,!4)[3n38]SUB{n57}n40rrrEP=127'n39n40n37'EP.T(60,127,!4)[3n38]SUB{n57}n40[3n38]}
STR TS3={P=64@1,100,0BR=20p%=3000v=80TS0;EP=127[10r][3n47]rn43r}STR TS4={'n55n46'}
TR=16DL=HAZ+15TS1;DL=BGN-1;TS2;DL=ST0;TS3;DL=ST2-1TS2;DL=BK1-1TS3;DL=BK1;TS4;DL=BK1+15TS1;DL=BK3+7TS3;DL=BN2-1;TS2;DL=ST3;TS3;

}