//	過去データ全部アップしました⇒http://www.youtube.com/user/PitchbendMasterRec/
//	今回は80年代の歌謡曲みたいな

INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={LAST TRAIN}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+35;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,0,0,127,09,0)WIN(07,07,039,01,0,K,074,0,0,127,09,0)WIN(13,13,119,00,0,0,___,0,0,127,09,0)
WIN(02,02,100,00,0,K,044,0,0,110,09,0)WIN(08,08,012,00,0,K,000,0,0,110,09,2)WIN(14,14,082,01,0,K,___,0,0,127,10,0)
WIN(03,03,104,00,0,K,074,0,0,110,10,0)WIN(09,09,012,00,0,K,127,0,0,110,09,2)WIN(15,15,003,00,0,K,096,0,0,110,10,0)
WIN(04,04,088,00,0,K,032,0,0,110,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,0,064,0,0,127,10,0)
WIN(05,05,088,00,0,K,054,0,0,127,09,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,01,0,K,032,0,0,090,10,0)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=10INT BGN=30INT ME1=38INT ME2=46INT SB1=54INT RF1=74INT ME3=82INT ME4=94INT SB2=102INT RF2=122INT ME5=130INT ME6=138INT SB3=146INT RF3=170INT END=178
/*1*/STR MNH={V=90[da#af^f^g^rf^g^^rda#af^f^ggrgrg^^^^^r:ga#aa^a^rga#aa^a^aa#`c`d`d^`d^^`ca#a^r][gaa#a#^a#^`c^a^r:afda^g^^^^rrrrrrrrrr]rda#af^f^g^rf^g^^r}
STR MN1={V=100g^g^g^^rgaa#grgaa#ag^f^g^d^^^^rrrrc^c^c^^rcdd#drdga#a^g^f#g^a^^^^^rrr}
STR MN1A={V=100[g^g^g^^r][g^g^][6g]rrg^g^g^^r;gaa#grgaa#ag^f^g^d^^^^rrrrc^c^c^^rcdd#drdga#a^g^f#g^a^^^^^rrr}
STR MN2={V=110g^fg^^^ra^ga^^^ra#^a#^a^f^fgrdrgaa#`d`c^a#^g^ga#`crf^^^rf^^d^^f^g^r}
STR MN3={V=120[da#af^f^g^rf^g^^rda#af^f^ggrgrg^^^^^r:ga#aa^a^rga#aa^a^aa#`c`d`d^`d^^`ca#a^r][gaa#a#^a#^`c^a^r:afda^g^^^^rrrrrrrrrr]rda#af^f^g^r>f^g^^r<}
STR MN4={V=120`d^^a#^^g^^rg^a#^`d^`c^^`f^^`c^^rrra#^a^a#^^d#^^a#^^ra#^d#^a#^a^^a#^^`c^`d^EP.T(30,110,!2^4)[3`d^]EP=127}
STR MN5={V=120`d^^a#^^g^^rg^a#^`d^`c^^`f^^`c^^rrra#^a^a#^^d#^^a#^a^^g^^a^g^^^^^^^rrr}
STR MN6={V=120da#af^f^g^rf^g^^rda#af^f^ggrgrg^^^^^rga#aa^a^rga#aa^a^aa#`c`d`d^`d^^`ca#a^r
TrackKey=(K+3)da#af^f^g^rf^g^^rda#af^f^ggrgrg^^^^^rgaa#a#^a#^`c^a^rafda^g^^^^rrrrrrrrrr[3gaa#a#^a#^`c^a^rr:rrr]da#af^f^g^r>f^g^^r<TrackKey=K}
TR=1l8DL=HAZ-1rrr>MNH<HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1A;MN2;MN3;DL=ME5;MN4;MN5;MN6;})
/*2&3&4*/STR RTA={BR=10If(CH==2){p%=80}Else{p%=-80}}STR RTH={@2,0If(CH!=2){l64r}EP=100p%=0l8
SUB{'ga#`d'^^^^'`ca#g'^^'ga#`d'^ga#'`f`ca'^'`d#`cg'^'`daf'^^^^'`caf'^^}<["d#^^"d#"d#:"g"a#"d#]"d#^^"d^^"d"d"d^^>SUB{'ga#`d'^^'ga#`d''`cgd#''`cgd#'^^}<"d#^^^"f^^^>
SUB{>'gd"a#'dga#`d`ca#'gd'^dgaa#aa#`c'`da#g'^^^^'`cgd#'r'`da#g'^^^^^^'`da#g''`da#g''`f`ca'^^'`f`ca''`f`ca''`g`ca'r'`f`ca'^'`caf''`caf'^aa#`cf'`da#g'^^^^ga'`da#g'^^^^`d`ca#a<}<"g^^"g"g"g^"g^^^"g"g"f"d#"d"d#^^"d#"d#"d#^"d#^^^^^^"d#"d#"f^^"f"f"f^"f^"d#"d#^"d#^"d#^"a#"a#^"a#^^"a#^"d^^^^^^^>}
STR RT1={If(CH==2){@100,0}Else{@104,0}l8EP=120RTA[`d^^a#^^g^`c^^a^^f^:`c^`c`f^`d#`d`c`c`d^a#^aa#`c]a#dga#agag^^^rrrrrr}
STR RT2={q=100M.W(20,127,!4,127,20,!4)If(CH==2){@67,0P=30v=127}Else{@68,0P=97v=100}l16`d`ca#agaa#`cl8
EP=127RTA[g&&`d^a#^^g^`c^^a^^f^:`c^`c`f^`d#`d`c`c`d^a#l16gfgagaa#`cl8]l16a#dga#acfgl8agag^^^^p%=0v=110M=0If(CH==2){P=44}Else{P=74}}
STR RRF={l8DL=HAZ-4RTH;HAM({DL=BGN;RT1;DL=RF1;RT1;DL=RF2;RT1;DL=RF3-1TrackKey=(K+3)If(CH==3){l24r}l8rrrr[RT2:REC2]TrackKey=K;})}TR=2RRF;TR=3RRF;
STR RSH={l4rrp.T(32,64,!8,64,64,!1,64,48,!8)@76v=80'>>cd#f#a<<'^^^^rl16p=64}
STR RSI={BR=10p%=-200v.T(60,120,!1^1^1^1^1^1^1^1^1^1^1)l8q.T(70,300,!1^1^1^1^1^1^1^1^1^1)MidiDelay({@82,0SUB{ggrgrgrgaararara[a#a#ra#ra#ra#`c`cr`cr`cr`c]`d`dr`dr`dr`d`f`fr`fr`fr`f`g`gr`gr`gr`g`a`ar`ar`ar`a}
"a#"a#r"a#r"a#r"a#ccrcrcrc"g"gr"gr"gr"g"a"ar"ar"ar"addrdrdrdffrfrfrfggrgrgrgaarararad#d#rd#rd#rd#ffrfrfrf},6,!16)v=60q=100@82,0HAM({SUB{a#ra#^rara#^^r}grg^r>`cr`d^^r<})p%=0v=110}
STR RS1={l16@91,0EP=115MD({[['`da#g'^rr][8r]['`daf'^rr][8r]:['`cfd'^rr][8r]['`da#g'^rr][8r]]['`cad'^rr][8r]},1,!2)@56,0l8HAM({rggfga#rr})}
STR RS2={l16@82,0EP=100MD({['`g`da#gd'^rr]},3,!2)[24r]MD({['`caf'^rr]},3,!2)[24r]MD({['`ga#d#'^rr]},3,!2)[24r]MD({['`daf'^rr]},3,!2)[24r]}
STR RS3={l16@82,0EP=100MD({['`g`da#gd'^rr]},3,!2)[24r]MD({['`caf'^rr]},3,!2)[24r]MD({['`ga#d#'^rr]},1,!2)[8r]MD({['`caf'^rr]},1,!2)[8r]MD({['`dbg'^rr]},1,!2)[24r]}
STR RS4={BR=10p%=-200v.T(60,120,!1^1^1^1^1^1^1^1)l8q.T(70,300,!1^1^1^1^1^1^1)P=96EP=127@82,0MidiDelay({SUB{ggrgrgrgaararara[a#a#ra#ra#ra#`c`cr`cr`cr`c]`d`dr`dr`dr`d}
"a#"a#r"a#r"a#r"a#ccrcrcrc"g"gr"gr"gr"g"a"ar"ar"ar"ad#d#rd#rd#rd#ffrfrfrfa#a#ra#ra#ra#},6,!16)@88,0q=100'>>af#d<<'^^^^^^^p%=0}
TR=4l16DL=HAZ-6RSH;DL=HAZ+8RSI;DL=BGN;RS1;DL=RF1;RS1;DL=RF2;RS1;DL=ME5;RS2;RS3;RS4;DL=RF3;TrackKey=(K+3)[RS1:REC2]TrackKey=K;
/*5*/STR BSH={g^^ggg^g^^^^g^f^d#^^d#d#d#^d#^^^^d#^d^c^^ccc^d^^^^d^f^g^^ggg^g^^^^gaa#gc^^ccc^d^^^^d^f^BR=24grg^rgrg^^^^rrrr}
STR BS1={[4d#`d#][4f`f][4d`d][4g`g][4d#`d#][4f`f][4d`d][4g`g]}STR BS2={[4g`g][4c`c][4f`f][4"a#a#][4c`c][d`d][g`g][4c`c][4d`d]}
STR BS2A={[[3g`g]rr][4g`g][3g^]rr[4g`g][4c`c][4f`f][4"a#a#][4c`c][d`d][g`g][4c`c][4d`d]}
STR BS3={[[4d#`d#][4f`f][4d`d]:[g`g][f`f]]g&&^^^`g^^^}STR BS3A={q=100d#^^^^^^^f^^^^^^^d^^^^^^^g^^^f^g^q.C(!8,70,100)[4d#`d#][4f`f][4d`d]g&&^^^`g^^^}
STR BS4={[[6g`g][f`f]:[8d#`d#][4f`f][4d#`d#][4"a#a#][4d`d]][6d#`d#][d`d][[4c`c][4d`d]:[8g`g]]BR=24grg^rgrg^^^^^r`g&&"g}
STR BS5={[8d#`d#][8d`d][8c`c][8d`d]}STR BS6={[8d#`d#][8d`d][4c`c][4d`d][8g`g]}
STR BS7={q=100v=100g^^ggg^g^^^^g^f^d#^^d#d#d#^d#^^^^d#^d#^f^^fff^^d#^^d#d#d#^^"a#^^"a#"a#"a#^d^^^ddef#^v=127
TrackKey=(K+3)q.C(!8,70,100)[6g`g][f`f][6d#`d#][d`d][4c`c][4d`d][8g`g][3[4c`c][4d`d]]BR=24grg^rgrg^^^^^r`g&&"gTrackKey=K}
STR BASS={l8<<V=110DL=HAZ+7BR=24v=100q=100`a^^^^^^&&"aBSH;q=90v=127DL=BGN;q.C(!8,70,100)BS1;BS2;BS3;BS4;BS1;DL=ME3;BS2A;BS3A;BS4;BS1;
DL=ME5;BS5;BS6;BS7;DL=RF3;TrackKey=(K+3)[BS1:REC2=110]TrackKey=K;}TR=5EP.W(110,30,!8)<BASS;TR=7BASS;
/*6*/STR COH={EP=80l8[4'`a#`g`d'rrr][4'`a#`d#g'rrr]['`a`f`c'rrr]['`a`d#a#'rrr]['`a#`f`d'rrr]['`a`f`d'rrr]l4}
STR COI={EP.T(80,127,!1^1^1^1^1^1^1^1^1^1^1)SUB{>a#^^^a^a#^g^^^f^^^[g^^^a^^^:a#^^^a^a#^]<}HAM({l2g^^fd#^^d[c^d^:g^^^]rrrrl2})l4}
STR CO1={EP=127SUB{HAM({a#^^^a^^^`c^^^`d^^^a#^^^a^^^`c^^^`d^^^})}HAM2({d#^^^f^^^d^^^g^^^d#^^^f^^^d^^^g^^^})}
STR CO2={EP=110SUB{a#^^^g^^^a^^^g^f^d#^^^f^a#^g^^^a^^^}HAM({g^^^c^^^f^^^"a#^^^c^^^d^g^c^^^d^^^})}
STR CO2A={EP=110SUB{[a#^^r][a#^][3a#]r}HAM({[g^^r][g^]gggr})SUB{a#^^^g^^^a^^^g^f^d#^^^f^a#^g^^^a^^^}HAM({g^^^c^^^f^^^"a#^^^c^^^d^g^c^^^d^^^})}
STR CO3={EP=110SUB{a#^^^`c^^^a^^^a#^^^;a#^^^`c^^^`c^^^`d^^r}HAM({[d#^^^f^^^:d^^^g^f^]f^^^g^^r})}
STR CO4={EP=120SUB{>a#^^^a^a#^g^^^f^g^a^^^a#^`c^`d^ga`d^`ca;a#^^^a^a#^g^^^f^^^[g^^^a^^^:a#^^^a^a#^]<}HAM({l2g^^fd#^^^f^d#^"a#^d^;g^^fd#^^d[c^d^:g^^^]rrrrl2})l4}
STR CO5={EP=127SUB{a#^^^g^^^a^^^f^^^g^^^a#^^^a^^^`f^^^}HAM2({d#^^^^^^^d^^^^^^^c^^^^^^^d^^^^^^^})}
STR CO6={EP=127SUB{`g^^^`a#^^^`a^^^`f^^^`g^^^`a^^^`b^^^`a#^^^}HAM2({d#^^^^^^^d^^^^^^^c^^^d^^^g^^^^^^^})}
STR CO7={EP.T(80,120,!1^1^1^1^1^1^1^1^1^1^1)SUB{>a#^^^a^a#^g^^^f^g^a^^^a#^`c^`d^ga`d^rrTrackKey=(K+3)a#^^^a^a#^g^^^f^^^;g^^^a^^^a#^^^a^a#^[3g^^^a^^^]<TrackKey=K}
HAM({l2g^^fd#^^^f^d#^"a#^drTrackKey=(K+3)g^^fd#^^d;c^d^g^^^[3c^d^]rrrrl2TrackKey=K})l4}
TR=6@49,1l4DL=HAZ;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO1;DL=ME3;CO2A;CO3;CO4;DL=RF2;CO1;CO5;CO6;CO7;DL=RF3;TrackKey=(K+3)[CO1:REC2]TrackKey=K;
/*8&9*/STR ULA={BR=10If(CH==8){p%=80}Else{p%=-80}}
STR ULH={If(CH==8){V=80l48r}Else{V=70l24r}l8[da#af^f^g^rf^g^^rda#af^f^ggrgrg^^^^^r:ga#aa^a^rga#aa^a^aa#`c`d`d^`d^^`ca#a^r]
[gaa#a#^a#^`c^a^r:afda^g^^^^rrrrrrrrrr]rda#af^f^g^rf^g^^r}
STR UL1={V=110ULA;EP=90SUB{d^d^d^^}a#^a#^a#^^rEP=100a#`c`da#ra#`c`d`f`d#^`d^`c^a#^^^^rrrrEP=90SUB{g^g^g^^r`c`c`c`dra#a#a#}d#^d#^d#^^raaaa#r`d`d`dEP=100`c^a#^aa#^EP=90'`df#'^^^^^rrr}
STR UL1A={V=110EP=90[SUB{d^d^d^^}a#^a#^a#^^r][SUB{d^d^}a#^a#^]BR=48If(CH==8){p.T(127,0,!2^4^8)}Else{p.T(0,127,!2^4^8)}[6'da#']rrULA;SUB{d^d^d^^}a#^a#^a#^^rEP=100a#`c`da#ra#`c`d`f`d#^`d^`c^a#^^^^rrrrEP=90SUB{g^g^g^^r`c`c`c`dra#a#a#}d#^d#^d#^^raaaa#r`d`d`dEP=100`c^a#^aa#^EP=90'`df#'^^^^^rrr}
STR UL2={V=110EP=100SUB{rrrrg^gg^^^}SUB{HAM({rrrrd#^dd#^^^})}SUB{a#^a#a#^^^}d#^d#d#^^^r
SUB{rrrra^aa^^^}SUB{HAM({rrrrf^df^^^})}SUB{`c^`c`c^^^}f^ff^^^r`d^`d^`c^a^`d`crgr;`d`d`d#`f`d#^`d^`c^a#`f`fr`d^^^rSUB{a^^a^^a^b^}`d^^`d^^`f^`g^r}
STR UL3={ULA;V=110EP=110[da#af^'a#g'^'a#g'^r'a#f'^'a#g'^^r:da#af^'a#f'^'a#g''a#g'r'a#g'r'a#g'^^^^^rd#gff^f^rd#gff^f^fgaa#a#^a#^^agf^r]ggaa#^SUB{a^a#a#ra#ra#^^^^^}`c^`d`dr`dr`d^^^^^r
d#fgg^g^g^f^rd"a"a"a^d^^^^rrrrrrrrrr;d#fgg^g^g^`c^rrf`d`ca^SUB{a#^a#^ra^a#^^r}g^g^r`c^`d^^r}
STR UL4={ULA;l8V=110EP=100SUB{`d^^`d^^`d^^ra#^a#^a#^;`c^^`c^^`c^^rrra^a^;a#^^a#^^a#^^rg^a#^`d^;`c^^`c^^`c^`d^^^^^^^}
a#^^a#^^a#^^rg^g^g^;a^^a^^a^^rrrf^f^;g^^g^^g^^rd#^d#^d#^f^^g^^g^a^^^^^^^}
STR UL5={ULA;l8V=110EP=100SUB{`d^^`d^^`d^^ra#^a#^a#^;`c^^`c^^`c^^rrra^a^;a#^^`c^^`d^`c^^`d^^`d#^`g^^^^^^^}
a#^^a#^^a#^^rg^g^g^;a^^a^^a^^rrrf^f^;g^^g^^g^a^^a^^a^b^^^^^^^rrr}
STR UL6={If(CH==8){V=80l48r}Else{V=70l24r}l8da#af^f^g^rf^g^^rda#af^f^ggrgrg^^^^^rga#aa^a^rga#aa^a^aa#`c`d`d^`d^^`ca#a^r}
STR UL7={ULA;V=110EP=110TrackKey=(K+3)da#af^'a#g'^'a#g'^r'a#f'^'a#g'^^rggaa#^SUB{a^a#a#ra#ra#^^^^^}`c^`d`dr`dr`d^^^^^r
d#fgg^g^g^f^rd"a"a"a^d^^^^rrrrrrrrrrd#fgg^g^g^f^rrrrrd#fgg^g^g^a^rrrrrd#fgg^g^g^`c^rrf`d`ca^SUB{a#^a#^ra^a#^^r}g^g^r`c^`d^^rTrackKey=K}
STR ULMR={DL=HAZ-1l8rrrULH;If(CH==9){>}DL=ME1;l8UL1;UL2;UL3;DL=ME3;l8ULA;UL1A;UL2;UL3;DL=ME5;UL4;UL5;UL6;DL=SB3+7l8rrrUL7;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n33n35n36}STR O1={'OA'}STR O2={'n28n39n55OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR O6={'n38n40'}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 DM20={[6DM2]O3;r[5O1;r]O6;rrr}STR DM21={[4DM2]O3[5r]O1;r[O1;rrr]O4[15r]}STR DM22={l8O5;rrO1;O2;r[O1;r]rrO1;rrO2;l16O1;rrrO3;rrrrrO1;rrrO4[11r]O1;rO6;rrr}
STR DM23={SUB{n49[15r]n49[15r]n57[15r]}[6DM2]EP.T(30,127,!1)[8O1;r]}
STR DDH={O1[47r][3DM1][O1;r][16DM1]l8O5;rrO1;O2;r[O1;r]rrO1;rrO2;l16O1;rrrO3;rrrrrO1;rrrO4[11r]rrrrrr}STR DD1={DM6;DM20}
STR DD2={DM6;DM7}STR DD2A={[DM2;DM1;O3;rrr][O4;rrrO2;rrr]O5;r[3O1;r]O3;rO1;rO6;rrrDM6;DM7}STR DD3={DM6;DM21}
STR DD3A={O3[15r]O5[15r]O4[15r][3DM1]O1;r[O2]DM21}STR DD4={[DM6;DM7]DM22}STR DD5={DM6;DM7}STR DD6={DM6;DM23}
STR DD7={O3[47r][3DM1][O1;r][12DM1]O3[7r][5O1]rO1;rDM6;DM7;DM6;DM22}
TR=10l16DL=HAZ+8DDH;DL=BGN;BR=20p%=1000V=110DD1;DD2;DD3;DD4;DD1;DL=ME3;DD2A;DD3A;DD4;DL=RF2;DD1;DD5;DD6;DD7;DL=RF3[DD1:REC2=110]
/*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={[4GP2]l8GR;rrGR;GB;rGR;rDR;rrrrrrrGR;rGB;rrGR;rGB;rrrrrrrrl16}
STR GG1={[7GP3]GP2}STR GG2={[8GP2]}STR GG2A={[[3GR;rGB;r]GB;r[GR]]GP2[3GB;r[GR]]GB;rrr[8GP2]}STR GG3={[6GP2]l8GB;rr[3GR]GB;GR;GB;rr[5GR]l16}
STR GG3A={EP.T(127,30,!2,30,127,!2)[8n51r]EP.T(127,30,!2,30,127,!2)[8n59r]EP.T(127,30,!2,30,127,!2)[8n55r][4'n51n59'rrr][GP2]l8GB;rr[3GR]GB;GR;GB;rr[5GR]l16}
STR GG4={[[7GP3]GP1]l8GR;rrGR;GB;rGR;rDR;rrrrrrrGR;rGB;rrGR;rGB;rrrrr;GR;GB;GR;l16}STR GG5={[8GP2]}STR GG6={[6GP2]GP3;EP.T(30,127,!1)GR;rrGR;GB;r[3GR;r]GB;rGR;r}
STR GG7={EP.T(127,0,!1^1^1^1)[32'n51n59'r]EP=127[3GP2][GB;r[GR]]GB;rrrrrrr[7GP3]GP1[4GP3]l8GR;rrGR;GB;rGR;rDR;rrrrrrrGR;rGB;rrGR;rGB;rrrrr;GR;GB;GR;l16}
TR=11l16DL=HAZ;PL1;V=105DL=HAZ+12GGH;DL=BGN;BR=20p%=2500M=127GG1;GG2;GG3;GG4;GG1;DL=ME3;GG2A;GG3A;GG4;DL=RF2;GG1;GG5;GG6;GG7;DL=RF3[GG1:REC2=105]
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}
STR PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}
STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PD13={EP.T(127,30,!2,30,127,!2)[8n51r]EP.T(127,30,!2,30,127,!2)[8n59r]EP.T(127,30,!2,30,127,!2)[8n55r][4'n51n59'rrr]}
TR=12l16DL=HAZ+8V=110PD3;DL=BGN;PD3;DL=SB1[PD3]DL=RF1;PD3;DL=ME4;PD13;DL=SB2[PD3]DL=RF2;PD3;SUB{'n57n49'}DL=ME6+7O3;DL=SB3[PD3]DL=RF3[PD3:REC2=110]
/*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 DS18={`d`dr`darafrrl32[3`d][3a][6f]l16}
STR DS19={[10r]HAM3({>>`b`g`d^^^<<})}STR DS20={l16[10r]l32[3`d][3a][6f]l16[10r]l32[3d][3a][6`d]l16}STR DS21={p.T(127,64,!2^4^8)BR=20l24[18e][6r]l16p=64}
TR=13l16<DL=HAZ;PG1;DL=HAZ+7DS18;DL=HAZ+11DS7;DL=HAZ+15DS11;DL=HAZ+19DS19;DL=BGN+3DS6;DL=BGN+7DS7;DL=ME1+3DS6;DL=ME1+7DS13;DL=ME2+3DS2;DL=ME2+6DS8;
DL=SB1+3DS6;DL=SB1+7DS15;DL=SB1+11DS7;DL=SB1+15DS11;DL=SB1+19DS16;DL=RF1+3DS6;DL=RF1+7DS7;DL=ME3;DS20;DL=ME3+3DS21;DL=ME3+7DS6;DL=ME3+11DS13;DL=ME4+3DS2;DL=ME4+6DS8;
DL=SB2+3DS6;DL=SB2+7DS15;DL=SB2+11DS7;DL=SB2+15DS11;DL=SB2+19DS16;DL=RF2+3DS6;DL=RF2+7DS7;DL=ME5+7DS6;DL=ME6+7DS8;DL=SB3+7DS18;DL=SB3+11DS7;
DL=SB3+15DS11;DL=SB3+17DS6;DL=SB3+19DS7;DL=SB3+23DS16;DL=RF3+3DS6;DL=RF3+7DS7;DL=END;REC2;DL=END+3DS6;
/*14*/STR SPH={l4rrl6rl4p.T(32,64,!8,64,64,!1,60,48,!8)@76v=30'>>cd#f#a<<'^^^^rl16p=64}
STR SPI={BR=10p%=200v.T(60,120,!1^1^1^1^1^1^1^1^1^1^1)l8q.T(70,300,!1^1^1^1^1^1^1^1^1^1)P=96MidiDelay({@82,0SUB{ggrgrgrgaararara[a#a#ra#ra#ra#`c`cr`cr`cr`c]`d`dr`dr`dr`d`f`fr`fr`fr`f`g`gr`gr`gr`g`a`ar`ar`ar`a}
"a#"a#r"a#r"a#r"a#ccrcrcrc"g"gr"gr"gr"g"a"ar"ar"ar"addrdrdrdffrfrfrfggrgrgrgaarararad#d#rd#rd#rd#ffrfrfrf},6,!16)v=60q=100@82,0HAM({SUB{a#ra#^rara#^^r}grg^r>`cr`d^^r<})p%=0}
STR SP1={l16v=60@81,8[d"d"g"a#d"g"a#d"f"acfd#dc"a#;f"fcd#fcfafaa#`ca#agf;f"fcd#fcd#faa#`c`f`d#`d`ca#:g"gdgdgaa#ga#`c`d`ca#gf]<@85,0M.W(0,127,!16)v=127q=90[rr['`da#g']]['`da#g'^^r]>q=100M=0}
STR SP2={l16v=50@5,16"gga#g"ga#`da#"g`d`g`d"ga#`dg;"ccd#c"cd#gd#"cg`cg"cd#gc;"ffaf"fa`ca"f`c`f`c"fa`cf;"a#a#`da#"a#`d`f`d"a#`f`a#`f"a#`d`fa#;
"ccd#c"cd#gd#"cg`cg"cd#gc;"ddf#d"df#af#"g`d`g`d"ga#`dg;"ccd#c"cd#gd#"cg`cg"cd#gc;"ddf#d"df#af#"da`da"df#ad}
STR SP2A={l16v=50@5,16["gga#g"ga#`da#"g`d`g`drrrr]["gga#g"ga#`da#][3"gga#g]rrrr;"gga#g"ga#`da#"g`d`g`d"ga#`dg;"ccd#c"cd#gd#"cg`cg"cd#gc;"ffaf"fa`ca"f`c`f`c"fa`cf;"a#a#`da#"a#`d`f`d"a#`f`a#`f"a#`d`fa#;
"ccd#c"cd#gd#"cg`cg"cd#gc;"ddf#d"df#af#"g`d`g`d"ga#`dg;"ccd#c"cd#gd#"cg`cg"cd#gc;"ddf#d"df#af#"da`da"df#ad}
STR SP3={l16v=70@5,8[d#fd#fgagaa#`ca#`c`d`d#`d`d#;fgfgaa#aa#`c`d`c`d`d#`f`d#`f:dd#dd#fgfgaa#aa#`c`d`c`d;gagaa#`ca#`c`d`d#`d`d#`g`a#``d`g]
`g`da#g`d`ca#g`da#gd"gg`gg;gggga#a#a#a#`d`d`d`d`g`da#g}
STR SP4={l16v=80@82,1[[gagaa#`ca#`c`d`d#`d`d#`f`g`f`g][d#fd#fgagaa#`ca#`c`d`d#`d`d#]:fgfgaa#aa#`c`d`c`d`d#`f`d#`f;d#fd#fgagaa#`ca#`c`d`d#`d`d#;"a#c"a#cdd#dd#fgfgaa#aa#;cdcdd#fd#fgagaa#`ca#`c]
cdcdd#fd#fgagaa#`ca#`c;dd#dd#fgfgaa#aa#`c`d`c`d[gagaa#`ca#`c`d`d#`d`d#`f`g`f`g]>cdcdd#fd#fgagaa#`ca#`c;dd#dd#fgfgaa#aa#`c`d`c`d<g`g`da#g`da#gda#gd"ggd"a#;q=200v.T(80,127,!1)@32,0M=127HAM({"g"a"g"a"a#c"a#cdd#[6r]})M=0q=100}
STR SP5={l4<EP=100@100,0a#^^ga#g`d`g`c^^f`caa#`ca#^^`c`da#`c`d`c^^^`f`d#`d`c;`d^^a#`dg`d`g`f^^`c`f`g`a`a#`g^^^`a`f`g`a`b^^^rrrr>}
STR SP6={BR=10p%=200v.T(60,120,!1^1^1^1^1^1^1^1)l8q.T(70,300,!1^1^1^1^1^1^1)P=96EP=127
@82,0MidiDelay({SUB{ggrgrgrgaararara[a#a#ra#ra#ra#`c`cr`cr`cr`c]`d`dr`dr`dr`d}
"a#"a#r"a#r"a#r"a#ccrcrcrc"g"gr"gr"gr"g"a"ar"ar"ar"ad#d#rd#rd#rd#ffrfrfrfa#a#ra#ra#ra#},6,!16)@88,0q=100'>af#d<'^^^^^^^p%=0
P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)TrackKey=(K+3)
l16v=80@82,1[gagaa#`ca#`c`d`d#`d`d#`f`g`f`g][d#fd#fgagaa#`ca#`c`d`d#`d`d#]cdcdd#fd#fgagaa#`ca#`c;dd#dd#fgfgaa#aa#`c`d`c`d[gagaa#`ca#`c`d`d#`d`d#`f`g`f`g]
>[3cdcdd#fd#fgagaa#`ca#`c;dd#dd#fgfgaa#aa#`c`d`c`d]<g`g`da#g`da#gda#gd"ggd"a#;q=200v.T(80,127,!1)@32,0M=127HAM({"g"a"g"a"a#c"a#cdd#[6r]})M=0q=100TrackKey=K}
TR=14DL=HAZ-6SPH;DL=HAZ+8SPI;DL=BGN;l16>P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)SP1;SP2;SP3;SP4;SP1;
DL=ME3;SP2A;SP3;SP4;DL=RF2;SP1;SP5;DL=SB3;SP6;DL=RF3;TrackKey=(K+3)[SP1:REC2]TrackKey=K;
/*15*/STR FTH={@126,6l64rl1P=0EP.T(20,80,!1^1)TrackKey=0'c'^^^^^^^^^^^^^^^P=96TrackKey=K}STR FTE={@126,6l64rl1P=0EP.T(80,80,!1^1^1^1,80,0,!1^1^1^1^1^1)TrackKey=0'c'^^^^^^^^^P=96TrackKey=K}
STR FTI={l8v.T(70,127,!1^1^1^1^1^1^1^1^1^1^1)EP=105@82,0MD({[['ga#`d'^]r]},6,!8)rrrrrr@85,0MD({SUB{f^ggrgrg^r}>SUB{a^a#a#ra#ra#^r}`c^`d`dr`dr`d^r<},1,!1)rrrrrrHAM({l4@103,0EP=110a#^^ga^f^g^^})
@101,0EP=90SUB{>l8a#^a^^^a#^^^l4g^^^a^^^<}HAM({l8>`d^`c^^^`d^^^l4a#^^^`c^^^<})@81,1EP=127M.W(0,127,!16)l8'`g`da#'r'`g`da#'^r'`f`ca'r'`g`da#'^^^^rl16EP=110rrrrrrM=0}
STR FT1={l16EP=105@82,0BR=10p%=-100MD({[['`da#g'^rr][8r]['`daf'^rr][8r]:['`cfd'^rr][8r]['`da#g'^rr][8r]]['`cad'^rr][8r]},1,!2)@56,0EP=115l8HAM({>rggfga#rr<})p%=0}
STR FT2={l8EP=100@82,0MD({['`g`da#'r]'`g`da#'^^r},1,!8)@100,0EP=90SUB{>gaa#`d^^^<}HAM({a#`c`d`g^^^r})@82,0MD({[4r'fa`c']},1,!8)rM.W(0,100,!8)@88,0l16[3'`caf']r'`caf'r['`da#f'^^r]M=0
l8EP=100@82,0MD({['`cgd#'r]'`cgd#'^^r},1,!8)@85,0M.W(0,100,!8)['`da#g']r'`g`da#'^^^^M=0@82,0EP=90MD({[4r'`cgd#']},1,!8)@82,1EP=120l16HAM({"ddf#ddf#a"df#a`dda`d`f#d})}
STR FT2A={l8EP=100@82,0[MD({['`g`da#'r]'`g`da#'rrr},1,!8)][MD({['`g`da#'r]},1,!8)][6'`g`da#']rrMD({['`g`da#'r]'`g`da#'^^r},1,!8)@100,0EP=90SUB{>gaa#`d^^^<}HAM({a#`c`d`g^^^r})@82,0MD({[4r'fa`c']},1,!8)rM.W(0,100,!8)@88,0l16[3'`caf']r'`caf'r['`da#f'^^r]M=0
l8EP=100@82,0MD({['`cgd#'r]'`cgd#'^^r},1,!8)@85,0M.W(0,100,!8)['`da#g']r'`g`da#'^^^^M=0@82,0EP=90MD({[4r'`cgd#']},1,!8)@82,1EP=120l16HAM({"ddf#ddf#a"df#a`dda`d`f#d})}
STR FT3={EP=110[@3,0l8['`d#a#g'^r]'`d#a#d#'^['`f`ca'^r]'`fad'^['`f`da'^r]'`f`da'^:@101,0l8M=127HAM({>g"gga#`g`da#g<})M=0]>@11,0EP=120SUB{b^^^}f^^^rrrr<}
STR FT4={[l8EP=105@82,0MD({[['ga#`d'^]r]},6,!8)rrrrrr:MD({'ga#`d'^['ga#`d']r'ga#`d'r'ga#`d'^r},6,!8)rrrrrr@54,0EP=90l4SUB{>a#^^^`c^^^`d^^l8gal4`d^^^<}f^^^d#^^^a#^^^a^^^]
@85,0MD({SUB{f^ggrgrg^r}>SUB{a^a#a#ra#ra#^r}`c^`d`dr`dr`d^r<},1,!1)rrrrrrHAM({l4@103,0EP=110a#^^ga^f^g^^})
@101,0EP=90SUB{>l8a#^a^^^a#^^^l4g^^^a^^^<}HAM({l8>`d^`c^^^`d^^^l4a#^^^`c^^^<})@81,1EP=127M.W(0,127,!16)l8'`g`da#'r'`g`da#'^r'`f`ca'r'`g`da#'^^^^r@82,0l16EP=110'`g`da#g'r'`g`da#g'^^rM=0}
STR FT5={>l8>EP=110@103,0'd#ga#'^^'d#ga#'^^'d#ga#'^<SUB{a#^^g^^d#^^}HAM({`d^^a#^^g^^})[7r]SUB{a^^`c^^a^}HAM({`c^^`f^^`c^})SUB{a#^^a#^^a#^^rg^a#^`d^;`c^^`c^^`c^`d^^^^^^^}HAM({a#^^d#^^a#^^ra#^d#^a#^a^^a#^^`c^`d^^^^^^^})<}
STR FT6={>l8>EP=110@103,0'd#ga#'^^'d#ga#'^^'d#ga#'^<SUB{a#^^g^^d#^^}HAM({`d^^a#^^g^^})[7r]SUB{a^^`c^^a^}HAM({`c^^`f^^`c^})SUB{g^^g^^g^a^^a^^a^b^^^^^^^}HAM({a#^^d#^^a#^a^^g^^a^g^^^^^^^})rrrrrrrr<}
STR FT7={l8v.T(70,127,!1^1^1^1^1^1^1^1)EP=105@82,0MD({[['ga#`d'^]r]},6,!8)rrrrrrMD({'ga#`d'^['ga#`d']r'ga#`d'r'ga#`d'^r},6,!8)rrrrrr@54,0EP=90l4SUB{>a#^^^`c^^^`d^^l8gal4`d^^^<}f^^^d#^^^a#^^^a^^^
TrackKey=(K+3)l8v=127EP=105@82,0MD({[['ga#`d'^]r]},6,!8)rrrrrr@85,0MD({SUB{f^ggrgrg^r}>SUB{a^a#a#ra#ra#^r}`c^`d`dr`dr`d^r<},1,!1)rrrrrrHAM({l4@103,0EP=110a#^^ga^f^g^^})
@101,0EP=90SUB{>l8a#^a^^^a#^^^l4g^^^a^^^g^^^f^d^g^^^a^^^<}HAM({l8>`d^`c^^^`d^^^l4a#^^^`c^^^a#^^^a^f^a#^^^`c^^^<})@81,1EP=127M.W(0,127,!16)l8'`g`da#'r'`g`da#'^r'`f`ca'r'`g`da#'^^^^r/*@82,0l16EP=110'`g`da#g'r'`g`da#g'^^r*/M=0TrackKey=K}
TR=15DL=HAZ-9FTH;DL=HAZ+8FTI;DL=BGN;v=110FT1;FT2;FT3;FT4;FT1;DL=ME3;FT2A;FT3;FT4;DL=RF2;FT1;FT5;FT6;FT7;
DL=RF3;TrackKey=(K+3)FT1;TrackKey=K;DL=END;FTE;
/*16*/STR BGH={@126,6l1P=127EP.T(30,90,!1^1)'c'^^^^^^^^^^^^^^^P=64}STR BGE={@126,6l1P=127EP.T(90,90,!1^1^1^1,90,0,!1^1^1^1^1^1)'c'^^^^^^^^^P=64}
STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG1A={>>@19,0l32P=70BR=48p.T(127,32,!1^1)l1`e^<<p=64}
STR BG2={l4<@128,3p.T(64,64,!4,70,127,!2)'a"a`a'^^r>p=64}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={V=127l4[rrrBR=24p.T(64,0,!1)@128,3'>gab<'^^^^^^^[5r]]V=100}
STR BG6={@126,8BR=40l4P.T(0,127,!2,127,0,!2,0,127,!2,127,0,!2)EP=100p.T(127,0,!1^1)'gfe'^^^^^^^EP=127p=64P=64}STR BG7={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^>@80,0BR=120p.T(127,0,!6)`gp=64}
STR BG8={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^^>p=64}STR BG9={@126,7l1p%.T(0,0,!2,0,500,!2)EP=127'>>>>>cd<<<<<'}STR BG10={@80,0l4rrl16rrBR=120p.W(127,0,!24)[`g]l4BR=120p.T(127,0,!6)`gp=64}
STR BG11={l16EP=127P=64[12r]P.T(0,127,!4)p=64@128,0'cdefg'^^^[12r]P.T(127,0,!4)p=64@128,0'cdefg'^^^[rrrrP=64@128,3'<<cde>>'^^^][12r]@80,0l4BR=120p.T(127,0,!6)`g}
STR BG12={@123,3l1EP=127p=64'``c`d'^^^^^^^}STR BG13={@126,7l1EP=127'>>>>>cd<<<<<'^}
TR=16DL=HAZ-9BGH;DL=HAZ+7BG9;DL=HAZ+16BG6;BG8;BG10;DL=BGN+4BG6;BG1;BG7;DL=ME2+6BG1;BG8;DL=SB1+16BG6;BG8;BG3;DL=RF1+4BG6;BG1;BG7;
DL=ME3;BG11;DL=ME4;BG6;DL=ME4+6BG1;BG8;DL=SB2+16BG6;BG8;BG3;DL=RF2+4BG6;BG1;BG7;DL=ME5;BG12;DL=ME6+6BG13;DL=SB3+7BG9;DL=SB3+20BG6;BG8;BG3;
DL=RF3+4BG6;BG1;BG7;DL=END;BGE;