INT SELECTRACK		=		1	//	1 or 2


							//	1: Was ist Musiktheorie?
							//		https://www.youtube.com/watch?v=883NoJD_b2I
							//
							//	2: 246
							//		https://www.youtube.com/watch?v=Ch2py0r3T10
							//
							//	for Microsoft GS Wavetable SW Synth
							//


If(SELECTRACK==1){
STR DBG={}
INT EST=123PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={Was ist Musiktheorie?}Copyright={"PMR (2015)"}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,082,00,0,K,030,0,0,060,10,0)WIN(07,07,039,08,0,K,000,0,0,100,09,0)WIN(13,13,119,00,0,0,020,0,0,127,10,0)
WIN(02,02,082,00,0,K,097,0,0,060,10,0)WIN(08,08,012,00,0,K,010,0,0,080,10,2)WIN(14,14,082,00,0,K,107,0,0,127,10,0)
WIN(03,03,081,00,0,K,020,0,0,100,10,0)WIN(09,09,012,00,0,K,117,0,0,080,10,2)WIN(15,15,003,00,0,K,000,0,0,127,10,0)
WIN(04,04,083,00,0,K,107,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,127,0,0,127,10,0)
WIN(05,05,035,00,0,K,064,0,0,120,09,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,0,0,070,10,0)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
//INT VERB=50FOR(INT A=0;A<16;A++){TR=(A+1);REV=50TR=5V=127CHO=127TR=10V=127CHO=127} /*for DEBUG*/
INT HAZ=1INT ST0=17INT HZ2=33INT ST1=49INT ST2=65INT ST3=81INT BGN=97INT ST4=113INT ST5=129INT HZ3=145INT BK0=161INT BN2=177INT ST6=193INT ST7=209INT END=225
/*1&2*/STR BB={BR=6If(CH==1){p%=150}Else{p%=-150}}STR BBA={BR=6If(CH==1){p%=250}Else{p%=-250}}
STR BB1={BBA@81,8q=60v=55[8[5r]EP.T(30,90,!8)"d#^r]}STR BB2={BB@82,1q=60v=60[8[5r]EP.T(30,90,!8)"d#^r]}STR BB3={BB@127,1q=60v=70[8[5r]EP.T(30,90,!8)d#^r]}
STR BBHH={l8<DL=ST0[BB1][BB2]DL=ST2[BB3]DL=ST3+8BB1;DL=BGN+8[BB1]BB2[BB3]DL=HZ3;BB1[3BB2]DL=BN2[4BB3][BB2][BB1]}TR=1BBHH;TR=2BBHH;
/*3&4*/STR RT1={@29BR=10If(CH==3){p%=200}If(CH==4){p%=-200}EP=40q=70[8rrrrrrrrd#^^rd#a#`d#d#]}
STR RT2={@29BR=10If(CH==3){p%.T(200,500,!1^1^1^1^1^1^1^1,500,-1000,!1^1^1^1)}If(CH==4){p%.T(-200,-500,!1^1^1^1^1^1^1^1,-500,1000,!1^1^1^1)}
EP=40q=70[7rrrrrrrrd#^^rd#a#`d#d#]rrrrrrrrd#^^rMidiDelay({d#a#`d#d#},16,!4)}
STR RRF={l16<<DL=ST2+8[3RT1]DL=BGN[3RT1]RT2;DL=BN2[3RT1]RT2}TR=3RRF;TR=4RRF;
/*5*/STR BSH={[8EP=70"d#^^^^^EP=60"d#^rrr"d#EP=70"e^^^EP=60"d#^^^^^^rrrrrrrrr]}
STR BS1={[8EP=70"d#^^^^^EP=60"d#^rrr"d#EP=70"e^^^EP=60"d#&&^^^^d#^^rrrrrrrr]}
TR=5l32<<DL=HZ2[4BSH][BS1][BSH]DL=BGN;DBG[6BS1]DL=HZ3[BSH][BS1]DL=BN2[6BS1][BSH]
/*6*/STR COH={@1EP=50BR=24l4[p.W(64,64,!2,64,127,!4,127,64,!4)'gd"a#'^^^'d#"a#"g'^^^p.T(64,64,!2,64,127,!2,127,0,!1)'d"a"f'^^^^^^^]}
STR COI={@1EP=50BR=24l4[p.W(64,64,!2,64,127,!8,127,64,!8)'gd"a#'^^'c"a"f#''d#"a#"g'^^'"a#"f#"d#'p.T(64,64,!2,64,127,!2,127,0,!1)'d"a"f'^^^^^^^]
[p.W(64,64,!2,64,127,!8,127,64,!8)'gd"a#'^^'c"a"f#''d#"a#"g'^^'"a#"f#"d#'p.T(64,64,!2,64,127,!2,127,0,!2)'d"a"f'^^^^^:l8EP.T(0,50,!2)p=64[4'ad#"a#"f#']l4]
l8>EP.T(0,50,!2)p=64[4'ad#"a#"f#']l4<}
STR COJ={@1EP=50BR=12l4>[p.W(64,64,!2,64,127,!4,127,64,!4)'gd"a#'^^^'d#"a#"g'^^^p.T(64,64,!2,64,127,!2,127,0,!1)'d"a"f'^^^^^^^]
[p.W(64,64,!2,64,127,!8,127,64,!8)'gd"a#'^^'c"a"f#''d#"a#"g'^^'"a#"f#"d#'p.T(64,64,!2,64,127,!2,127,0,!2)'d"a"f'^^^^^:l8EP.T(0,50,!2)p=64[4'ad#"a#"f#']l4]
l8EP.T(0,50,!2)p=64[4'ad#"a#"f#']l4<}
STR COK={@1EP=55BR=12l4>[p.W(64,64,!2,64,127,!8,127,64,!8)'gd"a#'^^'c"a"f#''d#"a#"g'^^'"a#"f#"d#'p.T(64,64,!2,64,127,!2,127,0,!2)'d"a"f'^^^^^:l8EP.T(0,50,!2)p=64[4'ad#"a#"f#']l4]
l8EP.T(0,50,!2)p=64[4'ad#"a#"f#']l4<}
STR CO1={l16>@1BR=24[4EP=60'ad#"a#"f#'^^p.T(64,64,!2,64,127,!1)EP=50'gd#"b"g#'^^^^^^^^^^^^^^^^^^^^^^^^^^^^p=64]<}
STR CO2={l16>@1BR=24v.T(70,0,!1^1^1^1^1^1^1^1)[4EP=60'ad#"a#"f#'^^p.T(64,64,!2,64,127,!1)EP=50'gd#"b"g#'^^^^^^^^^^^^^^^^^^^^^^^^^^^^p=64]<}
TR=6DL=HAZ+8P.onCycle(!8,32,96,74)COH;COI[CO1]DL=ST3;COJ;DL=BGN;DBG[6CO1]DL=BN2+8COK[4CO1]CO2;
/*7*/STR HT1={l32P=64EP=40P.onCycle(!16,44,84)HAM({[8a#^^^^^^`a#e^^^^^^a#a#^^^a#^^a#^^^^e^^^]})}
TR=7DL=ST1@118,0;<<[6HT1]DL=BGN;DBG[8HT1]DL=BN2[8HT1]
/*8&9*/STR SR={BR=6If(CH==8){p%=200}Else{p%=-200}}STR SR1={SR@52,0l1EP=17'"b"g#'^^^^^^^^^^^^^^^}
STR SR2={@52,0l1EP.T(10,25,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)SR'bg#'^^^^^^^^^^^^^^^}
STR SR3={SR@52,0l1EP.T(25,17,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)'bg#'^^^^^^^^^^^^^^^}
STR SR4={SR@52,0l1EP=17'"b"g#`b`g#'^^^^^^^^^^^^^^^}STR SR5={SR@52,0l1EP=17'"b"g#'^^^^^^^}
STR ULMR={DL=HZ2[SR1]DL=ST3[3SR1]DL=BK0;SR2;DL=BN2;SR3;SR4;DL=ST7+8SR5;SR1;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n36}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDH={EP=80[32O1;rrr]}STR DD1={EP=80SUB{[16rrrr'n39'rrr]}[32O1;rrr]}STR DD2={EP=80[16rrrr'n39'rrr]}STR DD3={EP=50n49[15r]EP=80SUB{[14rrrr'n39'rrr]}[28O1;rrr]}
TR=10l16DL=HAZ+8@9BR=20p%=-700[3DDH]DL=ST1;DDH[5DD1]DL=BGN@9BR=20p%=-700DBG[6DD1]DL=HZ3[DDH]DL=BK0;EP=50n49DL=BK0+8DD2;DL=BN2[4DD1]DL=ST7;DD3[3DD1]EP=50l1n49^^
/*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 GG1={@26[32rrn33r]}STR GG2={[32rrn42r]}
TR=11l16DL=ST0;BR=20p%=6000P=0[GG1]DL=HZ2+8[3GG1]DL=ST2+8[3GG1]DL=BGN;BR=20p%=6000P=0DBG[6GG1]DL=HZ3[GG1][GG2]DL=BN2[6GG2][GG1]
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={@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 JJA={l24[8EP=60n53rrEP=30n53rEP=50n53]EP=55}STR JJB={l24[8EP=60n51rrEP=30n51rEP=50n51]EP=55}STR JJC={l24[8EP=60n59rrEP=30n59rEP=50n59]EP=55}
STR JJD={l16SUB{[16r]l24[4EP=60n59rrEP=30n59rEP=50n59]EP=55}l24[8EP=60n51rrEP=30n51rEP=50n51]EP=55}STR JJH={l16l24[24rrrrn85rrr]}STR JJI={l16SUB{[32rr'n44n42'r]}l24[24rrrrn85rrr]}
STR JJJ={l16SUB{[32rr'n44n42'r]}l24SUB{[24rrrrn85rrr]}[64n70rn70]}
STR JJ1={l16SUB{[16rrrrl64r'n28'rrl16rrr]}SUB{[32rr'n44n42'r]}l24SUB{[24rrrrn85rrr]}[64n70rn70]}
STR JJ2={l16SUB{[16rrrrl64r'n28'rrl16rrr]}SUB{[32rr'n44n42'r]}l24SUB{[24rrrrn85rrr]}[(56*3)r][8n70rn70]}
STR JJ3={l16SUB{[16r][14rrrrl64r'n28'rrl16rrr]}SUB{[32rr'n44n42'r]}l24SUB{[24rrrrn85rrr]}[64n70rn70]}
TR=12l16DL=HAZ;EP=55@9BR=20p%=5000P=127JJH[JJI]JJJ;DL=HZ2;BR=20p%=5000P=127SUB{l16[96r]JJA}JJI;JJJ;JJJ;JJ1;
DL=ST2;SUB{JJB;l16[32r]JJA}JJ2[JJ1]SUB{JJC}JJ1;DL=BGN;EP=60@9BR=20p%=5000P=127DBG[JJ1]SUB{JJA}[3JJ1]SUB{JJB;l16[32r]JJC}JJ1;
DL=HZ3;JJH;JJI;JJJ;SUB{l16[64r][JJA]}SUB{l16[96r]JJD}JJ1;DL=BN2[4JJ1]JJ3[JJ1]SUB{l16[96r]JJD}JJI;
/*13&14*/STR MG={BR=6If(CH==13){p%=300}Else{p%=-300}}STR MGA={BR=12If(CH==13){p%=1000}Else{p%=-1000}}
STR MG1={MG;l16rr@121,2EP=60q=100MidiDelay({`d`darrerr"br},4,!24)[14r]@121,1MidiDelay({'`aa'},16,!24)[15r]@104,0q=10EP=30M=127`d#`d#d#^^"d#
rrrM=0@126,3q=100EP=40l8"c^^^@116,8q=10EP=50l16<<MD({`g`d#rdd#rg`g#},11,!3)>>}
STR MG2={MG@121,0l16q=40EP=40MidiDelay({'>>dg<<'},32,!24)[23r]@126,8q=100l4EP=20`d^^^^^@126,9EP=40MidiDelay({`d},8,!16)rrrl16
@127,2q=50EP=40MGA;"ar"f"fr"d"dr"crr"c"ararMG@123,4If(CH==13){BR=36}Else{BR=24}EP.T(40,10,!1^1)p.T(0,127,!1^1)q=100l2""c^^^
MG@121,2l16EP=60q=100MD({"arr"aegercrr"aar`cr},1,!24)[14r]}
STR MG3={l16[64r]@125,5q=10EP=20l16MGA>>>[""d""d`dr""d`dr""d`dr""d`dr""d`d""d]<<<[10r]@104,0q=10EP=30M=127MG`d#`d#d#^^"d#
rrrM=0@126,3q=100EP=40l8"c^^^@123,4If(CH==13){BR=36}Else{BR=24}EP.T(40,10,!1^1)p.T(0,127,!1^1)q=100l2""c^^^}
STR MG4={l16[64r]@125,5q=10EP=20l16MGA>>>[""d""d`dr""d`dr""d`dr""d`dr""d`d""d]<<<[10r]@104,0q=10EP=30M=127MG`d#`d#d#^^"d#
rrrM=0@123,4If(CH==13){BR=36}Else{BR=24}EP.T(40,10,!1^1)p.T(0,127,!1^1)q=100l2""c^^^}
STR MG5={@125,5q=10EP=20l16MGA>>>[8""d""d`dr""d`dr""d`dr""d`dr""d`d""d]
BR=12If(CH==13){p%.T(1000,-2000,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}Else{p%.T(-1000,2000,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}
EP.T(20,35,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[24""d""d`dr""d`dr""d`dr""d`dr""d`d""d]<<<}
STR MG6={@125,5q=10l16BR=12If(CH==13){p%.T(-2000,-1000,!1^1^1^1^1^1^1^1)}Else{p%.T(2000,1000,!1^1^1^1^1^1^1^1)}
>>>EP.T(35,0,!1^1^1^1^1^1^1^1)[8""d""d`dr""d`dr""d`dr""d`dr""d`d""d][8""d""d`dr""d`dr""d`dr""d`dr""d`d""d]<<<}
STR MG7={@125,5q=10EP=20l16MGA>>>""d""d`dr""d`dr""dMidiDelay({`dr""d`dr""d`d""d},4,!4)<<<}
STR TTMM={DL=HZ2;MG1;DL=HZ2+8MG2;DL=ST1;MG3;DL=ST3;MG2;DL=ST3+8MG4;DL=ST5;MG1;DL=ST5+8MG2;DL=HZ3;MG5;MG6;DL=ST6;MG1;DL=ST6+8MG2;DL=END+16MG7;}TR=13TTMM;TR=14TTMM;
/*15&16*/STR BGA={If(CH!=15){l64r}}STR BG1={@124,2BGA;l4BR=24EP=90p%.T(0,8192,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1,8192,-2000,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
MidiDelay({>>>>HAM2({[8`err'dg'""arr'dg'"err'dg'"""grr'dg']})<<<<},32,!24)}
STR BG2={@126,5BGA;l4BR=24EP=80p%.T(-2000,8192,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
q.T(5,20,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MidiDelay({>>>>HAM2({[4`err'dg'""arr'dg'"err'dg'"""grr'dg']})<<<<},32,!24)}
STR BG3={@124,2BGA;l4q=10BR=24EP.T(60,100,!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)
p%.T(0,8192,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1,8192,-2000,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
MidiDelay({>>>>HAM2({[8`err'dg'""arr'dg'"err'dg'"""grr'dg']})<<<<},32,!24)q=100}
STR BG4={@126,5BGA;l4q=10BR=24EP.T(60,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)
p%.T(0,8192,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1,8192,-2000,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
MidiDelay({>>>>HAM2({[8`err'dg'""arr'dg'"err'dg'"""grr'dg']})<<<<},32,!24)q=100}
STR BG5={@124,2BGA;l4q=10BR=24EP.T(100,60,!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)
p%.T(0,8192,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1,8192,-2000,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
MidiDelay({>>>>HAM2({[8`err'dg'""arr'dg'"err'dg'"""grr'dg']})<<<<},32,!24)q=100}
STR BGMM={DL=HAZ;BG1;BG2;BG3;DL=ST4;BG2;DL=HZ3;BG4;DL=ST7;BG5;}TR=15BGMM;TR=16BGMM;
}
If(SELECTRACK==2){
INT EST=126PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={246}Copyright={Pitchbend Master Records}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;
//-(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,080,09,0)WIN(07,07,039,08,0,K,064,0,0,100,10,0)WIN(13,13,119,00,0,0,050,0,0,127,10,0)
WIN(02,02,082,00,0,K,064,0,0,100,09,0)WIN(08,08,079,00,0,K,064,0,0,127,09,0)WIN(14,14,082,01,0,K,070,0,0,127,09,0)
WIN(03,03,081,00,0,K,000,0,0,100,10,0)WIN(09,09,080,00,0,K,084,0,0,100,10,0)WIN(15,15,003,00,0,K,000,0,0,127,10,0)
WIN(04,04,083,00,0,K,127,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,127,0,0,127,10,0)
WIN(05,05,039,00,0,K,064,0,0,100,09,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,064,0,0,080,10,0)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
//INT VERB=50FOR(INT A=0;A<16;A++){TR=(A+1);REV=50TR=1V=127CHO=127} /*for DEBUG*/
INT HAZ=1INT BGN=17INT BK0=33INT NK0=49INT NK1=65INT NK2=81INT BN2=97INT BN3=113INT NK3=129INT BN4=145INT NK4=161INT NK5=177INT HZ2=193INT LST=209
/*1*/STR TT1={@119,8EP=100[16rrc^rrrr]}STR TT2={@119,8EP=100[32rrc^]}STR TT3={@119,8EP=100[8rrc^rrrr;rrc^cc^^]}STR TT4={[16rrc^cc^^]}STR TT5={[16"a^"a^"aa"a^]}
TR=1l16<DL=HAZ[TT1][TT2]DL=NK0[4TT2]DL=BN2[TT3][TT4]TT3;DL=NK3+8EP.T(0,100,!1^1^1^1^1^1^1^1)TT5;DL=BN4[6TT5]DL=HZ2+8TT5[TT1]
/*2&3&4*/STR BB1={l24<@82,1EP=80q=50[12r]"a"a"a"a"a^>}STR BB2={@120,0q=100l4rrEP=100'cde'^}
STR BB3={l16v.T(10,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q.T(10,80,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
P.onCycle(!16,64,64,74,54,94,34,127,0,0,0,0,127,34,94,54,74)@39,8[32rrEP.T(70,10,!4^8)[6'ae"b']]P=64}
STR BB4={l16v.T(100,10,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q.T(80,10,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)
P.onCycle(!16,64,64,74,54,94,34,127,0,0,0,0,127,34,94,54,74)@39,8[32rrEP.T(70,10,!4^8)[6'ae"b']]P=64}
TR=2DL=NK0-1BB1;DL=BN2-1BB2;DL=BN3;BB3;DL=NK3+15BB2;DL=NK5;BB3;BB4;
/*5*/STR SD1={[4@127,1BR=12l8q=90[3EP.T(0,127,!4)'"""c'^rr]EP=80q=4p.W(40,0,!16)SUB{"e"e}"c"cq=100@127,2p.T(32,0,!8)l64[16'"""d"""e']p=64]}
STR SD2={[16@127,1BR=12l8EP=80q=4p.W(40,0,!16)SUB{"e"e}"c"cq=100@127,2p.T(32,0,!8)l64[16'"""d"""e']p=64]}
TR=5l8>>DL=HAZ[4SD1]DL=NK0[6SD1]DL=BN2[4SD2]DL=BN4+8[3SD1][SD2]
/*6*/STR CO1={l8@126,4EP=100q=1[4[5r]`````c[10r]]}
TR=6DL=HAZ[5CO1]DL=NK0[6CO1]DL=BN2[4CO1]DL=BN4[10CO1]
/*7*/STR HT1={@117,0l16q=1v=30l32[4[11MidiDelay({"g},6,!32):[5r]][3r]]}
TR=7DL=HAZ[5HT1]DL=NK0[6HT1]DL=BN2[5HT1]DL=NK4[4HT1]DL=HZ2+8[HT1]
/*8*/STR YT1={l4BR=30p.W(50,0,!64)@79,0q=8[32'"g']}
TR=8DL=HAZ;V=127[4YT1]DL=NK0[6YT1]DL=BN2[5YT1]DL=BN4;YT1;DL=NK4[4YT1]DL=HZ2+8[YT1]
/*9*/STR KH1={l16P.onCycle(!16,64,64,74,54,94,34,127,0,0,0,0,127,34,94,54,74)@29,0[16rrEP.T(70,10,!4^8)q=10[6'ae"b']]}
STR KH2={v.T(100,40,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[KH1]v=100}
TR=9DL=BN2[KH1]KH2;DL=BN4[4KH1]KH2;
/*10*/STR OA={n32n36}STR O1={'OA'}STR O2={'n37n85OA'}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 DD1={EP.onCycle(!32,127,0,0,0)[16O1;rrrO2;rrr]}
STR DD2={EP.onCycle(!32,127,0,0,0)[8O1;rrrO2;rrr]}
STR DD3={EP.onCycle(!32,127,0,0,0)SUB{[32rrn42r]}[16O1;rrrO2;rrr]}STR DD4={EP.onCycle(!32,127,0,0,0)[14O1;rrrO2;rrr]}
TR=10l16DL=HAZ;DL=HAZ@26V=127BR=20p%=0[5DD1]DL=NK0[5DD1]DD2;DL=BN2[4DD1]SUB{n46}DD1;DL=NK3+8v.T(0,127,!1^1^1^1^1^1^1^1)DD4;v=127DL=BN4;DD1;
DL=NK4[4DD3][4DD1]
/*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 GG1={EP.onCycle(!32,127,0)l16SUB{l24[64n75rn75]l16}[8n37rrn33rrn37rn85rn44n44n70n70n46n42]}
STR GG2={EP=127l16SUB{[32rrn51r]}SUB{l24[64n75rn75]l16}[8n37rrn33rrn37rn85rn44n44n70n70n46n42]}
TR=11l16DL=HAZ;DL=HAZ+8BR=20p%=3000v=70@26[4GG1]DL=NK0[6GG1]DL=BN2[5GG1]DL=BN4[6GG2]DL=HZ2+8[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 HH1={SUB{[32n42r'n37n33n31'r]}[16rrrr'n28n39'rrr]}STR HH2={SUB{[32n42r'n37n33n31'r]}FOR(INT A=0;A<15;A++){MidiDelay({rrrr'n28n39'rrr},A,!12)}[8r]}
STR HH3={[32n42r'n37n33n31'r]}
TR=12l16DL=HAZ;DL=BGN;BR=20p%=5000v=100[HH1]DL=NK0[5HH1]HH2;DL=BN2;SUB{n49}[3HH1]HH2;DL=NK3+8v.T(0,100,!1^1^1^1^1^1^1^1)HH3;v=100
DL=BN4;SUB{n49}[6HH1]HH3[HH1]
/*13*/STR CK1={[@125,2EP.T(10,70,!2)BR=24p.T(100,80,!4)l8c^^^[10r]l48EP.T(0,60,!4)@116,8[12'dc']l8@120,0c@128,2EP=50```c[12r]@121,1EP=127cc]}
TR=13DL=HAZ[6CK1]DL=NK0[6CK1]DL=BN2[6CK1]DL=BN4[8CK1]
/*14*/STR SP1={@40,16EP.T(0,70,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q=10[64rrar]}
STR SP2={@40,16EP=70q=10[32rrar]FOR(INT A=0;A<25;A++){q++;MidiDelay({rrar},A/2,!32)}MidiDelay({rrar},24,!32)}
STR SP3={@40,16EP=70q=10[64rrar]}STR SP4={@40,16EP=70q=10[8l16[rrar]rrl24ara"arrMidiDelay({a},2,!12)rr]l16}STR SP5={@40,16EP.T(70,0,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q=10[64rrar]}
TR=14DL=BGN;l16SP1;SP2;DL=NK0[SP3]DL=BN2[4SP4]SP2;DL=HZ2[SP4]SP5;
/*15&16*/STR BG={If(CH==16){l64r}}STR BGA={If(CH==16){l8r}l8r}
STR BG1={BG;l16EP=127v=127[26r]>>>@120,0c^rrc^<<<}
STR BG2={If(CH==16){l8r}@127,1BR=12l8rq=90v=80[4[3EP.T(0,127,!4)'""b'^rr]rrrr]}
STR BG3={@40,16BG;l64rl16v=90EP.T(0,100,!1^1^1^1^1^1^1^1)FOR(INT A=0;A<25;A++){q++;MidiDelay({rrar},A/2,!32)}MidiDelay({rrar},24,!32)}
STR BG4={@127,1BR=12q=90v=80[4[3EP.T(0,127,!4)'""b'^rr]rrrr]}
STR BG5={BG;l16EP=127v=127[[26r]>>>@120,0c^rrc^<<<[32r]]}
STR BG6={<BG;EP=50q.T(1,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)@119,8l24BR=24SUB{p.T(0,127,!1,127,0,!1,0,127,!1,127,0,!1)}[96a]SUB{FOR(INT A=1;A<30;A++){l(A)p.T(127,0,!A)r}l1}l24[96a]
SUB{FOR(INT A=1;A<30;A++){l(30-A)p.T(127,0,!(30-A))r}l1}l24[96a]SUB{p.T(0,127,!1,127,0,!1,0,127,!1,127,0,!1)}[96a]>p=64q=100}
STR BGMM={DL=HAZ;BG1;DL=HAZ+8BG2;DL=BGN;BG2;DL=BGN+8BG2;DL=BK0;BG2;DL=BK0+8BG3;DL=NK0;BGA[5BG4]DL=BN2[BG5]DL=BN3;BGA[BG4]
DL=NK3;BG6;DL=NK4;BGA[BG4]DL=NK5[4BG5]}TR=15BGMM;TR=16BGMM;
}
If(SELECTRACK!=1&&SELECTRACK!=2){
INT EST=125PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"DLS -Original MSGS Edit-"}Copyright={Pitchbend Master Records}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,003,00,0,K,054,0,0,127,10,0)WIN(07,07,033,00,0,K,074,0,0,100,09,0)WIN(13,13,119,00,0,K,096,0,0,127,09,0)
WIN(02,02,099,01,0,K,064,0,0,127,10,0)WIN(08,08,012,00,0,K,000,0,0,100,09,2)WIN(14,14,082,01,0,K,096,0,0,127,09,0)
WIN(03,03,100,00,0,K,000,0,0,100,10,0)WIN(09,09,012,00,0,K,127,0,0,100,09,2)WIN(15,15,003,00,0,K,000,0,0,120,10,0)
WIN(04,04,100,00,0,K,127,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,K,127,0,0,120,10,0)
WIN(05,05,039,01,0,K,054,0,0,110,09,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,0,0,100,10,0)WIN(12,12,026,00,0,K,032,0,0,127,09,0)TR=10IP;TR=11IP=2
INT HAZ=1INT ST0=17INT ST1=33INT RF1=49INT ST2=65INT BGN=81INT ME1=97INT ST3=113INT ST4=129INT BN2=145INT ST5=161INT ST6=177INT END=193
/*1*/STR MN1={EP=50@14,0l24[16rrbbrrbrbrrr]}
TR=1l16DL=HAZ[5MN1]DL=RF1+8[MN1]DL=BGN[MN1]DL=ME1+8MN1;DL=ST3[4MN1]DL=BN2[8MN1]
/*2&3&4*/STR RTA={BR=10If(CH==2){M.W(0,70,!1^1)}If(CH==3){p%=150}If(CH==4){p%=-150}}
STR RT1={RTA;l8EP=60'bge'^^^^^^^^^^^^^['bgc''aec'^^^^^^^^^^^^^'ae"a'^'ge"a'^^^^^^^^^^^^^^'gd"a''ad"a'^^^^^^^^^^^^^^'ad"a':'bge'^^^^^^^^^^^^^^]}
STR RT2={RTA;l8EP=60['bge'^^^^^^^^^^^^^^'bgc''aec'^^^^^^^^^^^^^'ae"a'^'ge"a'^^^^^^^^^^^^^^'gd"a''ad"a'^^^^^^^^^^^^^^'ad"a']r}
STR RT3={RTA;l8EP=60'bge'^^^^^^^^^^^^^['bgc''aec'^^^^^^^^^^^^^'ae"a'^'ge"a'^^^^^^^^^^^^^^'gd"a''ad"a'^^^^^^^^^^^^^^:'ad"a''bge'^^^^^^^^^^^^^^]rr}
STR RT4={RTA;l8EP=60'bge'^^^^^^^^^^^^^['bgc''aec'^^^^^^^^^^^^^'ae"a'^'ge"a'^^^^^^^^^^^^^^'gd"a''ad"a'^^^^^^^^^^^^^^>'ad"a''bge'^^^^^^^^^^^^^^]<<rr}
RT4={RTA;l8EP=60'bge'^^^^^^^^^^^^^['bgc''aec'^^^^^^^^^^^^^'ae"a'^'ge"b'^^^^^^^^^^^^^^'gd"a''ad"a'^^^^^^^^^^^^^^:>'ad"a''bge'^^^^^^^^^^^^^^]>'ad"a'l2EP.W(60,70,!1,70,70,!1,70,0,!1^1^1^1)'bge'^^^^^^^^^^^^^^<<EP=0rrl8}
STR RRF={l8DL=RF1;RT1;RT2;DL=BGN;RT3;DL=BN2;RT1;DL=ST5;RT4}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={BR=6If(CH==5){p%=100}Else{p%=-100}}
STR BSH={l16[12r]d^d^}STR BS1={l16BSA;EP=120[8e^^^^^e^e^^e^^e^]}STR BS2={l16BSA[4e^^^^^e^e^^e^^e^][c^^^^^c^c^^c^^c^][d^^^^^d^d^^d^^d^]}
STR BASS={l16<<DL=ST0-1BSH[4BS1]DL=RF1[BS1][BS2]DL=BGN[BS1]DL=ST3[4BS1]DL=BN2[BS1][BS2][BS1]}TR=5BASS;TR=7BASS;
/*6*/STR CO1={l8[8EP.T(40,127,!2)'<egb>'^^^rrrr]}STR CO2={l8[4EP.T(40,127,!2)'<egb>'^^^rrrr][EP.T(40,127,!2)'<ceg>'^^^rrrr][EP.T(40,127,!2)'<df#a>'^^^rrrr]}
TR=6@82,1DL=HAZ[CO1]DL=ST1+8CO1;DL=RF1[CO1][CO2]DL=BGN[CO1]DL=ME1+8CO1;DL=ST4[CO1]DL=BN2[CO1][CO2]DL=END[CO1]
/*8&9*/STR ULA={BR=8If(CH==9){p%=100}Else{p%=-100}}
STR UL1={>l16ULA;@6,8EP=60'e"g'[8SUB{g"g^g"gg"g^g"g^g"gg}`ee^`ee`ee^`ee^`ee`e:'"ge'^]'"ge'<}
STR ULMR={DL=ST1+8UL1;DL=RF1[4UL1]DL=BGN[3UL1]DL=ST4+8UL1;DL=BN2[4UL1]}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n32n35n36n35n41}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 DD1={[32O1;rrr]}STR DD2={[16O1;rrr][48r][4O1;rrr]}STR DD3={[16r][28O1;rrr]}
TR=10l16DL=HAZ;BR=20p%=-1000@9V=127[DD1]DL=ST0+7[4O1;rrr][3DD1]DL=RF1[DD1]DD2;DD3;DL=BGN;BR=20p%=-1000@9V=127[3DD1]DD2;DL=ST3+6[8O1;rrr][3DD1]DL=BN2;DD2[3DD1]DL=ST6+7[8r][O1;rrr][3DD1]
/*11*/STR GR={'n44n42'}STR GA={n44}STR GB={'n51'}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={l16[28rrGB;r]l24GR;rGR;GB;rrGR;rrGB;r[GR]rrGB;rrGR;rrGB;rGR}STR GGI={l16[96r][8rrGB;r]}
STR GG1={l24[4[GR;rGR;GB;rrGR;rrGB;r[GR]rrGB;rrGR;rrGB;rGR]]}STR GG2={l24[[GR;rGR;GB;rrGR;rrGB;r[GR]rrGB;rrGR;rrGB;rGR]]l16[16rrGB;r]}
STR GG3={l16[16r][24rrGB;r]l24GR;rGR;GB;rrGR;rrGB;r[GR]rrGB;rrGR;rrGB;rGR}STR GG4={l16[32rrGB;r]}
TR=11l16DL=HAZ+8BR=20p%=3000EP=127GGH;SUB{n49}[3GG1]DL=ST1+8GGI;DL=RF1;GGH;GG1;GG2;SUB{n49}GG3;DL=BGN;BR=20p%=3000EP=127[3GG1]GG2;SUB{n49}GG4;GGH[GG1]DL=BN2;GG2;GG3[GG1]SUB{n49}[3GG4]DL=END+16n49^^^^^^^
/*12&13*/STR UUA={BR=10If(CH==12){p%=100}Else{p%=-100}}STR UUH={@5,24l16EP=70UUA[[8r]MidiDelay({'`ebg'rr'`ebg'},7,!16)[52r]]}
STR UU1={@8,0l16EP=70UUA[[8r]MD({'`ebg'rr'`ebg'},2,!16)[52r]]}
STR KKJJ={DL=HAZ;UUH;DL=ST1;UU1;DL=RF1;UUH[UU1]DL=BGN[UU1]DL=ME1+8UUH;DL=ST4;UUH;DL=BN2[4UU1]}TR=12KKJJ;TR=13KKJJ;
/*14*/STR SPH={l16@33,0[e^^^^^e^d^^d^^e^^^^^^^^^^^[38r]]}STR SPI={l16@33,0[4e^^^^^e^d^^d^^e^^^^^^^^^^^[6r]]}
STR SP1={l16@82,1EP=100[4[7r]"e^"ee^eedr[16r]]}STR SP2={l16@82,1EP=100[[7r]"e^"ee^eedr[16r]][7r]"c^"cc^cc"cr[16r][7r]"d^"dd^dd"dr[16r]}
TR=14l16<<DL=HAZ+8SPH;DL=ST2[SP2]DL=BGN[SP1]SPI;DL=ST4+8SP1;DL=BN2[SP1][SP2]DL=END;SPH;
/*15&16*/STR BG1={>@49,1l16v=100BR=32EP.T(127,0,!1^1^1^1^1^1^1^1)If(CH==15){P.T(127,0,!1^1^1^1^1^1^1^1)[4r]}Else{P.T(0,127,!1^1^1^1^1^1^1^1)}[16"e&&^^`errrr]<}
STR BG2T={MD({HAM3({e"a"bgrgf#rf#drdee"br})},1,!6)}
STR BG2={@8,0v=100[EP=100BG2T;EP=80BG2T;EP=60BG2T;EP=40BG2T]}
STR BGNN={DL=ST1;BG1;DL=BGN;BG1;DL=BGN+8BG1;DL=ME1;BG2;DL=ST4;BG1;DL=BN2;BG1;DL=BN2+8BG1;DL=END+16EP=0l1c^^}TR=15BGNN;TR=16BGNN;
}