//	全国のドンキフリークのカーステレオに捧げます。爆音でどうぞ！

INT EST=150PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={D.Q.N. from Don Quijote}Copyright={Cyberhippie}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+35;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,0,0,127,09,0)WIN(07,07,039,00,0,K,074,0,0,120,10,0)WIN(13,13,082,00,0,K,064,0,0,127,09,0)
WIN(02,02,082,00,0,K,044,0,0,100,09,0)WIN(08,08,012,00,0,K,064,0,0,127,09,2)WIN(14,14,082,00,0,K,064,0,0,127,09,0)
WIN(03,03,081,00,0,K,084,0,0,100,10,0)WIN(09,09,012,00,0,K,064,0,0,127,09,2)WIN(15,15,001,00,0,K,000,0,0,127,10,0)
WIN(04,04,083,00,0,K,120,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,001,00,0,0,127,0,0,127,10,0)
WIN(05,05,039,00,0,K,054,0,0,120,10,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,039,00,0,K,074,0,0,120,10,0)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT IT0=1INT IT1=9INT IT2=17INT IT3=25INT HAZ=35INT NK1=43INT NK2=51INT NK3=59INT BK1=67INT HZ2=75INT BK2=83INT HZ3=91
INT NK4=99INT NK5=107INT NK6=115INT HZ4=123INT NK7=131INT BK3=139INT BK4=147INT BK5=155INT BK6=163INT BGN=171INT NK8=179INT NK9=187INT NK10=195
INT HZ5=203INT NK11=211
/*1*/STR MNH={EP=120P=64[12r]@80,0l4BR=120p.T(127,0,!6)`gl16[12r]p=64l24@119,0`a#`g`d#a#gd#l16[12r]@126,4[p.T(127,0,!8)'>cdef<'^][12r]p=64@128,1'<cdefg>'^^^}
STR MNI={@82,1EP=127[32r]P=64q=60l12d#&&"d#P.onCycle(!6,0,127)MidiDelay({d#&&"d#},17,!6)l16[64r]q=100}
STR MN1={@84,0EP=60P=64l16[15rr'a#f#d#'^r'a#f#d#'^'a#f#d#'][8r]}STR MN2={@6,8P.onCycle(!6,0,127)l16EP=100MD({<[8[3'a#f#d#'^r]r:[3'a#f#d#'^]]>},1,!16)[6r]}
STR MN3={@6,8P.onCycle(!6,0,127)EP=100q.T(90,300,!1^1^1^1^1^1^1^1)MD({<[8[3'a#f#d#'^r]r[3'a#f#d#'^]]>},2,!16)q=90}
STR MN4={@103,1P=64l16EP=100MidiDelay({[8[10r]['d#f#a#']'g#d#"a#'r'd#f#a#'r]},2,!12)}
STR MN5={@91,0P.onCycle(!6,0,127)l16EP=100MD({[8[3'a#f#d#'^r]r:[3'a#f#d#'^]]},3,!16)[6r]}
STR MN5A={@91,0P.onCycle(!6,0,127)l16EP=100MD({[8[3'a#f#d#'^r]r[3'a#f#d#'^]]},3,!16)[6r]}
STR MN6={@82,1P.onCycle(!6,0,127)l16EP=100MD({[4[3'a#f#d#'^r]r[3'a#f#d#'^]]},3,!16)}
STR MN6A={@82,1P.onCycle(!6,0,127)l16EP=100MD({[8[3'a#f#d#'^r]r[3'a#f#d#'^]]},3,!16)}
STR MN7={@82,1P.onCycle(!6,0,127)l16EP=100MD({[8[3'a#f#d#'^r]r[3'a#f#d#'^]]},3,!16)}
STR MN8={@82,1P.onCycle(!6,0,127)l16EP=100MD({[7[3'a#f#d#'^r]r[3'a#f#d#'^]]},3,!16)[16r]}
STR MN9={@82,1P.onCycle(!6,0,127)l16EP=100MD({[7[3'a#f#d#'^r]r[3'a#f#d#'^]]},3,!16)@82,8MD({[3'a#f#d#'^r]r[3'a#f#d#'^]},3,!16)}
STR MN10={@82,0EP.T(0,127,!1^1^1^1^1^1^1^1)P=64MD({[["a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]["a#d#fa#"a#fa#`c#"a#a#`c#`f`c#a#fc#]]},2,!24)}
TR=1l16DL=IT0;MNI;DL=IT2;MNI;DL=IT3;MNH;DL=NK1;MN1;MN2;MN3;MN4;DL=HZ2;MN5;MN6;DL=NK4;MN8;MN7;MN9;DL=HZ4;MNI;DL=BK3;MNI;DL=BK5;MNI;DL=BK6;MNH;DL=BGN;MNI;
DL=NK8;MN10;DL=HZ5;MN6A;MN5A;
/*2&3*/STR RTA={BR=10If(CH==2){p%=100}Else{p%=-100}}STR RTB={BR=10If(CH==2){p%=50}Else{p%=-50}}STR RTC={BR=10If(CH==2){p%.T(10,100,!1^1^1^1)}Else{p%.T(-10,-100,!1^1^1^1)}}
STR RTH={@81,1EP.T(0,127,!1^1^1^1^1^1^1^1)RTA[14rr'a#f#d#'^r'a#f#d#'^'a#f#d#']@82,1rr'a#f#d#'^r'a#f#d#'^'a#f#d#'[8r]}
STR RTI={@82,1RTA;MD({[15rr'a#f#d#'^r:'a#f#d#'^'a#f#d#']},1,!8)'a#f#d#'^'a#f#d#'rrEP=100@82,0RTB'a#f#d#'^r'a#f#d#'^'a#f#d#'EP=127}STR RTJ={@82,1RTA;MD({[16rr'a#f#d#'^r'a#f#d#'^'a#f#d#']},1,!8)}
STR RTL={@82,1EP.T(0,127,!1^1^1^1)RTC;MD({[8'a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^]},1,!8)MD({[4'a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^][16'a#f#d#']},1,!8)"a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#}
STR RTM={@82,1RTA;EP=110MD({[16'a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^]},1,!8)}
STR RTN={@82,1RTA;EP=110MD({[14'a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^]},1,!8)MidiDelay({@81,1['a#f#d#''a#f#d#'^:'a#f#d#'^^'a#f#d#'^]'a#f#d#'},2,!32)rrrr}
STR RTO={@82,1RTA;EP=110MD({[14'a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^]},1,!8)MidiDelay({@82,0['a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^]},2,!32)}
STR RTP={@81,1RTA;EP.T(0,127,!1^1^1^1^1^1^1^1)MD({[8"a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]},2,!24)}
STR RTU={@82,1RTA;EP.T(40,100,!1^1^1^1^1^1^1^1)q.T(0,100,!1^1^1^1^1^1^1^1)[7MidiDelay({'a#f#d#'^^^},6,!8)[12r]][16r]EP=127q=100}
STR RTQ={@81,1RTA;MD({[["a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]["a#d#fa#"a#fa#`c#"a#a#`c#`f`c#a#fc#]]},2,!24)}
STR RTR={@82,8RTA;q.T(0,100,!1^1^1^1^1^1^1^1)[8"a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]q=100}
STR RTS={@82,0RTA;EP=110[4"a#d#f#a#"a#f#a#`d#"a#a#`d#`f#rrrr][4"a#d#f#a#"a#a#`d#`f#][8"a#d#`d#`f#]EP=127}
STR RT1={@82,1RTA;MD({[["a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]["a#d#fa#"a#fa#`c#"a#a#`c#`f`c#a#fc#]]},2,!24)}
STR RT2={@82,8RTA;MD({[["a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]["a#d#fa#"a#fa#`c#"a#a#`c#`f`c#a#fc#]]},4,!24)}
STR RT3={@82,8RTA;MD({[["a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]:["a#d#fa#"a#fa#`c#"a#a#`c#`f`c#a#fc#]]"a#d#fa#"a#fa#`c#"a#a#`c#`f`c#a#fc#},4,!24)MidiDelay({@82,0['a#f#d#''a#f#d#'^'a#f#d#'^^'a#f#d#'^]},2,!32)}
STR RRF={l16DL=IT1;RTQ;RTR;RTS;DL=NK1;RTH;RTI;RTJ;DL=BK1;RTU;DL=BK2;RTL;DL=HZ3[RTM:RTN]RTO;DL=NK7;RTP[RTQ]RTR;RTS;DL=BGN[RT1]RT2;RT3;}TR=2RRF;TR=3RRF;
/*5&6*/STR BSA={BR=10If(CH==5){p%=100}Else{p%=-100}}
STR BSB={BR=10If(CH==5){p%=50}Else{p%=-50}}STR BSZ={BSA@82,1[4[3d#`d#`d#`d#]rrrr][8d#`d#`d#`d#][16d#`d#]}
STR BSH={BSB@82,1[14d#^`d#d#^`d#d#^]BR=20`d#^^^^^^&&d#[8r]}STR BSI={BSB@82,1[14d#^`d#d#^`d#d#^][8r][4d#]BR=20``d#^^&&`d#}
STR BSJ={BSB@82,1[15d#d#`d#d#d#`d#d#d#][8r]}STR BSK={BSB@82,1[16d#d#`d#d#d#`d#d#d#]}
STR BSL={BSB@82,1BR=24``d#&&`d#P.onCycle(!6,0,127)v=60MidiDelay({``d#&&`d#},32,!6)[124r]If(CH==5){P=54}Else{P=74}v=120p=64}
STR BSM={BSB@82,1[15d#d#`d#d#d#`d#d#d#][8r]}STR BSM2={BSB@82,1[16d#d#`d#d#d#`d#d#d#]}STR BSN={BSB@82,1[8d#d#`d#d#d#`d#d#d#]}STR BSN2={BSB@82,1[16d#d#`d#d#d#`d#d#d#]}
STR BSO={BSB@82,1[[4d#`d#`d#`d#]["bbbb]["a#a#a#a#][4d#`d#`d#`d#]:["bbbb][c#`c#`c#`c#]][8r][4d#]BR=20``d#^^&&`d#}
STR BSP={BSB@82,1[[4d#`d#`d#`d#]["bbbb]["a#a#a#a#][4d#`d#`d#`d#]:["bbbb][c#`c#`c#`c#]][16r]}
STR BSQ={BSB@39,0[7d#r`d#^d#r`d#^d#rrrd#rd#r]d#r`d#^d#r`c#^^^^^^^^&&`d#}STR BSR={BSB@39,0[8d#r`d#^d#r`d#^d#rrrd#rd#r]}
STR BS1={BSA@82,1[32d#`d#`d#`d#]}STR BS2={[[4d#`d#`d#`d#]["bbbb]["a#a#a#a#][4d#`d#`d#`d#]["bbbb][c#`c#`c#`c#]]}
STR BS3={BSB@82,1[[4d#`d#`d#`d#]["bbbb]["a#a#a#a#][4d#`d#`d#`d#]:["bbbb][c#`c#`c#`c#]][12r]BR=20``d#^^&&`d#}
STR BASS={l16<<<HAM({DL=IT0;EP.T(0,100,!1^1^1^1^1^1^1^1)BSQ;BSR;DL=IT3;BSZ;DL=HAZ;EP=90q=95BSH;EP=95q=97BSI;EP=100q=100BSJ;BSK;BSL;DL=HZ2;BSM;BSN;DL=HZ3;EP=110[BS2:BSO]BSP;
DL=HZ4;EP=90BSQ;BSR;DL=BK6;BSZ;DL=BGN;EP=110[BS1]BS2;BS3;DL=HZ5;BSN2;BSM2;})}TR=5BASS;TR=6BASS;
/*4&7*/STR SRA={BR=10If(CH==4){p%=100}Else{p%=-100}}STR SRB={BR=10If(CH==4){p%.onCycle(!8,10,20,30,40,50,60,70,80,70,60,50,40,30,20)}Else{p%.onCycle(!8,-10,-20,-30,-40,-50,-60,-70,-80,-70,-60,-50,-40,-30,-20)}}
STR SRH={SRB;@39,8q.T(0,100,!1^1^1^1^1^1^1^1)EP=90SUB{[128"d#]}[8d#`d#d#d#d#d#d#d#d#f#a#d#d#d#`d#d#]q=100}
STR SRI={SRB;@39,8EP=90[4SUB{[12"d#]}d#`d#d#d#d#d#d#d#d#f#a#d#rrrr][4SUB{[8"d#]}d#`d#d#d#d#d#d#d#][8SUB{[4"d#]}d#`d#d#d#]q=100}
STR SRJ={SRA@82,1EP=90[7[10r]MidiDelay({'d#'^^^},7,!12)rr][16r]}STR SRK={SRA@82,1EP=100[8[10r]MidiDelay({'d#'^^^},7,!12)rr]}
STR SR1={@82,8SRA;EP=110M.W(0,100,!16)P.onCycle(!12,32,96)q.T(0,100,!1^1^1^1^1^1^1^1)[8d#^`d#^d#`d#^d#`f#^f#`f#^f#`a#^]q=100p%=0}
STR SR2={<If(CH==4){@82,1EP=100}Else{@39,8EP.T(0,127,!1^1^1^1^1^1^1^1)}q.T(0,100,!1^1^1^1^1^1^1^1)SUB{[120"d#]}[8d#`d#`d#`d#`d#`d#d#d#:d#f#a#`d#d#d#`d#d#][8r]>q=100}
STR SR3={SRB;@39,8q.T(0,100,!1^1^1^1^1^1^1^1)EP=90SUB{[120"d#]}[8d#`d#d#d#d#d#d#d#:d#f#a#d#d#d#`d#d#][8r]q=100}
STR SR3A={SRB;@39,8q.T(0,100,!1^1^1^1^1^1^1^1)EP=90SUB{[128"d#]}[8d#`d#d#d#d#d#d#d#d#f#a#d#d#d#`d#d#]q=100}
STR SR4={SRB;@39,8EP=80SUB{[64"d#]}[4d#`d#d#d#d#d#d#d#d#f#a#d#d#d#`d#d#]}
STR SR4A={SRB;@39,8EP=80SUB{[128"d#]}[8d#`d#d#d#d#d#d#d#d#f#a#d#d#d#`d#d#]}
STR SR5={@39,8EP=70P.onCycle(!12,32,96,16,112,64)[8'`d#a#f#'^rr[4'`d#a#f#'^r]]}
STR SR6={@39,8EP=70P.onCycle(!12,32,96,16,112,64)[7'`d#a#f#'^rr[4'`d#a#f#'^r]][16r]}
STR SR7={@39,8EP=70P.onCycle(!12,32,96,16,112,64)['`d#a#f#'^rr[4'`d#a#f#'^r]'`d#bf#'^rr'`d#bf#'^r[3'`d#a#f'^r]'`d#a#f'^rr[4'`d#a#f'^r]'`d#bf'^rr'`d#bf'^r[3'`c#a#f'^r]]}
STR SR8={@39,8EP=70P.onCycle(!12,32,96,16,112,64)['`d#a#f#'^rr[4'`d#a#f#'^r]'`d#bf#'^rr'`d#bf#'^r[3'a#f#d#'^r]'`c#a#f'^rr[4'`c#a#f'^r]:'`d#bf'^rr'`d#bf'^r[3'`c#a#f'^r]]}
STR SSRR={l16<DL=IT0;SRJ;SRK;DL=IT2;SRH;DL=IT3;SRI;DL=NK3;SR1;SR2;DL=HZ2;SR3;SR4;DL=HZ3[SR5;SR6]DL=HZ4;SRJ;SRK;DL=BK4;SRK;DL=BK5;SRH;SRI;DL=BGN[SRK]DL=NK10;SR8;DL=HZ5;SR4A;SR3A;}TR=4SSRR;TR=7SSRR;
/*8&9*/STR YTA={If(CH==8){@79,0}Else{@80,0}}STR YT01={l4BR=30p.W(65,0,!24)YTA;q=30'c'}STR YT0={l4BR=30p.W(65,0,!24)YTA;q=30'c'rrrEP.T(0,127,!1^1^1^1^1^1^1)[28'c']}
STR YTH={l4BR=30p.W(65,0,!24)YTA;q=30[28'c']rrrr}STR YTI={l4BR=30p.W(65,0,!24)YTA;q=30[28'c']rrrr}
STR YTK={l4BR=30p.W(65,0,!24)YTA;q=30[32'c']}STR YTL={l4BR=30p.W(65,0,!24)YTA;q=30[30'c']rr}STR YT1={l4BR=30p.W(65,0,!24)YTA;q=30[32'c']}
STR YTJ={l4BR=30p.W(65,0,!24)YTA;q=30[28'c']rrrr}STR YTM={l4BR=30p.W(65,0,!24)YTA;q=30[30'c']rr}STR YTN={l4BR=30p.W(65,0,!24)YTA;q=30[16'c']}
STR YTO={l4BR=30p.W(65,0,!24)YTA;q=30[32'c']}STR YTP={l4BR=30p.W(65,0,!24)YTA;q=30[28'c']rrrr}STR YTQ={l4BR=30p.W(65,0,!24)YTA;q=30[29'c']rrr}STR YTR={l4BR=30p.W(65,0,!24)YTA;q=30[32'c']}
STR KIKK={DL=IT0;V=127YT01;DL=IT2;YT0;YT1;DL=HAZ;YTH;YTI;YTJ;YTK;YTL;DL=HZ2;YTM;YTN;DL=HZ3[YTO;YTP]DL=HZ4;YTQ;YTR;DL=BK5;YT0;YTO;
DL=BGN[3YT1]YTI;DL=HZ5;YT1;YTM;}TR=8KIKK;TR=9KIKK;
/*10*/STR OA={n27n32n35}STR O1={OA}STR O2={n38n40OA}STR O3={n49}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 J1={'n27n32n35n36'}STR J4={'n27n32n35n36n40'}STR JJJ={[SUB{[32n42r]}[J1;rrrJ4;rJ1;rrrJ4;rJ1;J4;rJ4:[J1;r]J4;rJ1;rrrJ1;rJ4;r[J4]][J1;r]J4;r[J1;J4]J4;rJ1;r[J4]]}
STR DD0={EP.T(0,127,!1^1^1^1^1^1^1^1)@9JJJ@17JJJ}STR DDZ={'n27n32n35'^^^[12r]EP.T(0,127,!1^1^1^1^1^1^1)[28'n27n32n35'^^^]}
STR DDX={[32'n27n32n35'^^^]}STR DDH={[29'OA'^^^][12r]}STR DDI={[29'OA'^^^]rrrr[3'OA']r'OA'rr'OA'}STR DDJ={[30'n27n32n35'^^^][8r]}STR DDK={[32'n27n32n35'^^^]}STR DDL={[30'n27n32n35'^^^][8r]}
STR DD1={[32'n27n32n35'^^^]}STR DDM={[16'n27n32n35'^^^][[7'n27n32n35'^]['n27n32n35']][16'n27n32n35']}STR DDN={[32'n27n32n35'^^^]}STR DDO={[28'n27n32n35'^^^][16r]}
STR DDP={[29'n27n32n35'^^^][12r]}STR DDQ={[32'n27n32n35'^^^]}
STR DDR={[6'n27n32n35n36'^]'n27n32n35n36'rrr['n27n32n35n36'^]['n27n32n35n36'][3'n27n32n35n36'^]'n27n32n35n36'rrr['n27n32n35n36'][5'n27n32n35n36'^]'n27n32n35n36'rrr[8'n27n32n35n36']['n27n32n35n36'^]'n27n32n35n36'rrr
[32'n27n32n35n36']l24[4[4'n27n32n35n36']r'n27n32n35n36']l16[16'n27n32n35n36']}
TR=10l16DL=IT0;V=127@26BR=40p.W(32,0,!16)'n27n32n35'^^^DL=IT2;V=127@26BR=40p.W(32,0,!16)DDZ;DDX;DL=HAZ@26BR=40p.W(32,0,!16)V=127;DDH;DDI;DDJ;DDK;DL=HZ2;DDL;DDM;DL=HZ3[DDN;DDO]DL=HZ4;DDP;DDQ;'n27n32n35'^^^
DL=BK5;DDZ;DL=BK6;DDR;DL=BGN @26BR=40p.W(32,0,!16)[3DD1]DDO;DL=HZ5[DD1]
/*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 GGZ={EP=100[4n49[15r]][4n49[7r]][8n49rrr]EP=80}
STR GGH={[30n42rn46n46][8r]}STR GGI={[32n42rn46n46]}STR GGJ={[30n42rn46n46][8r]}STR GGK={[16n42rn46n46]}STR GGL={[32n42rn46n46]}STR GGM={[28n42rn46n46][16r]}STR GG1={[32n42rn46n46]}
TR=11l16DL=IT0;BR=20p%=-100SUB{O3}DD0;DL=IT2;O3;DL=IT3;BR=20p%=5000EP=80GGZ;DL=HAZ@25BR=20p%=5000EP=80O3;DL=HAZ+8SUB{O3}DL=NK2;BR=20p%=5000EP=80SUB{O3}GGH;SUB{O3}GGI;O3;DL=HZ2;BR=20p%=5000EP=80SUB{O3}GGJ;GGK;
DL=HZ3;BR=20p%=5000EP=80[SUB{O3}GGL;GGM]DL=HZ4;SUB{O3}DL=NK7;SUB{O3}DL=BK3;O3;DL=BK4;O3;DL=BK5;O3;DL=BK6;GGZ;DL=BGN;BR=20p%=5000EP=80[3SUB{O3}GG1]GGM;DL=HZ5;BR=20p%=5000EP=80[SUB{O3}GG1]O3;
/*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 HHA={rrrrEP=127'n55n28n39'rEP=0rr}STR HH0={EP.T(0,80,!1^1^1^1^1^1^1^1)MD({@9JJJ@17JJJ},3,!16)EP=127}
STR HHZ={[16HHA]}STR HHI={l16[15HHA][8r]}STR HHJ={l16[16HHA]}STR HHK={l16[15HHA][8r]}STR HHL={l16[15HHA][8r]}STR HHM={l16[8HHA]}
STR HH1={l16[16HHA]}STR HHH={l16[14HHA]EP=127n49[11r]'n38n54''n38n54'r'n38n54'}STR HHN={l16[16HHA]}STR HHO={l16[14HHA][16r]}STR HHP={l16[16HHA]}
STR HHQ={[12HHA]EP=127[7'n55n28n39'r]['n55n28n39'][16'n55n28n39']}
TR=12l16DL=IT0;BR=20p%=100SUB{O3}HH0;DL=HAZ+8@17BR=20p%=4500HHH;HHI;HHJ;DL=IT3;HHZ;DL=NK2;HHK;DL=HZ2;HHL;HHM;DL=HZ3[HHN;HHO]DL=NK7@17BR=20p%=4500HHP;DL=BK6;HHQ;DL=BGN@17BR=20p%=4500[3HH1]HHO;DL=HZ5;HH1;
/*13&14*/STR WDA={BR=10If(CH==13){p%.T(0,50,!1^1^1^1^1^1^1^1)}Else{p%.T(0,-50,!1^1^1^1^1^1^1^1)}}STR WDB={BR=20If(CH==13){p%.T(0,50,!1^1^1^1^1^1^1^1)}Else{p%.T(0,-50,!1^1^1^1^1^1^1^1)}}
STR WDC={BR=50If(CH==13){p%.T(0,50,!1^1^1^1^1^1^1^1)}Else{p%.T(0,-50,!1^1^1^1^1^1^1^1)}}STR WDH={l2WDA@53,0q=100EP=60'a#f#d#'^^^'a#fc#'^^^'bf#d#'^^^'`c#a#c#'^'a#f#c#''g#fc#'}
STR WDI={l2WDB@53,0q=100EP=60'a#f#d#'^^^'a#fc#'^^^'bf#d#'^^^'`c#a#d#'^'a#f#c#''g#fc#'}
STR WDJ={l1WDC@85,0EP.T(50,90,!1^1^1^1^1^1^1^1)BR=32d#^^^^^^^}
STR WDK={P=0If(CH==14){l32rP=127}@117,0l16BR=24EP=127[8r]brrbbrbbEP=80MidiDelay({brrbbrbb},8,!2)[64r]P=64}
STR WD1={l16WDA;EP.T(10,90,!1^1^1^1^1^1^1^1)@108,8MidiDelay({[8[10r]['d#f#a#']'g#d#"a#'r'd#f#a#'r]},2,!12)}
STR WD2={l16WDA;EP=110@17,16MidiDelay({[7[10r]['d#f#a#']'g#d#"a#'r'd#f#a#'r]},2,!12)[10r]@82,0EP=80HAM({['d#f#a#']'g#d#"a#'r'd#f#a#'^})}
STR WD2A={l16WDA;EP=110@17,16MidiDelay({[8[10r]['d#f#a#']'g#d#"a#'r'd#f#a#'r]},2,!12)[10r]}
STR WD3={l16WDA;EP=120@82,8MidiDelay({[4[10r]['d#f#a#']'g#d#"a#'r'd#f#a#'r]},2,!12)}
STR WD3A={l16WDA;EP=120@82,8MidiDelay({[8[10r]['d#f#a#']'g#d#"a#'r'd#f#a#'r]},2,!12)}
STR WD3B={l16WDA;EP=120@82,8MidiDelay({[8[10r]['d#f#a#']:'g#d#"a#'r'd#f#a#'r]},2,!12)'g#d#"a#'r'd#f#a#'r}
STR WD4={l16@81,1EP=90q=100WDB[8"a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]}STR WD5={l16@82,8EP=90q=100WDB[7"a#d#f#a#"a#f#a#`d#"a#a#`d#`f#`d#a#f#d#]}
STR SSSG={DL=IT0;WDH;WDI;WDJ;DL=HAZ-1WDK;DL=BK1;WD1;DL=HZ2;WD2;WD3;DL=NK5;WD4;WD5;DL=NK7;WD3B;WDH;WDI;WDJ;DL=NK9;WDH;DL=HZ5;WD3A;WD2A;}TR=13SSSG;TR=14SSSG;
/*15&16*/STR BG={If(CH!=15){l64r}}STR BG0={@128,3l2EP=100BR=40p.T(64,0,!1^1^1)'ce'^^^^^^}STR BG1={@126,1l2BR=50v=80EP.T(20,80,!1^1^1^1^1^1^1^2)p.T(30,127,!1^1^1^1^1^1^1^2)'cg'^^^^^^^^^^^^^rrrp=64v=127}
STR BG2={@123,3l1EP.T(70,127,!1^1^1^1^1^1^1^1)p=64``c^^^^^^^}STR BG3={@126,1l1BR=50v=90EP.T(20,80,!1^1^1^1^1^1^1^1)p.T(30,127,!1^1^1^1^1^1^1^1)'cg'^^^^^^^p=64v=127}
STR BG4={@120,0l4EP.T(10,110,!1)p=64c^^^EP=127}STR BG5={@123,1l1EP.T(40,100,!1^1^1^1)BR=16p.T(30,127,!1^1^1^1)'cde'^^^EP=127}
STR BG6={@126,5l2BR=48p.T(64,127,!1^1^1^2)EP.T(40,100,!1^1^1^2)q=100"d#^^^^^^EP=127}STR BG7={@82,1l2BR=48p.T(64,127,!1^1^1)EP.T(40,100,!1^1^1)q=100"d#^^^^^EP=127}
STR BG8={@123,1l1EP=90BR=16p.T(127,30,!1^1^1^1^1^1^1^1)'cde'^^^^^^^EP=0}STR BG9={@123,1l1EP=110BR=16q=100p.T(127,30,!1^1^1^1^1^1^1^1)'c'^^^^^^^EP=127}
STR BGMM={V=127DL=IT0;BG;BG0;DL=IT1;BG;BG2;DL=IT2;BG;BG0;DL=IT2+7BG;BG4;DL=IT3;BG;BG3;BG0;DL=NK1;BG;BG1;DL=NK3+4BG;BG5;BG0;DL=BK1+4BG;BG6;DL=BK2+4BG;BG7;
DL=NK7+4BG;BG5;BG0;DL=BK4;BG;BG2;DL=BK5;BG;BG0;DL=BK5+7BG;BG4;DL=BK6;BG;BG3;BG0;DL=NK8;BG;BG8;DL=NK10+4BG;BG7;DL=NK11;BG;BG9;BG0;}TR=15BGMM;TR=16BGMM;