INT TRACK_SELECT				=	1	;	//	1 : 	NO.1 (140's Anniversary Mix)				https://www.youtube.com/watch?v=rIi-Jr5awW8
									//
									//		19年前、中学生の頃に初めて作った曲(NO.1)のユーロビートアレンジ。
									//		後半の展開にご期待下さい。
									//
									//
									//	2 : 	memento mori						https://www.youtube.com/watch?v=SYH_-5ZdCI8
									//
									//		ストレートにドラマティックなイントロからスタートする哀愁チューン。
									//		Aメロで一旦トーンダウンさせたり展開もドラマティックに仕上げました。
									//
									//
									//	3 : 	NIGHT OF FANTASY TOKYO LIGHTS				https://www.youtube.com/watch?v=WWK4zF7LQcA
									//
									//		サビで重厚なギターが入ってくるロッキンで少しオシャレなユーロビート。
									//		2コーラス目終わってからのEXTENDED部にDLSファイルを使ってだいぶ力を入れました。
									//
									//


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


If(TRACK_SELECT==1){

INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"NO.1 (140's Anniversary Mix)"}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,4,2,127,09,0)WIN(07,07,039,01,0,K,074,1,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,100,09,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,100,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,127,10,0)
WIN(04,04,083,00,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=21INT ME1=29INT ME2=37INT SB1=45INT RF1=61INT ME3=69INT ME4=77INT SB2=85INT NK1=105INT NK2=121INT RF2=130INT SB3=138INT SB4=148INT ME5=164INT END=172
STR SBRD={TrackKey=(K+1)}STR SBJP={TrackKey=(K+3)}STR SBBD={TrackKey=(K+2)}STR SBTH={TrackKey=(K)}STR SBXM={TrackKey=(K+1)}STR SBLT={TrackKey=(K+2)}
STR SBMF={TrackKey=(K)}STR SBFT={TrackKey=(K+1)}STR SBMK={TrackKey=(K+3)}STR SBSK={TrackKey=(K)}STR SBUP={TrackKey=(K+1)}STR SBDN={TrackKey=K;}
/*1*/STR MN1={l16[d^^d^^d^e^^e^^e^f^^f^^g^a^f^e^f^;d^^d^^d^e^^e^^e^f^^f^^f^f^^^^rrr]}
STR MN2={l16[g^^g^^g^g^^^^rrr]a^^a^^a^g^^g^^g^f^^f^^f^f^^^^rrrf^^f^^f^f^^^^rrrg^^g^^g^g^^^^rrra^^a^^a^a#^^a#^^a#^`c^^`c^^`c^`c^^^^r}
STR MN3={l8ca^aag^ggf^fga^rfa#^a#a#a#a#a#a#a^g^f^g;ca^aag^ggf^fga^rfa#^a#a#a#a#a#a#a^g^f^g^SUB{[3"f^^^"e^^"f"f^^^^^^^]}f^^^^^^^^^^^[a^g^f^^^^^^^^^^^]a^g^l16f^^f^^f^g^^g^^g^g^^g^^f^f^^^^rrr}
STR MN3A={l8ca^aag^ggf^fga^rfa#^a#a#a#a#a#a#a^g^f^g;ca^aag^ggf^fga^rfa#^a#a#a#a#a#a#a^g^f^g^}
STR MN4={l16SBRD;g^^a^^a#^`c^^rrrfrf^d^f^df^^g^^rrrl8SBJP@83,0q=95`d^^`d^^rr`c`d`ca^aga;;SBBD@11,0q=90SUB{g^g^a^}a#^`d^`c^rf`f`d`f`g^`f`d;;@12,0SBTH;ca^a#^`c^f^f^^g^^;;
M.W(0,30,!1)SBXM@83,0q=96gabbbbb`d^^`cbga^^M=0;;[18r]SBMF;@100,0f#^a^a^a^b^^a^aab;;q=90@12,0SBDN;}STR MN5={a^g^f^g^rrrrrrr}
STR MN6={[d^^d^^d^e^^e^^e^f^^f^^g^a^^^^rrr:d^^d^^d^e^^e^^e^c^^c^^c^c^^^^rrr]a#^^a#^^`c^g^e^g^e^g^^g^^f^f^^^^rrr}
TR=1l16HAM({DL=ME1;MN1;MN2;V=110MN3;V=100DL=ME3;MN1;MN2;V=110MN3;V=100DL=NK1;MN4;DL=SB3-1l8[7r]V=110MN3A;SBUP;MN5;MN3;MN6;SBDN;V=100})
/*2&3&4*/STR RTA={@82,110,5BR=6If(CH==3){p%=300@82,90,1}If(CH==4){p%=-300@82,90,1}M.W(30,120,!2)}
STR RTH={RTA;If(CH==2){@9,0EP=100l8>[4a#dfa#rdfa#`ceg`creg`c]<}If(CH!=2){l16EP=100EP.T(0,100,!1^1^1^1^1^1^1^1)MD({[4['afd'^^'afd'^^'afd'^]['gec'^^'gec'^^'gec'^]]},1,!8)}}
STR RTI={RTA;If(CH==2){@11,0EP=127l16SUB{[64r][araaaraaddddddddaraaaraa:ddddddd^]a^^ra^^r}[[`dr`d`d`dr`d`dga`ca`cagd;`dr`d`d`dr`d`d:`da`c`d`f`c`g^]:`f^`e^`d#^`d^]`d^^r`d^^r}
If(CH!=2){EP=100MD({l16[15'afd'^^'afd'^^'afd'^]'afd'^^r'afd'^^r},1,!8)}}
STR RTJ={RTA;If(CH==2){@101,0EP=110l8y64=127[a#dfa#]y64=0y64=127[`ceg`c]y64=0y64=127[`dga`d]y64=0@11,0dfgada`c`d}
If(CH!=2){EP=100MD({l16['a#fd'^^'a#fd'^^'a#fd'^]['`cge'^^'`cge'^^'`cge'^]['`daf'^^'`daf'^^'`daf'^]},1,!8)}}
STR RT1={RTA;l16EP=127MD({['d"a#"f'^^'d"a#"f'^^'d"a#"f'^;'ec"g'^^'ec"g'^^'ec"g'^['fd"a'^^'fd"a'^^'fd"a'^]
'fd"a#'^^'fd"a#'^^'fd"a#'^;'gec'^^'gec'^^'gec'^:['afd'^^'afd'^^'afd'^]]['gec'^^]},1,!8)'fd"a'^'fd"a'^^^^^^^}
STR RT4={RTA;EP=90If(CH!=2){['afc'^^'afc'^^'afc'^;'ge"a#'^^'ge"a#'^^'ge"a#'^['fc"a'^^'fc"a'^^'fc"a'^]['a#fd'^^'a#fd'^^'a#fd'^]['`cge'^^'`cge'^^'`cge'^]]
MD({['d"a#"f'^^'d"a#"f'^^'d"a#"f'^;'ec"g'^^'ec"g'^^'ec"g'^['fd"a'^^'fd"a'^^'fd"a'^]
'fd"a#'^^'fd"a#'^^'fd"a#'^;'gec'^^'gec'^^'gec'^:['afd'^^'afd'^^'afd'^]]['gec'^^]},1,!8)'fd"a'^'fd"a'^^^^^^^}}
STR RT4A={RTA;EP=90If(CH!=2){['afc'^^'afc'^^'afc'^;'ge"a#'^^'ge"a#'^^'ge"a#'^['fc"a'^^'fc"a'^^'fc"a'^]['a#fd'^^'a#fd'^^'a#fd'^]['`cge'^^'`cge'^^'`cge'^]]}}
STR RT4B={RTA;EP=90If(CH!=2){MD({['d"a#"f'^^'d"a#"f'^^'d"a#"f'^;'ec"g'^^'ec"g'^^'ec"g'^['fd"a'^^'fd"a'^^'fd"a'^]
'fd"a#'^^'fd"a#'^^'fd"a#'^;'gec'^^'gec'^^'gec'^:['afd'^^'afd'^^'afd'^]]['gec'^^]},1,!8)'fd"a'^'fd"a'^^^^^^^}}
STR RT5={RTA;EP=127SBLT;If(CH==2){@100,0}Else{@104,0}l8`d^^a#^^g^`c^^a^^f^[16r];;SBFT;l8EP=127If(CH==2){@100,0}If(CH==3){@101,0}If(CH==4){@103,0}>a^^dfd`ca^^^<SBDN;}
STR RT6={SBSK;RTA;If(CH==2){@11,0EP=127l16SUB{[64r][araaaraadddddddd:araaaraaddddddd^]}[64r][`dr`d`d`dr`d`dga`ca`cagd:`dr`d`d`dr`d`d;`da`c`d`f`c`g^]}
If(CH!=2){EP=90l16[[3rrrrMidiDelay({'>`dafd<'^^^},3,!2)[8r]][16r]]SBDN}}STR RT7={If(CH!=2){l16['`cge'^^'`cge'^^'`cge'^]l4EP.T(90,127,!1)'`cge'^^^l16}}
STR RRF={l16HAM({DL=HAZ;RTH;RTI;RTJ;DL=BGN;RT1;DL=SB1;RT4;DL=RF1;RT1;DL=SB2;RT4;DL=SB2+16RTJ;DL=NK1+10RT5;})DL=NK2;RT6;HAM({DL=RF2;RT1;RT4A;SBUP;RT7;RT4A;DL=SB4+8RT1;RT4B;DL=END[RT1:REC2]SBDN;})}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,70,100)}STR BSH={q=90[4"a#^^r"a#^"a#c^^^^^rrr]BSA}
STR BSI={q=90[4l8d`dr`dl16"ac^"ac^"a^l8d`dr`d:l16d"acdfdg^]l16d^^rd^^rl8BSA}STR BSJ={l4q=100g^^^a^^^d^^^rrrrl8BSA}
STR BS1={[["a#a#][c`c][4d`d]["gg]["aa]:[4d`d]]l16q=90d^rd^rd^d^^^^rrrl8BSA}STR BS1A={l4q=100"a#^c^d^^^"g^"a^d^^^l8BSA["a#a#][c`c][4d`d]["gg]["aa]l16q=90d^rd^rd^d^^^^rrrl8BSA}
STR BS2={[4["a#a#][c`c]:[d`d]["aa]][4"ff]}STR BS2A={l4q=100[4"a#^c^:d^"a^]l16"f^^"f^^"f^"f^^^^rrrl8BSA}
STR BS3={[[c`c]["gg]]["ff]["ee]["dd]["aa][4"a#a#][4c`c]["ff]["gg]l16q=90"a^r"a^r"a^"a^^^^rrrl8BSA}
STR BS4={[["ff]["ee]["dd]["aa][4"a#a#][4c`c]][["a#a#][c`c][d`d]["aa]["a#a#][c`c][4"ff]]}STR BS4A={l4q=100[f^e^d^"a^"a#^^^c^^^]l8BSA}
STR BS5={SBRD;If(CH==5){@88,0,0}q=100[d#`d#][f`f][d`d][g`g]SBJP;If(CH==5){@39,0,0}["a#a#][c`c]["aa][d`d];;
SBBD;If(CH==5){P=64V=120[d#`d#][f`f][d`d][g`g]P=54V=100}Else{[16r]};;SBTH;BSA;If(CH==5){@88,0EP.W(110,30,!8)}[4"ff]["a#a#][c`c];;
q=90SBXM[4"gg][c`c][d`d]If(CH==5){EP=127};;SBLT;BSA[4d#`d#][4f`f];;SBMF;If(CH==5){@35,0,0}l4q=100f#^^^d^^^l8q=90;;
SBFT;If(CH==7){P=64V=120[3"a#a#]l16"a#^a#a#l8P=74V=100}Else{[8r]};;SBMK;If(CH==5){@39,0,0}l8r"b"brr"a"arSBDN;BSA}
STR BS6={q=90SBSK[14d`d]l16d^ddd&&"d^rl8[12d`d]a^^^^^^&&"a^^^^^^^^SBDN;BSA}STR BS7={l4q=100c^^^e^^^l8BSA}
STR BS8={[["a#a#][c`c][d`d]["aa]["a#a#][c`c]:[4"ff]]q=90l16"f^r"f^r"f^"f^^^^rrrl8BSA}
STR BASS={l8<<DL=HAZ;BSH;BSI;BSJ;DL=BGN;BSA;BS1;BS2;BS3;BS4;BS1;BS2A;BS3;BS4;BSJ;DL=NK1;BS5;BS6;DL=RF2;BS1A;BS4A;SBUP;BS7;BS4;BS8[BS1:REC2]SBDN;}TR=5BASS;TR=7BASS;
/*6*/STR COH={l8EP=70HAM({['afd'^^r'afd'^'a#fd''gec'^^^^^^^r'afd'^^r'afd'^'fd"a#''gec'^^^^^^^r]})}STR COI={l4EP=75[8'`daf'^^^]}
STR COJ={l4EP=75'a#fd'^^^'`cge'^^^'`daf'^^^rrrr}
STR CO1={EP=90l8>[4`d^^^^^^`c`d^^^^^^^]<}STR CO2={EP=70l4[d^e^f^c^:d^e^f^^^]"a#^c^f^^^}STR CO3={EP=75l4>g^^^^^^^a^^^^^^^a#^^^`c^^^a^a#^`c^^^<}
STR CO4={EP=80l4HAM({[`c^^^^^^^`d^^^`e^^^][4`c^^^^^^^]})}STR CO4A={EP=80l4HAM({[`c^^^^^^^`d^^^`e^^^]})}STR CO4B={EP=75l4HAM({[4`c^^^^^^^]})}
STR CO5={EP=100SBRD@49,0,0SUB{HAM({g^a^a^a#^})}HAM2({d#^f^d^g^})SBJP;SUB{HAM({`f^`e^`e^`f^})}HAM2({a#^`c^a^`d^});;
SBBD;l4SUB{a#^a^a^a#^}HAM2({d#^f^d^g^});;EP=110SBTH;SUB{HAM({`c^aa#`d^`e^})}HAM2({f^^^a#^`c^});;SBXM;SUB{HAM({>"b^^^e^d^<})}HAM2({"g^^^c^d^});;
SBLT;l4EP=127SUB{HAM({a#^^^a^^^})}HAM2({d#^^^f^^^});;SBMF;SUB{HAM({a^^^f#^a^})}HAM2({f#^^^d^^^});;SBFT;l4SUB{`d^^`e`f^`g^}l1HAM2({a#^});;SBDN@49,90,1}
STR CO6={SBSK@63,0,0EP=80l4[SUB{`d^^`c`d^^`f}[f^^^]:SUB{`d^^`c`d^}f^^^f^l16SUB{`d^`d`d`d^^}f^fff&&^"frl4]SUB{`d^^`c}f^^^@49,90,1SBDN}
STR CO7={EP=80l4'`c``c'^^^rrrr}
TR=6@49,90,1DL=HAZ;COH;COI;COJ;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3;CO4;COJ;DL=NK1;CO5;CO6;DL=RF2;CO1;CO4A;SBUP;CO7;CO4;CO4B[CO1:REC2]SBDN;
/*8&9*/STR ULA={BR=6If(CH==8){p%=300}Else{p%=-300}}STR UL1={ULA;l16["a#^^"a#^^"a#^c^^c^^c^d^^d^^e^f^c^"a^c^;"a#^^"a#^^"a#^c^^c^^c^:d^^d^^d^"a^^^^rrr]"a^^"a^^"a^"a^^^^rrr}
STR UL2={ULA;l16e^^e^^e^e^^^^rrrc^^c^^c^c^^^^rrrf^^f^^f^e^^e^^e^d^^d^^"a^"a^^^^rrrSUB{d^^d^^d^d^^^^rrre^^e^^e^e^^^^rrr}"a#^^"a#^^"a#^"a#^^^^rrrc^^c^^c^c^^^^rrr
SUB{c^^c^^c^d^^d^^d^f^^f^^f^f^^^^}f^^f^^f^f^^f^^f^a^^a^^a^a^^^^r}
STR UL3={ULA;l8SUB{"af^ffe^eed^def^rcf^fffffff^e^d^e;"af^ffe^eed^def^rcf^ffffff`c^a#^a^a#^}"fc^cc"a#^"a#"a#"a^"a"a#c^r;a#`d^`d`d`d`d`d`d`e^`d^`c^a#;"fc^cc"a#^"a#"a#"a^"a"a#c^r;a#`d^`d`d`d`d`d`d`e^`d^`c^`d^
SUB{[3"a^^^"g^^"a"a^^^^^^^]}SUB{["d^^^"c^^"d"d^^^^^^^:"c^^^"c^^"c"c^^^^^^^]}'a`c'^^^^^^^^^^^['`cf'^'a#d'^'ac'^^^^^^^^^^^]'`cf'^'a#d'^l16SUB{c^^c^^c^e^^e^^e^e^^e^^c^c^^^^}a^^a^^a^`c^^`c^^`c^`c^^`c^^a#^a^^^^rrr}
STR UL3A={ULA;l8SUB{"af^ffe^eed^def^rcf^fffffff^e^d^e;"af^ffe^eed^def^rcf^ffffff`c^a#^a^a#^}"fc^cc"a#^"a#"a#"a^"a"a#c^r;a#`d^`d`d`d`d`d`d`e^`d^`c^a#;"fc^cc"a#^"a#"a#"a^"a"a#c^r;a#`d^`d`d`d`d`d`d`e^`d^`c^`d^}
STR UL4={ULA;SBRD;SUB{<a#^^a#^^a#^`c^^>}d#^^d#^^d#^f^^rrrara^f^a^fa^^a#^^rrrl8SBJP@83,0q=95EP=110SUB{`f^^`f^^rr}a#^^a#^^rrEP=120aa#af^fefEP=127
;;SBBD@11,0q=90d#^d#^f^rrdddg^fd;;;SBTH@12,0"af^g^a^c^"a#^^c^^;;SBXM@83,0q=96deSUB{dddddd^^c"b"g"a^^}gggggb^^gecd^^;;[18r]SBMF;EP=100@100,0HAM2({c#^f#^f#^f#^g#^^f#^})f#f#g#;;EP=127@12,0q=90SBDN;}
STR UL5={SUB{`c^a#^a^a#^}`e^`d^`c^`d^rrrrrrr}
STR UL6={[SUB{"f^^"f^^"f^"g^^"g^^"g^"a^^"a^^"a^d^^^^}"a#^^"a#^^"a#^c^^c^^c^d^^d^^e^f^^^^rrr:SUB{"f^^"f^^"f^"g^^"g^^"g^"a^^"a^^"a^"a^^^^}"a#^^"a#^^"a#^c^^c^^c^f^^f^^f^f^^^^rrr]SUB{d^^d^^e^c^"g^c^"g^}f^^f^^g^e^c^e^c^SUB{d^^d^^d^d^^^^}a#^^a#^^a^a^^^^rrr}
STR ULMR={DL=ME1;>UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3;DL=NK1;UL4;DL=SB3-1l8[7r]UL3A;SBUP;UL5;UL3;UL6;SBDN;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n35n36}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={BR=20p%=500[@27,90,0SUB{n42n42n42n42n46r[6n42]n46rn42r}n36rrrn38rn36rrrn38rn36n38rn38@26,100,0SUB{[4n44n44n46r]}n36rn36rn40r[n36n36r]n40rn36r@27,90,0SUB{n42n42n42n42n46r[6n42]n46rn42r}n36rn36rn38rn36n36rn36n36rn38rn36r@26,100,0SUB{[4n44n44n46n44]}n36rn36rn40rn36n40n36n40n40rn36rn36n36]}
STR DDI={[O3[15r]O4:[15r]][11r]O1;r[O1][16O1;rrr]}STR DDJ={[O3[15r]:O4[15r]]l8O1;r[[O1]r]l16}
STR DDA={n62r[3n63]r[3n64]rn80n84n81rn80r}STR DD1={[28O1;rrr]O1;rrO1;rrO1;rO1;rrrrrrr}STR DD1A={O3[29r]O1;rO4;rrrO4[27r][12O1;rrr]O1;rrO1;rrO1;rO1;rrrrrrr}STR DD2={[28O1;rrr][3O1;r:r][O1;rrr]}
STR DD2A={O3[29r]O1;r[O4;rrr][24r][4O3[7r]][O4[7r]][O5;rr][O1;r]rrrrrr}STR DD3={[16O1;r:rr][O1][12O1;rrr]SUB{n49}[3O1;r:r]O1[7r]}
STR DD4={[32O1;rrr][24O1;rrr]SUB{n49[7r]n57}[4O1;rrr]SUB{n49rrn57rrn49rn57r}[O1;rr][O1;r]rrrrrr}STR DD4A={O3[63r]@26,100,0BR=20p%=500[l8O1;rrO1;O2;rrrl16O1;rrO1;rrO1;rl8O2;rrr]l16@25,90,1p%=1000}
STR DD4B={[24O1;rrr]SUB{n49[7r]n57}[4O1;rrr]SUB{n49rrn57rrn49rn57r}[O1;rr][O1;r]rrrrrr}
STR DD5={@25,0,0BR=20p%=2000V=127SUB{n49}[4DM2]BR=20p%=1000O2={'n53n39n28OA'}SUB{n49}[4DM2];;O2={'n39n28OA'}@27,7V=100p%=0SUB{n49}[4DM2];;@25,0,0BR=20p%=1000SUB{n49}[4DM2];;O2={'n28n39n55OA'}p%=4000SUB{n49}SUB{[DDA]}[4DM2];;
p%=1000V=110SUB{n49}[4DM2];;p%=2000O3[31r];;@27,7V=100p%=2000O2={'n27n32n33n35n36n40'}SUB{n49}[DM2];;p%=1000V=127SUB{O3}l8[rO1;O5;r]l16;;@25,90,1BR=20p%=1000V=115O2={'n38n40OA'}}
STR DD6={p%=1000@25,0[14O1;rrr]O1;r[3O1]rrr[12O1;rrr]O3[15r]@25,90,1BR=20p%=1000V=115}
TR=10l16DL=HAZ;DDH@25,90,1BR=20p%=1000V=115DDI;DDJ;DL=BGN@25,90,1BR=20p%=1000V=115DD1;DD2;DD3;DD4;DD1;DD2A;DD3;DD4;DDJ;DL=NK1;DD5;DD6;DL=RF2;DD1A;DD4A;DL=SB4;DD4;DD4B[DD1:REC2=115]
/*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 GGI={[16GR;r;GB;r][16GR;GR;GB;r]}STR GGJ={[12GR;GR;GB;r]l8GB;r[[GB]r]l16}STR GG1={[28GR;r;GB;r][GB;rr][GB;r][6r]}
STR GG2={[16GR;r;GB;r][12GR;GA;GB;r][3GB;r:r][GR;r;GB;r]}
STR GG2A={[8'n51n59'[7r]][8GR;rGB;r][4GR;GA;GB;r][3GB;r:r][GR;r;GB;r]}STR GG3={[16GR;GA;GB;r][12GR;GR;GB;r][3GB;r:r]GB;[7r]}
STR GG4={[32GR;GR;GB;r][28GR;GA;GB;r][GB;rr][GB;r]rrrrrr}STR GG4A={[64r][8'n51n59'^^^^^^^]}STR GG4B={[28GR;GA;GB;r][GB;rr][GB;r]rrrrrr}
STR GG5={@25,0,0BR=20p%=3000[GP1]BR=20p%=-500[GP1];;@27,7p%=0[GP8];;@25,0p%=-2000[GP1];;
BR=20p%=3000[GP3];;p%=2500M=127[GP3]M=0;;p%=1200[GP2];;@1,100p%=0SUB{GP7}GP8;;[16r]BR=20p%=1000@27,90,0}STR GG6={p%=1000@25,0[3GP3][GR;GR;GB;r]GB;r[3GB]rrr[3GP3][16r]BR=20p%=1000@27,90,0}
TR=11l16DL=HAZ+8BR=20p%=1000@27,90,0GGI;GGJ;DL=BGN;BR=20p%=1000@27,90,0GG1;GG2;GG3;GG4;GG1;GG2A;GG3;GG4;GGJ;DL=NK1;GG5;GG6;DL=RF2;GG1;GG4A;DL=SB4;GG4;GG4B[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={@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={EP.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}[112r]['n38n40'rr]'n38n40'rl24[3'n38n40']'n38n40'rrl16'n38n40'r['n38n40']}STR PP1={SUB{PD3}[14rrrr'n39n28n55'rrr]['n38n40'rr]'n38n40'rl24[3'n38n40']'n38n40'rrl16'n38n40'r['n38n40']}
STR PP1A={SUB{PD3}[64r][6rrrr'n39n28n55'rrr]['n38n40'rr]'n38n40'rl24[3'n38n40']'n38n40'rrl16'n38n40'r['n38n40']}STR PPI={SUB{PD3}[64r][8rrrr'n39n28n55'rrr]}
STR PP2={[14rrrr'n39n28n55'rrr]SUB{[5'n38n40']r[3'n38n40']rrr'n38n40'rrr}SUB{[12r]n49}[rrrr'n39n28n55'rrr]}STR PP2A={SUB{PD3}[64r][6rrrr'n39n28n55'rrr]SUB{[5'n38n40']r[3'n38n40']rrr'n38n40'rrr}SUB{[12r]n49}[rrrr'n39n28n55'rrr]}
STR PP3={[14rrrr'n39n28n55'rrr][16r]}STR PP4={SUB{[PD3]}[16rrrr'n39n28n55'rrr][14rrrr'n39n28n55'rrr]['n38n40'rr]'n38n40'rl24[3'n38n40']'n38n40'rrl16'n38n40'r['n38n40']}STR PP4A={PD3}
STR PP4B={SUB{PD3}[14rrrr'n39n28n55'rrr]['n38n40'rr]'n38n40'rl24[3'n38n40']'n38n40'rrl16'n38n40'r['n38n40']}
STR PP5={@25,0,0BR=20p%=0['n49n57'[31r]]@27,7,0'n49'[31r];;@25,0,0'n49n57'[31r];;'n49'[31r];;['n49n57'[31r]];;[32r]@17,100,0BR=20p%=1500}STR PP6={SUB{PD3}[14rrrr'n39n28n55'rrr][16r]}
TR=12l16DL=HAZ@17,100,0BR=20p%=1500PPH;PPI;DL=BGN@17,100,0BR=20p%=1500PP1;PP2;PP3;PP4;PP1;PP2A;PP3;PP4;DL=NK1;PP5;PP6;DL=NK2+8PD4;DL=RF2;PP1A;PP4A;DL=SB4;PP4;PP4B[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={l32[4`g][4`d][4b][4g][4d]l16rddddd}STR DS19={`g`g`d`dbbgg`grrrgrrr}STR DS20={l24[3`d]`drrl16`dr`d`d}
TR=13l16<DL=HAZ;PG1@119,0DL=HAZ+7DS18;DL=HAZ+15DS8;DL=BGN+3DS18;DL=BGN+7DS8;DL=ME1+3DS7;DL=ME1+7DS19;DL=ME2+3DS6;DL=ME2+7DS20;DL=SB1+3DS6;DL=SB1+7DS2;DL=SB1+11DS6;DL=SB1+15DS19;DL=RF1+3DS18;DL=RF1+7DS8;
DL=ME3+3DS7;DL=ME3+7DS19;DL=ME4+3DS6;DL=ME4+7DS20;DL=SB2+3DS6;DL=SB2+7DS2;DL=SB2+11DS6;DL=SB2+15DS19@119,9DL=NK2+1DS12;DL=NK2+3DS7;DL=NK2+5DS1;DL=NK2+7DS2@119,0DL=RF2+3DS18;DL=RF2+7DS8;DL=SB3+3DS6;DL=SB3+7DS2;
DL=SB4+3DS6;DL=SB4+7DS2;DL=SB4+11DS6;DL=SB4+15DS19;DL=ME5+3DS6;DL=ME5+7DS19;DL=END+3DS18;DL=END+7DS8;DL=END+8REC2;DL=END+11DS18;
/*14*/STR LC={"ccea`c}STR LC2={"cceg`c}STR LD={"ddfa`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b}
STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'}
STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}
STR SPH={SPA@82,110,3l16EP=80[4defdfdgfrdedfdgf;defegeagrefegeag]}STR SPI={SPA@81,8EP=80l16>[32dga`d]<}
STR SPJ={SPA@81,8EP=80l16>a#dfa#rdfa#dfra#rrrr;`ceg`creg`cegr`crrrr;`dfa`drfa`dfar`drrrr<}STR SP1={SPA@81,8EP=90l16>[32dfga]<}STR SP1A={SPA@81,8EP=90l16[64r]>[16dfga]<}
STR SP2={SPA@81,8EP=75l16[4[`da#`c`d][`e`c`d`e][4`fa`c`f]]}STR SP3={SPA@81,8EP=75l16>[8gceg][acfa][gceg][4f"acf][4f"a#df][4gceg][acfa][a#dfa#][3`c:faa#]rrrrrrr<}
STR SP2A={SPA@81,8EP=75l16[64r][[`da#`c`d][`e`c`d`e][4`fa`c`f]]}
STR SP4={SPA@81,8EP=85l16>[[acfa][gceg][f"acf][acfa][4a#dfa#][4`ceg`c]];[[fcef][gceg][4acfa][f"a#df][gceg]:[4acfa]][gceg][8r]<}
STR SP4A={SPA@81,8EP=85l16>[[acfa][gceg][f"acf][acfa][4a#dfa#][4`ceg`c]]<}
STR SP4B={SPA@81,8EP=85l16>[[fcef][gceg][4acfa][f"a#df][gceg]:[4acfa]][acfa][8r]<}
STR SP5={SBRD@39,8,0EP=100d#ga#d#a#d#ga#;fa`cf`cfa`c;dfadadfa;ga#`dg`dga#`dSBJP;EP=90@26,0"a#df"a#f"a#df;cegcgceg;"ace"ae"ace;dfadadfa;;SBBD@39,8EP=120l8P=127BR=6p%=150[WDS][WF][WD][WG]p%=0;;
SBTH;P=80HAM({l8EP=80M=30@82,0q=60['fc'^]q=100r'fc'^^q=60['a#f'^]['`cg'^]});;SBXM;q=90SPA;EP=110@82,8l16bdgbrdgbdgrbrrrr;`ceg`creg`cdar`drrrr;;
SBLT;l16EP=65@81,8d"d"g"a#d"g"a#d"f"acfd#dc"a#;f"fcd#fcfafaa#`ca#agf;;q=100M.W(0,70,!1)p.W(0,64,!16)SBMF@112,0l8EP=120'f#`c#'^^^^^'a`c#''g#b'^^^^^^^;;q=90p=64M=0;;
SBFT@47EP=100l16q=100["a#dfga#`d`f`g`a#`f`d`ca#fdc];;q=90SBDN;}STR SP7={SPA@81,8EP=85l16>[4`ceg`c]<[16r]}
TR=14DL=HAZ;SPH;SPI;SPJ;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2A;SP3;SP4;SPJ;DL=NK1;SP5;DL=RF2;SP1A;SP4A;SBUP;SP7;SP4;SP4B[SP1:REC2]SBDN;
/*15*/FUNCTION PIA(STR SWEET){l8[Play(,,,,,,,,,,,,,,,MID(SWEET,1,2))l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIB(STR SWEAT){l8[Play(,,,,,,,,,,,,,,MID(SWEAT,1,2))l16:['SWEAT'r]]r}FUNCTION PIC(STR SWAT){['SWAT'^^]'SWAT'^}FUNCTION PID(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIE(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r}
FUNCTION CIA(STR SWEET){'SWEET'^^'SWEET'>[3'SWEET'^:'SWEET']'SWEET'^^^<}
STR FTH={@56,90,1EP=100l8[4SUB{frrrfrfe}a#rrra#ra#`crrrrrrrr]}STR FTI={@56,90,0EP=100l8[[`drr`d`cr`cr`drr`d:`fr`gr]`dr`dr]}
STR FTJ={@82,110,0EP=100l8rrMD({'a#fd'^},1,!2)rrrr;rrMD({'`cge'^},1,!2)rrrr;rrMD({'`daf'^},1,!2)rrrr;@56,90,0EP=90HAM2({SUB{araaraar}`dr`c`dr`c`dr})}
STR FTK={@82,110,0EP=100l8rrMD({'a#fd'^},1,!2)rrrr;rrMD({'`cge'^},1,!2)rrrr;rr'`daf'^rr@56,90,0EP=90HAM2({l16[4'a`d']l8SUB{araaraar}`dr`c`dr`c`dr})}
STR FT1={@82,110,0EP=90l16[4MD({['`da#f'^^r]},1,!2)[8r]MD({['`daf'^^r]},1,!2)[8r]]}
STR FT2={[@82,110,2l8EP.T(30,80,!1)'`da#f'^^^^^^^rr@56,90,1EP=90'`da#''`da#'rrrr;;EP.T(30,80,!1)@82,110,2l8'`da#f'^^^^^^^:rr@82,110,0M=100EP=65'`da#f''`da#f'^^^^M=0]@9,0EP=65M=80l16HAM({['fc"a'^^]'fc"a'^'fc"a'^^^^^^^})M=0}
STR FT3={l8[6r]@82,110,0EP=80[MD({'gec'^},1,!2)rrrrrr]rr@99,1EP=70l16HAM({>['fc"a'^^]'fc"a'^'fc"a'^^^^rrr<})l8[6r]@82,110,0EP=80MD({'fd"a#'^},1,!2)rrrrrrMD({'gec'^},1,!2)rrrrrr;rr@56,90,0EP=90l16['`ca'^^]'`ca'^'`ca'^^^^rrr}
STR FT4={[@82,110,0EP=80M=100l16'afc'^rr'afc'^'afc'^;'ge"a#'^rr'ge"a#'^'ge"a#'^;'fc"a'^rr'fc"a'^'ge"a#'^;'afc'^^^^rrrM=0@31,90,0EP=100l8["a#"a#'a#fd"a#'"a#]:@11,0EP=100HAM({'ac'^'gc'^'fc'^'gc'^})]@101,0EP=90HAM({'ac'^'gc'^'fc'^'gc'^})}
STR FT4N={@82,110,0EP=100l16[6MD({['`caf'^^r]},1,!2)[8r]]l16@82,90,1EP=115[3'fd"a#'^:r][3'gec'^:r]['gec'^r]'fc"a'^'fc"a'^^^^rrr}
STR FT5={SBRD@82,0,0l16EP=110SUB{g^^g^^g^a^^^^}a#^^a#^^a#^`c^^^^rrr@30,0,0EP=127"f"f"f"f'fc'^^"f"g"g"g"g'gd'^^"gSBJP;HAM({@82,0l8rrq=100EP.T(40,110,!2)'`da#f'^^^q=90EP=127@56,0'`da#f'r@12,0`c`d`ca^@84,0'af''af'^});;
SBBD@39,0EP=120l8P=0BR=6p%=-150[WDS][WF][WD][WG]p%=0;;P=96@3,0EP=100SBTH;l16PIA=LF;PIE(LAS,{"a#})>PIC=LC2<;;SBXM;HAM({l8EP=90@82,0MD({SUB{g^g^gg^}b^b^bb^r},1,!8)@11,0ceg`cdf#a`d});;
SBLT;l16EP=115@82,0BR=10p%=-100MD({['`da#g'^rr][8r]['`daf'^rr][8r]},1,!2)p%=0;;SBMF;l16EP=100M=127@82,0MD({>['af#c#'^^r][8r]['f#d"a'^^r][8r]<},1,!2)M=0;;SBFT@7,0EP=80CIA=LAS;;SBMK;l8@56,90,1EP=127HAM3({r`d`drr`c#`c#r});;SBDN;}
STR FT6={SBSK;M=30EP=127@100,0l8[26r]l4HAM2({`f`ea`d^^^})l8[16r]l16M=30EP.T(60,100,!1)P.onCycle(!4,20,107)@100,0HAM({<<a`d`e`g>><a`d`e`g>a`d`e`g>a`d`e`a<})P=96M=0l8SBDN;}
STR FT7={@101,0EP=90l8HAM({'ac'^'gc'^'fc'^'gc'^})[8r]}
TR=15DL=HAZ;FTH;FTI;FTJ;DL=BGN;FT1;FT2;FT3;FT4;FT4N;FT1;FT2;FT3;FT4;FT4N;FTK;DL=NK1;FT5;FT6;DL=RF2;FT1;FT4;SBUP;FT7;FT4[FT4N][FT1:REC2]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={@120,0l4'cde'^^^}
STR BG11={V=127l4rrrBR=24p.T(64,0,!1)@128,3'>gab<'^^^^^^^[5r]V=100}STR BG12={@31,8l4rrrBR=50p.T(127,0,!4)V=127'cg`c'p=64V=100}
TR=16DL=HAZ+7BG10;DL=HAZ+15BG4;DL=BGN+7BG4;DL=ME1+7BG10;DL=ME2+6BG1;BG2;DL=RF1+7BG4;DL=ME3+7BG10;DL=ME4+6BG1;BG2;DL=NK1;BG11;DL=NK1+15BG12;DL=NK2+2BG1;DL=NK2+3BG10;DL=NK2+6BG1;DL=NK2+8BG2;DL=RF2+7BG4;
DL=SB3+9BG1;DL=END+7BG4;

}

If(TRACK_SELECT==2){

INT EST=154PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"memento mori"}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,4,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,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,10,0)
WIN(03,03,089,00,0,K,000,2,2,100,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,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 NK1=105INT NK2=113INT NK3=121INT RF3=129INT SB3=137INT SB4=153INT END=177
STR SBUP={TrackKey=(K+1)}STR SBDN={TrackKey=(K)}
/*1*/STR MN1={f^^f^^f^fcfgg#gfc;f^^f^^f^fc#fgg#gfc#;f^^f^^f^fc#fgg#gfg#g^^^^^g#a#^^^`c^^^^}
STR MN2={[`c^^a#^^`c^a#^^g^^d#^f^^^^:gg#f^^^^ffg#a#]a#`c`f^^^r}
STR MN3={[c^f^g^fg#^^^rg^fg#^^a#^`c^`c`c`c`c#ra#^^^r:a#^g#^g^g#a#^^^rg^g#a#^^`c^g#^g^fgrg#^^^r]`c^a#^g#^a#g#^^g#^g^^f^^d#^f^f^g#gd#f^^^^^rrr}
STR MN4={[c^f^g^fg#^^^rg^fg#^^a#^`c^`c`c`c`c#ra#^^^r:a#^g#^g^g#a#^^^rg^g#a#^^`c^g#^g^fgrg#^^^r]`c^a#^g#^a#g#^^g#^g^^f^^d#^f^f^g#gd#f^^^^}
STR MN5={[`c^a#^g#^a#g#^^g#^g^^f^^d#^f^f^g#gd#f^^^^]}
TR=1l8>DL=ME1;HAM2({MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=SB3-1rrrrMN4;SBUP;MN4;MN5;SBDN})
/*2&3&4*/STR RTA={@1,90,0BR=6If(CH==3){p%=200@100,0}If(CH==4){p%=-200@99,1}}STR RTB={@1,90,0BR=6If(CH==3){p%=200@104,0}If(CH==4){p%=-200@103,0}}
STR RTH={If(CH==2){BR=24EP=80@82,110,1l4[""f&&^^^^^^^f^^^^^^^]}
If(CH!=2){RTA@82,110,5EP=80[['fc"g#''fc"g#'r'fc"g#'r'fc"g#'r'fc"g#']'fc#"a#''fc#"a#'r'fc#"a#'r'fc#"a#'r'fc#"a#':'ec"g''ec"g'r'ec"g'r'ec"g'r'ec"g']'ec"g'^r'ec"g'^^^^}}
STR RTI={If(CH==2){@37,90,0EP=120l16<<<q.T(10,10,!1^1^1^1,10,100,!1^1^1)[7"g#d#^d#f^c^rrrrrrrr]>>>q=100}If(CH!=2){RTA@82,110,5EP=90['d#c"g#'^r'fc"g#'^^^r;'gd#c'^r'g#fc'^^^r;'a#fc#'^r'`cg#f'^^^r;'`d#`cg#'^r'`f`cg#'^^^r]}}
STR RT1={RTA;l8EP=127SUB{HAM2({f^^^^^d#f^^^^"a#cc#d#f^^^^^d#f^^^^cc#d#fg^^^^^fg^^^^d#d#fgg#^^^^^gg#^^^^})}
HAM3({g^fcrf^g^f^c^f^^d#^c#"g#rc#^d#^c#^"g#^c#^^c^gcrrc^"a#^^"g#^^"g^"g#^"f^"g#"a#^c^^^^^rrr})}
STR RT1A={RTB;l8EP=127SUB{HAM2({f^^^^^d#f^^^^"a#cc#d#f^^^^^d#f^^^^cc#d#fg^^^^^fg^^^^d#d#fgg#^^^^^gg#^^^^})}
HAM3({g^fcrf^g^f^c^f^^d#^c#"g#rc#^d#^c#^"g#^c#^^c^gcrrc^"a#^^"g#^^"g^"g#^"f^"g#"a#^c^^^^^rrr})}
STR RT4={l8RTA[rrrrrcfg#rrrrrcfg#rrrrrrrrr:d#gg#a#g#geg^^^^cega#^^^^cga#g#^^^^^^^^cfcg#gfc]d#gg#a#g#geg^^^^^^^e^^^^^^^f^^^^cfg#f^^^^rrr}
STR RT5={RTA;g^^^^^^^e^^^^^^^f^^^^cfg#f^^^^rrr}
STR RRF={l8>DL=HAZ;RTH;RTI;DL=BGN;RT1;DL=SB1;RT4;DL=RF1;RT1;DL=SB2;RT4;DL=RF2;RT1[RTH]RTI;DL=SB3;RT4;RT5;DL=SB4;SBUP;RT4[RT5]DL=END;RT1A;REC2;RT1;SBDN}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,90)}STR BSH={q=100l4>[f^^^c#^^^"a#^^^:c^^^]l8q=90c^^c^^^^<BSA}STR BSI={[28f`f]q=90f^^f^^^^BSA}
STR BSK={[[4f`f][4c#`c#][4"a#a#][4c`c]]}STR BS1={[8f`f][8"a#a#][4c`c][4e`e][4f`f]c`ccq=90ccrcrBSA;}STR BS1A={l8q=90f^ffrfrfrfrfrf^r"a#^"a#"a#r"a#r"a#r"a#r"a#r"a#^r[16r]frfrffrc^^^^^rrrBSA}
STR BS2={q=90frfr`f^ffrfrf`f^f^;c#rc#r`c#^c#c#rc#rc#`c#^c#^"a#r"a#ra#^"a#"a#r"a#r"a#a#^"a#^;crcr`c^ccrcrc`c^c^BSA/*[8f`f][8c#`c#][8"a#a#][4c`c][4e`e]*/}
STR BS3={[[4c#`c#][4d#`d#][4f`f]:[4c`c]][4f`f]}STR BS3A={q=100l4c#^^^d#^^^f^^^c^^^l8BSA[4c#`c#][4d#`d#][4f`f][4f`f]}
STR BS4={[[8f`f][8"a#a#][4c`c][4e`e]:[4f`f][4c`c]][f`f]ffff^^^^rrrr}STR BS4A={l4q=100f^^^^^^^"a#^^^^^^^c^^^e^^^l8BSA[f`f]ffff^^^^rrrrBSA}
STR BS4B={[[8f`f][8"a#a#][4c`c][4e`e]:[4f`f][4c`c]][8f`f]}STR BS5={[4"a#a#][4c`c][8f`f]l4q=100"a#^^^c^^^l8BSA[f`f]ffff^^^^rrrrBSA}
STR BASS={l8<<DL=HAZ;BSH;BSI;DL=BGN;BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4;BS1A;DL=NK1;BSH;BSK;BSI;BS1;DL=SB3+8BS4A;SBUP;BS4B;BS5[BS1:REC2]SBDN}TR=5;<@40,90,0BASS;TR=7@39,1BASS;
/*6*/STR COH={@55,110,8l4EP=70['`f`cg#'^^^^^^^'`g#`d#`c'^'`g`d#`c'^:'`f`cg#'^'`e`cg#'^]l8'`f`cg#'^^'`e`cg#'^^^^}
STR COI={@49,90,1l4EP=80SUB{[c^c^d#^f^g^g#^:`c^`c^]}[d#^f^g^g#^a#^`c^:`d#^`f^]l8'`d#`c'^r'`f`c'^^^r}
STR CO1={@49,90,1l4EP=80HAM({`f^^^^^^^`f^^^^^^^`g^^^^^^^`f^^^rrrr})}
STR CO2={@49,90,1EP=70l8HAM({[3f^^^^^^^f`ca#rgg#:rf]rgg^^^^^^^g`ca#rgg#r`c})}
STR CO3={@55,110,8l4EP=60HAM({SUB{['g#f'^^^'gd#'^^^'g#f'^^^:'g#d#'^^^]}[`c^^^a#^^^:`c^^^`c^^^]l8'`cg#f'^^^^'`f`cg#''`f`cg#''`f`cg#'^^^rrrrrl4})}
STR CO4={@49,90,1l4EP=80HAM({>[SUB{f^d#^c^"g#^a#^g#^g^c^;g^f^e^c^}g#^g^f^c^`c#^`c^a#^f^;a#^g#^g^e^:SUB{f^d#^c^"g#^}g#^g^f^c^]'fc'^l8SUB{fd#"a#c^^^^}g#gd#f^^^^rrrrl4<})}
STR CO4A={@49,90,1l4EP=80HAM({>[SUB{f^d#^c^"g#^a#^g#^g^c^;g^f^e^c^}g#^g^f^c^`c#^`c^a#^f^;a#^g#^g^e^:SUB{f^d#^c^"g#^}g#^g^f^c^]'fc'^l8SUB{fd#"a#c^^^^}g#gd#f^^^^^^^^l4<})}
STR CO5={@49,90,1l4EP=80HAM({>SUB{g^f^e^c^}a#^g#^g^e^'fc'^l8SUB{fd#"a#c^^^^}g#gd#f^^^^rrrrl4<})}
TR=6@49DL=HAZ;COH;COI;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3;CO4;CO1;DL=NK1[COH]COI;CO1;CO4;SBUP;CO4A[CO5][CO1:REC2]SBDN;
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}
STR UL1={ULA;SUB{c^^c^^c^c}"g#^^"g#^^"g#^"g#;"g#cd#fd#c"g#SUB{c#^^c#^^c#^c#}"g#^^"g#^^"g#^"g#;"g#c#d#fd#c#"g#SUB{c#^^c#^^c#^c#}"a#^^"a#^^"a#^"a#"a#c#d#fd#c#fSUB{c^^^^^cc^^^e^^^^}"g^^^^^"g"g^^^"g^^^^}
STR UL2={ULA;SUB{[c^^c^^c^d#^^d#^^d#^f^^^^:ccc^^^^rrrr]}f^^f^^f^g^^g^^g^g#^^^^fff^^^^ccd#f;g#^^g#^^g#^g^^g^^g^g#^^^^SUB{fff^^^}g#g#g#^^^r}
STR UL3={ULA;SUB{MN3}SUB{["f^"g#^"a#^"g#c^^^r"a#^"g#c^^d#^f^ffffrc#^^^r:d#^c#^c^c#d#^^^rc^c#d#^^f^c^"a#^"g#"a#rc^^^r]}
["g#^c^d#^cf^^^rd#^cf^^g^g#^g#g#g#g#rg^^^r:g^f^e^fg^^^re^fg^^g#^f^d#^cd#rf^^^r]
SUB{f^d#^c^d#c^^c^"a#^^"g#^^"g^"g#^"g#^ccc"g#^^^^^}g#^g^f^gf^^f^d#^^c^^"a#^c^c^fffc^^^^^rrr}
STR UL4={ULA;SUB{MN3}SUB{["f^"g#^"a#^"g#c^^^r"a#^"g#c^^d#^f^ffffrc#^^^r:d#^c#^c^c#d#^^^rc^c#d#^^f^c^"a#^"g#"a#rc^^^r]}
["g#^c^d#^cf^^^rd#^cf^^g^g#^g#g#g#g#rg^^^r:g^f^e^fg^^^re^fg^^g#^f^d#^cd#rf^^^r]
SUB{f^d#^c^d#c^^c^"a#^^"g#^^"g^"g#^"g#^ccc"g#^^^^}g#^g^f^gf^^f^d#^^c^^"a#^c^c^fffc^^^^}
STR UL5={[SUB{f^d#^c^d#c^^c^"a#^^"g#^^"g^"g#^"g#^ccc"g#^^^^}g#^g^f^gf^^f^d#^^c^^"a#^c^c^fffc^^^^]}
STR ULMR={DL=ME1;l8>UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3;DL=SB3-1rrrrUL4;SBUP;UL4;UL5;SBDN;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={""""cn35n36``f#``g#}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;rO4;rrrO1[43r]l8O5;rrO5;rrl16[4O1]}STR DDI={[28O1;rrr]l8O5;rrO5;rrrrl16}STR DDK={[32O1;rrr]}
STR DD1={[28O1;rrr]rr[O1;r:rr][O1;rrr]}STR DD1A={l8[O3;r[O1]r[5O1;r]r]O4[15r][O1;r][O1]rO1;rrrrrrrrl16}STR DD1B={O3[31r]O4[31r][12O1;rrr]rr[O1;r:rr][O1;rrr]}
STR DD2={[27O1;rrr][O1;r]O1;rrO1[3O1;rrr]}STR DD3={[16O1;r:rr]O1;r[10O1;rrr][4O1;r]l8O1;r[O1]r[3O1]l16}STR DD3A={O3[59r]O1;r[O1][10O1;rrr][4O1;r]l8O1;r[O1]r[3O1]l16}
STR DD4={[32O1;r:rr]O1;r[24O1;rrr]l8[O1;r][4O1]rrrrrrrrl16}STR DD4A={O3[31r]O4[31r][O3[15r]O4[15r]:SUB{l8O1;rO1;r[4O1]l16}]}
STR DD4B={[32O1;r:rr]O1;r[32O1;rrr]}STR DD5={[16O1;rrr]O3[15r]O4[15r]l8[O1;r][4O1]rrrrrrrrl16}
TR=10l16DL=HAZ@27,90,0BR=20p%=-1000DDH;DDI;DL=BGN@27,90,0BR=20p%=-1000DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4;DD1A;DL=NK1;DDH;DDK;DDI;DD1;DL=SB3+8DD4A;DD4B;DD5;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 GGH={[16rrGB;r][12GR;rGB;r]l8GB;rrGB;rrrrl16}STR GGI={[16GR;rGB;r][12GR;GA;GB;r]l8GB;rrGB;rrrrl16}STR GGJ={[16GR;rGB;r][16GR;GA;GB;r]}STR GGK={[16GR;GA;GB;r][12GR;GR;GB;r]l8GB;rrGB;rrrrl16}
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={[28GR;rGB;r][16r]}STR GG1A={[64r][12GR;rGB;r][16r]}
STR GG2={[14GR;rGB;r]GR;GB;GR;rGB;rGR;r[14GR;rGB;r][GR;GR;GB;r]}STR GG3={[14GR;rGB;r][GR;GR;GB;r][12GR;rGB;r]l8GB;rGR;GB;r[3GB]l16}
STR GG4={[28GR;rGB;r][GR;GR;GB;r][GB;rGR;GR][24GR;rGB;r][GR;GR;GB;r][4GB;r][16r]}STR GG4A={[16'n51n59'^^^^^^^][24GR;rGB;r][GR;GR;GB;r][4GB;r][16r]}
STR GG4B={[28GR;rGB;r][GR;GR;GB;r][GB;rGR;GR][24GR;rGB;r][4GR;GR;GB;r][4GR;rGB;r]}STR GG5={[16GR;rGB;r][4'n51n59'^^^^^^^][GR;GR;GB;r][4GB;r][16r]}
TR=11l16DL=HAZ;BR=20p%=1000@27,90,0GGH;GGI;DL=BGN;BR=20p%=1000@27,90,0GG1;GG2;GG3;GG4;GG1;GG2;GG3;GG4;GG1A;DL=NK1;GGH;GGJ;GGK;GG1;DL=SB3;GG4A;GG4B;GG5[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={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r]n51;rrrrrSUB{n57}n51r[8r]}
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={PD3A}STR PPI={SUB{PD3A}[56r]['n38n40']r[5'n38n40'][6rrrr'n38n40'rrr][16r]}STR PPJ={SUB{PD3A}[56r]['n38n40']r[5'n38n40'][8rrrr'n38n40'rrr]}STR PPK={SUB{PD3A}[14rrrr'n38n40'rrr][16r]}
STR PP1={SUB{PD3}SUB{[64r][16r]n57[15r]n49[15r]n57}[14rrrr'n38n40'rrr][16r]}STR PP1A={SUB{PD3}[64r][16r]n57[15r]n49[15r]n57[15r]}
STR PP1B={SUB{PD3}SUB{[64r][16r]n57[15r]n49[15r]n57}[64r][6rrrr'n38n40'rrr][16r]}
STR PP2={REV=100CHO=70[3'n51n59'[27r]'n49n57n38n40'rrr][16r]REV=0CHO=30rrrr'n38n40'rrr;r'n38n40'rr'n38n40'rrr}
STR PP3={[14rrrr'n38n40'rrr][16r]}STR PP3A={[64r][6rrrr'n38n40'rrr][16r]}STR PP4={SUB{[PD3]}[16rrrr'n38n40'rrr]SUB{[64r][n49[15r]n57[15r]]}[12rrrr'n38n40'rrr][32r]}STR PP4A={[PD3]}
STR PP4B={SUB{[PD3]}[16rrrr'n38n40'rrr]SUB{[64r][n49[15r]n57[15r]]}[16rrrr'n38n40'rrr]}STR PP5={SUB{PD3}SUB{[4n49[15r]n57[15r]]}[8rrrr'n38n40'rrr][32r][rrrr'n38n40'rrr][16r]}
TR=12l16DL=HAZ@9,90,1V=120BR=20p%=1000PPH;PPI;DL=BGN@9,90,1V=120BR=20p%=1000PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4;PP1A;DL=NK1;PPH;PPJ;PPK;PP1;PP4A;PP4B;PP5;PP1B;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={rr`g`g`drar`g`e`d`cagfd}STR DS19={l8r`gr`d`gr`drl16}STR DS20={rr`g`g`drarrr`g`g`drar}STR DS21={rr`d`d`gr`dr`g`f`e`dbage}
TR=13l16<DL=HAZ@119,9PG1;HAM2({DL=HAZ+3DS6;DL=HAZ+7DS20;DL=HAZ+11DS7;DL=HAZ+15DS21;DL=BGN+3DS18;DL=BGN+7DS19;DL=ME1+7DS20;DL=ME2+7DS18;DL=SB1+3DS6;DL=SB1+7DS21;DL=SB1+11DS7;DL=SB1+15DS8;DL=RF1+3DS18;DL=RF1+7DS19;})
HAM2({DL=ME3+7DS20;DL=ME4+7DS18;DL=SB2+3DS6;DL=SB2+7DS21;DL=SB2+11DS7;DL=SB2+15DS8;DL=RF2+3DS18;DL=RF2+7DS19;DL=NK1+3DS6;DL=NK1+7DS20;DL=NK2+3DS6;DL=NK2+7DS8;DL=NK3+3DS7;DL=NK3+7DS21;DL=RF3+3DS18;DL=RF3+7DS19;})
HAM2({DL=SB3+3DS6;DL=SB3+7DS21;DL=SB3+11DS7;DL=SB3+15DS8;DL=SB4+3DS6;DL=SB4+7DS21;DL=SB4+11DS7;DL=SB4+23DS8;DL=END+3DS18;DL=END+7DS19;DL=END+8REC2;DL=END+11DS18;})
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}
STR SPH={SPA@82,110,0EP=60l16[[3"ffc"g#c"g#cfrfc"g#c"g#cf]"eec"g#c"g#cerec"g#c"g#ce]}
STR SPI={SPA@82,110,5EP=70l8[4fcg#ca#c`cf^:cg#ca#c`c^][7r]}
STR SP1={SPA@82,110,0EP=100l16[gfcfd#cd#c;fgg#cg#gfc][d#c#"g#c#c"a#c#"a#;c#d#f"a#fd#c#"a#][gecgecgc;efgcgfec][fd#cfd#cfc:fgg#cg#gfc][8r]}
STR SP2={SPA@82,110,5EP=80l8[fd#fg#rd#fr:fd#fa#rd#fr]fc#fg#rc#fr;fd#fg#rd#frfd#fa#rd#fr;gd#ga#rd#grgeg`cregr}
STR SP3={SPA@82,110,4EP=80l8[fc#gc#g#c#`cc#;d#cgca#c`cc;fcg#ca#c`cc:d#cgca#c`cc]fgg#a#`c^^r}
STR SP4={SPA[@82,110,0EP=85q=50l16[8ff`f`f][8"a#"a#a#a#][4cc`c`c][4ee`e`e][4ff`f`f]:@82,110,2HAM({"f"fff"g#"g#g#g#"a#"a#a#a#cc`c`c})]@82,110,1HAM({"g#"g#g#g#"a#"a#a#a#cc`c`cff`f`f})q=100}
STR SP4A={SPA@82,110,0EP=85q=50l16[8ff`f`f][8"a#"a#a#a#][4cc`c`c][4ee`e`e][4ff`f`f]}STR SP4B={@82,110,1HAM({"g#"g#g#g#"a#"a#a#a#cc`c`cff`f`f})q=100}
STR SP5={SPA@82,110,0EP=85q=50l16[4"a#"a#a#a#][4cc`c`c][4ff`f`f]@82,110,1HAM({"g#"g#g#g#"a#"a#a#a#cc`c`cff`f`f})q=100[32r]@82,110,0EP=85q=50l16[4ff`f`f]@82,110,1HAM({"g#"g#g#g#"a#"a#a#a#cc`c`cff`f`f})q=100}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;DL=NK1[SPH]SPI;SP1;DL=SB3+8SP4A;SBUP;SP4B;SP4;SP5[SP1:REC2]SBDN;
/*15*/STR FTH={@31,90,0EP=90l8["f"g#"a#'fc"g#'^^^^"c#"g#"a#'c#"g#"f'^^^^<"a#c#f'a#fc#'^^^^>"c"e"g'c"g"e'^^^^]}
STR FTI={@31,91,0EP=90l16BR=24[4[4d#&&"c]'fc"g#'^^'fc"g#'^^'fc"g#'^:'d#c"g#'^^'d#c"g#'^^'d#c"g#'^'fc"g#'^^'fc"g#'^^'fc"g#'^]l8'd#c"g#'^r'fc"g#'^^^r}
STR FT1={@82,110,0EP=110l8M.W(40,100,!2)q=85MD({'`f`ca'^'`f`ca''`f`ca'^'`f`ca'^'`f`ca'^'`f`ca'^'`f`ca'^'`f`ca'^^;
'`f`c#a#'^'`f`c#a#''`f`c#a#'^'`f`c#a#'^'`f`c#a#'^'`f`c#a#'^'`f`c#a#'^'`f`c#a#'^^;'`e`cg'^'`e`cg''`e`cg'^^'`e`cg'^;'`g`e`c'^^'`g`e`c'^^'`g`e`c'^},2,!8)
EP=120l16'`f`cg#''`f`cg#'r'`f`cg#'r'`d#`cg#''`f`cg#'^[rr'`f`cg#'^]rr'`g`d#`c'^rr'`g`d#`c'^['`g`d#`c'^^r]
/*'`g`d#`c''`g`d#`c'r'`g`d#`c'r'`f`d#`c''`g`d#`c'^^^^^rrrr*/M=0q=100}
STR FT2={@82,90,1EP=110M=127l8[14r]MD({'fc"g#'^},3,!2)[14r]MD({'fc#"g#'^},3,!2)[14r]MD({'gd#c'^},3,!2)[16r]M=0}
STR FT3={[@82,110,0EP=90l8'g#fc#'^^'g#fc#'^^'g#fc#'^;'a#gd#'^^'a#gd#'^^'a#gd#'^;'`cg#f'^^^r:'`cg#f''`cg#f''`cg#f'^^^r@11,0EP=100HAM({SUB{ccd#f}ffg#a#})]'`f`cg#''`f`cg#''`f`cg#'^^^rrrrr}
STR FT3A={l8[32r]@82,110,0EP=90l8'g#fc#'^^'g#fc#'^^'g#fc#'^;'a#gd#'^^'a#gd#'^^'a#gd#'^;'`cg#f'^^^r;'`f`cg#''`f`cg#''`f`cg#'^^^rrrrr}
STR FT4={EP=90l8[[@82,110,0'g#fc'^'g#fc''g#fc'^^@56,90,0HAM({'fc'^})]@82,110,0'`cg#f'^[4'`cg#f']r'a#gc#'^^^^rrrr:[@82,110,0'gec'^'gec''gec'^^@56,90,0HAM({'gc'^})]@82,110,0['g#fc'^]['g#fc']r'g#fc'^^^^rrrr]
@56,90,1HAM({'g#f'^})@82,110,0'g#fc''g#fc'^^^r@56,90,1HAM({'ec'^})@82,110,0'gec''gec'^^^r'g#fc'^'g#fc'^[3'g#fc']'g#fc'^^^^rrrr}
STR FT4A={EP=90l8[[@82,110,0'g#fc'^'g#fc''g#fc'^^@56,90,0HAM({'fc'^})]@82,110,0'`cg#f'^[4'`cg#f']r'a#gc#'^^^^rrrr:[@82,110,0'gec'^'gec''gec'^^@56,90,0HAM({'gc'^})]@82,110,0['g#fc'^]['g#fc']r'g#fc'^^^^rrrr]
@56,90,1HAM({'g#f'^})@82,110,0'g#fc''g#fc'^^^r@56,90,1HAM({'ec'^})@82,110,0'gec''gec'^^^r'g#fc'^'g#fc'^[3'g#fc']'g#fc'^^^^^^^^}
STR FT5={@56,90,1HAM({'g#f'^})@82,110,0'g#fc''g#fc'^^^r@56,90,1HAM({'ec'^})@82,110,0'gec''gec'^^^r['g#fc'^'g#fc'^[3'g#fc']:'g#fc'^^^^^^^^[16r]]'g#fc'^^^^rrrr}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3A;FT4;FT1;DL=NK1[FTH]FTI;FT1;DL=SB4;SBUP;FT4A;FT5[FT1:REC2]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={@120,0l4'cd'^^^}
TR=16DL=HAZ+7BG4;DL=HAZ+14BG1;BG2;DL=BGN+7BG4;DL=ME1+7BG3;DL=ME2+6BG1;BG2;DL=SB1+7BG9;DL=SB1+14BG1;BG2;DL=RF1+7BG4;DL=ME3+7BG3;DL=ME4+6BG1;BG2;DL=SB2+7BG9;DL=SB2+14BG1;BG2;DL=RF2+7BG4;DL=NK1+7BG4;DL=NK3+6BG1;BG2;DL=RF3+7BG4;DL=SB3+14BG1;BG2;
DL=SB4+7BG9;DL=SB4+22BG1;BG2;DL=END+7BG4;

}

If(TRACK_SELECT==3){

CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/hitbreak.dls)"}

INT EST=154PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"NIGHT OF FANTASY TOKYO LIGHTS"}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,7,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,082,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,3,8,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,100,10,0)WIN(09,09,012,00,0,K,127,3,8,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,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,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=49INT ME3=57INT ME4=65INT SB2=73INT RF2=89INT NK1=98INT NK2=106INT RF3=114INT ME5=122INT ME6=130INT SB3=138INT RF4=155INT END=172
STR SBUP={TrackKey=(K+3);}STR SBDN={TrackKey=K;}
/*1*/STR MNH={g#^ag#^arg#^^^^r}STR MN1={c#c#d#e^^c#^g#ag#f#^ed#c#;"b"bc#d#^^"b^g#^^f#^ed#^;c#c#d#e^c#^c#^c#d#e^c#^e^d#^d#^c#^d#^rrrr}
STR MN2={c#"bc#g#^f#f#^e^g#^f#^f#^e^ed#d#d#d#d#ef#e^d#^c#^"g#^r;g#^f#f#^e^g#^f#^f#^e^eg#^ag#^arg#^^^^r}
STR MN3={g#b`c#`e^`e^`d#`c#bb^`c#rg#^;g#b`c#`e^`e^`d#`c#b`g#^`g#`f#`g#^;f#g#a`e^`e^`d#`c#b`c#^`c#b`c#^f#g#a`c#^`c#^`c#`c`c#`d#^^^^^}
TR=1l8HAM({DL=HAZ+6MNH;DL=ME1;MN1;MN2;V=110MN3;V=100DL=ME3;MN1;MN2;V=110[MN3]V=100DL=ME6+6MNH;DL=SB3+7[5r]V=110MN3;V=100})
/*2&3&4*/STR RTA={@82,110,0BR=6If(CH==3){p%=300@82,90,1}If(CH==4){p%=-300@82,90,1}}
STR RTH={RTA;l8If(CH!=2){@82,110,5EP=90['aec#''aec#'r'aec#'r'aec#'r'aec#';'af#c#''af#c#'r'af#c#'r'af#c#'r'af#c#':'g#d#"b''g#d#"b'r'g#d#"b'r'g#d#"b'r'g#d#"b';'`c#g#e''`c#g#e'r'`c#g#e'r'`c#g#e'r'`c#g#e']'g#d#"b'^'g#d#"b''g#d#"b'r'g#d#"b'r'g#d#"b'^^^^^rrr}
If(CH==2){<EP=110q=100[`c#`g#`f#`d#r`er`c#r`g#`f#`d#r`er`c#:r`f#`e`d#r`c#rb;`c#`g#`f#`d#r`er`c#]`d#r`e`d#r`er`d#rrrrrrrr>q=90}}
STR RT1={RTA;EP=127l16'g#ec#'^'g#ec#'^'g#ec#'^'g#ec#''aec#'^'aec#''g#ec#'^^^rr'g#ec#'^'g#ec#'^'g#ec#'^'g#ec#''aec#'^'aec#''g#ec#'^'f#d#"b'^'g#ec#'^;
'f#d#"b'^'f#d#"b'^'f#d#"b'^'f#d#"b''g#ec#'^'g#ec#''f#d#"b'^^^rr'f#d#"b'^'f#d#"b'^'f#d#"b'^'f#d#"b''g#ec#'^'g#ec#''f#d#"b'^'ec#"a'^'f#d#"b'^;
'ec#"a'^'ec#"a'^'ec#"a'^'ec#"a''f#d#"b'^'f#d#"b''ec#"a'^^^rr'ec#"a'^'ec#"a'^'ec#"a'^'ec#"a''f#d#"b'^'f#d#"b''ec#"a'^'c#"a"f#'^'ec#"a'^;
'g#d#"b'^'g#d#"b'^'g#d#"b'^'g#d#"b''aec#'^'aec#''g#d#"b'^'f#d#"b'^'g#d#"b'^;'g#ec#'^d#f#'g#ec#'^d#g#'bg#d#'^g#b'`d#bg#'^rr}
STR RT1A={RTA;EP=127l16MD({'g#ec#'^'g#ec#'^'g#ec#'^'g#ec#''aec#'^'aec#''g#ec#'^^^rr[16r]'f#d#"b'^'f#d#"b'^'f#d#"b'^'f#d#"b''g#ec#'^'g#ec#''f#d#"b'^^^rr[16r];
'ec#"a'^'ec#"a'^'ec#"a'^'ec#"a''f#d#"b'^'f#d#"b''ec#"a'^^^rr[16r]},1,!1)
'g#d#"b'^'g#d#"b'^'g#d#"b'^'g#d#"b''aec#'^'aec#''g#d#"b'^^^rr;'g#ec#'^d#f#'g#ec#'^d#g#'bg#d#'^g#b'`d#bg#'^rr}
STR RT4={If(CH==2){@31,90,0q=100EP=90HAM({[l8`d#&&`e&&^^^^`d#l16`c#b`c#^l8:g#^^^g#b`c#`d#&&`e&&^^^^`d#l16`c#b`g#^l8`c#^^^^^^]g#^^^^^^b&&`c#^^^^^l16`c`c#l8`d#^^^`d#&&`g#^^})q=90l16}
If(CH!=2){EP=100BR=6If(CH==3){p%=300@31,110,0}If(CH==4){p%=-300@31,91,0}
l16<[a&&"aa&&"a'af#c#'^^^g#&&"g#g#&&"g#'g#d#"b'^^^[[`c#&&c#]'`c#g#e'^^^]][f#&&"f#]'f#c#"a'^^^[g#&&"g#]'g#d#"b'^^^>HAM2({SUB{e^^^d#^^^c#^^^"b^^^}a^^^g#^^^f#^^^e^^^})<l8'd#"b'^^'d#"b''d#"b'^^^'g#d#"b'^^^^^^^>}}
STR RT4A={If(CH==2){@31,90,0q=100EP=90HAM({[l8`d#&&`e&&^^^^`d#l16`c#b`c#^l8:g#^^^g#b`c#`d#&&`e&&^^^^`d#l16`c#b`g#^l8`c#^^^^^^]g#^^^^^^l16[[3`c#^]`c#`c#][3`g#^][`g#]`g#^rrrrrr})q=90l16}
If(CH!=2){EP=100BR=6If(CH==3){p%=300@31,110,0}If(CH==4){p%=-300@31,91,0}
l16<[a&&"aa&&"a'af#c#'^^^g#&&"g#g#&&"g#'g#d#"b'^^^[[`c#&&c#]'`c#g#e'^^^]][f#&&"f#]'f#c#"a'^^^[g#&&"g#]'g#d#"b'^^^>HAM2({SUB{e^^^d#^^^c#^^^"b^^^}a^^^g#^^^f#^^^e^^^})<l16[[3'd#"b'^]['d#"b']][3'g#d#"b'^]['g#d#"b']'g#d#"b'^rrrrrr>}}
STR RT5={RTA;If(CH==2){l8[8MD({EP=100rr'<`c#g#e>'^},1,!2)rrrr]}If(CH!=2){EP=127@120,13,1l4[7'`c#c#'^^^]rrrr}}
STR RT6={RTA;EP=127l16[3['ec#"a'^^]'ec#"a'^]'ec#"a'^rrrrrr[3['g#ec#'^^]'g#ec#'^]'g#ec#'^rrrrrr[3[3'ec#"a'^]'ec#"a''ec#"a']'ec#"a'^rrrrrr[8'g#ec#'^]'g#ec#'^d#f#'g#ec#'^d#g#'bg#d#'^g#b'`d#bg#'^rr}
STR RT7={RTA;If(CH!=2){l4<@128,3EP=127CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}}
STR RT8={RTA;EP=127l16'g#ec#'^d#f#'g#ec#'^d#g#'bg#d#'^g#b'`d#bg#'^rr}STR RT9={If(CH==2){@120,13,1EP=127'e'^^^}If(CH!=2){@31,90,0l4EP.T(70,127,!1)'`ebg'^^^}}
STR RRF={l16DL=HAZ;RTH;RT4;DL=BGN;RT1;DL=SB1;RT4;DL=RF1;RT1;DL=SB2[RT4]RT1A;DL=NK1[RT5]RT6;DL=SB3;RT4A;RT4;RT7;DL=RF4;RT1;RT6;SBUP;RT8;SBDN;RT9;REV=127RT7;REV=20}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,100)}STR BSH={l4<q=100[a^^^f#^^^:g#^^^`c#^^^]l8g#^^^^^^g#^^^^^^^^>BSA}
STR BS1={[4c#`c#][4"aa][4"bb][4"g#g#][4"aa][4"f#f#][4"g#g#]l16q=90["g#^^r]"g#"g#^r"g#^^rl8BSA}
STR BS1A={[16c#`c#][4"aa][4"f#f#][4"g#:g#]q=90"g#^^^^^^rrBSA}
STR BS2={[4c#`c#][4"aa][4"bb][4"g#g#][4"aa][4"f#f#][8"g#g#]}
STR BS3={[[4"aa][4"f#f#]:[4"g#g#][4c#`c#]]<q=90g#^g#g#rg#rg#^^^^^rrr>BSA}STR BS3A={q=90"ar"a"ar"ar"f#r"f#r"f#r"f#r"f#"g#"g#"g#"g#"g#"g#rc#rc#rc#rc#^rBSA[4"aa][4"f#f#]<q=90g#^g#g#rg#rg#^^^^^rrr>BSA}
STR BS4={[["aa]["g#g#][4c#`c#]]["f#f#]["g#g#]"aa"g#g#"f#f#"ee[4"d#:d#]q=90"g#^^^^^^rrBSA}
STR BS4A={[["aa]["g#g#][4c#`c#]]["f#f#]["g#g#]"aa"g#g#"f#f#"ee[4"d#d#]["g#:g#]"g#^"g#"g#^}
STR BS4B={[["aa]["g#g#][4c#`c#]]["f#f#]["g#g#]"aa"g#g#"f#f#"eeq=90l16[d#^d#^d#^d#d#]g#^g#^g#^g#g#g#^[6r]l8BSA}
STR BS5={l16[4c#^`c#^c#`c#rc#e^e^f#^f#^:c#^`c#^c#`c#rc#e^e^f#^rr]l8c#^^^^^`c#&&c#}
STR BS6={l16REV.T(20,127,!1^1^1^1^1^1^1)[c#^`c#^c#`c#rc#c#^c#^c#^e^;e^`ere`eree^e^f#^rrc#^`c#^c#`c#rc#c#^c#^c#^e^:c#^`c#^c#`c#rc#c#^^rc#^^r]q=90c#^c#^c#^c#c#[8r]BSA;REV=20}
STR BS7={l8[7"a:a]rrr[7"g#:g#]rrrl16q=90[3[3"a^]"a"a]"a^rrrrrr[8"g#^];["g#^^r]"g#"g#^r"g#^^rl8BSA}STR BS8={q=90l16["g#^^r]"g#"g#^r"g#^^rBSA}
STR BS9={l4q=100e&&^^^"e^^^}
STR BASS={l8<<DL=HAZ;BSH;BS4;DL=BGN;BSA;BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4A;BS4;BS1A;DL=NK1;BS5;BS6;BS7;BS2;BS3;BS4B;BS4;DL=RF4;BS1;BS7;SBUP;BS8;SBDN;BS9;}TR=5@40,90,0BASS;TR=7@39,1BASS;
/*6*/STR CO1={@5,24l8EP=115'g#ec#'^c#'g#ec#'^^'g#ec#'^;'g#e"a'^"a'g#e"a'^^'g#e"a'^;'f#d#"b'^"b'f#d#"b'^^'f#d#"b'^;'f#d#"g#'^"g#'f#d#"g#'^^'f#d#"g#'^;
'ec#"a'^"a'ec#"a'^^'ec#"a'^;'ec#"f#'^"f#'ec#"f#'^^'ec#"f#'^;'g#d#"b'^"g#'g#d#"b'^^'g#d#"b'^[4'g#d#"b'^]}
STR CO2={@49,90,1EP=75l4HAM({`c#^^^^^^^`d#^^^^^^^`e^^^`f#^^^`e^^^`d#^^^})}
STR CO3={@49,90,1EP=75l8HAM({SUB{[a^^^^ef#a^^^^^ef#ag#^^^^^^:`c#^^^^^^^^]b^^^^^rrr}[`e^^^^g#`c#`e^^^^^g#`c#`e`d#^^^^^^:`e^^^^^^^^]`f#^^^^^rrr})}
STR CO3A={@49,90,1EP=75l8[32r]HAM({SUB{a^^^^ef#a^^^^^ef#ag#^^^^^^;b^^^^^rrr}`e^^^^g#`c#`e^^^^^g#`c#`e`d#^^^^^^;`f#^^^^^rrr})}
STR CO4={@49,90,1EP=80l8HAM({[3'`e`c#a'^^^^^^^]'`g#`e`c#'^^^^^^^['`e`c#a'^^^^^^^]'`c#af#'^^^^^^^'`d#bg#'^^^^^^^})}
STR CO4A={@49,90,1EP=80l8HAM({[3'`e`c#a'^^^^^^^]'`g#`e`c#'^^^^^^^['`e`c#a'^^^^^^^]'`c#af#'^^^^^^^'`d#bg#'^^^^^^^})}
STR CO5={@56,90,0EP=110l16HAM({SUB{[64r][g#g#g#g#br`c#rbrg#r:rrrrg#g#g#g#br`c#rbrg#rrg#rg#]"g#g#rg#;}[[`c#`c#`c#`c#`er`f#r`er`c#r:rrrr`c#`c#`c#`c#`er`f#r`er`c#rr`c#r`c#EP=90]c#`c#r`c#:[5`e]r`e`e[`f#r`f#`f#]]SUB{"g#r"g#r"g#r"g#"g#}c#rc#rc#rc#c#rrrrrrrr})/*EP=127@120,13,1REV=127CHO=127l4[4'c#`c#'^^^^^^^]REV=20CHO=10*/}
STR CO6={@5,24EP=115l16[3['ec#"a'^^]'ec#"a'^]'ec#"a'^rrrrrr[3['g#d#"b'^^]'g#d#"b'^]'g#d#"b'^rrrrrr[3[3'ec#"a'^]'ec#"a''ec#"a']'ec#"a'^rrrrrr[8'g#d#"b'^][4'g#d#"b'^^^]}
STR CO7={@5,24l8EP=115[4'g#d#"b'^]}STR CO8={@49,90,1EP=80l4HAM({'`ebg'^^^})}
TR=6DL=HAZ;CO3;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3A[CO4]DL=NK2;CO5;DL=RF3;CO6;CO2;CO3;CO4A;DL=RF4;CO1;CO6;SBUP;CO7;SBDN;CO8;
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR ULH={SUB{"b^"b"b^"br"b^^^^}d#^d#d#^d#rd#^^^^r}
STR UL1={ULA;"a"a"bc#^^"a^ef#ed#^c#"b"a;"g#"g#"a"b^^"g#^e^^d#^c#"b^;
SUB{"f#"f#"g#"a^"f#^"f#^"f#"g#"a^"f#^"a^"a^"a^"a^"g#^rrrr}"a"a"bc#^"a^"a^"a"bc#^"a^c#^c#^c#^c#^c^rrrr}
STR UL2={ULA;"a"g#"ae^d#d#^c#^e^d#^d#^c#^c#SUB{"g#"g#"g#"g#"g#"g#"g#"g#^"g#^"g#^"e^r}"b"b"b"b"b"b"bc#^c#^c#^c#^r;e^d#d#^c#^e^d#^d#^c#^c#SUB{"b^"b"b^"br"b^^^^}d#^d#d#^d#rd#^^^^r}
STR UL3={ULA;SUB{c#ef#a^a^g#f#ee^erc#^;c#ef#a^a^g#f#e`c#^`c#b`c#^}eg#a`c#^`c#^`cag#g#^are^;eg#a`c#^`c#^`cag#`e^`e`d#`e^;
SUB{"bc#d#a^a^g#f#ef#^f#ef#^;"bc#d#e^e^eeed#^^^^^}d#ef#`c#^`c#^`cag#a^ag#a^;d#ef#g#^g#^g#g#g#`c^^^^^}
STR UL3A={ULA;SUB{c#ef#a^a^g#f#ee^erc#^;c#ef#a^a^g#f#e`c#^`c#b`c#^}eg#a`c#^`c#^`cag#g#^are^;eg#a`c#^`c#^`cag#`e^`e`d#`e^;
SUB{"bc#d#a^a^g#f#ef#^f#ef#^;"bc#d#}d#ef#`c#^`c#^`cag#a^ag#a^;d#ef#l16[[3'g#e'^]['g#e']][3'`cd#'^]['`cd#']'`cd#'^l8}
STR ULMR={DL=HAZ+6l8>ULH;DL=ME1;UL1;UL2;V=110HAM2({UL3});V=100DL=ME3;UL1;UL2;V=110HAM2({[UL3]})V=100DL=ME6+6ULH;DL=SB3-1[5r]HAM2({V=90UL3A;V=100UL3})}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={""""cn35n36``f#``g#}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;rO3[15r]O4[15r]l8O5;rO1[3O5;r]rrrrrrrl16}
STR DD1={[32O1;rrr]}STR DD1A={[24O1;rrr]l16BR=20p%=1000REV=60O1;rrl16['n38n40']rl8[5O1]rrrrrrrrl16BR=20p%=-500REV=10}
STR DD2={[29O1;rrr][O1;r]O1;rrrrrrr}STR DD3={[24O1;rrr]l8O1;r[O1]rO1;rO1;rrrrrrrrl16}STR DD3A={l8O3;rrrO2;O1;rO4;rrrrrO2;O1;rO3;rrrO2;rr[3O1;r]O2;rrl16[8O1;rrr]l8O1;r[O1]rO1;rO1;rrrrrrrrl16}
STR DD4={[24O1;rrr]l16BR=20p%=1000REV=60O1;rrl16['n38n40']rl8[5O1]rrrrrrrrl16BR=20p%=-500REV=10}
STR DD4A={[26O1;rrr][4O1;r][O1;rrr]l8r[O1]rl16}STR DD4B={[24O1;rrr][3[3O1;r][O1]]O3[7r]}STR DD5={[4O3[15r]][3O3;rrr[3O1;rrr]][n49rr][n57rr][n49r]}
STR DD6={REV.T(10,127,!1^1^1^1^1^1^1)[7O3;rrr[3O1;rrr]][3n49r][n57]rrrrrrrrREV=10}STR DD7={[[7O1;rrr]rrrr][3[3O1;r][O1]]O1;rrrrrrr[8O1;r][4O1;rrr]}
TR=10l16DL=HAZ@27,90,0BR=20p%=-500V=110DDH;DD4;DL=BGN@27,90,0BR=20p%=-500V=110DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4A[DD4]V=100O3;DL=NK1@27,90,0BR=20p%=500DD5;DD6;BR=20p%=-500V=110DD7;DD2;DD3;DD4B;DD4;DL=RF4;DD1;DD7[4O1;rrr]REV=127O3[31r]REV=10
/*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={[16'n51n59'^^^^^^^]}STR GGI={[16GR;rGB;r][8GR;GR;GB;r][4GB;rrr]l8[4GB]r[GB]rl16}
STR GG1={[28GR;GR;GB;r][4GB;rrr]}STR GG2={[28GR;rGB;r][4GB;rrr]}STR GG3={[24GR;rGB;r]l8GB;r[GB]rGB;rGB;rrrrrrrrl16}STR GG3A={l8['n51n59'^^^'n51n59'^'n51n59''n51n59'^^^^'n51n59'^'n51n59'^]l16[8GR;rGB;r]l8GB;r[GB]rGB;rGB;rrrrrrrrl16}
STR GG4={[24GR;GR;GB;r][4GB;rrr]l8[4GB]r[GB]rl16}STR GG4A={[26GR;GR;GB;r][GB;rrr][4GR;GR;GB;r]}STR GG4B={[24GR;GR;GB;r][3[3GB;r][GB]]GB[7r]}
STR GG5={[14GR;r;GR;GR;GB;rGR;GR][4GB;rr][GB;r]}STR GG6={REV.T(0,127,!1^1^1^1^1^1^1)[14GR;r[4GR]GB;GR][3GB;r][GB]rrrrrrrrREV=0}
STR GG7={[7GR:r;GB;r]rrrrrrr[7GR:GR;GB;r]rrrrrrr[3[3GB;r][GB]]GB;rrrrrrr[8GB;r][4GB;rrr]}
TR=11l16DL=HAZ@27,90,0BR=20p%=500GGH;GGI;DL=BGN@27,90,0BR=20p%=500GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4A[GG4]DL=NK1@27,90,0BR=20p%=500GG5;GG6;GG7;GG2;GG3;GG4B;GG4;DL=RF4;GG1;GG7[4GB;rrr]
/*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={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[64r]}
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}[64r][4rrrr'n38n40'rrr][28r]REV=127CHO=127'n38n40'rrrCHO=30REV=0}
STR PP1={SUB{PD3}[14rrrr'n38n40'rrr]SUB{n49[7r]n57}[5'n38n40']r['n38n40']['n38n40'rrr]}STR PP1A={SUB{PD3}[12rrrr'n38n40'rrr][16r]SUB{n49[7r]n57}[12r]REV=127CHO=127'n38n40'rrrCHO=30REV=0}
STR PP2={[14rrrr'n38n40'rrr][12r]REV=127CHO=127'n38n40'rrrCHO=30REV=0}STR PP3={SUB{l8[n49[6r]n49[8r]:[4GB:r]n49rrn49rrrrr]n49r[n49]rn49rn49rrrrrl16}[12rrrr'n38n40'rrr][16r][12r][4'n38n40']}
STR PP3A={SUB{l8[n49[6r]n49[8r]:[4GB:r]n49rrn49rrrrr]n49r[n49]rn49rn49rrrrrl16}[64r][4rrrr'n38n40'rrr][16r][12r][4'n38n40']}STR PP4={SUB{PD3}[12rrrr'n38n40'rrr][28r]REV=127CHO=127'n38n40'rrrCHO=30REV=0}
STR PP4A={SUB{PD3}[14rrrr'n38n40'rrr][12r]REV=127CHO=127'n38n40'rrrCHO=30REV=0}STR PP4B={SUB{PD3}[12rrrr'n38n40'rrr][16r][3'n38n40'r][3'n38n40']rrrREV=127CHO=127'n38n40'rrrCHO=30REV=0}
STR PP5={PD3A}STR PP6={SUB{PD3}[64r][6rrrr'n38n40'rrr][16r]}STR PP7={[[3rrrr'n38n40'rrr][8r]][32r][8'n38n40'r]SUB{n49[7r]n57}[5'n38n40']r['n38n40']['n38n40'rrr]}STR PP8={SUB{[3n51rrr][2n51r]}SUB{n49[7r]n57}[5'n38n40']r['n38n40']['n38n40'rrr]}
TR=12l16DL=HAZ@9,90,1V=127BR=20p%=3000PPH;PPI;DL=BGN@9,90,1V=127BR=20p%=3000PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4A;PP4;PP1A;DL=NK1@9,90,1V=127BR=20p%=3000PP5;PP6;PP7;PP2;PP3;PP4B;PP4;DL=RF4;PP1;PP7;PP8;REV=127n49[15r]'n51n59'[15r]REV=10
/*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={`g`g`dr`g`g`dr`g`g`d`dbbgg}STR DS19={`gr`g`g`dr`g`g`cr`g`garrr}STR DS20={[3a`g`dr]`d`d`d`d}STR DS21={[12r]`g`dbg}STR DX21={>TrackKey=K@56,10,1EP=127REV=100l4'`c#'^^^^<l16REV=0@119,0TrackKey=0}STR DS22={`gr`drar`da`frrrarrr}
TR=13l16<DL=HAZ@119,0PG1;DL=HAZ+3DS7;DL=HAZ+7DS8;DL=HAZ+11DS21;DL=HAZ+15DS20;DL=BGN+3DS18;DL=BGN+7DS19;DL=ME1+3DS6;DL=ME1+7DS7;DL=ME2+3DS7;DL=ME2+7DS8;DL=SB1+3DS21;DL=SB1+7DS20;DL=RF1+3DS18;DL=RF1+7DS19;
DL=ME3+3DS6;DL=ME3+7DS7;DL=ME4+3DS7;DL=ME4+7DS8;DL=SB2+3DS21;DL=SB2+7DS7;DL=SB2+11DS21;DL=SB2+15DS20;DL=RF2+3DS18;DL=RF2+7DS19;DL=NK1-1DX21;DL=NK1+3DS7;DL=NK1+7DS2;DL=NK2+3DS7;DL=NK2+7DS22;DL=RF3+7DS19;
DL=ME5+3DS6;DL=ME5+7DS7;DL=ME6+3DS7;DL=ME6+7DS8;DL=SB3+3DS21;DL=SB3+7DS7;DL=SB3+11DS21;DL=SB3+15DS20;DL=SB3+16DX21;DL=RF4+3DS18;DL=RF4+7DS19;DL=RF4+15DS19;DL=RF4+16DS19;
/*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 LDS2={"d#d#f#a#`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 LGS={"g#g#b`d#`g#}STR LA={"aa`c`e`a}STR LA2={"aa`c#`e`a}STR LA3={"aa`c#f#`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]*/[l8'SWE'l16PSS:r][3l8'SWE'l16PSS]}
FUNCTION PDB(STR SWE){/*l8PSS;l16'SWE'r[PSS:'SWE'r]*/[l8'SWE'l16PSS:r]}FUNCTION PDC(STR SWE){[3l8'SWE'l16PSS]/*[3'SWE'r:PSS]*/}
FUNCTION PDD(STR SWE,STR FF1){/*l8FF1;l16'SWE'r[4FF1'SWE'r]*/[l8'SWE'l16FF1:r][3l8'SWE'l16FF1]}FUNCTION PDE(STR SWE,STR FF1){/*l8FF1;l16'SWE'r[FF1:'SWE'r]*/[l8'SWE'l16FF1:r]}
FUNCTION PDF(STR SWE,STR FF1){[3l8'SWE'l16FF1]}FUNCTION SPC(STR SPD){['SPD'^rr]['SPD'^^]'SPD'^}
STR SPI={@1,90,0EP=100[<PDB=LA2;PDF(LGS,{"g#})>PDD(LCS,{"c#})]<PDE(LFS,{"f#})PDF(LGS,{"g#})PDA=LA2[16r]>}
STR SP1={@1,90,0EP=110PDD(LCS,{"c#})<PDA=LA2;PDA=LB2;PDD(LGS,{"g#});PDA=LA2;PDD(LFS,{"f#})[PDD(LGS,{"g#})]>}
STR SP1A={@1,90,0EP=110[4PDD(LCS,{"c#})]<PDA=LA2;PDD(LFS,{"f#})[PDD(LGS,{"g#})]>}
STR SP2={@1,90,0EP=90l8[3'LCS']'LCS'^^'LCS'^<[3'LA2']'LA2'^^'LA2'^;[3'LB2']'LB2'^^'LB2'^;'LGS'^^'LGS'^'LGS''LGS'^;[3'LA2']'LA2'^^'LA2'^[3'LA3']'LA3'^^'LA3';'LGS'^^^^^c#d#'LGS'^^^^^rrr>
/*'LA2'^^^^f#g#'LA2'^^^^^f#g#a'LGS'^^^^c#d#'LGS'^^^^^rrr*/}
STR SP3={@1,90,0EP=110l8HAM({SUB{[a^^^^ef#a^^^^^ef#ag#^^^^^^:`c#^^^^^^^^]b^^^^^^^^}[`e^^^^g#`c#`e^^^^^g#`c#`e`d#^^^^^^:`e^^^^^^^^]`f#^^^^^^^^})}
STR SP3A={@1,90,0EP=110l8[32r]HAM({SUB{a^^^^ef#a^^^^^ef#ag#^^^^^^;b^^^^^^^^}`e^^^^g#`c#`e^^^^^g#`c#`e`d#^^^^^^;`f#^^^^^^^^})}
STR SP4={@1,90,0EP=100[<PDB=LA2;PDF(LGS,{"g#})>PDD(LCS,{"c#})]<PDE(LFS,{"f#})PDF(LGS,{"g#})PDA=LA2;PDD(LDS2,{"d#})PDD(LGS,{"g#})>}
STR SP4A={@1,90,0EP=100[<PDB=LA2;PDF(LGS,{"g#})>PDD(LCS,{"c#})]<PDE(LFS,{"f#})PDF(LGS,{"g#})PDA=LA2[[3'LDS2'^]['LDS2']][3'LGS'^]['LGS']'LGS'^rrrrrr>}
STR SP5={@1,90,0EP=100l16HAM({[g#^brg#b^g#`c#^b`c#g#f#ec#:[3g#^b^g#f#c#`c#^^rrrrrr]][g#^b^g#f#c#`c#^^rrrrrr][16r]})}
STR SP6={@1,90,0EP=110l16HAM({[SUB{`d#^`er`d#`e^`d#`g#^`f#`g#`e`d#`c#g#}g#^brg#b^g#`c#^b`c#g#f#ec#:SUB{`e^`e^`e`e`e`e^^rrrrrr[`d#^`e^`c#bg#`e^^rrrrrr]}[3g#^b^g#f#c#`c#^^rrrrrr]][SUB{`d#^`e^`c#bg#`e^^}g#^b^g#f#c#`c#^^rrrrrr][16r]})}
STR SP7={@1,90,0EP=110PDA=LA2;PDB=LA2;'LA2'^[7r]PDD(LGS,{"g#});PDE(LGS,{"g#});'LGS'^[7r][3[3'LA2'^]['LA2']]'LA2'^rrrrrr[8'LGS'^]PDD(LGS,{"g#})}
STR SP8={@1,90,0EP=110PDD(LGS,{"g#})}
TR=14DL=HAZ;SP3;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3A[SP4]SP1A;DL=NK1;SP5;SP6;SP7;SP2;SP3;SP4A;SP4;DL=RF4;SP1;SP7;SBUP;SP8;SBDN;
/*15*/STR FTH={@31,110,0EP=90l8<["a"a'aec#'^"a'aec#'^'aec#';"f#"f#'af#c#'^"f#'af#c#'^'af#c#':"g#"g#'g#d#"b'^"g#'g#d#"b'^'g#d#"b';c#c#'`c#g#e'^c#'`c#g#e'^'`c#g#e']'g#d#"b'^'g#d#"b'['g#d#"b'r]'g#d#"b'^^^^^rrr>}
STR FT1={@82,0,0EP=110l8>MD({['g#ec#'^]r'g#ec#'^'g#ec#'['g#e"a'^]r'g#e"a'^'g#e"a'['f#d#"b'^]r'f#d#"b'^'f#d#"b'['f#d#"g#'^]r'f#d#"g#'^'f#d#"g#';
['ec#"a'^]r'ec#"a'^'ec#"a'['ec#"f#'^]r'ec#"f#'^'ec#"f#'['g#e"b'^]r'g#e"b'^'g#e"b'[4'g#e"b'^]},2,!8)<}
STR FT1A={@82,0,0EP=110l8>MD({[4['g#ec#'^]r'g#ec#'^'g#ec#'];['ec#"a'^]r'ec#"a'^'ec#"a'['ec#"f#'^]r'ec#"f#'^'ec#"f#'['g#e"b'^]r'g#e"b'^'g#e"b'[4'g#e"b'^]},2,!8)<}
STR FT2={@82,90,1EP=90l8HAM({'c#"g#"e'r'c#"g#"e'^c#'c#"g#"e'r'c#"g#"e';'c#"a"e'r'c#"a"e'^c#'c#"a"e'r'c#"a"e';'"b"f#"d#'r'"b"f#"d#'^"b'"b"f#"d#'r'"b"f#"d#';'"b"g#"d#'r'"b"g#"d#'^"b'"b"g#"d#'r'"b"g#"d#';
'"a"e"c#'r'"a"e"c#'^"a'"a"e"c#'r'"a"e"c#';'"a"f#"c#'r'"a"f#"c#'^"a'"a"f#"c#'r})@82,110,0EP=80q=80M=80SUB{`g#^`f#^`f#^`e^`d#^^^^^}[4'g#d#"b'^]'g#d#"b'^^^^^rrrq=100M=0}
STR FT3={@82,110,0EP=90l8[[rr'`e`c#a'^^^^r]:[7'`d#bg#'][4'`e`c#a'^]r]'`g#`d#b'^'`g#`d#b''`g#`d#b'r'`g#`d#b'r'`g#`d#b'^^^^^rrr}
STR FT4={@82,110,0EP=90l8[['`c#ae'^][3'`cg#e']['`c#ae'^]'`c#ae'^^^r:['`c#ae'^][3'`cg#e']['`e`c#g#'^]'`e`c#g#'^^^r]['`c#ae'^][3'`c#ae']'`d#`cg#'^^^^^rrr}
STR FT4A={@82,110,0EP=90l8[['`c#ae'^][3'`cg#e']['`c#ae'^]'`c#ae'^^^r:['`c#ae'^][3'`cg#e']['`e`c#g#'^]'`e`c#g#'^^^r]l16[[3'`c#ae'^]['`c#ae']][3'`d#`cg#'^]['`d#`cg#']'`d#`cg#'^rrrrrr}
STR FT5={@56,10,1EP=120l16[['`c#'^EP.T(40,120,!4)[6'`c#'][3'`c#'^]'b'^:'`c#'^EP.T(40,120,!4)[6'`c#']['`e'^]'`f#'^^^]:'`c#'^^'b'^^'g#'^'`c#'^^^^rrr]CHO=120REV=50HAM({'`c#g#'^^'`cg#'^^'bg#'^^'a#f#'^^'af#'^'g#e'^})REV=20CHO=20}
STR FT6={@56,10,1EP=120l16[['`c#'^EP.T(40,120,!4)[6'`c#'][3'`c#'^]'b'^:'`e'^EP.T(40,120,!4)[6'`e']['`e'^]'`f#'^^^]:'`c#'^^'b'^^'g#'^'`c#'^^^^rrr]CHO=120REV=50HAM({'`c#g#'^'`c#g#'^'`c#g#'^'bg#''`c#g#'^^^^^^^^})REV=20CHO=20}
STR FT7={>@82,0,0EP=110MD({l8[['ec#"a'^]:r'ec#"a'^'ec#"a']rrrr[['g#ec#'^]:r'g#ec#'^'g#ec#']rrrr},2,!8)l16[3[3'ec#"a'^]'ec#"a''ec#"a']'ec#"a'^rrrrrr[8'g#ec#'^]MD({[4'g#e"b'^^^]},2,!8)<}
STR FT8={@82,0,0EP=110MD({>[4'g#e"b'^^^]<},2,!8)}STR FT9={@82,110,0l4EP.T(70,110,!1)'`ebge'^^^}
TR=15DL=HAZ;FTH;FT4;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]FT1A;DL=NK1;FT5;FT6;FT7;FT2;FT3;FT4A;FT4;DL=RF4;FT1;FT7;SBUP;FT8;SBDN;FT9;
/*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={@120,0l4'cd'^^^}
STR BG11={TrackKey=K@56,10,1EP=127REV=100l4'`c#'^^^^REV=10TrackKey=0}STR BG12={l4REV=70[7rr|@126,9BR=48p.T(127,64,!0)'`c#`c`d`d#'^]REV=10p=64}STR BG13={@126,9BR=48p.T(127,0,!1)l4'`c#`c`d`d#'^^^[16r]p=64}
TR=16DL=HAZ+7BG4;DL=HAZ+11BG3;DL=HAZ+14BG1;BG2;DL=BGN+7BG4;DL=ME1+7BG10;DL=ME2+6BG1;BG2;DL=SB1+3BG3;DL=SB1+6BG1;BG2;DL=RF1+7BG4;DL=ME3+7BG10;DL=ME4+6BG1;BG2;DL=SB2+3BG3;DL=SB2+7BG1;DL=SB2+11BG3;DL=SB2+14BG1;BG2;DL=RF2+7BG4;
DL=NK1-1BG11;DL=NK1;BG12;DL=NK2;BG12;DL=NK2+7BG3;DL=RF3+7BG4;DL=ME5+7BG10;DL=ME6+6BG1;BG2;DL=SB3+3BG3;DL=SB3+7BG2;DL=SB3+11BG3;DL=SB3+14BG1;BG2;DL=SB3+16BG11;DL=RF4+7BG4;DL=RF4+15BG4;DL=RF4+16BG4;DL=END;BG13;

}