//_初期設定

TrackName     = {"灰流うらら"}//曲名を書き込みます
Copyright     = {"騎士王321"}//作者の名前を書き込みます
MetaText      = {"1時間合作からコード進行を拝借"}//ひとことコーナーです

テンポ 140;
拍子   4,4;//DTMにおいて拍子は気休め以下です。
TimeBase = 96;//四分音符のステップ数の設定です。tの指定とかをする人には重要です。

TrackSync;

Include(gs.h);//XG音源でない人はこれを絶対に書き込んでおきましょう
Include(delay.h);Include(groove.h);Include(unison.h);//これくらいあればだいたい事足ります。
//あとはお好みでギターとかコードとかのインクルードファイルでも
System.MeasureShift(1);ResetGS;

TrackSync;

//リズムトラックの拡張です。それぞれの行の『//』を外すことによって有効になります。
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;//トラック11
CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;//トラック12
CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;//トラック13
CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;//トラック14

//音の基準の高さを決めるチューニング(0~127)です。どれかひとつを有効にしておきましょう
//GSScaleTuning(40,40,40,40,40,40,40,40,40,40,40,40);//古風な低めのチューニング
GSScaleTuning(64,64,64,64,64,64,64,64,64,64,64,64);//ごく一般的なチューニング
//GSScaleTuning(80,80,80,80,80,80,80,80,80,80,80,80);//YMO風の高めのチューニング

//知る人ぞ知るTW-Music2のパラメータ設定。リバーブとコーラスを扱います
//ReverbSetting    Time Dpth High
CuePoint={"TwmParam(80,123, 60)"}//リバーブ。各値は下記を参照
//ChorusSetting     Wave Mix Dpth FB Freq Dly Phs
CuePoint={"TwmChorus(1,127, 60, 80, 40, 48,  1)"}//コーラス。各値は下記を参照

//Slur(1);//スラーの種類を指定します

//==================================================================================================

//_作曲時に役立つツールたち

//PlayFrom(1:0:0);//途中から演奏するときにつかいます
//Solo();//『,』で複数トラック指定可
//Mute();//『,』で複数トラック指定可

STR KeyP = {KeyFlag-();Key(0);}//各トラックの頭に書き込んでおくと転調するタイプの曲で便利です
STR KEEP = {}//なにもしない
STR RS08 = {r%3072}//8小節休み
STR RS16 = {r%6144}//16小節休み

//通常トラック用
/*
TR(1);KeyP;
@1,0,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1//予動。プレカウントとも
*/

//リズムトラック用
/*
TR(10);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@1,0,0;
V(120);EP(127);P(64);BR(12);p%(0);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1//予動はとりあえず1小節にしてます。4拍子が多いから
*/

//==================================================================================================

//_演奏情報

STR PF01 = {KeyFlag-();
		[3 "fc'a`c`e'c"f'a`c`e'c"f 'g+`c`g'd"e'g+`c`g'd"e:'g+`c`g'"e/*1*/]'b`d`g'"e
		"ae'b`d`g'e"a'b`d`g'e"a '`c`e`b'g"a'`c`e`b'g"a'`c`e`b'^}
STR PF11 = {KeyFlag-(beadg);
		[3 "gd'b`d`f'd"g'b`d`f'd"g 'a+`d`a'e"f'a+`d`a'e"f:'a+`d`a'"f/*1*/]'`c`e`a'"f
		"bf'`c`e`a'f"b'`c`e`a'f"b '`d`f``c'a"b'`d`f``c'a"b'`d`f``c'"b}
STR PF21 = {o4;l16;q89;v120;KeyFlag-(beadg);
		'"gdb`d`f'4^8'"fca`c`e'4^8'"e+"b+g++b+`d+'4,39'"e"bgb`d'4,39|
		Key(3);'"gdb`d`f'4^8'"fca`c`e'4^8'"e+"b+g++b+`d+'4,39'"e"bgb`d'4,39|
		Key(0);KeyFlag+(fc);
		'""b"b`c`d+`f'4^8'"cc`d+`e+`g+'4^8'"dd`e`f`a'4^8'"ee`f`g+`b'4^8|'"cc`e+`g+``c'1
		o5;l16;q89;v120;}
STR PF22 = {o4;l16;q89;v120;KeyFlag-(beadg);
		'"gdb`d`f'4^8'"fca`c`e'4^8'"e+"b+g++b+`d+'4,39'"e"bgb`d'4,39|
		Key(3);'"gdb`d`f'4^8'"fca`c`e'4^8'"e+"b+g++b+`d+'4,39'"e"bgb`d'4,39|
		Key(0);KeyFlag+(fc);
		'""b"b`c`d+`f'4^8'"cc`d+`e+`g+'4^8'"dd`e`f`a'4^8'"ee`f`g+`b'4^8
		Key(2);'""b"b`c`d+`f'4^8'"cc`d+`e+`g+'4^8'"dd`e`f`a'4^8'"ee`f`g+`b'4^8|'"cc`e+`g+``c'1
		o5;l16;q89;v120;}
STR PF31 = {KeyFlag+();
		"d"a'dfa'"a"d'dfa'"a"d 'eg`c'"a"d'eg`c'"a"d'eg`c'^
		"d"a'dfa'"a"d'dfa'"a"d 'fa`c'"a"d'fa`c'"a-"d-'d-fa-`c'^
		"c"g'egb'"g"c'egb'"g"c 'df+a'"g"c'df+a'"g"c'f+ab`d'"c
		"ae'gb`d' Key(1);"ae'gb`d' Key(2);"ae'gb`d' Key(3);"ae'gb`d' Key(4);"ae'gb`d'^
		Key(0);
		rrr"d"a'dfa'"a"d 'eg`c'"a"d'eg`c'"a"d'eg`c'^
		"d"a'dfa'"a"d'dfa'"a"d 'fa`c'"a"d'fa`c'"a-"d-'fa-`c'^
		"c"g'egb'"g"c'egb'"g"c 'gb`d'"g"c'gb`d'"g"c'egb`d'^
		""a-"e-'gb-`e-'""a-"e-'gb-`e-'"a-^ '"fe-ga`c'r'"fe-ga`d-'r'"fe-ga`c`e-'^^^}
STR PF41 = {o4;l16;q89;v120;KeyFlag-(beadg);Key(4);
		'"gdb`d`f'4^8'"fca`c`e'4^8'"e+"b+g++b+`d+'4,39'"e"bgb`d'4,39|
		Key(5);'"gdb`d`f'4^8'"fca`c`e'4^8'"e+"b+g++b+`d+'4,39'"e"bgb`d'4,39|
		KeyFlag+();Key(0);
		'"df+ad`f+'4^8'"ae`c+`e`a'4^8'"cc`e`g``c'4^8'"gd`a`b``d'4^8'"ag`c+`e`b'4,39'"a+g+`c++`e+`b+'4,39
		'"e-fgb-`e-'4^8'"fga`c`f'4^8'"gab`d`g'4^1
		o5;l16;q89;v120;}
TR(1);KeyP;
@1,90,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(20);CHO(0);
o5;l16;q89;v120;t0;r1
PF01 PF11 PF21 PF31 PF41 PF01 PF11 PF22
//--------------------------------------------------------------------------------------------------
TR(2);KeyP;
@4,110,0;
V(80);EP(127);P(64);M(0);p%(512);
REV(0);CHO(120);
o5;l16;q39;v120;t0;r1
PF01 PF11 PF21 PF31 PF41 PF01 PF11 PF22
//Solo(1,2,3)
//--------------------------------------------------------------------------------------------------
STR SX01 = {[4 r1]}
STR SX11 = {[4 r1]}
STR SX21 = {[2 r1^4][2 r2^4]r1}
STR SX31 = {Sub{>
		"d2^4^8"f"g|"a2^4^8cd|e4^8g4^8a4|r1<}
		"d2^4^8"f"g|"a2^4^8cd|e4^8g4^8a4|r1}
STR SX32 = {Sub{
		[12 f32,169g32,169]fga`d|`d+32r-32`e4^8`f4r8`f`e-`ca-|[16 g32,169a32,169]}
		>[12 f32,169g32,169]fga`d|`d+32r-32`e4^8`f4r8`f`e-`ca-|[16 g32,169a32,169]<}
STR SX33 = {KeyFlag-();
		Sub{'df'2^4^8}a2^4g16a16'd`c'8|^2^4'd-f`c'4|'"g"bd'4^8'"gce'4^8'ceb'4|
		'"aeg'8^16 Key(1);'"aeg'8^16 Key(2);'"aeg'8^16 Key(3);'"aeg'4}
STR BR21 = {[2 r1^4][2 r2^4]r2^4[2 '"g"bdgb`d'16]r8}
TR(3);KeyP;
@49,0,0;
V(60);EP(127);P(64);M(0);p%(0);
REV(30);CHO(20);
o6;l16;q99;v120;t0;r1
SX01 SX11 SX21 SX31
//Solo(1,2,3)
//--------------------------------------------------------------------------------------------------
STR MC01 = {r1|rra^^d^^e^^"g^^"a^|r1|rr"a^^d^^e^^g^^a^}
STR MC11 = {Key(1);r1|rra^^d^^e^^"g^^"a^|r1|rr"a^^d^^e^^g^^a^ Key(0);}
STR MC21 = {[2 r1^4]d+4^8g+4^8f+4^8b4^8`c+1}
STR MC22 = {[2 r1^4]d+4^8g+4^8f+4^8b4^8|Key(2);d+4^8g+4^8f+4^8b4^8|`c+1}
STR MC31 = {[2 r4'f`c'2^4^1r1^1]}
STR MC41 = {[2 r1^4][2 r1]'eb'4^8'f`c'4^8'g`d'4^1}
TR(4);KeyP;
@89,0,0;
V(60);EP(127);P(64);M(0);p%(0);
REV(90);CHO(60);
o7;l16;q99;v120;t0;r1
MC01 MC11 MC21 MC31 MC41 MC01 MC11 MC22
//--------------------------------------------------------------------------------------------------
STR BA01 = {r1^1^1^2`a8&&aaag+gg}
STR BA11 = {KeyFlag-(beadg);
		[2 g4^8ff,19`f^f,19f^^^^]g4^8ff,19`f^f,19f^^aa+|b4^8`b2b,19b}
STR BA21 = {g4^8f4^8e+8r8e8r8|a+4^8a4^8g+8r8g8r8|KeyFlag+(fc);"b4^8c4^8|d4^8e4^8|c1}
STR BA22 = {g4^8f4^8e+8r8e8r8|a+4^8a4^8g+8r8g8r8|KeyFlag+(fc);"b4^8c4^8|d4^8e4^8|Key(2);"b4^8c4^8|d4^8e4^8|c1}
STR BA31 = {KeyFlag-();
		[2 d4^16^32`c32`d^^^a^^g^^]c4^16^32b32`c^^^a^^g^^|a^^a+^^b^^c^^c+^^`c+
		r4d16^32`c32`d^^^a^^g^^|d4^16^32`c32`d^^^a^^g^^|c4^16^32b32`c^^^^^gfe-f|a-4^8g-8f8,49f8,49f4}
STR BA32 = {KeyFlag-();
		[2 d4^16^32`c32`d^^^a^^g^^]c4^16^32b32`c^^^a^^g^^|`a4^8a4^8a`cba
		[2 d4^16^32`c32`d^^^a^^g^^]c4^16^32b32`c^^^a^^g^^|`a4^8a4^8egg+a}
STR BA41 = {KeyFlag-(beadg);
		Key(4);g4^8f4^8e+8r8e8r8|Key(5);g4^8f4^8e+8r8e8r8
		KeyFlag-();Key(0);l8;
		d^^a^^c^^g^^a^a+^|e-^^f^^"g2&&g4g8[6 g16]
		l16;q69;v120;}
TR(5);KeyP;
@36,0,0;
V(100);EP(127);P(64);M(0);p%(0);
REV(0);CHO(0);
o2;l16;q69;v120;t0;r1
BA01 BA11 BA21 BA31 BA41 BA01 BA11 BA22
//--------------------------------------------------------------------------------------------------
TR(6);KeyP;
@39,0,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(0);CHO(60);
o3;l16;q69;v120;t0;r1
BA01 BA11 BA21 BA31 BA41 BA01 BA11 BA22
//--------------------------------------------------------------------------------------------------
STR OG01 = {Sub{[3 r1]o4;q299;r2c0,99d0,199[2 e32f32g32a32b32>c32d32]e,199f,99}
		[4 r1]}
STR OG11 = {Sub{o3;l8;q79;KeyFlag-(beadg);
		g^g,19f^^^r|g^g,19f^^^r|g^g,19f^^^r|b^^a^^br}
		o5;l16;q99;KeyFlag-(beadg);
		'b`d`f'4"gd'a`c`e'2"fc|'b`d`f'4"gd'a`c`e'2"fc|'b`d`f'4"gd'a`c`e'2"fc|'a`c`e'4"bf'b`d`f'2f"b|}
STR OG21 = {Sub{o3;l8;q79;KeyFlag-(beadg);
		'g``d``b'4^8'f``c``a'4^8'e+`b+``g++'16r8^16e4|Key(3);'g``d``b'4^8'f``c``a'4^8'e+`b+``g++'16r8^16e4 Key(0);|
		KeyFlag+(fc);b4^8`c4^8|`d4^8`e4^8|`c1}
		o6;l8;q99;KeyFlag-(beadg);
		bafe^"aar"a0"b0c32d32,199e32,299f32,299g32,299a32,299b32,199`c32
		Key(3);bafe^"aar Key(0);c0d0e32f32,199g32,299a32,299b32,299`c32,299`d32,199`e32
		KeyFlag+(fc);o5;
		'fb`d+'4^8'g+`c`e+'4^8'a`d`f'4^8'be`g+'4^8|'cg+`c`e+'2 KeyFlag+();l32;q299
		`e0`d0`c,199[2 bagfdec<]b,199
		o5;l16;q99;v120;}
STR OG22 = {Sub{o3;l8;q79;KeyFlag-(beadg);
		'g``d``b'4^8'f``c``a'4^8'e+`b+``g++'16r8^16e4|Key(3);'g``d``b'4^8'f``c``a'4^8'e+`b+``g++'16r8^16e4 Key(0);|
		KeyFlag+(fc);b4^8`c4^8|`d4^8`e4^8|Key(2);b4^8`c4^8|`d4^8`e4^8|`c1}
		o6;l8;q99;KeyFlag-(beadg);
		bafe^"aar"a0"b0c32d32,199e32,299f32,299g32,299a32,299b32,199`c32
		Key(3);bafe^"aar Key(0);c0d0e32f32,199g32,299a32,299b32,299`c32,299`d32,199`e32
		KeyFlag+(fc);o5;
		'fb`d+'4^8'g+`c`e+'4^8'a`d`f'4^8'be`g+'4^8
		Key(2);'fb`d+'4^8'g+`c`e+'4^8'a`d`f'4^8'be`g+'4^8|'cg+`c`e+'2 KeyFlag+();l32;q299
		`e0`d0`c,199[2 bagfdec<]b,199
		o5;l16;q99;v120;}
STR OG31 = {Sub{o3;l16;q79;KeyFlag-();
		d1|d2^4c+`c+8^16|`c1|a^^a+^^b^^c^^c+^^^
		d1|d2^4c+`c+8^16|`c1|a-4^8`c8`f8f8f4}
		o6;l16;q129;
		'dfa'2^8r8g+aa+b|'fa`c'4r8'fa`d'4f0g0,199a32,299b32,299`c32,199`d32'a-`c`d-`f'4,99|'gb`d`e'1,99
		'"ae'gb Key(1);'"ae'gb Key(2);'"ae'gb Key(3);'"ae'gb Key(4);'"ae'gb`d Key(0);
		c0d0e32f32,199g32,299a32,299b32,299`c32,299`d32,199`e32'a`c`d`f'2^4,99|
		`e`f`e`c`c+32`d32`cagg+32a32gfdcd^a32g+32|q89 'ceg'1
		'"a-e-a-`c'4"a0"b0c32d,199e32,299f32,299g32,299a32,299b32,199`c32'e-fa`c'8,59'e-fa`d-'8,59'ce-fa`e-'4}
STR OG41 = {Sub{o3;l8;q79;KeyFlag-(beadg);
		Key(4);'g``d``b'4^8'f``c``a'4^8'e+`b+``g++'16r8^16e4|Key(5);'g``d``b'4^8'f``c``a'4^8'e+`b+``g++'16r8^16e4 Key(0);|
		KeyFlag+();`d4^8a4^8`c4^8g4^8a4,39a+4,39|e4^8f4^8g4^1}
		o6;l8;q99;KeyFlag-(beadg);
		Key(4);bafe^"aar"a0"b0c32d32,199e32,299f32,299g32,299a32,299b32,199`c32
		Key(5);bafe^"aar Key(0);<c0d0e32f32,199g32,299a32,299b32,299`c32,299`d32,199`e32
		KeyFlag+();o5;
		'f+a`d'4^8'a`c+`e'4^8'`c`e`g'4^8'gb`d`a'4^8[2 'ag`c+`e`b'4,39 Key(1);]Key(0);'b-`e-g'4^8'`c`f`a'4^8'`d`g`b'4|^4
		l32;q299`e0`d0`c,199[2 bagfdec<]b,199r4
		o5;l16;q99;v120;}
TR(7);KeyP;
@18,0,0;
V(50);EP(127);P(0);M(60);p%(-1024);
REV(20);CHO(80);
o5;l16;q99;v120;t0;r1
OG01 OG11 OG21 OG31 OG41 OG01 OG11 OG22
//--------------------------------------------------------------------------------------------------
TR(8);KeyP;
@19,0,0;
V(50);EP(127);P(127);M(80);p%(1024);
REV(20);CHO(80);
o5;l16;q99;v120;t0;r1
OG01 OG11 OG21 OG31 OG41 OG01 OG11 OG22
//Solo(7,8)
//--------------------------------------------------------------------------------------------------
STR LE01 = {[4 r1]}
STR LE11 = {KeyFlag-(beadg);r-4 "b24c24d24e24f-24f24
		a4^8b4ef-ed"b8|^8e24f-24f24ed"b"ad8e4"b8|^8"a"bd"bdedee+faa+b8|^2r8"b24c24d24c"a"f"d}
STR LE12 = {KeyFlag-(beadg);r-4 "b24c24d24e24f-24f24
		a4^8b4ef-ed"b8|^8e24f-24f24ed"b"ad8e4"b8|^8`d24`e24`d24`c24`d24`c24b24`c24b24a24b24a24f24a24f24ef-ed|<bdabeabfabab`d`e`f`a>}
STR LE21 = {l8;dc"b"a^"f"a+r"br|Key(3);dc"b"a^"f"gr"br|Key(0);
		l16;Key(-12);
		"f"a"b"a"bc"bce"bce|Key(0);"f"f+"g+"bc+"b+c+e+ff+g+b+|`c+1}
STR LE22 = {l8;dc"b"a^"f"a+r"br|Key(3);dc"b"a^"f"gr"br|Key(0);
		l16;Key(-12);
		"f"a"b"a"bc"bce"bce|Key(0);"f"f+"g+"bc+"b+c+e+ff+g+b+
		Key(-10);"f"a"b"a"bc"bce"bce|Key(2);"f"f+"g+"bc+"b+c+e+ff+g+b+|`c+1}
STR LE31 = {o6;l16;q100;v127;Key(0);KeyFlag-();
		r1^1|egaegaegagab`d`e`g`a16|^16&`a8&&a16r4^2
		r1^1|egaegaegagab`d`e`g`e|Key(1);egaegaegagab`d`e`g24`a24`g24 Key(0)}
STR LE32 = {KeyP;r2^4^8"f"g|"a2^4^8cd|e1|r1}
STR LE41 = {KeyFlag-(beadg);o7;l8;
		Key(4);dc"b"a^"f"a+r"br|Key(5);dc"b"a^"f"gr"br
		Key(0);"a1^4^8&&"b8[2 "b16,39"b16,39b16r16 Key(1);]
		o7;l16;q100;v127;r1^1Key(0);}
TR(9);KeyP;
@82,1,0;
V(127);EP(127);P(64);M(0);p%(0);
REV(40);CHO(0);
o7;l16;q100;v127;t0;r1
LE01 LE11 LE21 LE31 LE41 LE01 LE12 LE22
//--------------------------------------------------------------------------------------------------
STR BD01 = {[3 r1]r8[3 "b24]'"bc'8"b8`c,,100[3 `c,,80]a8,,100f8,,80}
STR BD11 = {[4 '"bc'4r16"b16[2 '"bc'8^16]r8"b8]}
STR BD21 = {[2 '"bc'4^8"b4^8'"bc'4"b4]
		[2 '"bc'4^8'"bc'4^8]
		'"bc'4[3 "b4]}
STR BD22 = {[2 '"bc'4^8"b4^8'"bc'4"b4]
		[4 '"bc'4^8'"bc'4^8]
		'"bc'4[3 "b4]}
STR BD31 = {[7 '"bc'4r16"b16[2 '"bc'8^16]r8"b8]
		'"bc'4r8^16"b16[3 '"bc'8]r8}
STR BD41 = {[2 '"bc'4^8"b4^8'"bc'4"b4][2 '"bc'4^8'"bc'4^8][2 '"bc'4]
		[3 '"bc'4:r8]r1}
TR(10);KeyFlag+();Key(0);
@1,7,0;
V(120);EP(127);P(64);BR(12);p%(0);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1
BD01 BD11 BD21 BD31 BD41 BD01 BD11 BD22
//Solo(1,2,10,11,12,13,14)
//--------------------------------------------------------------------------------------------------
TR(11);KeyFlag+();Key(0);
@27,7,0;
V(80);EP(127);P(64);BR(12);p%(-2000);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1
BD01 BD11 BD21 BD31 BD41 BD01 BD11 BD21
//--------------------------------------------------------------------------------------------------
STR SD01 = {Sub{v80[4 r8'"ed+'8'"ed+'8'"ed+'8,,30[2 '"ed+']r'"ed+'r8'"ed+'8]}
		v120;r1^1 d v30[15 d v+6]d1}
STR SD11 = {Sub{v80[4 r8'"ed+'8'"ed+'8'"ed+'8,,30[2 '"ed+']r'"ed+'r8'"ed+'8]}
		v120;[4 r4d4r8e16,,80e16,,60d4]}
STR SD21 = {Sub{v80[2 [2 r8'"ed+'8'"ed+'8][2 '"ed+'8r8]][2 [2 r8'"ed+'8'"ed+'8]]}
		v120;[2 r4^8d4[2 e16,,80]r2][2 r2^4]r1}
STR SD22 = {Sub{v80[2 [2 r8'"ed+'8'"ed+'8][2 '"ed+'8r8]][4 [2 r8'"ed+'8'"ed+'8]]}
		v120;[2 r4^8d4[2 e16,,80]r2][4 r2^4]r1}
STR SD31 = {Sub{v80[8 r8'"ed+'8'"ed+'8'"ed+'8,,30[2 '"ed+']r'"ed+'r8'"ed+'8]}
		v120;[8 r4d4r8e16,,80e16,,60d4]}
STR SD41 = {Sub{v80[2 [2 r8'"ed+'8'"ed+'8][2 '"ed+'8r8]][2 [2 r8'"ed+'8'"ed+'8]][2 '"ed+'4]}
		v120;[2 r4^8d4[2 e16,,80]r2]r1^1^1^1}
TR(12);KeyFlag+();Key(0);
@1,90,1;
V(120);EP(127);P(64);BR(12);p%(500);
REV(10);CHO(0);
o3;l16;q9;v120;t0;r1
SD01 SD11 SD21 SD31 SD41 SD01 SD11 SD22
//--------------------------------------------------------------------------------------------------
STR HH01 = {[4 [4 r8g+8,,60]]}
STR HH11 = {[4 [4 f+,,80g+,,60a+,,100g+,,60]]}
STR HH21 = {[2 [2 a+g+,,60[4 f+,,80]][2 g+8,,80g+8,,60]]
		r1^2r1}
STR HH22 = {[2 [2 a+g+,,60[4 f+,,80]][2 g+8,,80g+8,,60]]
		[2 r1^2]r1}
STR HH31 = {[8 [4 f+,,80g+,,60a+,,100g+,,60]]}
STR HH41 = {[2 [2 a+g+,,60[4 f+,,80]][2 g+8,,80g+8,,60]]
		[4 a+g+,,60[4 f+,,80]][2 g+8,,80g+8,,60]
		[2 [4 r8g+8,,60]]}
TR(13);KeyFlag+();Key(0);
@17,0,0;
V(120);EP(127);P(64);BR(12);p%(1000);
REV(10);CHO(10);
o3;l16;q9;v120;t0;r1
HH01 HH11 HH21 HH31 HH41 HH01 HH11 HH22
//--------------------------------------------------------------------------------------------------
STR CC01 = {[4 r1]}
STR CC11 = {Sub{'`c+`a'}[4 r1]}
STR CC21 = {[2 `c+2^4`a8`a8,,10`g8`g8,,80]`c+4^8`a4^8`e4^8`g4^8'`c+`a'1,,80}
STR CC22 = {[2 `c+2^4`a8`a8,,10`g8`g8,,80][2 `c+4^8`a4^8`e4^8`g4^8]'`c+`a'1,,80
		Sub{'`c+`a'1,,80r1^1^1EP(0);`g1^1}
		}
STR CC31 = {[4 r1]r4'`c+`a'2^4r1^1^1}
STR CC41 = {[2 `c+2^4`a8`a8,,10`g8`g8,,80]`c+4^8`a4^8`e4^8`g4^8r4'`c+`a'4r1^1}
TR(14);KeyFlag+();Key(0);
@33,90,1;
V(100);EP(127);P(64);BR(12);p%(1000);
REV(40);CHO(0);
o3;l16;q9;v120;t0;r1
CC01 CC11 CC21 CC31 CC41 CC01 CC11 CC22
//↓仕切り線です。ご自由にお使いください
//==================================================================================================
//--------------------------------------------------------------------------------------------------