INT TRACK_SELECT				=	1	;	//	1 : 	sakuramml.com						https://www.youtube.com/watch?v=unx2VsESL50
									//
									//		『サクラエムエムエルドットコム』と言う歌いにくそうな歌詞をサビに持ってきた爽やかユーロビート。
									//		テキスト音楽サクラのテーマソングとしては力及ばずか。
									//
									//
									//	2 : 	GRAY PINK LOVE						https://www.youtube.com/watch?v=LLTvsGWwBVI
									//
									//		2コーラス目終わってからのEXTENDED展開にこだわった哀愁系ユーロビート。
									//		今回投稿する中では一番基本に忠実。面白みは無いけどノリはしっかりしてます。
									//
									//
									//	3 : 	ESSENTIAL DEEP EMOTION					https://www.youtube.com/watch?v=h1qqOa3HU2U
									//
									//		ひたすら哀愁。大袈裟なメロディで展開するハイパー哀愁ユーロビート。
									//		何も考えずに作るとこういう哀愁系になると言う良い例。
									//
									//


INT TRACK_KEY				=	2	;	//	キー調整 (-3〜3)


If(TRACK_SELECT==1){

INT EST=155PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"sakuramml.com"}Copyright={H゛}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+20;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=TRACK_KEY;
//-(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,9,2,127,09,0)WIN(07,07,088,00,0,K,084,1,2,120,10,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,100,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,9,2,100,09,2)WIN(14,14,082,01,0,K,020,2,2,127,09,0)
WIN(03,03,089,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,9,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,127,10,0)
WIN(04,04,099,01,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,01,0,K,044,2,2,120,10,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=2INT BGN=18INT ME1=26INT ME2=34INT SB1=42INT RF1=58INT ME3=66INT ME4=74INT SB2=82INT ME5=98INT NK1=106INT RF2=114INT ME6=122INT ME7=130INT NK2=138INT SB3=146INT SB4=162INT END=166
STR SBUP={TrackKey=(K+1);}STR SBDN={TrackKey=K;}
/*1*/TR=1DL=HAZ-1l16[15r]Lyric={"sakuramml.com"}[32r]Lyric={"simply wonderful tool by Delphi"}[32r]Lyric={""}[64r]Lyric={"sakuramml.com"}[32r]Lyric={"slash mmlbbs6"}[32r]Lyric={""}
DL=ME1-1[15r]Lyric={"A-B-C-D-E-F-G Let's enter scale,"}[32r]Lyric={"phrase and melody, rhythm and tension, harmony"}[32r]Lyric={"1-2-3-4 Do it! Type words and text"}[32r]
Lyric={"Writing music by mml to MIDI ah"}[32r]Lyric={"Keep on dancing moving shaking"}[32r]Lyric={"Shouting rockin Check it out yo!"}[32r]Lyric={"Wonderland is coming soon yeah"}[32r]
Lyric={"Why don't you post on BBS? Song for the"}[32r]Lyric={"sakuramml.com"}[32r]Lyric={"Sakura-de-Ongaku-Tsukurou"}[32r]Lyric={"It's very easy way for our life"}[32r]
Lyric={"Let's get started stable DTM plan"}[32r]Lyric={"sakuramml.com"}[32r]Lyric={"Sakura-to-Isshoni-Utaou"}[32r]
Lyric={"Hey you burnin like a pianist"}[32r]Lyric={"Don't you wanna be a musician"}[32r]Lyric={""}
DL=ME3-1[15r]Lyric={"1-2-3-4-5-6 Let's play the rhythm,"}[32r]Lyric={"clappin, hat, kick and snare, crash cymbal"}[32r]Lyric={"Hey Hey Hey just do it! Check function"}[32r]
Lyric={"Insert Str and Int to MML ah"}[32r]Lyric={"Keep on funky do it raving"}[32r]Lyric={"Jumping punkin Check it now yah!"}[32r]
Lyric={"MIDI's lover are you ready?"}[32r]Lyric={"Why don't you post on BBS? Song to the"}[32r]
Lyric={"sakuramml.com"}[32r]Lyric={"Sakura-to-Ongaku-Tsukurou"}[32r]Lyric={"It's very easy way for my life"}[32r]Lyric={"Let's get started maniac DTM plan"}[32r]
Lyric={"sakuramml.com"}[32r]Lyric={"Sakura-to-Isshoni-Waraou"}[32r]Lyric={"Hey you burnin like an artist"}[32r]Lyric={"Don't you wanna be a technician"}[32r]
Lyric={"I wanna be a, you wanna be an artist, musician"}[64r]Lyric={"Let's get started now are you ready?"}[32r]Lyric={"Come on typing text music!"}[32r]Lyric={""}
DL=SB3-1[15r]Lyric={"sakuramml.com"}[32r]Lyric={"Sakura-de-Ongaku-Tsukurou"}[32r]Lyric={"It's very easy way for our life"}[32r]Lyric={"Let's get started stable DTM plan"}[32r]
Lyric={"sakuramml.com"}[32r]Lyric={"Sakura-to-isshoni-utaou"}[32r]Lyric={"Hey you burnin like a guitarist"}[32r]Lyric={"Don't you wanna be a musician"}[32r]
Lyric={"Imasuguni-Keiziban,"}[32r]Lyric={"Nozoitara-Kakikomou!"}[32r]Lyric={""}
STR MNH={af#af#l16a^ggf#^e^l8drde^^^raf#af#agf#edd^e^^^r}
STR MN1={["a"a"a"a"adr"a"b"a"g"b^^^r:c#c#c#c#c#dedf#^e^d^^r]c#c#c#c#c#ded^r"a"a"bdrd
/*["b^"b"bd"b^"ae^^d^^^r:c#c#c#c#c#def#^f#f#gf#ed^]c#c#c#c#c#def#^gf#e^f#^r*/}
STR MN2={[d^"b^d^"b^dd^e^d^r:d^"a^d^"a^edef#^^^r]c#c#c#c#c#dea^rc#^d^e^
/*["b^d^d^e^c#^^"ar"a"g#"a:"b^d^d^e^c#^"b"a^^^r]"b"b"b^f#f#f#^f#gf#e^*/}
STR MN3={af#af#l16a^ggf#^e^l8drde^^^raf#af#agf#edd^e^^^r;af#af#f#f#gab^^a^^^raf#af#f#f#gababa^^^r;
;af#af#l16a^ggf#^e^l8drde^^^raf#af#agf#edd^e^^^r;f#^d^"adf#d"b^^c#^^^rf#^d^"adf#^"b"a"bc#^^^r}
STR MN4={grf#rgarb^barb`dr`c#^a^rrrr`c#^a^rrrrb^baagf#eb^baagf#e^aaaaabea^^rrr}
STR MN5={f#^d^"adf#d"b^^c#^^^rf#^d^"adf#^"b"a"bc#^^^r}
TR=1l8>HAM({DL=HAZ;MNH;DL=HAZ+8MNH;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;MN4;DL=SB3;SBUP;MN3;MN5;SBDN;})
/*2&3&4*/STR RTA={@99,1BR=6If(CH==3){p%=300@100,0}If(CH==4){p%=-300@100,0}}
STR RTB={@99,1BR=6If(CH==3){p%=300@89,0}If(CH==4){p%=-300@89,0}}STR RTC={@1,90,0BR=6If(CH==3){p%=300@3,0}If(CH==4){p%=-300@3,0}}
STR RTH={RTB;EP=110CHO=60f#^^^^def#g"bdgac#ea;f#^^^^def#gg^a^aaa;d^e^f#^d^g^f#^e^"a^;d^e^f#^d^[8r]}
STR RT1={RTA;EP=127CHO=60[`dga`dga`da`ea`c#`ea`c#`ea:`f#a`d`f#a`d`f#`d`g^`f#`d^`e^r]`f#`d`e`f#`d`e`f#`d`g^`a`f#^`e^r}
STR RT1A={RTC;EP=127CHO=100REV=120`dga`dga`da`ea`c#`ea`c#`ea;`f#a`d`f#a`d`f#`dRTA;CHO=60REV=20`g^`f#`d^`e^r;`dga`dga`da`ea`c#`ea`c#`ea;`f#`d`e`f#`d`e`f#`d`g^`a`f#^`e^r}
STR RT4={RTB;EP=110CHO=60f#^^^^def#g"bdgac#ea;f#^^^^def#gg^a^aaa;d^e^f#^d^g^f#^e^"a^;d^e^f#^d^g^a^b^a^}
STR RT5={RTB;EP=110CHO=60d^e^f#^d^g^f#^e^"a^;d^e^f#^d^g^a^b^a^}
STR RRF={l8DL=HAZ;RT4;RTH;DL=BGN;RT1;DL=SB1[RT4]DL=RF1;RT1;DL=SB2[RT4]DL=NK1;RTH;DL=RF2;RT1;DL=NK2;RT4;DL=SB3;SBUP[RT4]RT5;DL=END;RT1A;REC2;RT1;SBDN;}
TR=2HAM({RRF})TR=3HAM({RRF});TR=4HAM({RRF});
/*5*/STR BSH={[[4d`d][g`g][a`a]][4d`d][4c#`c#][4"bb][8r]}STR BSJ={[[4d`d][g`g][a`a]][4d`d][4c#`c#][4"bb][4"aa]}STR BSK={rrrr`c#^^^&&c#}
STR BS1={[[4d`d][4c#`c#][4"bb]:[g`g][a`a]]g^gara^^}STR BS1A={l4d^^^c#^^^"b^^^"g^"a^l8[4d`d][4c#`c#][4"bb]g^gara^^}STR BS2={[[4d`d][4g`g][4a`a][4d`d]]/*[[4"bb][4e`e][4"aa]:[4d`d]][d`d][c#`c#]*/}
STR BS3={[8g`g][8d`d][8g`g][8a`a]/*[4[4"gg][4"aa]]*/}STR BS3A={l4g^^^^^^^d^^^^^^^l8[8g`g][8a`a]}STR BS4={[8[4d`d][g`g][a`a]]}
STR BS5={[8g`g][8f#`f#][8e`e][8a`a]}STR BS6={l4d^^^g^a^d^^^l8g^ga^^^r}
STR BASS={l8<<DL=HAZ-1BSK;DL=HAZ+8BSH;DL=BGN;CHO=70BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4;BS5;DL=NK1;BSH;BS1A;BS2;BS3;BSJ;DL=SB3;SBUP;BS4;BS6;BS1A;REC2;BS1;SBDN;}TR=5@35,90,1BASS;TR=7;<@40,90,0BASS;
/*6*/STR COH={@49,90,1EP.T(40,100,!1^1)'`c#ae'^^^^^^^EP=115['f#d"a'^^^'gd"b'^'aec#'^]'`daf#'^^^'`c#ae'^^^'bgd'^^^'aec#'^^^}
STR COI={@49,90,1EP=115['f#d"a'^^^'gd"b'^'aec#'^]'`daf#'^^^'`c#ae'^^^'bgd'^^^rrrr}
STR COJ={@49,90,1EP=115['f#d"a'^^^'gd"b'^'aec#'^]'`daf#'^^^'`c#ae'^^^'bgd'^^^'aec#'^^^}
STR CO1={@49,90,1EP=115[l4'`daf#'^^^'`e`c#a'^^^'`f#`db'^^^l8'`g`db'^'`g`db''`a`e`c#'r'`a`e`c#'^^]}
STR CO2={@49,90,1EP=90l4P=100HAM({[`f#^^^`g`a`g`a`f#^^^`d^^^]})P=32}
STR CO3={@55,110,8EP=90l4['bg'^^^'`c#g'^^^:'`da'^^^'af#'^^^]'ae'^^^'`ea'rrr}
STR CO4={@49,90,1EP=115[4'f#d"a'^^^'gd"b'^'aec#'^]/*[4'f#d"a'^^^'ge"b'^'af#c#'^]*/}
STR CO5={@49,90,1EP=100l4'`g`db'^^^^^^^'`f#`c#a'^^^^^^^'`ebg'^^^^^^^'`a`e`c#'^^^^^^^}STR CO6={['f#d"a'^^^'gd"b'^'aec#'^]}
TR=6DL=HAZ-2COH;COI;DL=BGN;CO1;DL=ME2;CO3[CO4]CO1;CO2;CO3[CO4]CO5;DL=NK1;COI;CO1;CO2;CO3;COJ;SBUP[CO4]CO6[CO1:REC2]SBDN;
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}
STR ULH={ULA;EP=110SUB{MNH}SUB{`da`da`dl16`d`dl8`d`d`dr`d`e^^^r`da`da`d`d`d`d`d`d^`e^^^r}SUB{d"ad"adl16ddl8dd"br"bc#^^^rd"ad"adddd"b"b^c#^^^r}f#df#df#l16f#f#l8f#f#grga^^^rf#df#df#f#f#f#gg^a^^^r}
STR UL1={ULA;EP=110SUB{[ddddddrd"b"b"b"b^^^rc#c#c#c#c#c#c#:c#f#^e^d^^r]d^rddddrd}[f#f#f#f#f#f#rf#gggg^^^raaaaaaa:a`d^b^a^^r]f#^rf#f#f#f#rf#}
STR UL2={ULA;EP=110SUB{[g^d^g^d^gg^g^g^r:f#^d^f#^d^f#f#f#f#^^^r]eeeeeeee^re^f#^g^}[b^g^b^g^bb^b^b^r:a^f#^a^f#^aaaa^^^r]aaaaaaaa^ra^b^`c#^}
STR UL3={ULA;EP=110SUB{MN3}SUB{`da`da`dl16`d`dl8`d`d`dr`d`e^^^r`da`da`d`d`d`d`d`d^`e^^^r`da`da`d`d`d`d`d^^`d^^^r`da`da`d`d`d`d`d`d`d`d^^^r}
SUB{d"ad"adl16ddl8dd"br"bc#^^^rd"ad"adddd"b"b^c#^^^rd"ad"adddd"b^^c#^^^rd"ad"adddd"b"b"bc#^^^r}
f#df#df#l16f#f#l8f#f#grga^^^rf#df#df#f#f#f#gg^a^^^rf#df#df#f#f#f#g^^f#^^^rf#df#df#f#f#f#gggf#^^^r
SUB{`da`da`dl16`d`dl8`d`d`dr`d`e^^^r`da`da`d`d`d`d`d`d^`e^^^r;d^d^dddd"b^^c#^^^rd^d^ddd^"b"b"bc#^^^r}
SUB{d"ad"adl16ddl8dd"br"bc#^^^rd"ad"adddd"b"b^c#^^^r"a^"a^"a"a"a"ad^^e^^^r"a^"a^"a"a"a^ddde^^^r}
f#df#df#l16f#f#l8f#f#grga^^^rf#df#df#f#f#f#gg^a^^^rf#^f#^f#f#f#f#g^^a^^^rf#^f#^f#f#f#^ggga^^^r}
STR UL4={ULA;EP=127drc#rderf#^f#erf#gra^f#^rrrra^f#^rrrrg^gf#f#ec#"ag^gf#f#ec#"a^eeeeef#c#e^^rrr}
STR UL5={ULA;EP=110SUB{MN5}SUB{d^d^dddd"b^^c#^^^rd^d^ddd^"b"b"bc#^^^r}SUB{"a^"a^"a"a"a"ad^^e^^^r"a^"a^"a"a"a^ddde^^^r}f#^f#^f#f#f#f#g^^a^^^rf#^f#^f#f#f#^ggga^^^r}
STR ULMR={l8>DL=HAZ;HAM({ULH})DL=HAZ+8HAM({ULH})DL=ME1;UL1;UL2;HAM({UL3});DL=ME3;UL1;UL2;HAM({UL3});UL4;DL=SB3;SBUP;HAM({UL3;UL5})SBDN;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n33n35n36}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={l8[4n34rrn33n32n32n73rn80n80n81rn82n83rn83]l16}
STR DDI={SUB{l8[4n34rrn33n32n32n73r:n80n80n81rn82n83rn83]l16}O3[29r]O1;r[O3;rrr][24r][12O1;rrr][4O1;r][8r]}
STR DDJ={SUB{l8[4n34rrn33n32n32n73r:n80n80n81rn82n83rn83]l16}[16O1;rrr][12O1;rrr][4O1;r][8r]}
STR DD1={[28O1;rrr]l8[O1;rO1]rrl16}STR DD1A={[[O3;rrr]:[22r]O1;r][8r][3O1;rrr][O1;r][12O1;rrr]l8[O1;rO1]rrl16}STR DD1B={O3[29r]O1;r[O3;rrr][8r][3O1;rrr][O1;r][12O1;rrr]l8[O1;rO1]rrl16}
STR DD2={[16O1;r:rr]O1;r[14O1;r:rr]l8[3O1]rO1;l16}STR DD3={[16O1;r:rr]O1;r[12O1;r:rr]O1;rO3;rrr[3O1;rrr]}
STR DD3A={[O3[29r]O1;r][12O1;r:rr]O1;rO3;rrr[3O1;rrr]}STR DD4={[31O1;r:rr][3O1;r][28O1;rrr][4O1;r]rr[O1;r]rr}STR DD5={[32O1;rrr]}STR DD6={O3[29r]O1;r[O3;rrr][24r]}
TR=10l16DL=HAZ@25,90,1BR=20p%=-500CHO=50DDH;DDI;DL=BGN@25,90,1BR=20p%=-500CHO=50DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4;DD5;DL=NK1;DDJ;DD1A;DD2;DD3;DD5;DD4;DD6;DD1B;REC2;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 GGH={l8[4GB;rrGB[[GR]GB;r]GR;GB;rGB]l16}STR GGI={[28GR;GR;GB;r][4GB;r][8r]}
STR GG1={[28GR;rGB;r]l8[GB;rGB]rrl16}STR GG1A={[16GR;rGB;r][12GR;GR;GB;r]l8[GB;rGB]rrl16}
STR GG2={[28GR;rGB;r][4GB;rrr]}STR GG3={[28GR;rGB;r][4GB;rrr]}STR GG3A={[8'n51n59'^^^^^^^][12GR;rGB;r][4GB;rrr]}STR GG4={[60GR;GR;GB;r][4GB;r][GR;rGB;r]}
STR GG5={[16GR;rGB;r][12GR;GR;GB;r][4GB;rrr]}STR GG6={[8GR;rGB;r][8GR;GR;GB;r]}
TR=11l16DL=HAZ;BR=20p%=-500@27,90,0GGH;GGI;DL=BGN;BR=20p%=-500@27,90,0GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4;GG5;DL=NK1;GGI;GG1A;GG2;GG3;GG5;GG4;GG6;GG1A;REC2;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={SUB{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 PPH={PD3}STR PPI={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][n51rn59r]}STR PPJ={SUB{n49}SUB{[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][n51rn59r]}[14rrrr'n38n40'rrr][16r]}
STR PP1={SUB{PD3}[14rrrr'n38n40'rrr][16r]}STR PP1A={SUB{PD3}[64r][6rrrr'n38n40'rrr][16r]}
STR PP2={[15rrrr'n38n40'rrr][8r]}STR PP3={[15rrrr'n38n40'rrr][8r]}STR PP3A={[64r][7rrrr'n38n40'rrr][8r]}STR PP4={[SUB{PD3}[15rrrr'n38n40'rrr][8r]]}
STR PP5={SUB{PD3}[16rrrr'n38n40'rrr]}STR PP6={SUB{n49}[48r][3n51rrr][2n51r]}
TR=12l16DL=HAZ@1,100,0BR=20p%=-1000PPH;PPI;DL=BGN@1,100,0BR=20p%=-1000PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4;PP5;DL=NK1;PPJ;PP1A;PP2;PP3;PP5;PP4;PP6;PP1A;REC2;PP1;
/*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]}
STR DS18={l8`gr`darerrrl16}STR DS19={l8rrggb`cr`gl16}STR DS20={l8`g`g`d`dbbggrr`gr`drgrl16}STR DS21={l8`g`daerrrrl16}
TR=13l16<@119,0DL=HAZ;PG1;HAM2({DL=HAZ+3DS6;DL=HAZ+7DS2;DL=HAZ+11DS6;DL=HAZ+15DS21;DL=BGN+7DS18;DL=ME1+3DS6;DL=ME1+7DS19;DL=ME2+3DS6;DL=ME2+6DS20;DL=SB1+3DS6;DL=SB1+7DS2;DL=SB1+11DS6;DL=SB1+15DS21;DL=RF1+7DS18;DL=ME3+3DS6;DL=ME3+7DS19;DL=ME4+3DS6;DL=ME4+6DS20;DL=SB2+3DS6;DL=SB2+7DS2;DL=SB2+11DS6;DL=SB2+15DS21;
DL=ME5+7DS19;DL=NK1+3DS6;DL=NK1+7DS21;DL=RF2+7DS18;DL=ME6+3DS6;DL=ME6+7DS19;DL=ME7+3DS6;DL=ME7+6DS20;DL=SB3+3DS6;DL=SB3+7DS2;DL=SB3+11DS6;DL=SB3+15DS21;DL=SB4+3DS21;DL=END+7DS18;})
/*14*/STR LC={"cceg`c}STR LC2={"ccea`c}STR LCS={"c#c#eg#`c#}STR LD={"ddf#a`d}STR LD2={"ddfa`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LE2={"eeg#b`e}STR LF={"ffa`c`f}STR LFS={"f#f#a`c#`f#}
STR LG={"ggb`d`g}STR LA={"aa`c`e`a}STR LA2={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`d`f#`b}STR LB2={"bb`d#`f#`b}STR LB3={"bb`e`g#`b}
STR PSS={Play(,,,,,,,,,,,,,,MID(SWE,1,2))}FUNCTION PDA(STR SWE){l8PSS;l16'SWE'r[4PSS'SWE'r]}FUNCTION PDB(STR SWE){l8PSS;l16'SWE'r[PSS:'SWE'r]}FUNCTION PDC(STR SWE){[3'SWE'r:PSS]}
FUNCTION PDD(STR SWE,STR FF1){l8FF1;l16'SWE'r[4FF1'SWE'r]}FUNCTION SPC(STR SPD){['SPD'^rr]['SPD'^^]'SPD'^}
STR SPH={@4,0EP=100y64=127l8c#eg#b`c#g#ec#y64=0@3,0,0EP=100['LD'^'LD'^^'LD'^'LD''LG'^'LG'^'LA2'^'LA2'^]"d"d'LD'^"d'LD'^'LD';"c#"c#'LCS'^"c#'LCS'^'LCS';""b""b'<LB>'^""b'<LB>'^'<LB>';""a""a'<LA2>'^""a'<LA2>'^'<LA2>';}
STR SPI={@3,0,0EP=110[PDA=LD;PDB=LG;PDC=LA2]PDA=LD;PDD(LCS,{"c#})<PDA=LB>[16r]}
STR SPJ={@3,0,0EP=110[PDA=LD;PDB=LG;PDC=LA2]PDA=LD;PDD(LCS,{"c#})<PDA=LB;PDA=LA2>}
STR SP1={@1,90,0EP=110[PDA=LD;PDD(LCS,{"c#})<PDA=LB>:PDB=LG;PDC=LA2]l8'LG'^'LG''LA2'r'LA2'^^}STR SP1A={@1,90,0EP=110[32r]PDA=LD;PDD(LCS,{"c#})<PDA=LB>l8'LG'^'LG''LA2'r'LA2'^^}
STR SP2={@1,90,0EP=90[PDA=LD;PDA=LG;PDA=LA2;PDA=LD]}
STR SP3={@3,0,0EP=110[PDA=LG][PDA=LD][PDA=LG]PDA=LA2[16r]}STR SP4={@3,0,0EP=120[4PDA=LD;PDB=LG;PDC=LA2]}
STR SP5={@3,0,0EP=100[PDA=LG][PDD(LFS,{"f#})][PDA=LE][PDA=LA2]}STR SP6={@1,90,0EP=120l8['LD'^^^^'LD'^'LD''LG'^'LG''LA'^^^^]}
TR=14DL=HAZ-1SPH;SPI;DL=BGN;SP1;SP2;SP3[SP4]SP1;SP2;SP3[SP4]SP5;DL=NK1;SPI;SP1;SP2;SP3;SPJ;SBUP[SP4]SP6;SP1A;REC2;SP1;SBDN;
/*15*/STR FTA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR FTH={l8[@82,90,1EP=110['f#da'r]['f#da']r'f#da''dgb'r'dgb''f#a`c#'^^^r]@99,1HAM({d^^^^^^^c#^^^ga`a`c#`e`f#^^^^^^`ga`c#`a^^^r})}
STR FTI={l8[@82,90,1EP=110['f#da'r]['f#da']r'f#da''dgb'r'dgb''f#a`c#'^^^r][24r]@56,90,1`c#b`c#`drrrr}
STR FT1={[l16EP=115@82,110,0MD({['`daf#'^^r]},1,!2)[8r]MD({['`e`c#a'^^r]},1,!2)[8r]MD({['`f#`db'^^r]},1,!2)[8r]l8'`g`db'^'`g`db''`a`e`c#'r'`a`e`c#'^^]}
STR FT1A={l16[64r]EP=115@82,110,0MD({['`daf#'^^r]},1,!2)[8r]MD({['`e`c#a'^^r]},1,!2)[8r]MD({['`f#`db'^^r]},1,!2)[8r]l8'`g`db'^'`g`db''`a`e`c#'r'`a`e`c#'^^}
STR FT2={@82,90,1EP=100l8[[5r]'af#d''af#d'^[3'bgd']'bgd'^^^r[5r]'`c#ae''`c#ae'^:['`daf#'^]'`daf#'^^^]'`daf#'^^[5r]}
STR FT3={[FTA;l8EP=100@82,110,5bg`c#g`dg`f#b^g`c#g`dg`f#^:af#`c#f#`df#`f#aP=96@82,90,1EP=120[3'`daf#']'`daf#'^^^r]P=96@82,90,1EP=120[7'`c#ae']'`e`c#a'^^^^rrrr}
STR FT4={[@82,110,0EP=110['f#da'r]['f#da']r'f#da''dgb'r'dgb''f#a`c#'^^^r]@82,90,1EP=127[['f#da'^]'f#da''f#da'^^'dgb'^^'f#a`c#'^^^r]}
STR FT5={@82,110,0EP=100l16[MD({['`g`db'^^r]},1,!2)[8r]][MD({['`f#`c#a'^^r]},1,!2)[8r]][MD({['`ebg'^^r]},1,!2)[8r]][MD({['`a`e`c#'^^r]},1,!2)[8r]]}
STR FT6={@82,90,1EP=127[['f#da'^]'f#da''f#da'^^'dgb'^^'f#a`c#'^^^r]}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3[FT4]FT1;FT2;FT3[FT4]FT5;DL=NK1;FTI;FT1A;FT2;FT3;FTH;SBUP[FT4]FT6;FT1A;REC2;FT1;SBDN;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}
STR BG10={@127,0l4REV=80EP=110[4rr'cde'^^^^^]REV=10EP=127}STR BG11={@127,0l4REV=80EP=110[rr'cde'^^^^^]REV=10EP=127}STR BG12={@127,0l4REV=80EP=110['ce'^^^^^^^]REV=10EP=127}STR BG13={@127,0l4REV=80EP=110'ce'^^^^^^^REV=10EP=127}
TR=16DL=HAZ+8BG11;DL=BGN+6BG1;BG3;DL=ME2+6BG1;BG2;DL=SB1[BG10]DL=RF1+6BG1;BG3;DL=ME4;BG12;DL=ME4+6BG1;BG2;DL=SB2[BG10]DL=ME5+7BG1;DL=NK1;BG11;DL=RF2+6BG1;BG3;DL=ME7+6BG1;BG2;DL=SB3[BG10]BG11;BG12;BG13;DL=END+6BG1;BG3;DL=END+8REC2[BG12]

}

If(TRACK_SELECT==2){

INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"Gray Pink Love"}Copyright={H゛}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+20;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}
Function MD2(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+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Dly=Dly-Delay;Sub{r%(Dly)v(J)S}J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(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,4,2,127,09,0)WIN(07,07,039,08,0,K,074,2,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,082,00,0,K,064,2,2,127,10,0)WIN(08,08,012,00,0,K,000,3,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,081,00,0,K,000,2,2,110,10,0)WIN(09,09,012,00,0,K,127,3,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,083,00,0,K,127,2,2,110,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,2,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,127,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=41INT RF1=57INT ME3=65INT ME4=73INT SB2=81INT RF2=97INT NK1=107INT NK2=115INT NK3=123INT RF3=131INT ME5=139INT ME6=147INT SB3=155INT END=171
/*1*/STR MNH={d^^d^^^^^^^^rrrre^^e^^^^^^^^rrrrf^^^^^^^g^^^^^^^f^^^^^^^e^^^^^^^}STR MNI={a^ga^`c^a#^rrrrrrrg^fg^a#^a^rrrrrrr}
STR MN1={[f^ef^e^f^e^f^g^r:e^de^d^e^d^c^^^r]e^de^g^a^g^a^^^r}
STR MN1A={MD({f^ef^e^f^e^f^g^r},1,!1^1)[16r]MD({d^cd^c^d^c^d^e^r},1,!1^1)[16r]}
STR MN2={a^defeda^refgfea^rfgagfa^e^f^g^rr;aaaagfga#^^ra^g^aa#^a^a#^a^^^^^rrr/*[a^defeda^^efgfe^:eede^g^a^g^a^^^r]ggfg^a#^a^g^a^^^r*/}
STR MN3={[a^ga^`c^a#^dgaa#agfg^fg^a#^a^cfgagfc:f^ef^g^f^e^f^g^a^^^rraga^^^rrrrr]a#^aa#^`c^a#^a^a#^`d^`e^^^rr`e`d`e^^^rrrrr}
STR MN4={[f^ef^e^f^e^f^:g^r]a^r[a^defeda^rdefed^]}STR MN5={[56r]MD2({a^ga^`c^a#^},8,!1)}
TR=1l8HAM({DL=HAZ;MNH;MNI;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=NK2;MN4;MN5;DL=ME5;MN1A;DL=SB3;MN3;})
/*2&3&4*/STR RTA={BR=6@1,90,0If(CH==3){p%=300@82,90,1}If(CH==4){p%=-300@82,90,1}}STR RTB={@82,90,1If(CH==3){p%=300@49,90,1}If(CH==4){p%=-300@49,90,1}}
STR RTC={@1,90,0If(CH==3){p%=300@100,0}If(CH==4){p%=-300@99,1}}STR RTHH={RTC;EP.T(50,90,!1)eceg`ca#g#g}
STR RTH={RTB;EP=85l4d&&^^^^^^^`d^^^^^^rBR=24a#^^^g&&^^^`a^^^a^^^l8}
STR RT1={RTA;EP=127CHO=60adfgagfa#^dgaa#agf;gcefgfea^dfgagfd;f"a#defedg^cefgfec;acfgagfa^dfga^^r}
STR RT1A={RTA;EP=127CHO=60adfgagf[9r]gcefgfe[9r]f"a#defed}
STR RT2={RTA;EP=127CHO=60acfgagfa^dfga^^r}STR RT3={If(CH!=2){If(CH==3){p%=300@49,90,1}BR=6If(CH==4){p%=-300@49,90,1}l8EP=70[`d^^^^^^^^^^^`a^`g^`d^^^^^^^^^^^^^^^]}}
STR RT4={If(CH==2){@82,110,5EP=70[8`d`e`f`d`e`f`d`e]}If(CH!=2){If(CH==3){p%=300@49,90,1}BR=6If(CH==4){p%=-300@49,90,1}l8EP=70[`d^^^^^^^^^^^`a^`g^`d^^^^^^^^^^^^^^^]}}
STR RT5={If(CH!=2){BR=6If(CH==3){p%=500@66,90,1}If(CH==4){p%=-500@66,90,1}EP=100M.W(30,127,!2)l16`c^&&`d^^^^^^^fgagfa`c^&&`d^^^^^^^fgafga`c^&&`d^^^^^^^ggafgal8`c&&`d^^`c&&`e^^
`d&&`f^^^^^^`d&&`g^^^^^^`d&&`a^^^^^^`c&&`e^^^^^^M=0}}
STR RRF={l8DL=HAZ-1RTHH;DL=HAZ;RTH;HAM({DL=BGN;RT1;DL=RF1;RT1;DL=RF2;RT1;RT2;DL=NK1;RT3;DL=NK3;RT4;DL=RF3;RT1A;DL=ME6;RT5;DL=END[RT1:REC2]})}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,30,100)}STR BSH={l4q=100e^^^d^^^g^^^c^^^f^^^"a#^^^e^^^"a^^^a^^^l8BSA}
STR BSI={[4d`d][4g`g][4c`c][4f`f][4"a#a#][4e`e][3"a:a]aaa^^^rrrrr}
STR BS1={[4d`d][4g`g][4c`c][4f`f][4"a#a#][4e`e][4"aa][4a`a]}STR BS1A={q=90d^d^rd^dg^g^rg^gc^c^rc^cf^f^rf^fBSA[4"a#a#][4e`e][4"aa][4a`a]}STR BS1B={[3"aa]q=90"a"araaaa^^rBSA}
STR BS1C={[4d`d][4g`g][4c`c][4f`f][4"a#a#][4e`e][4"aa]q=90r"a"a"a"a^"a^BSA;}STR BS2={[[4d`d][4g`g][4c`c][4f`f]]}STR BS2A={q=90[d^d^[12r]c^c^:[12r]]rrrf^f^f^^rrBSA}
STR BS3={[4"a#a#][4"bb][4c`c][4c#`c#][4d`d][4"gg]["a:a]q=90"a^"a^"a^^^^^rrrBSA;/*[[4"a#a#][4e`e][4c`c]:[4f`f]][4"aa]*/}
STR BS3A={l4q=90"a#^^^"b^^^c^^^c#^^^l8BSA[4d`d][4"gg]["a:a]q=90"a^"a^"a^^^^^rrrBSA;}
STR BS4={[[4d`d][4g`g][4c`c][4f`f][4"a#a#][4e`e]:[4"aa][4a`a]][3"a:a]aaa^^^rrrrr}
STR BS4A={l4q=100d^^^g^^^c^^^f^^^"a#^^^e^^^"a^^^"a^^^l8BSA[4d`d][4g`g][4c`c][4f`f][4"a#a#][4e`e][3"a:a]aaa^^^rrrrr}
STR BS5={l16q=90[[3[3d^:r]]d^d#^d^c^[[3d^:r]]:[3"a#^:r]["a^^r]][3d^:r][d^^r]l8BSA}STR BS6={[32d`d]}
STR BASS={l8<<DL=HAZ-1BSH;BSI;DL=BGN;BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4;BS1A;BS1B;DL=NK1[BS5]BS6;BS1C;BS2A;BS3A;BS4A[BS1:REC2]}TR=5;<@40,90,0BASS;TR=7@35,90,1BASS;
/*6*/STR COH={@49,90,1EP=75l8ecgca#c`cc;g#`ca#`cg#`cg`cf`f`c`fa#`fg#`f;ga#g#a#ga#fa#d#`d#`c#`d#`c`d#a#`d#;fg#gg#fg#d#g#c#`c#`c`c#a#`c#g#`c#;eagafaea"aagaeaca}
STR COI={@49,90,1EP=80l4'`daf'^^^'`g`da'^^^'`cge'^^^'`f`ca'^^^'`da#f'^^^'`ea#g'^^^l8'`c#ae'^^^^'`e`c#a''`e`c#a''`e`c#a'^^^rrrrr}
STR CO1={@49,90,1EP=80l4'`daf'^^^'`g`da'^^^'`cge'^^^'`f`ca'^^^'a#fd'^^^'`e`cg'^^^l8'aec'^^^^^^'`a`e`c'^[3'`a`e`c']'`a`e`c'^^^}
STR CO1A={@49,90,1EP=80l8'aec'^^^^^^'`a`e`c'^[3'`a`e`c']'`a`e`c'^^^}
STR CO2={@82,110,1EP=75l8P=100['fd"a'^^^^^MD({'fd"a''fd"a'},2,!2)[8r]'ec"a'^^^^^MD({'ec"a''ec"a'},2,!2)[8r]]P=32}
STR CO3={@49,90,1EP=70l4'a#fd'^^^'bfd'^^^'`caf'^^^'`c#af'^^^'`daf'^^^'a#gd'^^^l8['afd']r'afd'r'afd'r'afd'[8r]}
STR CO4={@49,90,1EP=80l4['`daf'^^^'`g`da'^^^'`cge'^^^'`f`ca'^^^'`da#f'^^^'`ea#g'^^^:'`c#ae'^^^'`e`c#a'^^^]l8'`c#ae'^^^^'`e`c#a''`e`c#a''`e`c#a'^^^rrrrr}
STR CO5={@82,110,5EP=80l8['fd"a'^^^^^^'gd"a'^^^^^^^^'fd"a'^^^^^^'afd'^^^^^^^^]}STR CO6={@49,90,1EP=70P=100l1SUB{HAM({`d^^^^^^^})}l4[8'fd"a'^^^]P=32}
TR=6DL=HAZ-1COH;COI;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3;CO4;CO1;CO1A;DL=NK1[CO5]CO6;DL=ME5;CO2;CO3;CO4[CO1:REC2]
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR ULH={ULA;SUB{"f^^"f^^^^^^^^}"a^^"a^^^^^^^^rrrrSUB{"g^^"g^^^^^^^^}c^^c^^^^^^^^rrrrSUB{"a#^^^^^^^"g^^^^^^^"a^^^^^^^"a^^^^^^^}d^^^^^^^e^^^^^^^d^^^^^^^c#^^^^^^^}
STR ULI={ULA;EP=127SUB{MNI}SUB{a^aa^a^a#^}SUB{`d^`c`d^`g^`f^}f^ff^f^f^rrrrrrrSUB{g^gg^g^`c^}SUB{`c^a#`c^`f^`e^}e^ee^e^a^rrrrrrr}
STR UL1={ULA;EP=127[a^ga^g^a^g^a^a#^r:a^ga^g^a^g^f^^^r]a^ga^a#^EP=100SUB{d^c^d^^^}f^e^f^^^r}
STR UL2={ULA;EP=127`d^gaa#ag`d^raa#`ca#a`d^ra#`c`d`ca#`d^a^a#^`c^rrSUB{`d`d`d`d`ca#`c`f^^}ffffedeg^^rSUB{f^d^ef^e^f^e^^^^^}`e^`d^`c#`c#^`c#^`d^`e^^^^^rrr}
STR UL3={ULA;EP=127SUB{MN3}[SUB{a^aa^a^a#^rrrrrrrg^gg^g^`c^}SUB{/*`d^`d`d^`g^`f^*/`d^`c`d^`g^`f^;a#a#a#a#a#a#a#;/*`c^`c`c^`f^`e^*/`c^a#`c^`f^`e^;aaaaaaa}f^ff^f^f^;ggggggg;e^ee^e^a^;fffffff:
SUB{a^aa^a#^a^a^a^a#^c#^^^rrc#c#c#^^^}d^cd^e^d^c^d^e^e^^^rreee^^^rrrrr]SUB{d^cd^e^d^c^d^e^c#^^^rrc#c#c#^^^}f^ef^g^f^e^f^g^a^^^rraaa^^^rrrrr}
STR UL4={ULA;EP=127[a^ga^g^a^g^a^:a#^r]`d^r[`d^fgagf`d^rfgagf^]}STR UL5={ULA;EP=127SUB{MN5}[56r]MD2({SUB{f^ff^e^c^}d^cd^g^f^},8,!1)}
STR UL1A={MD({a^ga^g^a^g^a^a#^r},1,!1^1)[16r]MD({f^ef^e^f^e^f^g^r},1,!1^1)[16r]}
STR ULMR={HAM({DL=HAZ;l8ULH;ULI;DL=ME1;l8UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3;DL=NK2;UL4;UL5;DL=ME5;UL1A;DL=SB3;UL3});}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n33n35n36}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={O3[61r]O1;rSUB{n49}[8O1;r:rr]O1;r[4O1;rrr][4O1;r]rr[3O1;r]}STR DDI={[26O1;rrr][4O1;r][16r]}
STR DD1={[28O1;r:rr]O1;rrr[4O1;r]rrrrrr}STR DD1A={l8[4O5;rO5;rrO1;rO1]l16[12O1;r:rr]O1;rrr[4O1;r]rrrrrr}STR DD1B={l16[4O1;r:rr]O1;rrr[4O1;r]rrrrrr}
STR DD2={[32O1;rrr]}STR DD2A={[O3;rrrO1:[59r]][41r][3O1;rrr]rrrrrr}STR DD3={[24O1;rrr]l8[O1]rO1;rO1;rO1[8r]l16}STR DD3A={O3[15r][3O5[15r]][8O1;rrr]l8[O1]rO1;rO1;rO1[8r]l16}
STR DD4={[32O1;rr:r]O1;[26O1;rrr][4O1;r][16r]}STR DD4A={[26O1;rrr][4O1;r][16r]}STR DD5={[32O1;rrr]}STR DD6={[28O1;rrr][8O1;r]}STR DD7={REV.T(127,20,!1^1^1^1^1^1^1)[16O1;r:rr]O1;r[16O1;rrr]REV=20}
TR=10l16DL=HAZ;BR=20p%=-500REV=20@27,7,0CHO=50V=110DDH;DDI;DL=BGN;BR=20p%=-500REV=20@27,7,0CHO=50V=110DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4;DD1A;DD1B;DL=NK1;DD5;DD6;DD7;DD1;DD2A;DD3A;DL=SB3+8DD4A[DD1:REC2]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n59n46'}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={[16'n51n59'[7r]]}STR GGI={[26GR;GR;GB;r][GR;rGB;r][4GR;rrr]}STR GG1={[28GR;GR;GB;r]rr[4GB;r]rrrrrr}STR GG1A={[8'n51n59'[7r]][12GR;GR;GB;r]rr[4GB;r]rrrrrr}
STR GG1B={[4GR;GR;GB;r]rr[4GB;r]rrrrrr}STR GG1C={[28GR;r;GB;r]rr[4GB;r]rrrrrr}STR GG2={[32GR;rGB;r]}STR GG2A={[48r][16GR;rGB;r][16r]}STR GG3={[24GR;rGB;r]l8[GB]rGB;rGB;rGB[8r]l16}STR GG3A={[8'n51n59'[7r]][8GR;rGB;r]l8[GB]rGB;rGB;rGB[8r]l16}
STR GG4={[32GR;GR;GB:r]GR[26GR;GR;GB;r][GR;rGB;r][4GR;rrr]}STR GG4A={[64r][8'n51n59'^^^^^^^][26GR;GR;GB;r][GR;rGB;r][4GR;rrr]}STR GG5={[32GR;rGR;GR]}STR GG6={[8GR;GR;GR;GR;GB;rGR;GR;GR;GR;GB;rGR;GB;rGB]}STR GG7={[7GR;rGR;rGR;rGR;GR]GR;GR;GB;r[4'n39'][16GR;GR;GB;r]}
TR=11l16DL=HAZ;BR=20p%=2000@27,90,0GGH;GGI;DL=BGN;BR=20p%=2000/*@1,100,0*/@27,90,0GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4;GG1A;GG1B;DL=NK1;GG5;GG6;GG7;GG1C;GG2A;GG3A;GG4A[GG1:REC2]
/*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={SUB{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 PPH={PD3}STR PPI={SUB{PD3}SUB{[64r]n49[15r]n49[9r]n49rrrn57}[13rrrr'n38'rrr][20r]BR=20p%=-2000'n38n40'rrrp%=1000}
STR PP1={SUB{PD3}[14rrrr'n38'rrr][8r]rrrrBR=20p%=-2000'n38n40'rrrp%=1000}STR PP1A={SUB{PD3}[64r][6rrrr'n38'rrr][8r]rrrrBR=20p%=-2000'n38n40'rrrp%=1000}
STR PP1B={SUB{n49[15r][3n51rrr][2n51r]}[rrrr'n38'rrr][8r]rrrrBR=20p%=-2000'n38n40'rrrp%=1000}STR PP1C={PD3}STR PP2={[16rrrr'n38'rrr]}STR PP3={[12rrrr'n38'rrr][24r]rrrrBR=20p%=-2000'n38n40'rrrp%=1000}
STR PP3A={[64r][4rrrr'n38'rrr][24r]rrrrBR=20p%=-2000'n38n40'rrrp%=1000}STR PP4={SUB{[PD3]}[16rrrr'n38'rrr]SUB{[64r]n49[15r]n49[9r]n49rrrn57}[13rrrr'n38'rrr][20r]BR=20p%=-2000'n38n40'rrrp%=1000}
STR PP4A={SUB{[PD3]}[128r]SUB{[64r]n49[15r]n49[9r]n49rrrn57}[13rrrr'n38'rrr][20r]BR=20p%=-2000'n38n40'rrrp%=1000}STR PP5={PD3}STR PP6={SUB{PD3}[4rrrr'n38'rrr;rr'n38'r'n38'rrr:rrrr'n38'rrr;rr'n38'rr'n38'r'n38'][5'n38']r[10'n38']}STR PP7={SUB{PD3}[64r][8rrrr'n38'rrr]}
TR=12l16DL=HAZ@1,100,0BR=20p%=1000V=110PPH;PPI;DL=BGN@1,100,0BR=20p%=1000V=110PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4;PP1A;PP1B;DL=NK1;PP5;PP6;PP7;PP1C;DL=ME6;PP3A;PP4A[PP1:REC2]
/*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]}
STR DS18={[10r]`g`g`drar}STR DS19={l8a`drar`dral16rr`g`fr`e`dr`cbragrer}STR DS20={`grr`err`crrbrr`e`cbf}STR DS21={`g`g`e`e`c`caaffrfrrrr}
TR=13l16<DL=HAZ@119,9PG1;HAM2({DL=HAZ+7DS20;DL=HAZ+15DS21;DL=BGN+7DS18;DL=ME1+3DS6;DL=ME1+7DS13;DL=ME2+6DS19;DL=SB1+7DS20;DL=SB1+15DS21;DL=RF1+7DS18;DL=ME3+3DS6;DL=ME3+7DS13;DL=ME4+6DS19;DL=SB2+7DS20;DL=SB2+15DS21;DL=RF2+7DS18;DL=RF2+9DS18;
DL=NK1+3DS6;DL=NK1+7DS13;DL=NK2+3DS7;DL=NK2+6DS19;DL=NK3+7DS21;DL=RF3+7DS18;DL=ME5+3DS6;DL=ME5+7DS13;DL=ME6+6DS19;DL=SB3+7DS20;DL=SB3+15DS21;DL=END+7DS18;})
/*14*/STR LC={"cceg`c}STR LC2={"ccea`c}STR LCS={"c#c#eg#`c#}STR LD={"ddf#a`d}STR LD2={"ddfa`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LE2={"eea`c`e}STR LF={"ffa`c`f}STR LFS={"f#f#a`c#`f#}
STR LG={"ggb`d`g}STR LG2={"gga#`d`g}STR LA={"aa`c`e`a}STR LA2={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`d`f#`b}STR LB2={"bb`d#`f#`b}STR LB3={"bb`e`g#`b}
STR PSS={Play(,,,,,,,,,,,,,,MID(SWE,1,2))}FUNCTION PDA(STR SWE){l8PSS;l16'SWE'r[4PSS'SWE'r]}FUNCTION PDB(STR SWE){l8PSS;l16'SWE'r[PSS:'SWE'r]}FUNCTION PDC(STR SWE){[3'SWE'r:PSS]}
FUNCTION PDD(STR SWE,STR FF1){l8FF1;l16'SWE'r[4FF1'SWE'r]}FUNCTION SPC(STR SPD){['SPD'^rr]['SPD'^^]'SPD'^}
STR SPH={@3,0EP.T(50,100,!1)l8'LE'^'LE''LE'^^'LE'^;EP=100dfa'LD2'^^^^dfgad`f`e`dceg'LC'^^^^cefgc`e`d`c"a#df'<LAS>'^^^^gaa#a#a#aa#`c'<LA2>'^^^^^'<LA2>''<LA2>'^^^^^^^^}
STR SPI={@3,0EP=110PDA=LD2;PDA=LG2;PDA=LC;PDA=LF<PDD(LAS,{"a#})>PDA=LE2<PDA=LA2>l8'"a'^^^^^rrl16}
STR SP1={@1,90,0EP=90PDA=LD2;PDA=LG2;PDA=LC;PDA=LF<PDD(LAS,{"a#})>PDA=LE2<PDA=LA>PDB=LA'LA'^^^^^^^}
STR SP1A={@1,90,0EP=90l16[64r]<PDD(LAS,{"a#})>PDA=LE2<PDA=LA>PDB=LA'LA'^^^^^^^}STR SP1B={<PDA=LA>PDB=LA'LA'^^^^^^^}
STR SP1C={@82,110,5EP=75[4dd'LD2'^][4gg'LG2'^][4cc'LC'^][4ff'LF'^][4"a#"a#'<LAS>'^][4ee'LE2'^][4"a"a'<LA2>'^][16r]}
STR SP2={@1,90,0EP=100HAM({l8f^^^^"acf^^^^^"acfe^dc^d^"a^"f"g"a^^^r;f^^^^"acf^^^^^"acfg^fg^f^a^cfa^^^r})}
STR SP2A={@1,90,0EP=110l8SUB{[defdfdef;"a#df"a#f"a#df;cdececde:"ace"ae"ace]cfacacfa}HAM({l8>f^^^^"acf^^^^^"acfe^dc^d^"a^"f"g"a^^^r;f^^^^"acf^^^^^"acfg^fg^f^a^cfa^^^r<})}
STR SP3={@1,90,0EP=100HAM({defdfdef;efgegefg;fgafafga;fgaeaega;rffffedea#^^re^d^ef^e^f^e^^^rrrrr})}
STR SP4={@3,0EP=110[PDA=LD2;PDA=LG2;PDA=LC;PDA=LF<PDD(LAS,{"a#})>PDA=LE2<PDA=LA2>:PDA=LA2]l8'"a'^^^^^rrl16}STR SP5={@3,0EP=100[8PDA=LD2]}
TR=14DL=HAZ-1SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2A;SP3;SP4;SP1A;SP1B;DL=NK3;SP5;SP1C;SP2;SP3;SP4[SP1:REC2]
/*15*/STR FTA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR FTH={@56,90,1EP=110l8drrrrrddrrrrrrrrerrrrreerrrrrrrrfrrrrrrrgrrrrrrrfrrrrrrrerrrrrrr}
STR FTI={@82,110,0l8EP=110'afd'^'gec''afd'^'`caf'^'a#gd'^@109,0HAM({q.T(0,80,!2^4^8)[7'a#gd']})q=100@82,110,0'gec'^'fd"a#''gec'^'a#gd'^'afc'^@109,0HAM({q.T(0,80,!2^4^8)[7'afc']})q=100
@82,110,1EP=110'a#gd'^'afc''a#gd'^'`caf'^'a#gd'^'afc'^'a#gd'^'`da#g'^'`e`ca'^^^^^@101,0EP=120HAM({SUB{`c#b`c#^^^^^}`e`d`e^^^^^rrr})}
STR FT1={@82,110,0l16EP=110['afd'^^r]rr'afd'^^r'afd'^['a#gd'^^r]rr'a#gd'^^r'a#gd'^['gec'^^r]rr'gec'^^r'gec'^['afc'^^r]rr'afc'^^r'afc'^;
['fd"a#'^^r]rr'fd"a#'^^r'fd"a#'^['ge"a#'^^r]rr'ge"a#'^^r'ge"a#'^['aec'^^r]rr'aec'^^r'aec'^[4'afd'^]'afd'^^rrrrr}
STR FT1A={['aec'^^r]rr'aec'^^r'aec'^[4'afd'^]'afd'^^rrrrr}
STR FT2={@46,0,0EP=100FTA;l8HAM({[d"ae"af"aa"a;d"ge"gf"gg"g;c"gd"ge"gg:"g;f"ag"aa"a`d"a]})@82,90,1EP=110P=96'afd'^'gec'^'afd'^^^r}
STR FT3={@47,0,0EP=110FTA;l8HAM({SUB{dfadadfa;eg`ce`ceg`c;fa`df`dfa`d;fa`dd`dda`d}"a#df"a#f"a#df;cegcgceg;dfadadfa;dfa"aa"ada})r@83,0P=96EP=100HAM({SUB{ffffedeg^^}aaaagfga#^^r})
@56,90,0EP=90SUB{`d^`d^}a^g^@82,91,0EP=110SUB{`c#`c#^`c#^`d^`e^^^^^}a#a#^a#^a#^a^^^^^rrr}
STR FT4={[@82,110,0l8EP=110'afd'^'gec''afd'^'`caf'^'a#gd'^@109,0HAM({q.T(0,80,!2^4^8)[7'a#gd']})q=100@82,110,0'gec'^'fd"a#''gec'^'a#gd'^'afc'^@109,0HAM({q.T(0,80,!2^4^8)[7'afc']})q=100
:@82,90,1EP=127'`f`da#'^'`e`ca''`f`da#'^'`g`e`c'^'`f`da#'^'`e`ca'^'`f`da#'^'`g`e`c'^'`a`e`c#'^^^^^EP=120@100,0HAM({SUB{`e`d`c#^^^^^rrr}`g`f`e^^^^^rrr})]
@82,110,1EP=110'a#gd'^'afc''a#gd'^'`caf'^'a#gd'^'afc'^'a#gd'^'`da#g'^'`e`ca'^^^^^@101,0EP=120HAM({SUB{`c#b`c#^^^^^}`e`d`e^^^^^rrr})}
STR FT4A={@82,110,0l8EP=110'afd'^'gec''afd'^'`caf'^'a#gd'^@109,0HAM({q.T(0,80,!2^4^8)[7'a#gd']})q=100@82,110,0'gec'^'fd"a#''gec'^'a#gd'^'afc'^@109,0HAM({q.T(0,80,!2^4^8)[7'afc']})q=100
@82,110,1EP=110'a#gd'^'afc''a#gd'^'`caf'^'a#gd'^'afc'^'a#gd'^'`da#g'^'`e`ca'^^^^^@101,0EP=120HAM({SUB{`c#b`c#^^^^^}`e`d`e^^^^^rrr})}
STR FT5={@56,90,0l8EP=110[`drrrrrrr`drrr`d`d#`d`c`drrrrr`d`drrrrrrrr]}
STR FT6={@56,90,0l16EP=110[[`dr`drd`dr`d`dr`dr`d#r`d#r:`dr`drd`dr`d`dr`dr`cr`cr]`d`d`d`d`dr`dr`drrr`drrr]}
STR FT7={l8[32r]@82,110,0EP=100[4rrMD({'`daf'^},2,!2)rrrr]}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;FT1;FT1A;DL=NK1;FT5;FT6;FT7;DL=ME5;FT2;FT3;DL=SB3+8FT4A[FT1:REC2]
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(100,127,!1)l4'cd'^^^}
STR BG10={l8CHO=80REV=100[[8r]@127,110,0l8BR=1p=96"f^^^^^^^[8r]@127,110,2l8BR=1p=96"g^^^^^^^]p=64CHO=20REV=10}STR BG11={@120,0EP=127l4'cde'^^^}
TR=16DL=HAZ-1BG9;DL=HAZ+15BG4;DL=BGN+6BG1;BG3;DL=ME2+6BG1;BG2;DL=SB1+7BG3;DL=SB1+15BG4;DL=RF1+6BG1;BG3;DL=ME4+6BG1;BG2;DL=SB2+7BG3;DL=SB2+15BG4;DL=RF2+6BG1;BG3;DL=RF2+8BG1;BG3;
DL=NK1;BG10;DL=NK2+7BG9;DL=NK3+7BG4;DL=RF3+6BG1;BG3;DL=ME6+6BG1;BG2;DL=SB3+7BG3;DL=SB3+15BG4;DL=END+6BG1;BG3;

}

If(TRACK_SELECT==3){

INT EST=154PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"ESSENTIAL DEEP EMOTION"}Copyright={H゛}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+20;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=TRACK_KEY;
//-(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,9,2,127,09,0)WIN(07,07,039,08,0,K,074,1,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,100,00,0,K,064,2,2,100,10,0)WIN(08,08,012,00,0,K,000,9,5,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,089,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,9,5,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,099,01,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,2,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=41INT RF1=57INT ME3=65INT ME4=73INT SB2=81INT RF2=97INT ME5=105INT NK1=113INT NK2=121INT ME6=129INT SB3=137INT RF3=153INT END=161
/*1*/STR MNH={f^ff`ca#^f^fff`ca#^rf^ff`ca#^g#g^^d#^^c^f^^rfd#fg#^^^ra#g#a#g^^^^^^rr}STR MN1={[f^fffgrg#^g#g#g#g#a#^rg^gf^d#^:f^"a#cf^^^r]f^^^r}
STR MN2={fgg#f`c^`c`c`c`c#ra#^g#^g^g#a#^a#^a#a#a#`crg#^g^f^gg#^;g#^g#g#g#a#rg^f^d#^fgd#f^^^r"a#cf^rrrf^d#^}
STR MN3={[fgg#f`ca#^f^gg#f`ca#^rfgg#f`ca#^g#`c^`c#`c^a#^r:`d#^`c#g#r`c#^`d#^`c#^g#^`c#^`c#`c^`c#`c^a#^`c^a#g#g^^^r]
f^d#f^g^g#^g^g#^g#a#g^^^^^^^^`c^^^^^^^/*`c^`c^`c^`c^a#`c^^^r`c^a#`c^^^r`c`c`c`c`c`c#ra#^^^f^^^r`c^`c#`cra#^`c^`c#^`c^a#^`c^^^`c^ra#g#g^^`c^^^r*/}
STR MNI={f^ff`ca#^f^fff`ca#^rf^ff`ca#^g#g^^d#^^c^`d#^`c#g#r`c#r`d#^`c#^g#^`c#^`c^^^^r`ca#`c^^^r}
STR MN4={>g#^^^^^gg#^^^^^fgg#g^^f^^d#^f^^^rfgg#g#^^^^g#a#`c`c^^^^g#a#`ca#^^g^^d#^f^^^^rrr<}
TR=1l8HAM({DL=HAZ+8MNH;DL=ME1;V=110MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=NK2;MNI;MN2;MN3;DL=RF3;V=100[MN4]})
/*2&3&4*/STR RTA={@99,1BR=6If(CH==3){p%=300@99,1}If(CH==4){p%=-300@99,1}CHO=100}STR RTB={@1,90,0BR=6If(CH==3){p%=300@82,90,1}If(CH==4){p%=-300@82,90,1}CHO=100}
STR RTH={l8If(CH==2){[[14r]@82,110,0EP=100M.W(30,70,!2)MD({'fc"g#'^^^},2,!1)[14r]]M=0}If(CH!=2){BR=6If(CH==3){p%=200}If(CH==4){p%=-200}@82,110,5q=80EP=70[4'fc"g#'^^r'fc"g#'^^'fc"g#'r'fc"g#'r'fc"g#''fc"g#'^'fc"g#'^]q=100}}
STR RTI={l8If(CH==2){[6r]@82,110,0EP=100M.W(30,70,!2)[3MD({'fc"g#'^^^},1,!1)[12r]]MD({'ec"g^^^},1,!1)M=0}
If(CH!=2){BR=6If(CH==3){p%=200}If(CH==4){p%=-200}@82,110,3q=80EP=80[3'fc"g#'^^r'fc"g#'^^'fc"g#'r;'fc"g#'r'fc"g#''fc"g#'^'fc"g#'^]'ec"g'^^r'ec"g'^^'ec"g'rq=100}}
STR RT1={RTA;l8EP=127[g#fgg#^fgg#^fgg#g#gg#a#g^gf^d#^f^"a#c:"a^fgg#]"a^^^r}
STR RT2={If(CH==2){[64r]}If(CH!==2){BR=6If(CH==3){@47,0p%=300}If(CH==4){@27,8p%=-300}EP=110M.W(30,100,!4)[c#^'fc#"g#'c#'fc#"g#'^^'fc#"g#';"a#^'fc#"g#'"a#'fc#"g#'^^'fc#"g#';
'gd#c'^^c'gd#c''gd#c'c'fc"a'^c'fc"a'^^^rr]M=0}}
STR RT3={If(CH==2){@82,90,1EP=100fc#gc#g#c#`cf^d#gd#g#d#`c^d#cgcg#ca#f^cg#ca#c`c^;c#"a#d#"a#f"a#g#d#^cgcg#ca#f^cg#ca#c`cf^cg#c`c^^r}
If(CH!==2){BR=6If(CH==3){@54,0p%=300}If(CH==4){@54,0p%=-300}EP=110M.W(30,60,!4)SUB{g#^g#g#g#a#rg^f^d#^^^rg^gggg#rf^d#^c^^^r}`c^`c`c`c`c#ra#^g#^g^^^ra#^a#a#a#`crg#^g^f^^^r
SUB{f^ffffrg^g^d#^d#d#d#f^^^^fgg#^^^^^}g#^g#g#g#g#ra#^a#^a#^a#a#a#`c^^^^`c`c`c^^^^^rrrM=0}}
STR RT3A={If(CH==2){@82,90,1EP=100[32r]c#"a#d#"a#f"a#g#d#^cgcg#ca#f^cg#ca#c`cf^cg#c`c^^r}
If(CH!==2){BR=6If(CH==3){@54,0p%=300}If(CH==4){@54,0p%=-300}EP=110M.W(30,60,!4)[32r]
SUB{f^ffffrg^g^d#^d#d#d#f^^^^fgg#^^^^^}g#^g#g#g#g#ra#^a#^a#^a#a#a#`c^^^^`c`c`c^^^^^rrrM=0}}
STR RT3B={If(CH==2){@82,90,1EP=100fc#gc#g#c#`cf^d#gd#g#d#`c^ecgcg#ca#f^cg#ca#c`c^;c#"a#d#"a#f"a#g#d#^cgcg#ca#f^cg#ca#c`cf^cg#c`c^^r}
If(CH!==2){BR=6If(CH==3){@54,0p%=300}If(CH==4){@54,0p%=-300}EP=110M.W(30,60,!4)SUB{g#^g#g#g#a#rg^f^d#^^^rg^gggg#rf^d#^c^^^r}`c^`c`c`c`c#ra#^g#^g^^^ra#^a#a#a#`crg#^g^f^^^r
SUB{f^ffffrg^g^d#^d#d#d#f^^^^fgg#^^^^^}g#^g#g#g#g#ra#^a#^a#^a#a#a#`c^^^^`c`c`c^^^^^rrrM=0}}
STR RT4={[If(CH==2){[32r]}If(CH!==2){BR=6If(CH==3){p%=400}If(CH==4){p%=-400}rrrrr@82,0EP=120'fc"g#'^^rrrrr>@56,90,1EP=100'fc''fc'r<[8r]@100,0EP=127SUB{f^ff^d#^}`c^`c#`c^a#^r;}
RTB;EP=120f^^^^"g#cd#f^^^^"g#cd#g^^^^^^^a#^^^^^^^]}
STR RRF={l8DL=HAZ;RTH;RTI;HAM({DL=BGN;RT1;RT2;RT3;RT4;RT1;RT2;RT3A;RT4;RT1;RT2})DL=NK1;RTH;RTI;HAM({DL=ME6;RT3B;RT4;RT1;})}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,100)}STR BSH={l4q=100[MD({ffrr},3,!1)[12r]]l8BSA;}STR BSI={[4f`f][4d#`d#][4c#`c#][4c`c][8"a#a#][4c`c][8r]}
STR BS1={[[4c#`c#][4"a#a#][4c`c][4f`f]]}STR BS1A={q=90c#^c#^rc#^c#"a#^"a#^rrrr[8r]f^f^rf^^BSA[4c#`c#][4"a#a#][4c`c][4f`f]}
STR BS1B={l4q=100[c#^^^"a#^^^c^^^f^^^]l8}
STR BS2={[[4c#`c#][4"a#a#][4c`c][4f`f]]}STR BS3={[4c#`c#][4d#`d#][4c`c]f`fg`gg#`g#c`c[4"a#a#][4c`c][8f`f]}
STR BS3A={l4q=100c#^^^d#^^^c^^^fgg#`c"a#^^^c^^^f^^^^^^^l8BSA}STR BS3B={[4c#`c#][4d#`d#][4e`e]f`fc`c"g#g#"ff[4"a#a#][4c`c][3f:`f]fff^^^^^^`f&&f}
STR BS4={[[4f`f][4d#`d#][4c#`c#][4c`c][8"a#a#][4c`c]:[4e`e]][4c`c]}
STR BS4A={[3f`f]fd#^`d#[3d#`d#]q=100c#^^^^^^^c^^^^^^^BSA[8"a#a#][4c`c][4e`e];[4f`f][4d#`d#][4c#`c#][4c`c][8"a#a#][4c`c][4c`c]}
STR BASS={l8<<DL=HAZ;CHO=90BSH;BSI;DL=BGN;CHO=90BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4;BS1A;BS2;DL=NK1;BSH;BSI;BS3B;BS4A;BS1;BS1B;}TR=5;<@40,90,0BASS;TR=7@35,90,1BASS;
/*6*/STR COH={@49,90,1EP=80l8q=60HAM({[8"ffgfg#f`cf]})q=100}STR COI={@49,90,1EP=90l8q=60HAM({[6"ffgfg#f`cf]"eegea#e`ceSUB{g^edc"gg"g}a#^gfec`cc})q=100}
STR CO1={@49,90,1l4EP=90['g#fc#'^^^'g#f"a#'^^^'gd#c'^^^'afc'^^^]}
STR CO2={@49,90,1l4EP=80P=100HAM({[`f^^^^^``c`a#`f^^^^^^^]})P=32}
STR CO2A={@49,90,1l4EP=80P=100HAM({[`f^^^^^``c`a#:`f^^^^^^^]`g^^^`f^^^})P=32}
STR CO3={@55,110,8EP=85l4'g#f'^^^'a#f'^^^'a#d#'^^^'`cg#'^^^;'g#c#'^^^'a#d#'^^^'`cf'^^^'`cf'^^^}
STR CO3A={@55,110,8EP=85l4[16r]'g#c#'^^^'a#d#'^^^'`cf'^^^'`cf'^^^}
STR CO3B={@55,110,8EP=85l4'g#f'^^^'a#f'^^^'a#e'^^^'`cg#'^^^;'g#c#'^^^'a#d#'^^^'`cf'^^^'`cf'^^^}
STR CO4={@49,90,1EP=100SUB{l1[`f`f`f`f`c#`f`e`g]l4}['fc'^^^'gd#'^^^'g#c#'^^^'a#c'^^^'fc#'^^^'a#c#'^^^'gc'^^^'a#e'^^^]}
TR=6@49DL=HAZ;COH;COI;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3A;CO4;CO1;CO2A;DL=NK1;COH;COI;CO3B;CO4[CO1]
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR ULH={ULA;c^ccg#g^c^cccg#g^rc^ccg#g^fd#^^c^^"g^SUB{"g#^^r"g#"g"g#"a#^^^r"a#"a#"a#c^^^^^^}c#^^rc#cc#f^^^rgfge^^^^^^rr}
STR UL1={ULA[c#^c#c#c#d#rf^ffffg^r:SUB{c^cc^c^c#^c#c#c#^^^}d#^d#d#^d#^f^ffg#^^^r]SUB{c^cc^c^c#^^^}d#^d#d#^d#^f^^^r}
STR UL2={ULA;c#d#fc#g#^g#g#g#a#rg^f^d#^fg^g^gggg#rf^d#^c#^d#f^;SUB{f^ffffrg^g^d#^d#d#d#"g#^^^rc#d#g#^rrrg#^g^}c#^c#c#c#c#rd#^d#^c^cccc^^^r"g"g#c^rrrc^"a#^}
STR UL3={ULA;SUB{MN3}[SUB{"g#"a#c"g#fd#^"g#^"a#c"g#fd#^r"g#"a#c"g#fd#^cc^c#c^"a#^r}cd#fcg#g^c^d#fcg#g^rcd#fcg#g^ff^ff^d#^r:SUB{g^fc#rf^g^f^c#^f^fe^fe^c^e^ccc^^^}a#^g#frg#^a#^g#^f^g#^g#g^g#g^f^g^fee^^^r]
SUB{"a#^"a#"a#^"a#^"a#^"a#^"a#^"a#"a#"g^^^^^^^^c^^^^^^^}c#^c#c#^c#^c#^c#^c#^c#c#c^^^^^^^^e^^^^^^^}
/*SUB{c#c#c#c#c#c#^d#^d#d#d#d#d#^rc#c#c#c#c#c#^c#d#^d#d#^d#^r}ffffff^g^ggggg^rg#g#g#g#g#g#^g#a#^a#a#^a#^r:<SUB{a#^a#a#ra#^`c#^`c#^`c#^`c#^`c#`c^`c`c^`c^`e^`e`e`e^^^}`c#^`c#`c#r`c#^`f^`f^`f^`f^`f`e^`e`e^`e^`g^`g`g`g^^^r>*/
STR ULI={ULA;c^ccg#g^c^cccg#g^rc^ccg#g^fd#^^c^^"g^;SUB{g^fc#rfrg^f^c#^f^e^^^^rccc^^^r}a#^g#frg#ra#^g#^f^g#^g^^^^reee^^^r}
STR UL4={ULA;SUB{MN4}>SUB{c#^^^^^cc#^^^^^"g#"a#c"a#^^"g#^^"g^"a^^^r}f^^^^^d#f^^^^^cd#fd#^^c^^"a#^c^^^rSUB{"g#"a#cc^^^^cd#ff^^^^cd#fd#^^c^^"g^"a^^^^rrr}cd#ff^^^^fgg#g#^^^^fgg#g^^d#^^"a#^c^^^^rrr<}
STR ULMR={HAM({DL=HAZ+8l8ULH;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3;DL=NK2;ULI;UL2;UL3;DL=RF3;EP=110[UL4]EP=127})}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n33n35n36}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={REV=100[O3[63r]]REV=10}STR DDI={O3[31r]O4[15r][3O1;rrr][O1;r][12O1;rrr]O3[15r]}
STR DD1={[16O1;r:rr]O1;r[12O1;rrr]rr[3O1;r]rrrrO1;rrr}STR DD1A={[O1;rrrO1;rrr[8r]][16r][4O1;r]rr[3O1;r][12O1;rrr]rr[3O1;r]rrrrO1;rrr}STR DD2={[16O1;r:rr]O1;r[14O1;rrr][4O1;r]}
STR DD3={[16O1;r:rr]O1;r[11O1;r:rr][3O1;r][8r][O1;rrr]}STR DD3A={O3[61r]O1;rO3[15r]O4[9r][3O1;r]O3;r[8r][3O1;r][8r][O1;rrr]}STR DD3B={[16O1;r:rr]O1;r[11O1;r:rr][3O1;r][8r]O3[7r]}
STR DD4={[30O1;rrr]SUB{rrrr[4n40]}[O1;rrr][28O1;rrr]EP.T(50,80,!1)SUB{[16n40]}[16r]EP=127}STR DD4A={O3;rrr[3O1;r:rr]O4;rrrrr[3O1;rrr][32r]EP=105SUB{[16n40r][16n40]l32[32n40]l16}O3[15r]O4[15r]O3[7r]O4[7r][O3;rrrO4;rrr];EP=127SUB{n49}[28O1;rrr]EP.T(50,80,!1)SUB{[16n40]}[16r]EP=127}
TR=10l16DL=HAZ;BR=20p%=-1000REV=20@27,7,0CHO=90V=110DDH;DDI;DL=BGN;BR=20p%=-1000REV=20@27,7,0CHO=90V=110DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4;DD1A;DD2;DL=NK1;DDH;DDI;DD3B;DD4A;DD1;DDH;
/*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 GGH={[8'n51'^^^^^^^][8'n51n59'^^^^^^^]}STR GGI={[16rrGB;r][12GR;GR;GB;r]GB[15r]}STR GG1={[32GR;GR;GB;r]}STR GG1A={[[GR;rGB;r][8r]][4GR;rGB;r][4GB;rrr][16GR;GR;GB;r]}
STR GG2={[32GR;rGB;r]}STR GG3={[28GR;rGB;r][16r]}STR GG3A={[16GR;rGB;r][12GR;GR;GB;r][4GB;rrr]}STR GG4={[30GR;GR;GB;r][GR;GR;GB;GR][28GR;GR;GB;r][16r]}
STR GG4A={[4GB;r:rr]GB;rrrrr[3GB;rrr][32r][14GR;rGB;r][GR;GR;GB;GR][28GR;GR;GB;r][16r]}
TR=11l16DL=HAZ;BR=20p%=2000@27,90,0GGH;GGI;DL=BGN;BR=20p%=2000@27,90,0GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4;GG1A;GG2;DL=NK1;GGH;GGI;GG3;GG4A;GG1;GGH;
/*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={SUB{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 PPH={SUB{PD3}[64r][6rrrr'n39n55'rrr][12r]REV=127'n38n40'rrrREV=0}STR PP1={SUB{PD3}[14rrrr'n39n55'rrr][16r]}STR PP1A={SUB{PD3}[64r][6rrrr'n39n55'rrr][16r]}
STR PP2={[15rrrr'n39n55'rrr][8r]}STR PP3={[14rrrr'n39n55'rrr][16r]}STR PP3A={PD3}
STR PP4={SUB{[PD3]}SUB{[64r]n49[9r][3n49rrrn49[11r]]}[15rrrr'n39n55'rrr][8r]SUB{[64r]n49[9r][n49rrrn49[11r]]rrrrrrn49}[14rrrr'n39n55'rrr][12r]REV=127'n38n40'rrrREV=0}
STR PP4A={SUB{[PD3]}SUB{[64r]n49[9r][3n49rrrn49[11r]]}[rrrr'n39n55'rrr[8r]][32r][64r]SUB{[64r]n49[9r][n49rrrn49[11r]]rrrrrrn49}[14rrrr'n39n55'rrr][12r]REV=127'n38n40'rrrREV=0}
STR PP5={l8[[8r]n57[7r][3'n51n59'r:r]n49rrrrrrr]l16}
TR=12l16DL=HAZ+8@1,100,0PPH;DL=BGN@1,100,0PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4;PP1A;PP2;DL=NK2;PPH;PP3;PP4A;PP1;PP5;
/*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]}
STR DS18={rr`g`g`er`cr`g`e`c#bgec"b}STR DS19={l8rrrr`g`dafl16}STR DS20={l8rrrr`g`dafl16}STR DS21={`gr`g`d#`crrr`g`gr`g`d`daa}
TR=13l16<@119,0DL=HAZ;PG1;HAM2({DL=HAZ+7REV=127@48,0;>DS8<@119,0DL=HAZ+15REV=0DS7;DL=BGN+3DS18;DL=BGN+7DS8;DL=ME1+3DS6;DL=ME1+7DS19;DL=ME2+3DS7;DL=ME2+6DS20;DS18;DL=SB1+3DS7;DL=SB1+7DS21;DL=SB1+11DS7;DL=SB1+15DS8;DL=RF1+3DS18;DL=RF1+7DS8;
DL=ME3+3DS6;DL=ME3+7DS19;DL=ME4+3DS7;DL=ME4+6DS20;DS18;DL=SB2+3DS7;DL=SB2+7DS21;DL=SB2+11DS7;DL=SB2+15DS8;DL=RF2+3DS18;DL=RF2+7DS8;DL=ME5+3DS6;DL=ME5+7DS19;DL=NK1+7REV=127@48,0;>DS8<@119,0DL=NK2+7REV=0DS7;;DL=SB3+3DS7;DL=SB3+7DS21;DL=SB3+11DS7;DL=SB3+15DS8;DL=RF3+3DS18;DL=RF3+7DS8;})
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={SPA@82,90,1EP=100l8[MD({"ffg#`crfg#`c},3,!1)[24r]]}
STR SPI={SPA@82,90,1EP=100l8[3MD({"ffg#`crfg#`c},1,!1)[8r]]MD({"eeg`creg`c},1,!1)[8r]}
STR SP1={@82,110,5l8EP=90SPA[fc#g#c#a#c#`cc#;d#"a#g#"a#a#"a#`c"a#;d#cg#ca#c`cc;fcgcac`cc]}
STR SP2={@82,110,4l8EP=70SPA[fc#g#c#a#c#`cc#;d#"a#g#"a#a#"a#`c"a#;d#cg#ca#c`cc;fcgcac`cc]}
STR SP3={@82,90,1l8EP=80SPA;gfg#fa#f`cf;gd#g#d#a#d#`cd#;ggg#ga#g`cg;fcg#ca#c`cc;c#"g#f"g#g"g#g#"g#;d#cgca#c`cc;fcg#ca#c`cc;fcgcac`cc}
STR SP4={@82,110,0l16SPA[EP=90q=50[4ff`f`f][4d#d#`d#`d#][4c#c#`c#`c#][4cc`c`c][8"a#"a#a#a#][4cc`c`c]:q=70EP=120HAM2({cc`c`cee`e`egg`g`g>cc`c`c<})]@39,8EP=127q.T(0,100,!1)P=20HAM2({[16'`cge']})q=90}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;SP1;SP2;DL=NK1;SPH;SPI;SP3;SP4[SP1:REC2]
/*15*/STR FTH={@31,90,0EP=60l8M.W(30,110,!4)<[4ffff^fff;fff'"ffg#`c`f'^f'"ffg#`c`f'f]>}
STR FTI={@31,110,0EP=60l8M.W(30,110,!4)<[6fff'"ffg#`c`f'^f'"ffg#`c`f'f]eee'"eeg`c`e'^e'"eeg`c`e'e[8r]>}
STR FT1={@82,110,0EP=110l16[['g#fc#'^^r]rr'g#fc#'^^^'g#fc#'^['g#f"a#'^^r]rr'g#f"a#'^^^'g#f"a#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['afc'^^r]rr'afc'^^^'afc'^]}
STR FT1A={@82,110,0EP=110l16[64r]['g#fc#'^^r]rr'g#fc#'^^^'g#fc#'^['g#f"a#'^^r]rr'g#f"a#'^^^'g#f"a#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['afc'^^r]rr'afc'^^^'afc'^}
STR FT2={@82,90,1EP=110l16[['g#fc#'^^r]rr'g#fc#'^^^'g#fc#'^['g#f"a#'^^r]rr'g#f"a#'^^^'g#f"a#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['afc'^^r]rr'afc'^^^'afc'^]}
STR FT3={@82,90,1EP=120l16['fc#"g#'^^r]rr'fc#"g#'^^^'fc#"g#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['gd#"a#'^^r]rr'gd#"a#'^^^'gd#"a#'^['g#fc'^^r]rr'g#fc'^^^'g#fc'^;
['fc#"g#'^^r]rr'fc#"g#'^^^'fc#"g#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['g#fc'^^r]rr'g#fc'^^^'g#fc'^;'g#fc'^^^^^rrrrrrrrrr}
STR FT3A={@82,90,1EP=120l16[64r]['fc#"g#'^^r]rr'fc#"g#'^^^'fc#"g#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['g#fc'^^r]rr'g#fc'^^^'g#fc'^;'g#fc'^^^^^rrrrrrrrrr}
STR FT3B={@82,90,1EP=120l16['fc#"g#'^^r]rr'fc#"g#'^^^'fc#"g#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['gec'^^r]rr'gec'^^^'gec'^['g#fc'^^r]rr'g#fc'^^^'g#fc'^;
['fc#"g#'^^r]rr'fc#"g#'^^^'fc#"g#'^['gd#c'^^r]rr'gd#c'^^^'gd#c'^['g#fc'^^r]rr'g#fc'^^^'g#fc'^;'g#fc'^^^^^rrrrrrrrrr}
STR FT4={[@82,110,0EP=120l8>'fc"g#'r'fc"g#'r'fc"g#''fc"g#'r'fc"g#'^^'fc"g#'r'fc"g#''fc"g#'^r<@11,0EP=127HAM({SUB{cd#fcg#g^ff^ff^d#^r}fgg#f`ca#^g#`c^`c#`c^a#^r})
:@82,110,5EP=110HAM({SUB{a#^a#a#ra#^`c#^`c#^`c#^`c#^`c#`c^`c`c^`c^`e^`e`e`e^^^}`c#^`c#`c#r`c#^`f^`f^`f^`f^`f`e^`e`e^`e^`g^`g`g`g^^^r})]
@100,0EP=127HAM({>SUB{c#^^^^"f"f"fc#^^^^"f"f"fc^^^^^^^e^^^^^^^}f^^^^"g#cd#f^^^^"g#cd#g^^^^^^^a#^^^^^^^<})}
STR FT4A={@82,110,0EP=120l8[64r]>'fc"g#'r'fc"g#'r'fc"g#''fc"g#'r'fc"g#'^^'fc"g#'r'fc"g#''fc"g#'^r<@11,0EP=127HAM({SUB{cd#fcg#g^ff^ff^d#^r}fgg#f`ca#^g#`c^`c#`c^a#^r})
@100,0EP=127HAM({>SUB{c#^^^^"f"f"fc#^^^^"f"f"fc^^^^^^^e^^^^^^^}f^^^^"g#cd#f^^^^"g#cd#g^^^^^^^a#^^^^^^^<})}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3A;FT4;FT1A;FT2;DL=NK1;FTH;FTI;FT3B;FT4A;FT1;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}
STR BG10={TrackKey=K;@81,8HAM({l16[[16r]REV=80EP=100P.W(0,127,!32)MD({>`fa#ra#`d#a#`c#a#ra#`ca#`c#a#`d#a#<},3,!12)P=84EP=127REV=10[32r]]})TrackKey=0}
STR BG11={TrackKey=K;@81,8HAM({l16[[16r]REV=80EP=80P.W(0,127,!32)MD({>`fa#ra#`fa#`fa#ra#`fa#`fa#`fa#<},3,!16)P=84EP=127REV=10[32r]]})TrackKey=0}
TR=16DL=HAZ;BG11;DL=BGN;BG10;DL=BGN+7BG4;DL=ME1+7BG1;DL=ME2+6BG1;BG2;DL=SB1+7BG9;DL=SB1+15BG9;DL=RF1;BG10;DL=RF1+7BG4;DL=ME3+7BG1;DL=ME4+6BG1;BG2;DL=SB2+7BG9;DL=SB2+15BG9;DL=RF2;BG10;DL=RF2+7BG4;
DL=ME5+7BG1;DL=NK1;BG11;DL=ME6+6BG1;BG2;DL=SB3+7BG9;DL=SB3+15BG9;DL=RF3;BG10;DL=RF3+7BG4;DL=END;BG5;

}