サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ☆★☆はやい曲が大好きな人、ノリたい人にお奨めです!!☆★☆ 危うく投稿するの忘れる所でした。もう一年以上前に投稿した曲です。 今と違ってかなりテクノが入ってる感じです。イマイチまとまりに欠けますが、展開は今に通じる物があります。 曲データ(サクラから貼り付けます。) /* 曲名 旧掲示板への投稿日時 ID ■JUNIOR TECHNO 2004/01/19 18:12:43 2166 しつこいぐらいの効果音乱用・詰め詰めソースにテクノサウンド。 バランスこそ外れてますが、今と違って人間味があった気がします。 この頃は今ほど作風も安定していなかったのですが、曲掲示板そのものは全盛期だったので、結構受けました。 曲名 旧掲示板への投稿日時 ID ■ELECTRIC☆DANCE 2003/11/30 12:48:13 1598 ちょうどこれが30曲記念の曲でした。 以後、ソースも曲調もこの時の作風でずっと作ってきたので、ある意味原点と言うか、基礎的な感じです。 曲掲示板受けはあんまり良くなかったですが、一応ユーロビートらしいものが完成したのはこれが初めてです。 */ INT PLAY_SONG = 0 ;// 0でJUNIOR TECHNO、その他の数字を入れるとELECTRIC DANCEを演奏します。 If(PLAY_SONG==0){ TrackName={JUNIOR TECHNO}Copyright={H゛}System.MeasureShift(3)ResetGS;Tempo=1000;Include(delay.h)Str INS ={InstrumentName} Function Autoexec(Int X1,Int X2,Int X3,Int X4,Int X5,Int X6,Int X7,Int X8,Int X9){TR=X1 DL(0)CH=X2 @(X3)Key=X4 P(X5) CHO=X6 REV=X7 v(X8) q(X9)}Function DivX(Int RUNDLL,Int RUNDLL32,Int REGEDIT){Time(RUNDLL:RUNDLL32:REGEDIT)}Function DDS(n1){ l%1 r*-3 y99(1) r* y98(32) r* y6(n1) r* }Function SEUP(DJ1,DJ2,DJ3){Str DERT1="r"+DJ3;Sub{Sub{For(Int A=DJ1;AUS2;A=A-2){ DDS(A) DERT2 } }}}Function DL(ti){Time(ti:1:0)} Function OEM(TTD){y99(1)y98(32)y6(TTD)}Function OEM2(BBS){FilterResonance=BBS}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 SetTimeout(Str SetTval,SetTr){ Str SetAs="r"+SetTr;Sub{SetAs;SetTval}}Function SetInterval(Str SetIval,SetIr,SetIno){Str SetIAs="r"+SetIr;Sub{[(SetIno)SetIAs;SetIval]}} 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} Autoexec(001,001,081,000,064,040,040,127,090)INS={"MAIN"}Autoexec(002,002,082,000,064,050,040,127,090) INS={"SYNTH"}Autoexec(003,003,082,000,032,050,040,110,090) INS={"SYNTH"}Autoexec(004,004,081,000,127,050,040,110,090) INS={"SYNTH"}Autoexec(005,005,030,000,054,050,040,127,100)INS={"BASS"}Autoexec(006,006,083,000,042,050,040,080,100) INS={"CHORD"} Autoexec(007,007,039,000,032,030,040,070,080)INS={"HIGH_SYNTH"}Autoexec(008,008,039,000,120,030,040,070,080) INS={"HIGH_SYNTH"}Autoexec(009,009,081,000,074,040,040,127,090)INS={"URA_MERO"} Autoexec(010,010,025,000,064,050,010,127,080) INS={"DRUM"}DL(-2)GSRY(2)r8;Autoexec(011,011,026,000,064,030,090,127,080)INS={"DRUM"}DL(-2)GSRY(1)r8;Autoexec(012,012,025,000,___,050,020,127,080) INS={"DRUM"}DL(-2)GSRY(2)r8;Autoexec(013,013,119,000,___,050,040,127,080)INS={"TAM"}Autoexec(014,014,119,000,___,050,040,100,100) INS={"TAM"}Autoexec(015,015,127,000,096,040,030,127,100) INS={"URA_DRUM"}Autoexec(016,016,120,000,064,040,100,127,100) INS={"BGSOUND"}STR HAZ={DL(5)}STR BGN={DL(13)}STR ME1={DL(21)}STR ME2={DL(29)}STR SB1={DL(37)}STR RF1={DL(47)}STR ME3={DL(55)} STR ME4={DL(63)}STR SB2={DL(71)}STR NK1={DL(81)}STR RF2={DL(89)}STR ME5={DL(97)}STR SB3={DL(105)}STR END={DL(115)}STR MAN1={ggffga#r;g^gffga#rr;ggffga#^a#a^a#`c^`ca#^;ggffga#r;g^gffgdrr;ggffga#ra#a^a#`c^^} STR MAN2={`d`ca#^^a#ga#`c`d`dr`c^`d;`d`ca#^^a#gaaa#`ca#^g^g;`d`ca#^^a#ga#`c`d`dr`c`d^`d;`d`ca#^^a#ga#`c`d`d`d^`d`d^`d`f^}STR MAN3={`d#`a#^`a#`a^`f`gl16;`a^`a`a^`a`a^`a^`a#^`g^`f^l8;`d#^`a#^`a^`f`fl16;`a^^ `a#^^``c^`a^`g^`f^`d^l8;`d#`a#^`a#`a^`f`gl16;`a^`a`a^`a`a^`a^`a#^`g^`f^;[2`d#^r`d#^r`d#r]`f^r`f^r`fr`f^`g^`a^`a#^``c^`a#`a#^^^^^^^^;l8}TR=001;ME1;@081,001;l8;>;V=127;M.W(40,90,!8)MAN1;MAN2;MAN3;ME3;MAN1;MAN2;MAN3; DL(96)[6r]MAN2;MAN3;STR DE={DL(1)EP.T(50,127,!1^1^1^1)l16;[2Sub{<;`gr`dr`fr`g`gr;`gr`d`fr`gr;`gr`dr`fr`g`gr`g`gr`gr`gr;>}`gr`dr`fr`g`gr;`gr`d`fr`gr;`gr`dr`fr`g`gr`g`gr`gr`gr]}STR BBG={l16;M.W(40,60,!8) "d#^d#rd#rrrfdrda#^g^;"grgrfgrgggaaa#a#gg;"d#^d#rd#rrrfdrda#^g^;"grgrfgrggga#a#`c`c`d`d;"d#^d#rd#rrrfdrda#^g^;"grgrfgrgggaaa#a#gg;"c^crfrdr"drdrf^d^grgrfgrgrggrgrgr}STR BBD={EP=060;d#d#d#d#g^d#^fga^ra^a; ararararaaa#rd#g^f;d#d#d#d#g^d#^fga^ra^a;aaaraaraa#a#`c`dr`dr`d;d#d#d#d#g^d#^fga^ra^a;ararararaaa#rd#g^f;[4d#`d#^]d#`d#^d#[4f`f^]fgaa#[4a#`a#^]ara#ra#r`a#r`a#r`a#`a#r;EP=127}STR SYNTH={HAZ; EP=127;BGN;V=127;BBG;SB1;BBD;RF1;BBG;RF2;BBG;SB3;BBD;END;[2BBG]}STR HUI={[3"a#^"a#r"a#rrrccrcc^"a^;"gr"gr"g"gr"g"g"g"f"f"d#"d#"d"d]"g^"gr"a#r"gr;"fr"fr"d^"f^"gr"gr"f"gr"gr"g"gr"gr"gr} STR SYNTH2={l16;V=127;BGN;M.W(40,60,!8)HUI;RF1;HUI;RF2;HUI;END;[2HUI]}TR=002;@056;DE;@082,008;P=064;>;SYNTH;TR=003;@063;DE;@082,001;P=000;SYNTH;TR=004;@064;DE;@081,001;P=127;SYNTH2; STR JIK={[3[2"d#d#][2"ff][3"gg]"ff]}STR GH1={JIK;[2"cc][2"dd][4"gg]}STR GH2={[4"gg][4"a#a#][4"aa][2"gg][2"ff][4"gg][4"a#a#][4c`c][4d`d]}STR GH3={[3[2d#`d#][2f`f][4g`g]][4d#`d#][3f`f]rr} TR=005;@039,008;l16;<;DL(1)EP=100;[2"d#"d#^"d#"d#^"d#^"f"f^"f"f^"f^[2"g"gg"gr"gg"g]]l8;HAZ;@039,000;EP.T(100,127,!8)JIK;[4"d#d#][3"ff]rr;BGN;<;@081,001;GH1;GH2;GH3;JIK;[4"d#d#][4"ff] [4"a#a#]RF1;GH1;GH2;GH3;JIK;[4"d#d#][4"ff][4"a#a#]NK1;JIK;[4"d#d#][3"ff]rr;GH1;ME5;GH3;JIK;[4"d#d#][4"ff][4"a#a#]END;[2GH1]STR JI1={SUB{a#^^`cg^^aa#^^`cg^^^a#^^`cg^^ag^^^a^^}SUB{g^^fd^^fg^^fd^^^g^^fd^^fa#^^^`c^^} <<;d#^^fg^^fd#^^fg^^^;d#^^fg^^fd#^^^f^^;>>}STR JI2={[3'"d#d#ga#`d#'^'"ffa`c`f'^'"gga#`d`g'^^'"ffa`c`f']'"cceg`c'^'"dda`d'^'"gga#`d`g'^^^}STR JI3={'"gga#`d`g'^^^'"a#a#`d`f`a#'^^^'"aa`c#`e`a'^^^'"gga#`d`g' ^'"ffa`c`f'^'"gga#`d`g'^^^'"a#a#`d`f`a#'^^^'c`c`e`g`c'^^^'d`d`f#`a``d'^^^}STR JI4={[3'"d#d#ga#`d#'^'"ffa`c`f'^'"gga#`d`g'^^^]'"d#d#ga#`d#'^^^'"ffa`c`f'^^r}TR=006;HAZ;JI1;BGN; EP.W(60,90,!2)JI2;ME1;JI3;ME2;[2JI4]'"a#a#`d`f`a#'^^^RF1;JI2;ME4;[2JI4]'"a#a#`d`f`a#'^^^;RF2;JI2;ME5;[2JI4]'"a#a#`d`f`a#'^^^END;[2JI2]STR WC={r'"cceg`c'}STR WD={r'"ddf#a`d'}STR WDS={r'"d#d#ga#`d#'}STR WF={r'"ffa`c`f'}STR WG={r'"gga#`d`g'}STR WA={r'"aa`c#`e`a'} STR WAS={r'"a#a#`d`f`a#'}STR DD={[2WDS][2WF][3WG]WF;[4WDS][3WF]}STR DD1={[3[2WDS][2WF][3WG]WF][2WC][2WD][4WG]}STR DD2={[4WG][4WAS][4WA][2WG][2WF][4WG][4WAS]>[4WC][4WD]<}STR DD3={ [3[2WDS][2WF][4WG]][4WDS][3WF]rr}STR GTO={DL(9)l8;DD;BGN;v=070;DD1;ME1;<;DD2;>;ME2;[2DD3][6WAS]RF1;DD1;ME4;[2DD3][6WAS]RF2;DD1;SB3;DD3[6WAS]END;[2DD1]}TR=007;@039,008;P=032;GTO; TR=008;@039,001;EP=090;P=127;GTO;STR BUH={SUB{a#ag^^}gfd#^^}STR GF1={[6r]BUH;d#cdfggrf^g;BUH;gga#aggg^g^g;BUH;gga#aggraa#^a#;BUH;d#d#d#d#d#d#f^ff^ff^}STR GF2={a#a#^a#`c^afl16; `c^`c`c^`c`c^`c^`d^a#^g^l8;a#^a#^`c^afl16;`c^^`c^^`c^a#^`c^`d^`f^;l8;a#a#^a#`c^afl16;`c^`c`c^`c`c^`c^`d^a#^g^;[2g^rg^rgr]a^ra^rara^a^a^a^a#^a#a#^^^^^^^l8}TR=009;DL(28)@081,001; l8;M.W(40,90,!8)EP=120;GF1;GF2;DL(62)GF1;GF2;DL(96)GF1;GF2;STR L={'n27n32n33n35n36'}STR S={'n27n32n33n35n36n40'}STR D={'n27n32n33n35n36n57'}STR AP1={[3L;rrrS;rrr]L;rrr;S;rrS} STR AP2={[7L;rrrS;rrr]L;rrr[2S;r]}STR AP3={[7L;rrrS;rrr]L;rrrS;r[2S]}STR AP4={[7L;rrrS;rrr][2L;r][4L]}TR=010;DL(0)Tempo=161;V=127;l16;@025;BR=24;[2n27][2n28r]rr;Sub{[2n29r][3n29]r}[3n28]l32; [3n28]r;l16;[3n28]D;rrrrrrrrrrrrrL;rD;[15r]Sub{D;rrrrrrrrrrrrrL;r[4D;r][4D]l32;[8D]}l16;[8L;rrr]p%=2000;@026;[32L;rrr]/*bn*/;BGN;@025;p%=2000;[4AP1]ME1;AP2;AP3;ME2;AP2;AP4;AP3;AP4;[2L;rrrS;rrr][3L;rrr]S;r[2S]RF1; [4AP1]ME4;AP2;AP4;AP3;AP4;[2L;rrrS;rrr][3L;rrr]S;r[2S]DL(85)[7L;rrrS;rrr]RF2;[4AP1]SB3;AP3;AP4;[2L;rrrS;rrr][3L;rrr]S;r[2S]END;[8AP1]STR GTS1={P.onCycle(!4,0,127)p%.T((6000,-3000,!2),(-3000,3000,!2))}STR GR={n42} STR GA={n44}STR GB={n46}STR TA={n54}STR MT={n51}STR DR={n40}STR PL1={P.onCycle(!8,32,127)}STR TAM1={GTS1;[3DR]rDR;r[5DR]rDR;r[2DR]}STR OOP={GR;GA;GB;r}STR TN1={GR;rGB;r}STR ITP1={GR;rGB;r[2GR]GB;r[2GR]GB;GR;rGR;[2GB]}STR ITP2={ [7GR;rGB;r]GR;r[2GB]}TR=011;DL(3)l16;@026;BR=24;V=127;p%=2000;PL1;[9ITP1]GR;rGB;r[2GR]GB;r;/*bn*/;BGN;[8ITP1]ME1;[4ITP2]ME2;[8ITP2]RF1;[8ITP1]DL(59)[4ITP1]ME4;[8ITP2]NK1;[8ITP1]RF2;[8ITP1]DL(101)[7ITP2]END;[16ITP1] STR Q={'n28n39'}STR BGT={P.T(0,127,!2,127,0,!2)[6Q]r[3Q]l32;[3Q]r;l16;[4Q]}STR PD1={[48r][3n51rrr][2n51r]}STR PD2={L;rrrS;rrrL;rrr;S;rrL}STR PD3={SUB{n49}[48r][3n51rrr][2n51r]}TR=012;HAZ;l16;P=0;PD1;P=096;SUB{PD1}[3PD2]L;rrrS;rrr; [2n49rrr];BGN;Sub{[112r]BGT}l16;[2PD3]ME1;[2PD3]Sub{[112r]BGT}[4PD3]DL(46)[3n51rrr][2n51r]RF1;Sub{[112r]BGT}[2PD3]ME3;[2PD3]Sub{[112r]BGT}[4PD3]NK1;[2PD3]RF2;Sub{[112r]BGT}[2PD3]ME5;Sub{[112r]BGT}[2PD3][2PD3]DL(114)BGT;END;[2Sub{ [112r]BGT}[2PD3]]BGT;P=64;n49^^^^^^^^^^^[8r]STR KTM1={PAN(!1,0)`erbrgreereercrcr}STR KTM2={PAN(!1,1)`erbrgreereercrcr}STR KTM3={[8r]PAN(!2,0)`d`daafrff}STR KTM4={PAN(!1,1)`f`fr`d`dra#a#rffrfrfr}STR ASS={DL(0)l16;V=127;<;KTM1;DL(4)KTM2;DL(8) KTM3;DL(12)KTM4;DL(28)KTM3;DL(36)KTM4;DL(40)KTM3;DL(62)KTM3;DL(70)KTM4;DL(74)KTM3;DL(88)KTM4;DL(104)KTM4}TR=013;@119,000;ASS;TR=014;@119,009;ASS;STR F={'cdef'}TR=015;DL(8)<;@128,002;V=127;P=096;rrr'cdefg'@127,005;l16;<<;[15F;rrr]/*bn*/;BGN; [32F;rrr]ME1;[104F;rrr]RF1[32F;rrr]ME3;[136F;rrr]RF2;[104F;rrr]END;[32F;rrr]STR KT1={@017;P=064;Sub{p%=8192;r;p%.T(8192,-8192,!1)}l4;`d^^^}STR KT2={@080;p%.T(8192,-8192,!4)`g}TR=016;DL(0)BR=124;KT1;DL(4)l4;[3r]KT2;DL(8)l4;P.onCycle(!4,0,127) [4KT2]DL(12)KT1;DL(20)rrrKT2;DL(36)rrP.onCycle(!4,0,127)[2KT2]DL(46)KT1;DL(80)KT1;DL(84)P.onCycle(!4,0,127)[4KT2]DL(96)rrrP=64;KT2;DL(104)rrP.onCycle(!4,0,127)[2KT2]DL(114)KT1;END;P.onCycle(!4,0,32,64,96,127,96,64,32)[4[3KT2[3r]][4KT2]][4KT2] }Else{ Int TEMPO_EST = 155 ;Str EURO = GS ; TrackName ={ELECTRIC☆DANCE}Copyright ={H゛}; System.MeasureShift(3);ResetGS;Tempo=1000;Include(delay.h); Function Autoexec(Int X1,Int X2,Int X3,Int X4,Int X5,Int X6,Int X7,Int X8,Int X9){ TR=X1 CH=X2 @(X3); Key=X4 P(X5); CHO=X6 REV=X7 v(X8); q(X9);}; Function DivX(Int RUNDLL,Int RUNDLL32,Int REGEDIT){Time(RUNDLL:RUNDLL32:REGEDIT);}; Function DDS(n1) { l%1 r*-3 y99( 1); r* y98( 32); r* y6(n1); r* } Function SEUP(DJ1,DJ2,DJ3){Str DERT1= "r" + DJ3;Sub{Sub{For(Int A= DJ1; AUS2; A=A-2){ DDS(A); DERT2 } }}}; Function DL(ti){Time(ti:1:0);}; Function OEM(TTD){y99(1);y98(32);y6(TTD);}; Function OEM2(BBS){FilterResonance=BBS;}; 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 SetTimeout(Str SetTval,SetTr){Str SetAs= "r" + SetTr;Sub{SetAs;SetTval;};}; Function SetInterval(Str SetIval,SetIr,SetIno){Str SetIAs = "r" + SetIr;Sub{[(SetIno);SetIAs;SetIval;]};}; 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;}; //GS.hより抜粋; Str INS ={InstrumentName}; //------( TR , CH , @ , Key, P , CHO, REV, v , VAR); INS = InstrumentName; Autoexec( 001, 001, 072, 000, 064, 040, 127, 127, 090); INS = {"MAIN"}; Autoexec( 002, 002, 081, 000, 032, 020, 020, 127, 090); INS = {"BASSSYNTH"}; Autoexec( 003, 003, 039, 000, 096, 020, 020, 127, 090); INS = {"BASSSYNTH"}; Autoexec( 004, 004, 056, 000, 064, 127, 100, 127, 090); INS = {"HIT!"}; Autoexec( 005, 005, 030, 000, 000, 050, 040, 090, 100); INS = {"GUITER"}; Autoexec( 006, 006, 031, 000, 127, 050, 040, 090, 100); INS = {"GUITER"}; Autoexec( 007, 007, 037, 000, 054, 030, 040, 110, 080); INS = {"BASS"}; Autoexec( 008, 008, 081, 000, 000, 110, 080, 127, 090); INS = {"SYNTH"}; Autoexec( 009, 009, 081, 000, 127, 110, 080, 127, 090); INS = {"SYNTH"}; Autoexec( 010, 010, 025, 000, 064, 050, 010, 120, 080); INS = {"DRUM"}; Autoexec( 011, 011, 118, 000, 064, 030, 090, 127, 080); INS = {"DRUM"}; Autoexec( 012, 012, 118, 000, 064, 050, 020, 120, 080); INS = {"TAM"}; Autoexec( 013, 013, 082, 000, ___, 050, 040, 100, 080); INS = {""}; Autoexec( 014, 014, 007, 000, 000, 090, 040, 110, 080); INS = {""}; Autoexec( 015, 015, 127, 000, 064, 127, 070, 127, 080); INS = {"BGSOUND"}; Autoexec( 016, 016, 128, 000, 064, 127, 127, 127, 080); INS = {"BGSOUND"}; //------( TR , CH , @ , Key, P , CHO, REV, v , q ); INS = InstrumentName; //------------------------------------------------------------------------------=====------------------------------------------------------------------------------// TR=1;l16;/*m1*/DL(29);V=127;@081,001;>;M.W(40,90,!8);If(EURO == XG){@088,000;};drdrcrcrd^^drr;f^^^frfrfre^^rrrrr; drdrcrcrd^^drrdrc^^^c^^^c#^^^^^^^;drdrcrcrd^^drr;f^^^drfrgra^^rrrrr;drdrcrcrdrfrgrara^a^^^a^a^^^^^^^;/*m2*/ l8;a#^^^a^^a^g^^r;ga^a#^^^`c^^^`d^^^r;af^a^^g^^a^^^^^^fg^ara^^aaa`c^&&c`cr`c`c&&c; /*sb*/;l16;arargrgrf^^drr;a^^^argrgrf^^drrrr;arargrgrf^^grra^^^`c^&&a^a#^&&a^^^^^^^;arargrgrf^^drr; a^^^argrgra^^`crrrr;arargrgra^^`crra^^^`c^&&a^a#^&&a^^^^^^^;DL(61);/*m1*/V=127;M.W(40,90,!8); drdrcrcrd^^drr;f^^^frfrfre^^rrrrr;drdrcrcrd^^drrdrc^^^c^^^c#^^^^^^^;drdrcrcrd^^drr;f^^^drfrgra^^rrrrr; drdrcrcrdrfrgrara^a^^^a^a^^^^^^^;/*m2*/l8;a#^^^a^^a^g^^r;ga^a#^^^`c^^^`d^^^r;af^a^^g^^a^^^^^^fg^ara^^aaa`c^&&c`cr`c`c&&c; /*sb*/;l16;arargrgrf^^drr;a^^^argrgrf^^drrrr;arargrgrf^^grra^^^`c^&&a^a#^&&a^^^^^^^;arargrgrf^^drr; a^^^argrgra^^`crrrr;arargrgra^^`crra^^^`c^&&a^a#^&&a^^^^^^^;DL(94);l16;arargrgrf^^drr;a^^^argrgrf^^drrrr;arargrgrf^^grra^^^`c^&&a^a#^&&a^^^^^^^;arargrgrf^^drr; a^^^argrgra^^`crrrr;arargrgra^^`crra^^^`c^&&a^a#^&&a^^^^^^^;Key=+3;l16;arargrgrf^^drr;a^^^argrgrf^^drrrr;arargrgrf^^grra^^^`c^&&a^a#^&&a^^^^^^^;arargrgrf^^drr; a^^^argrgra^^`crrrr;arargrgra^^`crra^^^`c^&&a^a#^&&a^^^^^^^;Key=0; //------------------------------------------------------------------------------TR=1;------------------------------------------------------------------------------// Str Ba5c={c>ccc#c#ddd#d#eeffc<};Str Ba5fs={f#`f#f#^f#af#^f#`f#f#^af#a`c#}; Str Ba5gf={Base5fs};Str Ba5g={g`gg^ga#g^g`gg^a#ga#`d};Str Ba5gs={g#`g#g#^g#bg#^g#`g#g#^bg#b`d#}; Str Ba5af={Base5gs};Str Ba5a={a`aa^a`c#a^a`aa^`c#a`c#`e};Str Ba5as={a#`a#a#^a#`da#^a#`a#a#^`da#`d`f}; Str Ba5bf={Base5as};Str Ba5b={b`bb^b`db^b`bb^`db`d`f#}; Str SYO={l16;M.W(20,80,!16);EP.onCycle(!16,60,70,80,70);[3"dd^"ff^"d"d"dr"fr"gr"ar];"dd^"d"f"d"c"d^^"d"d"d"d"d"d; [3"dd^"ff^"d"d"dr"fr"gr"ar];"dd^"ff^"d"d"dr"dr"d"d"d"d;[4"dd"d^"f"f"d^"dd"d^"f"d"f"g];"dd"d^"f"f"d^"dd"d^"f"d"f"g; "ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;"cc"c^"cc"c^"a"a"a^cc"c^;"dd"d^"f"f"d^"dd"d^"f"d"f"g; "ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;[16r]; // begin // <;"dd"d^"f"f"d^"dd"d^"f"d"f"g;"ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;<;a`aa^a`ca^a`aa^`ca`c`a;>; "dd"d^"f"f"d^"dd"d^"f"d"f"g;"ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;[16r];DL(29); /*m1*/;[2;"dd^"ff^"d"d"d^"f^"g^"a^;"ff^"f"f^"f"f"ee^"e"e^"e"e;"dd^"ff^"d"d"d^"f^"g^"a^;"cc^"c"c^"c"c"c#c#^"c#"c#^"c#"c#;]; /*m2*/;[3"d#d#d#"d#d#^"d#"d#]"d#d#d#"d#"d^"d"d;[4"ccc"c"c^"c"c];[4"ddd"dd^"d"d][2"fff"ff^"f"f];/*sb*/;DL(45); [2;Ba5d;Ba5f;<;Ba5as;a#`a#a#^a#`da#^a#`a#a#^`c^c`c;>;];/*rf*/;"dd"d^"f"f"d^"dd"d^"f"d"f"g;"ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;<;a`aa^a`ca^a`aa^`ca`c`a;>; "dd"d^"f"f"d^"dd"d^"f"d"f"g;"ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;[16r]; /*m1*/;[2;"dd^"ff^"d"d"d^"f^"g^"a^;"ff^"f"f^"f"f"ee^"e"e^"e"e;"dd^"ff^"d"d"d^"f^"g^"a^;"cc^"c"c^"c"c"c#c#^"c#"c#^"c#"c#;]; /*m2*/;[3"d#d#d#"d#d#^"d#"d#]"d#d#d#"d#"d^"d"d;[4"ccc"c"c^"c"c];[4"ddd"dd^"d"d][2"fff"ff^"f"f];/*sb*/;DL(77); [2;Ba5d;Ba5f;<;Ba5as;a#`a#a#^a#`da#^a#`a#a#^`c^c`c;>;];/*sb*/[2;Ba5d;Ba5f;<;Ba5as;a#`a#a#^a#`da#^a#`a#a#^`c^c`c;>;]; DL(94);[2;Ba5d;Ba5f;<;Ba5as;a#`a#a#^a#`da#^a#`a#a#^`c^c`c;>;];Key=+3;[2;Ba5d;Ba5f;<;Ba5as;a#`a#a#^a#`da#^a#`a#a#^`c^c`c;>;]; /*rf*/;[2"dd"d^"f"f"d^"dd"d^"f"d"f"g;"ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;<;a`aa^a`ca^a`aa^`ca`c`a;>; "dd"d^"f"f"d^"dd"d^"f"d"f"g;"ff"f^"f"a"f^"ff"f^"a"f"ac;"gg"g^"g"b"g^"gg"g^"b"g"bd;[16r];]Key=0;}; TR=2;DL(0);P=32;@081,001;If(EURO == XG){@091,000;SEUP(0,127,128);OEM2=127;V=127;v=127;};l16;DL(1);SYO; TR=3;V=127;DL(0);<;P=96;@039,008;If(EURO == XG){@088,000;SEUP(0,127,128);OEM2=127;};l16;DL(1);l128r;l16;SYO; //------------------------------------------------------------------------------TR=2,3;------------------------------------------------------------------------------// TR=4;DL(1);@056;l16;[2`d;[13r];`cr`dr`dr;[10r];`cr`dr`dr;[10r];`cr;EP=080;`drrr`drrr;EP=090;`dr`dr; EP.T(70,110,!8);`d`d`d`d;];/*sb*/DL(44);@012;[14r];>;a`c`d[2;[25r];`frrr`fra#r;[22r;];a#faa#`ca`c`d`d]; DL(76);/*sb*/@012;[14r];a`c`d[2;[25r];`frrr`fra#r;[22r;];a#faa#`ca`c`dr];/*nk*/DL(85); EP=060;[8`dr];EP=090;[4`dr];EP=127;[2`dr];[4`d];/*sb*/DL(101);Key=+3;@012;[14r];a`c`d[2;[25r];`frrr`fra#r;[22r;];a#faa#`ca`c`dr];Key=0; DL(94+16+16);[16;r;];@056,000;frfrd#cd#frrrrrrrr; //------------------------------------------------------------------------------TR=4;------------------------------------------------------------------------------// Str GUI={DL(9);<;l4;v=80;EP.W(70,110,!1);'da`d'^^^'f`c`f'^^^;'g`d`g'^^^'cg`c'^;'"aea''cg`c';'da`d'^^^'f`c`f'^^^; 'g`d`g'^^^'a`e`a'^^^;'da`d'^^^'f`c`f'^^^;'g`d`g'^^^'cg`c'^;'"aea''cg`c';DL(21); If(CH == 5){@049};If(CH == 6){@053;<;};v=70;>;EP=090; '"dda`d'^^^'"ffa`c`f'^^^'"gg`d`g'^^^'"aa`e`a'^^^'da`d'^^^'f`c`f'^^^;'g`d`g'^^^'cg`c'^rr; /*m1*/;DL(29);'"ddfa`d'^^^'"ffa`c`f'^'"cceg`c'^'"ddfa`d'^^^'"cceg`c'^'c#eg#`c#"c#'^; '"ddfa`d'^^^'"ffa`c`f'^'"cceg`c'^'"ddfa`d'^^^'"aa`c`e`a'^^^/*m2*/'"a#a#`d`f`a#'^^^^^^^'"gga#`d`g'^^^^^^^ '"aa`e`a'^^^^^^^;>;EP.T(070,127,!1^1);'"ccg`c'^^^^^^^;<;/*sb*/DL(45);EP=100;[2;'"ddfa`d'^^^'"ffa`c`f'^^^'"a#dfa#'^^^^^^'"cceg`c';]; /*rf*/EP=090;'"dda`d'^^^'"ffa`c`f'^^^'"gg`d`g'^^^'"aa`e`a'^^^'da`d'^^^'f`c`f'^^^;'g`d`g'^^^'cg`c'^rr /*m1*/;DL(29);'"ddfa`d'^^^'"ffa`c`f'^'"cceg`c'^'"ddfa`d'^^^'"cceg`c'^'c#eg#`c#"c#'^; '"ddfa`d'^^^'"ffa`c`f'^'"cceg`c'^'"ddfa`d'^^^'"aa`c`e`a'^^^/*m2*/'"a#a#`d`f`a#'^^^^^^^'"gga#`d`g'^^^^^^^ '"aa`e`a'^^^^^^^;>;EP.T(070,127,!1^1);'"ccg`c'^^^^^^^;<;/*sb*/DL(45);EP=100;[2;'"ddfa`d'^^^'"ffa`c`f'^^^'"a#dfa#'^^^^^^'"cceg`c';]; DL(94);[2;'"ddfa`d'^^^'"ffa`c`f'^^^'"a#dfa#'^^^^^^'"cceg`c';];Key=+3;[2;'"ddfa`d'^^^'"ffa`c`f'^^^'"a#dfa#'^^^^^^'"cceg`c';]; EP=090;[2'"dda`d'^^^'"ffa`c`f'^^^'"gg`d`g'^^^'"aa`e`a'^^^'da`d'^^^'f`c`f'^^^;'g`d`g'^^^'cg`c'^rr]Key=+0; '"ffa`c`f'^^^};TR=5;DL(0);@030;P=20;GUI;TR=6;DL(0);@031;P=107;GUI; //------------------------------------------------------------------------------TR=5,6;------------------------------------------------------------------------------// Str Ba1c={ c^>cc#dd#eff#gg#aa#b;Ba1c;[4Ba1d];[4Ba1f];[4Ba1g];c^^^^^^^"a^^^c^^^; // begin // @082;q=90;EP=080;Ba4d;Ba4f;Ba4g;Ba4a;Ba4d;Ba4f;Ba4g;c^c^cc^c;DL(29);/*m1*/;l16;[4;Ba1d;];[2;Ba1f;]; [2;Ba1c;];[4;Ba1d;];[2;Ba1c;];[2;Ba1cs;];[4;Ba1d;];[2;Ba1f;];[2;Ba1c;];[4;Ba1d;];[4;Ba1a;];/*m2*/ [7;Ba1as;];Ba1a;[8;Ba1g;];[8;Ba1a;];>;[4;Ba1c;];<;[4rrrr;];/*sb*/;EP=127;[2;[4;Ba1d;];[4;Ba1f;];<;[7;Ba1as;];>;Ba1c;]; /*rf*/;Ba4d;Ba4f;Ba4g;Ba4a;Ba4d;Ba4f;Ba4g;c^c^cc^c;/*m1*/;DL(61);l16;[4;Ba1d;];[2;Ba1f;]; [2;Ba1c;];[4;Ba1d;];[2;Ba1c;];[2;Ba1cs;];[4;Ba1d;];[2;Ba1f;];[2;Ba1c;];[4;Ba1d;];[4;Ba1a;];/*m2*/ [7;Ba1as;];Ba1a;[8;Ba1g;];[8;Ba1a;];>;[4;Ba1c;];<;[4rrrr;];/*sb*/;EP=127;[2;[4;Ba1d;];[4;Ba1f;];<;[7;Ba1as;];>;Ba1c;]; DL(102);Key=+3;[2;[4;Ba1d;];[4;Ba1f;];<;[7;Ba1as;];>;Ba1c;];/*rf*/;[2Ba4d;Ba4f;Ba4g;Ba4a;Ba4d;Ba4f;Ba4g;c^c^cc^c;rrrrrrrr];Key=0; [4;Ba1f;]; //------------------------------------------------------------------------------TR=7;------------------------------------------------------------------------------// Str SYC={MidiDelayTap({'cg`c'},2,!16);rr'cg`cg'^^'cg`c'^;};Str SYFC={rr'f`c`f'^f'cg`c'^'cg`c'}; Str SYD={rr'da`d'^"d'da`d''da`d'^;};Str SYCCS={'cg`c'r'cg`c'^"c#'c#g#`c#''c#g#`c#'^}; Str SYDF={rr'da`d'^"d'f`c`f''g`d`g'^;};Str SYA={rr'a`e`a'^"a'a`e`a''a`e`a'^;}; Str SYRI={@082,000;If(EURO == XG){@091,000;OEM2=070;If(CH == 009){@081,000;};};V=127;M=127;BR=12;If(CH == 009){P=096}; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r;'g`d`g'^^'a`e`a'rr;'da`d'^^^'da`d'r;'f`c`f'r'f`c`f'r;'g`d`g'^'a`e`a''a`e`a'rrrr; 'da`d'r'da`d'r'f`c`f'r;'f`c`f'r'g`d`g'^^'a`e`a'rr;'a`e`a'^^; @081,001;If(EURO == XG){@005,000;}; '"aea''cg`c''"aea''cg`c''"aea''cg`c''"aea';'cg`c''"aea''cg`c''c#g#`c#''da`d''da`d''cg`c''"aea'; @082,000;If(EURO == XG){@091,000;If(CH == 009){@081,000;};}; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^^'a`e`a'rr;'da`d'^^^'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^'a`e`a''a`e`a'rrrr; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^^'a`e`a'rr'a`e`a'^^; @081,001;If(EURO == XG){@005,000;};'f`c`f''a`e`a''f`c`f''`c`g``c''a`e`a''`c`g``c''a`e`a'; @082,000;If(EURO == XG){@026,000;};MidiDelayTap({'g`d`g'^^},2,!16);r;MidiDelayTap({'g`d`g'^^},2,!16);r;}; Str SYT={l16;@081,001;rrd^f^^rg^ra^^a^^;rf^g^^ra^ra#^^`c^^;rg^a^^ra#^r`d^^`d^;`c#^`c#^^^`d^`c#^^^^^^r; rrd^f^^rg^ra^^a^^;rf^g^^ra^ra#^^`c^^;rg^a^^ra#^r`d^^`d^;@082,008;aagfdc"ac"a^^^c^^^ // begin // SYRI;/*m1*/If(EURO == XG){@091,000;If(CH == 009){@081,000;};};If(CH == 009){P=127;};EP=050;l8; SYD;SYFC;SYD;SYCCS;SYD;SYFC;SYDF;SYA;/*sb*/DL(44);l16;EP=120;fgaa#`cr`c`cr`c`cr`c^&&^c;DL(45);EP=090; [2;drd^cd^cd^cd^cdcfrffdc"acfff^ffff"a#"a#"a#"a#"a^"a#^"a#r"a#"a^^"a#^"a#r"a#^"a"a#^"aa#faa#`cga#`c;]; /*rf*/EP=127;SYRI;/*m1*/If(EURO == XG){@091,000;If(CH == 009){@081,000;};};If(CH == 009){P=127;};EP=050;l8; DL(102);Key=+3;l16;EP=120;[2;drd^cd^cd^cd^cdcfrffdc"acfff^ffff"a#"a#"a#"a#"a^"a#^"a#r"a#"a^^"a#^"a#r"a#^"a"a#^"aa#faa#`cga#`c;]; EP=127;@082,000;If(EURO == XG){@091,000;OEM2=070;If(CH == 009){@081,000;};};V=127;M=127;BR=12;If(CH == 009){P=096}; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r;'g`d`g'^^'a`e`a'rr;'da`d'^^^'da`d'r;'f`c`f'r'f`c`f'r;'g`d`g'^'a`e`a''a`e`a'rrrr; 'da`d'r'da`d'r'f`c`f'r;'f`c`f'r'g`d`g'^^'a`e`a'rr;'a`e`a'^^; @081,001;If(EURO == XG){@005,000;}; '"aea''cg`c''"aea''cg`c''"aea''cg`c''"aea';'cg`c''"aea''cg`c''c#g#`c#''da`d''da`d''cg`c''"aea'; @082,000;If(EURO == XG){@091,000;If(CH == 009){@081,000;};}; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^^'a`e`a'rr;'da`d'^^^'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^'a`e`a''a`e`a'rrrr; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^^'a`e`a'rr'a`e`a'^^; @081,001;If(EURO == XG){@005,000;};'f`c`f''a`e`a''f`c`f''`c`g``c''a`e`a''`c`g``c''a`e`a'; @082,000;If(EURO == XG){@026,000;}; Key=0;MidiDelayTap({'a#`f`a#'^^},2,!16);r;MidiDelayTap({'a#`f`a#'^^},2,!16);r; Key=+3;EP=127;@082,000;If(EURO == XG){@091,000;OEM2=070;If(CH == 009){@081,000;};};V=127;M=127;BR=12;If(CH == 009){P=096}; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r;'g`d`g'^^'a`e`a'rr;'da`d'^^^'da`d'r;'f`c`f'r'f`c`f'r;'g`d`g'^'a`e`a''a`e`a'rrrr; 'da`d'r'da`d'r'f`c`f'r;'f`c`f'r'g`d`g'^^'a`e`a'rr;'a`e`a'^^; @081,001;If(EURO == XG){@005,000;}; '"aea''cg`c''"aea''cg`c''"aea''cg`c''"aea';'cg`c''"aea''cg`c''c#g#`c#''da`d''da`d''cg`c''"aea'; @082,000;If(EURO == XG){@091,000;If(CH == 009){@081,000;};}; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^^'a`e`a'rr;'da`d'^^^'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^'a`e`a''a`e`a'rrrr; 'da`d'r'da`d'r'f`c`f'r'f`c`f'r'g`d`g'^^'a`e`a'rr @081,001;If(EURO == XG){@005,000;}@082,000;If(EURO == XG){@026,000;};Key=0;/*ed*/ 'a#`f`a#'^^`g#`g`f`d#`d`ca#a#g#gfd#dc"a#; 'f`c`f'r'f`c`f'^'d#a#`d#''f`c`f'^'d#a#`d#''f`c`f'^'d#a#`d#''f`c`f'^'d#a#`d#''f`c`f''cg`c'; 'f`c`f'r'f`c`f'r'f`c`f''f`c`f'r'f`c`f'rrr;}; TR=8;DL(13);l128r;P=0;SYT;TR=9;DL(1);P=000;@007;<<;l16;EP.onCycle(!16,50,090);[12"ddrddrddrddrdrdr];>>; DL(13);EP=127;P=127;>;SYT;<; //------------------------------------------------------------------------------TR=8,9;------------------------------------------------------------------------------// Str RYT1={'n27n32n33n35n36n38'rrr'n27n32n33n35n36n40n38'rrr};Str OMAKE ={[12r]n71[3r]}; Str RYT2={'n27n32n33n35n36n38'rrrrr'n27n32n33n35n36n38'rrrrr'n27n32n33n35n36n40n38'rrr}; Str RYS1={'n27n32n33n35n36n38'rrr'n27n32n33n35n36n40n38'r[2'n27n32n33n35n36n40n38']}; TR=10;Time(-1:1:0)GSRY(2);r8;DL(0);l16;[8r];@025;[2n30r][3n30]r;DL(1);P=0;EP=80;n49; P.onCycle(!8,0,32,64,32);BR=24;[13r]n49rn57rn57r;[10r]n57rn49rn49r;[10r]n49r;n49rrrn57rrr; n55rrrn57rn57r;p%=4000;[14r]n49rn57rn57r;[10r]n57rn49rn49r;[10r]n49r;n49rrrn57rrr;n55rrrn57rn57r; DL(9);p%=0;P=64;EP=127;'n32n33n35n36n57'rrrrrrrrrrrrrrr;'n32n33n35n36n49'rrrrrrrrrrrrrrr; 'n32n33n35n36n57'rrrrrrrrrrrrrrr;'n32n33n35n36n49'rrrrrrr;[2n30r][3n30]r; [8'n32n33n35n36'rrrrrrr];p%=2000;[12'n27n32n33n35n36'rrr];[4rrrr]; // begin // v=127;p%=-3000;Sub{[7OMAKE;]};[15RYT1;];[2'n27n35'rrr];/*m1*/;EP=70;[15;RYT1;];[2;[2;'n27n32n33n35n36n40n38']r;]; 'n27n32n33n35n36n40n38'r;/*m2*/[14;RYT1;];EP.T(0,110,!1);[16'n27n28n39';];/*sb*/p%=0000;EP=127;[15;RYT1;];[2'n27n35'rrr]; /*rf*/v=127;p%=-3000;Sub{[7OMAKE;]};[15RYT1;];[2'n27n35'rrr];/*m1*/;EP=70;[15;RYT1;];[2;[2;'n27n32n33n35n36n40n38']r;]; 'n27n32n33n35n36n40n38'r;/*m2*/[14;RYT1;];EP.T(0,110,!1);[16'n27n28n39';];/*sb*/p%=-2000;EP=127;[15;RYT1;];[2'n27n35'rrr]; /*nk*/DL(89);p%=4000;[4RYT1];[8'n27n32n33n35n36n38'r];p%.T(4000,0000,!2);[10'n27n32n33n35n36n38'];[2'n27n32n33n35n36n40n38'r];[2'n27n35']; DL(98);p%=0000;[3'n27n32n33n35n36n38'rrrrrrrrrrrrrrr][4'n37n39n50n32n37n33n27n36n35'][2'n41n32n37n33n27n36n35']r 'n41n32n37n33n27n36n35'r'n41n32n37n33n27n36n35'r'n40n41n32n37n33n27n36n35' 'n41n32n37n33n27n36n35'r'n41n32n37n33n27n36n35''n41n32n37n33n27n36n35'p%=0000;EP=127;[15;RYT1;];[2'n27n35'rrr]; /*rf*/[2;v=127;p%=-3000;Sub{[7OMAKE;]};[15RYT1;];[2'n27n35'rrr];];/*ed*/[2RYT1]'n27n32n33n35n36n38'rrrrrr'n27n32n33n35n36n38'rrrrrrr[16r] //------------------------------------------------------------------------------TR=10;------------------------------------------------------------------------------// TR=11;V=127;v=127;Time(-1:1:0)GSRY(2);r8;l16;BR=24;p%=4000; Str DR1={n42rn46rn42n42n46rn42n42n46n42rn42n46n46}; Str DR2={'n42n27'n42n46r'n28n42'n42n46r'n42n27'n42n46r'n28n42'n42n46'n42n28'}; Str DR3={'n42n27'rn51r'n28n42'rn51r'n42n27'rn51r'n28n42'rn51'n42n28'}; Str DR4={'n42n27'rn46r'n28n42'rn46r'n42n27'rn46r'n28n42n78'rn46'n46n28'}; Str DR5={n46rn46rn55rn46rrrn46rn55rn55r};Str DR6={[2;n27r[2;n42];n46r];n49rn42r}; DL(1);@025;If(EURO == XG){@026,000;SEUP(0,60,64);l16;OEM2=127;EP=080;};P.onCycle(!8,32,127);[8DR1]; P.onCycle(!16,32,127,127,127);If(EURO == XG){SEDOWN(60,40,64);l16;};[8DR2]; p%.T(-4000,1000,!1^1^1^1);[3DR3];'n42n27'rn51r'n28n42'rn51r;P=32n57rrrP=96n49rrr; // begin // P.onCycle(!16,32,127,127,127);p%=0000;[7DR4];'n42n27'rn46r'n28n42'rn46r;/*m1+2*/DL(29);OEM2=050;@026;p%=-4000;EP=090; [2;[7DR4];[3n51rrr];[2n51r];];/*sb*/@025;p%=0000;[2;Sub{n49;};Sub{[6rrrrrrrr][3n51rrr];[2n51r];};[4DR4];]; /*rf*/P.onCycle(!16,32,127,127,127);p%=0000;[7DR4];'n42n27'rn46r'n28n42'rn46r;/*m1+2*/DL(61);OEM2=050;@026;p%=-4000;EP=090; [2;[7DR4];[3n51rrr];[2n51r];];/*sb*/@025;p%=0000;[2;Sub{n49;};Sub{[6rrrrrrrr][3n51rrr];[2n51r];};[4DR4];]; /*nk*/P.onCycle(!8,32,127);[8DR1];/*es*/DL(98);P=64;[16r]n49[15r]DL(102); @025;P.onCycle(!8,32,127);p%=0000;[2;Sub{n49;};Sub{[6rrrrrrrr][3n51rrr];[2n51r];};[4DR4];]; /*rf*/[2P.onCycle(!16,32,127,127,127);p%=0000;[7DR4];'n42n27'rn46r'n28n42'rn46rn28rrrn28rrr]; //------------------------------------------------------------------------------TR=11;------------------------------------------------------------------------------// TR=12;DL(0);l16;@119,000;If(EURO ==XG){@119,009;};<<;[8r];PAN(!1,1);`f`f`f`f`cr`c`c; [2;P=0;[14r];bbgrer;P=127;[10r];bdgrrr;P=0;[10r];gg;P=127;bbbr;P=0;fffr;PAN(!1,1);brbrfrff;]; [48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;DL(29);/*m1*/ [48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;/*m2*/ [48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;/*sb*/ [48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;/*rf*/ DL(61);/*m1*/[48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;/*m2*/ [48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;/*sb*/ [48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;/*sb*/DL(94); [64r][48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb;[48r];PAN(!1,0);`fr`crgreer`f`f`f`d`d`f`f;[48r];PAN(!1,1);`e`er`ebrbr`er`erbrbb; DL(94+16+16);[16r]PAN(1,!2);@119,009;`cr`b`b`a`a`f`br; //------------------------------------------------------------------------------TR=12;------------------------------------------------------------------------------// TR=13;DL(1);@082,000;<;EP.W((40,80,!1),(80,50,!1));P.W((0,127,!1),(127,0,!1));q=100; [2d^^^^^^^];rrrrrrrr;d^^^^^^^;[2d^^^^^^^];/*m2*/DL(37);@103,000;EP=127;>>;l8;d#^^^f^^^g^^^^^a^a#^^^`c^^^`d^^^^^^^; a^^^^^^^^^^^^^^^EP.T(90,127,!1);`c^^^^^^^^^^^^^^^;/*sb*/DL(45);EP.W((40,80,!2),(80,50,!2));P.W((0,127,!2),(127,0,!2)); [2d^^^^^^^f^^^^^^^"a#^^^^^^^"a#^^^^^c^;];/*sb*/DL(77);EP.W((40,80,!2),(80,50,!2));P.W((0,127,!2),(127,0,!2)); [2d^^^^^^^f^^^^^^^"a#^^^^^^^"a#^^^^^c^;];/*sb*/DL(94);EP.W((40,80,!2),(80,50,!2));P.W((0,127,!2),(127,0,!2)); [2d^^^^^^^f^^^^^^^"a#^^^^^^^"a#^^^^^c^;];Key=+3;[2d^^^^^^^f^^^^^^^"a#^^^^^^^"a#^^^^^c^;];Key=0; @082;f^^^^^^^; //------------------------------------------------------------------------------TR=13;------------------------------------------------------------------------------// Str PIC={"ccrccrccrccrcrcr};Str PID={"ddrddrddrddrdrdr};Str PIF={"ffrffrffrffrfrfr};Str PIG={"ggrggrggrggrgrgr}; Str PIA={"aaraaraaraararar};Str PIAS={"a#a#ra#a#ra#a#r"a#"a#ra#ra#r}; TR=14;DL(5);P=127;<;l16;EP.onCycle(!16,50,090);[8PID;];P.onCycle(!8,0,32,64,96,127,96,64,32); EP.onCycle(!16,70,110);P=0;<;Ba4d;Ba4f;Ba4g;Ba4a;Ba4d;Ba4f;Ba4g;[16r];DL(29);/*m2*/DL(37);v=127;P=000; [2;PIAS];[2;PIG];[2;PIA];>;PIC;P.onCycle(!16,0,127);PIC;<;DL(94+16+16);Key=+3;P=0;PID;Key=0; //------------------------------------------------------------------------------TR=14;------------------------------------------------------------------------------// TR=15;DL(1);V=127;l16;<;DL(5);P=64;@127,005;If(EURO == XG){[16'cdef'rrr]};If(EURO != XG){ [16'"c"c#"d"d#"e"f"f#"g"g#"a"a#"bcc#dd#eff#gg#aa#b`c`c#`d`d#`e`f`f#`g`g#`a`a#`b'rrr]}; DL(21);P=127;@082,000;l16;>;q=090;M=127;[2[4'"d"ad'r]'"d"ad'^^'"d"ad'rr;'"fcf'^^^[3'"fcf'r]'"fcf'^[2'"fcf']rrrr; [4'"gdg'r]'"gdg'^^'"gdg'rr;[18r]];/*sb*/DL(45);@081,001;P=096;>;[2drdrdrdrd^^drr;f^^^frfrfr"f^^"frrrr; "a#r"a#r"a#r"a#r"a#^^"a#rr;"a#^^^"a#r"a#r"a#r"a#r"a#rcrcr;];DL(77);@081,001;P=096;[2drdrdrdrd^^drr;f^^^frfrfr"f^^"frrrr; "a#r"a#r"a#r"a#r"a#^^"a#rr;"a#^^^"a#r"a#r"a#r"a#r"a#rcrcr;];DL(94);[2drdrdrdrd^^drr;f^^^frfrfr"f^^"frrrr; "a#r"a#r"a#r"a#r"a#^^"a#rr;"a#^^^"a#r"a#r"a#r"a#r"a#rcrcr;];Key=+3;[2drdrdrdrd^^drr;f^^^frfrfr"f^^"frrrr; "a#r"a#r"a#r"a#r"a#^^"a#rr;"a#^^^"a#r"a#r"a#r"a#r"a#rcrcr;]; //------------------------------------------------------------------------------TR=15;------------------------------------------------------------------------------// TR=16;DL(0);Tempo=TEMPO_EST; @125,001;If(EURO == XG){@125,001;};l8;BR=24;q=120;p%.T(0,-8192,!1);>>;`e`d#`d`c#`cba#a DL(1);l4;v=070;@126,008;d0"d^^^^^^^^^^^;DL(5); @123,005; DL(8);[4rrrr]@120,000;l1;p%.T(0,-8192,!1);PAN(0,!1);o5v127'd>d>d'p%=0;DL(21);l4; @126,008;p%.T(0,8192,!1^1^1^1); d^^^^^^^^^^^;DL(37);p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^;DL(43);[2rr]; @125,001;l8;BR=24;q=120;EP.T(90,127,!2); p%.T(0,-8192,!1);>>;`e`d#`d`c#`cba#a;/*sb*/<<;<<; @128,003;DL(45);p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^;DL(49); p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^;/*sb*/DL(77);p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^;DL(81); p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^;DL(87);l4;<<<;@126,001;d^^^^^^^^^^^^^^^^^^^;>>>;DL(93);l8; @125,001;l8;BR=24;q=120; EP.T(90,127,!2);p%.T(0,-8192,!1);>>;`e`d#`d`c#`cba#a;/*es*/DL(102); @126,008;p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^;DL(106); p%.T(0,8192,!1^1^1^1);d^^^^^^^^^^^; } この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)