//	最近この路線は絶好調です

INT TEMPO_EST		=	123	;	//テンポ設定
PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on)
TrackName={Call Me}Copyright={KZ-5 Technology}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS;
Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)}Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName}Function PAN(ER1,ER2){If(ER2==0){P.T(000,127,ER1)}If(ER2==1){P.T(127,000,ER1)}}
Function Review(STR OIN,Revalue,ReNo){STR REPO="r"+Revalue;Sub{[(ReNo);OIN;REPO]}}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 HAMZ(STR SA){Sub{Key=1SA;Key=0}SA}STR LC={"cceg`c}STR LD={"ddf#a`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'}
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 , Key,  P , CHO, REV,  v , VAR, M  )
Autoexec( 001, 001, 012, 000, 000, 000, 064, 000, 000, 127, 090, 000)
Autoexec( 002, 002, 062, 000, 000, 000, 064, 000, 000, 100, 093, 000)
Autoexec( 003, 003, 063, 000, 000, 000, 010, 000, 000, 100, 100, 000)
Autoexec( 004, 004, 063, 000, 000, 000, 117, 000, 000, 100, 100, 000)
Autoexec( 005, 005, 039, 001, 000, 000, 054, 000, 000, 120, 090, 000)
Autoexec( 006, 006, 103, 002, 000, 000, 032, 000, 000, 080, 103, 020)
Autoexec( 007, 007, 088, 000, 000, 000, 074, 000, 000, 110, 090, 000)
Autoexec( 008, 008, 012, 000, 000, 000, 000, 000, 000, 100, 100, 020)
Autoexec( 009, 009, 012, 000, 000, 000, 127, 000, 000, 100, 100, 020)
Autoexec( 010, 010, 025, 000, 000, 000, 064, 000, 000, 127, 100,    )DL(-2)GSRY(1)r8
Autoexec( 011, 011, 114, 000, 000, 000, 100, 000, 000, 110, 090,    )
Autoexec( 012, 012, 116, 000, 000, 000, 027, 000, 000, 127, 090,    )
Autoexec( 013, 013, 119, 000, 000, 000, 064, 000, 000, 127, 100,    )
Autoexec( 014, 014, 038, 000, 000, 000, 110, 000, 000, 127, 090,    )
Autoexec( 015, 015, 062, 000, 000, 000, ___, 000, 000, 127, 090,    )
Autoexec( 016, 016, 091, 000, 000, 000, 084, 000, 000, 127, 100,    )
//------( TR , CH , @  , Key,  P , P2 , P3 , CHO, REV,  v , VAR, M  )
//-------------------------------------------------------------------------------------------------------------------------------------------------------------------//
DL=0Tempo=TEMPO_EST;INT HAZ=1INT BGN=13INT ME1=21INT ME2=29INT SB1=37INT ME3=45INT ME4=53INT SB2=61INT RF1=69
INT NK1=77INT NK2=85INT NK3=93INT NK4=101INT NK5=109INT ME5=117INT SB3=125INT NK6=141INT NK7=149INT END=157
//------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------//
STR MN1={EP=110["b"bd"bd"b^rd^r"b^^rr:"b"bd^d"b^rf#^re^^^r]gggf#^f#^e^c#"b"a^^rr}
STR MN2={EP=120d"bd"bd"brd^"bd"bdfed^rrrr"a"a"b^rrrrrrr>"g"f#"g"f#"g"f#"g"f#"g"f#"g"f#"g"b"b"a^rrrr"f#"g"a^rrrr<}
STR MN3={EP=127aba[`d^^araba`d^^a^^rr:bgbgb`c#`d`f#^`f#`e`e`d^ba]`g`g`g`f#^`f#`g`f#`a^`b`a^^rr}
STR MNH={aba`d^^araba`d^^a^^}
TR=1l8DL=BGN-1[5r]HAM({MNH;DL=ME1;MN1;MN2;MN3;MN1;MN2;MN3;DL=SB2+7[5r]MNH;DL=RF1+3[5r]MNH;DL=SB3-1[5r]MNH;DL=SB3+3[5r]MNH;DL=SB3+7[5r]MN3})
//------------------------------------------------------------------------------TR=002;------------------------------------------------------------------------------//
STR RS1={[10r][@104,0EP=100a^^b`dag^^^^^^^a^@100,0EP=127a^^f#ed^^^^^^^^^^]}
STR RS2={rr[@100,0EP=110"bf#ab[8r]:<@104,0EP=110SUB{b^^a^^^}`f#^^`e^^^>[13r]][8r]}
STR RS3={l16@5,24EP=110[4bgdg][4`c#aea][4`dada][4bf#df#][8bgdg][8`c#aea]l8}
TR=2l8>DL=BGN;RS1;RS2;RS3;DL=ME3[10r]RS2;RS3;DL=RF1;RS1;DL=NK3[10r]RS2;RS3;DL=ME5;RS3;RS1;DL=NK6;RS1;
//------------------------------------------------------------------------------TR=003&004;--------------------------------------------------------------------------//
STR RTA={@63,0BR=6If(CH==3){p%=100}Else{p%=-100}}STR RTB={@28,8BR=6If(CH==3){p%.T(50,-200,!2)}Else{p%.T(-50,200,!2)}}
STR RTH={RTA;EP=100l4SUB{<d^^^f#^^^a^^^f#^^^>}f#^^^a^^^`c^^^`d^^^l8}
STR RT1={EP=127RTA[SUB{rrd^rd^r"b^r"a^^rrrr"b^r"b^rc#^rc#^^rr}rrf#^rf#^re^rd^^rrrrg^rg^rf#^re^^rr]}
STR RT3={EP=100RTA[16r]rr'ad''ad'^^^^rr'bf#''bf#'^^^^[16r]rr'ae''ae'^^^^rr'`c#a''`c#a'^^^^}
STR RT4={EP=100RTA[SUB{rrd^rd^r"b^r"a^^rrrr"b^r"b^rc#^rc#^^rr}rrf#^rf#^re^rd^^rrrrg^rg^rf#^re^^rr]}
STR RT5={EP=127RTB<<['`da'^^^^l16ab`dbaf#l8'`ea'^'`a`e''`f#`d'^l16`d`e`f#`e`dal8:['`g`d'g]'`f#`d''`g`d'^g'`a`e'^^'`a`e'l16`a`g`f#a`e`d`c#al8]
l16[4'`g`d'][4r'`g`d']'`g`d'^'`g`d'^[4'`a`e'][4r'`a`e']'`a`e'^^^l8>>}
STR RRF={l8>DL=HAZ+8RTH;DL=BGN;RT1;DL=ME2;RT3;RT4;DL=ME4;RT3;RT4;RT1;DL=NK4;RT3;RT5;RT3;DL=SB3;RT1;RT4;}TR=3RRF;TR=4RRF;
//------------------------------------------------------------------------------TR=005&007;--------------------------------------------------------------------------//
STR BS1={[[16d][8g][8a]]}STR BS2={[[16b][8g][8a]]}STR BS3={[16g][8`d][8b][16g][16a]}STR BS4={[[16d][8g][8a]]}
STR BASS={l8<<DL=BGN;BS1;BS2;BS3;BS4;BS2;DL=SB2;BS4;BS1;DL=NK2;BS1;BS2;BS3;BS4;BS3;BS1;BS4;BS1;}TR=5BASS;TR=7EP.W(127,0,!12)<BASS;
//------------------------------------------------------------------------------TR=006;------------------------------------------------------------------------------//
STR CO1={[SUB{f#^^^e^f#^}'`da'^^^^^^^'bgd'^^^'`c#ae'^^^]}STR CO2={['bf#d'^^^'bf#d'^^^'bgd'^^^'aec#'^^^]}
STR CO3={'bgd'^^^'`c#ge'^^^'`daf#'^^^'bf#d'^^^'bgd'^^^'bgd'^^^'`c#ae'^^^'`c#ac#'^^^}
STR CO4={[SUB{f#^^^e^f#^}'`da'^^^^^^^'bgd'^^^'`c#ae'^^^]}
TR=6l4DL=BGN;EP.W(127,100,!2)M.W(10,30,!1)CO1;CO2;CO3;CO4;CO2;CO3;CO4;CO1;DL=NK3;CO2;CO3;CO4;CO3;CO1;CO4[CO1]
//------------------------------------------------------------------------------TR=008&009;--------------------------------------------------------------------------//
STR UL={BR=6If(CH==8){p%=100}Else{p%=-100}}
STR UL1={EP=100["b"bd"bd"b^rd^r"b^^rr:"b"bd^d"b^rf#^re^^^r]gggf#^f#^e^c#"b"a^^rr}
STR UL2={EP=110bgbgbgrb^gbgf#gf#a^rrrr>ddf#^rrrrrrr"b"a"b"a"b"a"b"a"b"a"b"a"bdde^rrrrab`c#^rrrr<}
STR UL3={>EP=110f#gf#[a^^drf#f#f#a^^d^^rr:gdgdggga^aaaf#^f#f#]<`d`d`db^b`d`d`e^`f#`e^^rr}
STR ULMR={l8DL=ME1;UL;UL1;UL2;UL3;DL=ME3;UL;UL1;UL2;UL3;DL=ME5;UL;UL2;DL=SB3+7[5r]UL3;}TR=8ULMR;TR=9ULMR;
//------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------//
STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n38n40'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n57'}STR O5={'n27n32n33n35n36n51n59'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={O1;rrrO2;rrrO1;rrrO2;rrO2}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r}
STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]}
STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[4[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM11={[3O1;rrrO2;rrrO1;rrrO2;rrr][O2;r[O1]][O2;r][O2]rr}
STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7O1;rrr][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={[3O1;rrrO2;rrrO1;rrrO2;rrr]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={[O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM21={[[[3n27r:r]n28r:r[n27r:r]]:[3n27:r]n27][n28r][n28]}STR DP1={SUB{[4rr['n82n85']]}n64rrn64n63r[3n64r]n63rn64r}
STR DM22={[6DM2][[O1]rrO2;rrr]}STR DM23={[6DM2]SUB{n49[7r]n57}[O1]rrO2;rrrO2;r[6O1]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}
STR DDH={SUB{n49}[16DM1]DM22}STR DD1={SUB{PD3}DM6;DM22}STR DD2={DM7;DM22}STR DD3={DM6;DM23}STR DD4={SUB{PD3}DM6;DM22}
STR DD5={n49[63r][12DM1]SUB{n49[7r]n57}[O1]rrO2;rrrO2;r[6O1]}STR DD6={[32DM1]}
TR=10l16DL=HAZ@17BR=20V=127p%=3000DDH;DM23;DL=BGN@17BR=20V=127p%=3000DD1;DD2;DD3;DD4;DD2;DD5;DD4;DD1;DL=NK1@17BR=20V=127p%=3000[DD1]DD2;DD3;DD4;DD3;DD1;DD4[DD1]DD6;
//------------------------------------------------------------------------------TR=011;-------------------------------------------------------------------------------//
STR HH1={EP=100MidiDelay({[8`a`a`err`er`e`ar`er`er`er]},2,!16)}
STR HH2={EP=100MidiDelay({[4`a`a`err`er`e`ar`er`er`er]},2,!16)}
TR=11DL=HAZ;l16HH1;HH2;DL=BGN[19HH1]
//------------------------------------------------------------------------------TR=012;-------------------------------------------------------------------------------//
STR KK1={EP=100MidiDelay({[8ereeereeereeeeee]},2,!16)}
STR KK2={EP=100MidiDelay({[4ereeereeereeeeee]},2,!16)}
TR=12DL=HAZ;l16KK1;KK2;DL=BGN[19KK1]
//------------------------------------------------------------------------------TR=013;-------------------------------------------------------------------------------//
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={`er`e`e`er`e`e`er`c`ceeee}STR DS19={[10r]`e`earer}STR DS20={[8r]`e`e`e`earer}STR DS21={`er`e`e`cr`c`careeeeee}
TR=13l16<<HAMZ({DL=HAZ-1PG1;DS2;DL=HAZ;PG1;DL=HAZ+3DS19;DL=HAZ+7DS18;DL=HAZ+11DS21;DL=BGN+3DS19;DL=BGN+7DS18;DL=ME1+3DS19;DL=ME1+7DS20;DL=ME2+3DS2;DL=ME2+7DS18;DL=SB1+3DS19;DL=SB1+7DS21;
DL=ME3+3DS19;DL=ME3+7DS20;DL=ME4+3DS2;DL=ME4+7DS18;DL=SB2+3DS19;DL=SB2+7DS21;DL=RF1+3DS19;DL=RF1+7DS18;DL=NK1+3DS19;DL=NK1+7DS20;DL=NK2+3DS19;DL=NK2+7DS18;DL=NK3+3DS19;DL=NK3+7DS20;DL=NK4+3DS2;DL=NK4+7DS18;
DL=NK5+3DS19;DL=NK5+7DS21;DL=ME5+3DS2;DL=ME5+7DS18;DL=SB3+3DS19;DL=SB3+7DS18;DL=SB3+11DS19;DL=SB3+15DS21;DL=NK6+3DS19;DL=NK6+7DS18;DL=NK7+3DS19;DL=NK7+7DS20;DL=END+3DS19;DL=END+7DS18;})
//------------------------------------------------------------------------------TR=014;-------------------------------------------------------------------------------//
STR BUH={EP=110[4d^`drrrd^d`dr`drd`dr]}STR BU1={EP=110[[d^`drrrd^d`dr`drd`dr]g^`grrrg^g`gr`grg`gr;a^`arrra^a`ar`ara`ar]}
STR BU2={EP=100[[b^`brrrb^b`br`brb`br]g^`grrrg^g`gr`grg`gr;a^`arrra^a`ar`ara`ar]}
STR BU3={EP=100[g^`grrrg^g`gr`grg`gr]d^`drrrd^d`dr`drd`drb^`brrrb^b`br`brb`br[g^`grrrg^g`gr`grg`gr][a^`arrra^a`ar`ara`ar]}
STR BU4={EP=110[[d^`drrrd^d`dr`drd`dr]g^`grrrg^g`gr`grg`gr;a^`arrra^a`ar`ara`ar]}
TR=14DL=HAZ+8l16<<<BUH;DL=BGN;BU1;BU2;BU3;BU4;BU2;BU3;BU4[3BU1]BU2;BU3;BU4;BU3;BU1;BU4[BU1]
//------------------------------------------------------------------------------TR=015;-------------------------------------------------------------------------------//
STR UJ1={@82,1EP=80MD({[[rr['`da'r]rr[3'`da'r:'`da']]rr['bg'r]rr[3'bg'r:'bg']rr['`c#a'r]rr[3'`c#a'r:'`c#a']]},1,!16)}
STR UJ2={@82,1EP=70MD({[[rr['`db'r]rr[3'`db'r:'`db']]rr['bg'r]rr[3'bg'r:'bg']rr['`c#a'r]rr[3'`c#a'r:'`c#a']]},1,!16)}
STR UJ3={@82,1EP=70MD({[rr['bg'r]rr[3'bg'r:'bg']]rr['`da'r]rr[3'`da'r:'`da']rr['bf#'r]rr[3'bf#'r:'bf#'][rr['bg'r]rr[3'bg'r:'bg']][rr['`c#a'r]rr[3'`c#a'r:'`c#a']]},1,!16)}
STR UJ4={@82,1EP=80MD({[[rr['`da'r]rr[3'`da'r:'`da']]rr['bg'r]rr[3'bg'r:'bg']rr['`c#a'r]rr[3'`c#a'r:'`c#a']]},1,!16)}
TR=15DL=HAZ;l16P.onCycle(!16,0,127)UJ1;DL=BGN;UJ1;UJ2;UJ3;UJ4;UJ2;UJ3;UJ4[3UJ1]UJ2;UJ3;UJ4;UJ3;UJ1;UJ4[UJ1]
//------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------//
TR=16