//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.383)
//------------------------------------------------------------------------------
曲名{"音色チェック"}
作者{"korin"}
コメント{"どんな音色があるかチェック～。私が好きだった hello again が果てしなく流れます。"}
//------------------------------------------------------------------------------

ResetGM();
拍子4,4
テンポ(98)
調#()

//オクターブユニソン
Function OctaveUnison(Str S){
	Sub{ Key=12;  S; Key=0; } S;
}
//フェードイン
Function Fadein(Int Mes,Int sEp,Int lEp){	//小節は英語でMeasure
	Str I = {!1};	// 拍子4/4
	Str LEN;
	If(Mes>1){
		Mes--;
		I=I+{^1};
	}
	LEN=I;
	Str CMD = { Expression.onTime(sEp,lEp,LEN); }
	CMD.s({LEN},I);
	CMD;
}


//フェードアウト1
Function Fadeout(Int Mes,Int lEp,Int sEp){
	//Iはローカル
	Str I = {!1};	//全音符でフェードアウト
	Str LEN;
	If(Mes>1){
		Mes--;
		I=I+{^1};
	}
	LEN=I;
	Str CMD = { Expression.onTime(lEp,sEp,LEN); }
	CMD.s({LEN},I);
	CMD;
}
//フェードアウト2
Function Fadeout2(Int Mes,Int lEp,Int sEp){
	Str I = {!4};	//四分音符でフェードアウト
	Str LEN;
	If(Mes>1){
		Mes--;
		I=I+{^4};
	}
	LEN=I;
	Str CMD = { Expression.onTime(lEp,sEp,LEN); }
	CMD.s({LEN},I);
	CMD;
}
//ヘッダーファイルを少しずつ修正していく形？
Int I;
Int Type = 1;	//1 : 音色　　2 : リズム
Array #Ary=();
Array #Vo=();
Array #rhythm=();
Array #data=();

#Vo(0)={"Grand Piano (グランドピアノ) … 標準的なグランドピアノ。"}
#Vo(1)={"Bright Piano (ブライトピアノ) … 明るめの（アタックが強めの）ピアノ。"}
#Vo(2)={"Electric Grand Piano (エレクトリック･グランドピアノ) … 音をピックアップで電気増幅させるピアノ。かなり明るめ。"}
#Vo(3)={"Honky-tonk Piano (ホンキートンクピアノ) … 調律のずれたピアノ。"}
#Vo(4)={"Electric Piano 1 (エレクトリックピアノ１) … Rhodes系のコロコロしたエレピ。"}
#Vo(5)={"Electric Piano 2 (エレクトリックピアノ２) … FMシンセサイザー系のキラキラしたエレピ。"}
#Vo(6)={"Harpsichord (ハープシコード) … バロック音楽の代表楽器。別名チェンバロ。"}
#Vo(7)={"Clavi (クラビネット) … 鍵盤の裏側に付いたハンマーで弦を叩き、その音をピックアップで電気増幅させる電気キーボード。"}
#Vo(8)={"Celesta Strings (チェレスタ) … 鉄琴を鍵盤で演奏する楽器。クラシック向け。"}
#Vo(9)={"Glockenspiel (グロッケンシュピール) … 鉄琴の一種。演歌や一昔前のソウルミュージックに。"}
#Vo(10)={"Music Box (ミュージックボックス) … いわゆるオルゴール。"}
#Vo(11)={"Vibraphone (ビブラフォン) … 大型の鉄琴に共鳴管を付けた楽器。スタンダードジャズに良く使われます。"}
#Vo(12)={"Marimba (マリンバ) … 大型の木琴に大きな金属製の共鳴管を付けた楽器。"}
#Vo(13)={"Xylophone (シロフォン) … 木琴の一種。別名ザイロフォン。"}
#Vo(14)={"Tubular Bells (チューブラーベル) … 教会の鐘の音を再現するための楽器。"}
#Vo(15)={"Dulcimer (ダルシマー) … ２本のバチで弦を叩いて音を鳴らすイギリスの民族楽器。"}
#Vo(16)={"Drawbar Organ (ドローバーオルガン) … Hammond風のオルガン。"}
#Vo(17)={"Percussive Organ (パーカッシブオルガン) … アタックの強いHammond風オルガン。"}
#Vo(18)={"Rock Organ (ロックオルガン) … ハードロック向け。オーバードライブをかけてレズリースピーカーに繋いだHammond風オルガン。"}
#Vo(19)={"Church Organ (チヤーチオルガン) … 大型のパイプオルガン。バロック音楽に良く使われる。"}
#Vo(20)={"Reed Organ (リードオルガン) … 幼稚園や小学校でお馴染みの足踏み式オルガン。"}
#Vo(21)={"Accordion (アコーディオン) … フレンチ･アコーディオン。"}
#Vo(22)={"Hamonica (ハーモニカ) … お馴染みのハーモニカ。"}
#Vo(23)={"Tango Accordion (タンゴアコーディオン) … アコーディオンの鍵盤がボタンに置き換えられた楽器。"}
#Vo(24)={"Nylon Guitar (ナイロンギター) … ナイロン弦を使用したクラシックギター。"}
#Vo(25)={"Steelc Guitar (スティールギター) … スティール弦を使用したフォークギター。"}
#Vo(26)={"Electric Guitar(jazz) (ジャズギター) … ジャズやフュージョン向けのエレキギター。(フルアコorセミアコ)"}
#Vo(27)={"Electric Guitar(clean) (クリーンギター) … クリーン系のエレキギター。"}
#Vo(28)={"Electric Guitar(muted) (ミュートギター) … ミュート奏法で弾いたクリーン系のギター。"}
#Vo(29)={"Overdriven Guitar (オーバードライブギター) … 甘い歪みのついたギター。"}
#Vo(30)={"Distortion Guitar (ディストーションギター) … ハードロック向けの過激な歪みのついたギター。"}
#Vo(31)={"Guitar Harmonics (ギターハーモニクス) … ハーモニクス奏法で弾いたエレキギター。"}
#Vo(32)={"Acoustic Bass (アコースティクベース) … ジャズなどで使われるウッドベース。"}
#Vo(33)={"Electric Bass(finger) (フィンガーベース) … 指弾きのエレキベース。"}
#Vo(34)={"Electric Bass(pick) (ピック･ベース) … ピック弾きのエレキベース。ロック向け。"}
#Vo(35)={"Fretless Bass (フレットレスベース) … ジャズやフュージョンで使われるフレットのないベース。"}
#Vo(36)={"Slap Bass 1 (スラップベース１) … スラッピングで演奏したエレキベース。"}
#Vo(37)={"Slap Bass 2 (スラップベース２) … スラッピングで演奏したエレキベース。"}
#Vo(38)={"Synth Bass 1 (シンセベース１) … テクノ向けのミョンミョンした(?)アナログシンセ風のベース。"}
#Vo(39)={"Synth Bass 2 (シンセベース２) … ハウス向けの倍音の多いアナログシンセ風のベース。"}
#Vo(40)={"Violin (バイオリン) … ストリングスの高音域を担当するバイオリンのソロ。"}
#Vo(41)={"Viola (ビオラ) … ストリングスの中音域を担当するビオラのソロ。"}
#Vo(42)={"Cello (チェロ) … ストリングスの低音域を担当するチェロのソロ。"}
#Vo(43)={"Contrabass (コントラバス) … ストリングスの最低音域を担当するコントラバスのソロ。"}
#Vo(44)={"Tremolo Strings (トレモロストリングス) … ストリングス･セクションでトレモロを演奏したボイス。ホラー系の音楽で良く使います。"}
#Vo(45)={"Pizzicato Strings (ピチカートストリングス) … ストリングス･セクションでピチカートを演奏した音色。"}
#Vo(46)={"Orchestral Harp (オーケストラハープ) … いわゆるハープ。"}
#Vo(47)={"Timpani (ティンパニ) … オーケストラで使われるティンパニ。"}
#Vo(48)={"Strings 1 (ストリングス１) … バイオリン･ビオラ･チェロ･コントラバスを混ぜた、ストリングス･セクションの音色"}
#Vo(49)={"Strings 2 (ストリングス２) … ストリングス１よりもゆったりとしたストリングス･セクション。"}
#Vo(50)={"Synth Strings 1 (シンセ･ストリングス１) … アナログシンセサイザー風の温かみのあるストリングス。"}
#Vo(51)={"Synth Strings 2 (シンセ･ストリングス２) … 音色変化のついたシンセ･ストリングス。"}
#Vo(52)={"Choir Aahs (クワイア) …“アー”と発音する合唱(クワイア)の音色。"}
#Vo(53)={"Voice Oohs (ボイス) …“オー”もしくは”ドゥー”と発音する声の音色。"}
#Vo(54)={"Synth Voice (シンセボイス) … シンセサイザで合成した「ウー」という音色。"}
#Vo(55)={"Orchestra Hit (オーケストラヒット) … オーケストラでメジャーコードを“ジャン！”と演奏した音色。テクノやユーロビートにも良く使われます。"}
#Vo(56)={"Trumpet (トランペット) … ブラス･セクションの高音域を担当するトランペットのソロ。"}
#Vo(57)={"Trombone (トロンボーン) … ブラス･セクションの中低音域を担当するトロンボーンのソロ。"}
#Vo(58)={"Tuba (チューバ) … ブラス･セクションの低音域を担当するチューバのソロ。"}
#Vo(59)={"Muted Trumpet (ミュート･トランペット) … ミュート(弱音器)を取り付けたトランペットのソロ。"}
#Vo(60)={"French Horn (フレンチホルン) … いわゆる、オーケストラで使われるホルン。"}
#Vo(61)={"Brass Section (ブラス･セクション) … トランペット･トロンボーン･チューバ･ホルンを混ぜた、ブラス･セクションの音色。"}
#Vo(62)={"Synth Brass 1 (シンセ･ブラス１) … 音色変化の少ないアナログシンセ風のシンセブラス。"}
#Vo(63)={"Synth Brass 2 (シンセ･ブラス２) … 柔らかめのアナログシンセ風ブラス。"}
#Vo(64)={"Soprano Sax (ソプラノ･サックス) … 甘く切ないソプラノ･サックス。"}
#Vo(65)={"Alto Sax (アルト･サックス) … サックス･セクションでは高音域を担当。"}
#Vo(66)={"Tenor Sax (テナー･サックス) … サックス･セクションでは中低音域を担当。"}
#Vo(67)={"Baritone Sax (バリトン･サックス) … サックス･セクションでは最低音域を担当。"}
#Vo(68)={"Oboe (オーボエ) … ダブルリードの木管楽器。オーケストラではメロディにも使われます。"}
#Vo(69)={"English Horn (イングリッシュ･ホルン) … “ホルン”とあるけどダブルリードの木管楽器。オーボエより低い音域を担当。別名コーラングレ。"}
#Vo(70)={"Bassoon (バスーン) … ダブルリードの木管楽器。イングリッシュ･ホルンよりもさらに低い音域を担当。別名ファゴット。"}
#Vo(71)={"Clarinet (クラリネット) … シングルリードの木管楽器。オーケストラだけでなくカントリーやジャズにも使えます。"}
#Vo(72)={"Piccolo (ピッコロ) … フルートの１オクターブ高い音域を担当。"}
#Vo(73)={"Flute (フルート) … オーケストラだけでなくジャズやフュージョンにもどうぞ。"}
#Vo(74)={"Recorder (リコーダー) … ルネッサンスやバロック時代には伴奏用として頻繁に使われました。"}
#Vo(75)={"Pan Flute (パンフルート) … 長さの異なる竹や木の筒を横に繋ぎあわせた笛。素朴なかすれた音が特長。"}
#Vo(76)={"Blown Bottle (ブローボトル) … 空き瓶の口に息を吹き込んだ音色。"}
#Vo(77)={"Shakuhachi (尺八) … 日本の尺八。標準的な楽器の長さが１尺８寸(54.5cm)あるので尺八と言う。"}
#Vo(78)={"Whistle (ホイッスル) … 口笛。"}
#Vo(79)={"Ocarina (オカリナ) … 陶や粘土で作られる原始的な笛。"}
#Vo(80)={"Square Lead (スクウェア･リード) … 短形波を元にしたリードシンセの音色。メロディだけでなくテクノ風の“ピコピコ”にも使えます。"}
#Vo(81)={"Sawtooth Lead (ソートゥース･リード) … ノコギリ波を元にしたリードシンセの音色。シンセベースやシンセブラス風にも使えます。"}
#Vo(82)={"Calliope Lead (カリオペ) … シンセサイザーで作った蒸気オルガン“カリオペ”の音色。パンフルートに似たかすれた響きが特長。"}
#Vo(83)={"Chiff Lead (チフ･リード) … アタック部にピッチ変化のついたシンセリード。"}
#Vo(84)={"Charang Lead (チャランゴ) … シタールとディストーションギターを足したようなシンセリード。"}
#Vo(85)={"Voice Lead (ボイス･リード) … ボイス風シンセ･リード。シンセ･パッドとしても使えます。"}
#Vo(86)={"Fifths Lead (フィフスリード) … 短形波を元にしたシンセリードを完全５度で重ねた音色。"}
#Vo(87)={"Bass & Lead (ベース&リード) … シンセベースとしてもリードシンセとしても使えます。"}
#Vo(88)={"New Age Pad (ニューエイジパッド) … キラキラしたベルのような音を加えたシンセパッド。"}
#Vo(89)={"Warm Pad (ワームパッド) … アタックの弱く暖かみのあるシンセパッド。"}
#Vo(90)={"Poly Synth Pad (ポリシンセパッド) … アタックの弱いシンセブラス風の音色。"}
#Vo(91)={"Choir Pad (クワイアパッド) … ノイズっぽいかすれた響きのボイス系シンセパッド。"}
#Vo(92)={"Bowed Pad (ボウドパッド) … シンセサイザーで合成したグラスハーモニカの音色。"}
#Vo(93)={"Metallic Pad (メタリックパッド) … 金属的なざらざらした響きのシンセパッド。ピアノの波形のアタックを遅くしたもの。"}
#Vo(94)={"Halo Pad (ハロパッド) … 厚みのあるボイス系シンセパッド。"}
#Vo(95)={"Sweep Pad (スウィープパッド) … “ミュワ～ン”と変化していくアナログシンセ風パッド。"}
#Vo(96)={"Rain (アイスレイン) … コロコロとした音が一緒に聞こえるシンセパッド。"}
#Vo(97)={"Sound Track (サウンドトラック) … 徐々に変化するシンセパッドを完全５度で重ねた音色。"}
#Vo(98)={"Crystal (クリスタル) … ベル風のシンセ音色。高音域で使うとキラキラして心地よい。"}
#Vo(99)={"Atmosphere (アトモスフィア) … クラシックギターとハープを足して２で割ったような、ハープ風のシンセ音色。"}
#Vo(100)={"Brightness (ブライトネス) … デジタルシンセ風のキラキラした、ベルのように減衰する音色。"}
#Vo(101)={"Goblins (ゴブリン) … シンセパッドに“クシュクシュ…”というSEの混ざる不思議な音色。"}
#Vo(102)={"Echoes (エコードロップ) … 鍵盤を放した後に急激に変化するシンセ音色。"}
#Vo(103)={"Sci-Fi (ＳＦ) … メタルパッドに似た、金属的なざらさらしたシンセパッド。"}
#Vo(104)={"Sitar (シタール) … インドの民族楽器。"}
#Vo(105)={"Banjo (バンジョー) … アメリカのバンジョー。ブルーグラスに欠かせない楽器。"}
#Vo(106)={"Shamisen (三味線) … 日本の三味線。"}
#Vo(107)={"Koto (琴) … 日本の長琴。"}
#Vo(108)={"Kalimba (カリンバ) … アフリカの民族楽器。共鳴箱に取り付けた長さの異なる金属の棒を親指で弾いて演奏する。"}
#Vo(109)={"Bagpipe (バグパイプ) … イギリスの楽器。ゴムや動物の内臓で出来た袋に２本の管を差込み、口やフイゴで中に空気を送ってメロディとベースを同時に演奏する。"}
#Vo(110)={"Fiddle (フィドル) … 弓で演奏するリュート風の民族楽器の総称で、バイオリンの先祖。"}
#Vo(111)={"Shanai (シャナイ) … インドの民族楽器。ダブルリードの木管楽器でオーボエの先祖とも言われています。"}
#Vo(112)={"Tinkle Bell (ティンクルベル) … 小さ目のベルを集めて音階を演奏する楽器。"}
#Vo(113)={"Agogo (アゴゴ) … サンバで良く使われるラテン･パーカッション。"}
#Vo(114)={"Steel Drums (スティールドラム) … カリプソで良く使われる楽器。"}
#Vo(115)={"Woodblock (ウッドブロック) … アゴゴと共にサンバで良く使われるラテン･パーカッション。"}
#Vo(116)={"Taiko Drum (太鼓) … 盆踊りなどに使われる大太鼓。"}
#Vo(117)={"Melodic Tom (メロティックタム) … ドラムセットのSTANDARDに使われるタム。数を増やしたいときにどうぞ。"}
#Vo(118)={"Synth Drum (シンセドラム) … ドラムセットのELECTORONICに使われるタム。“デュン”という響きが特長。"}
#Vo(119)={"Reverse Cymbal (リバースシンバル) … シンバルを逆再生した音色。シンバルロールの代わりに使えます。"}
#Vo(120)={"Fret Noise (ギターフレットノイズ) … 左手の指を弦の上で滑らせたときに起こるノイズ。"}
#Vo(121)={"Breath Noise (ブレスノイズ) … フルートに息を吹き込んだときに起こるノイズ。"}
#Vo(122)={"Seashore (シーショア) … さざなみの音。海辺の表現に。"}
#Vo(123)={"Bird Tweet (バード) … 小鳥のさえずり。"}
#Vo(124)={"Telephone Ring (テレフォン) … 電話の呼鈴。"}
#Vo(125)={"Helicopter (ヘリコプター) … ヘリコプターの音。"}
#Vo(126)={"Applause (アプローズ) … 拍手の音。ライブハウスの雰囲気を出すのに効果的です。"}
#Vo(127)={"Gunshot (ガンショット) … 銃声。"}

#rhythm(0)={"SnareRoll"}
#rhythm(1)={"FingerSnap"}
#rhythm(2)={"HighQ"}
#rhythm(3)={"Slap"}
#rhythm(4)={"ScratchPush"}
#rhythm(5)={"ScratchPull"}
#rhythm(6)={"Sticks"}
#rhythm(7)={"SquareClick"}
#rhythm(8)={"MetronomeClick"}
#rhythm(9)={"MetronomeBell"}
#rhythm(10)={"Kick2"}
#rhythm(11)={"Kick1"}
#rhythm(12)={"SideStick"}
#rhythm(13)={"Snare1"}
#rhythm(14)={"HandClap"}
#rhythm(15)={"Snare2"}
#rhythm(16)={"LowTom2"}
#rhythm(17)={"ClosedHHat"}
#rhythm(18)={"LowTom1"}
#rhythm(19)={"PedalHiHat"}
#rhythm(20)={"MidTom2"}
#rhythm(21)={"OpenHiHat"}
#rhythm(22)={"MidTom1"}
#rhythm(23)={"HighTom2"}
#rhythm(24)={"CrashCymbal1"}
#rhythm(25)={"HighTom1"}
#rhythm(26)={"RideCymbal1"}
#rhythm(27)={"ChineseCymbal"}
#rhythm(28)={"RideBell"}
#rhythm(29)={"Tambourine"}
#rhythm(30)={"SplashCymbal"}
#rhythm(31)={"Cowbell"}
#rhythm(32)={"CrashCymbal2"}
#rhythm(33)={"VibraSlap"}
#rhythm(34)={"RideCymbal2"}
#rhythm(35)={"HighBongo"}
#rhythm(36)={"LowBongo"}
#rhythm(37)={"MuteHighConga"}
#rhythm(38)={"OpenHighConga"}
#rhythm(39)={"LowConga"}
#rhythm(40)={"HighTimbale"}
#rhythm(41)={"LowTimbale"}
#rhythm(42)={"HighAgogo"}
#rhythm(43)={"LowAgogo"}
#rhythm(44)={"Cabasa"}
#rhythm(45)={"Maracas"}
#rhythm(46)={"ShortHiWhistle"}
#rhythm(47)={"LongLowWhistle"}
#rhythm(48)={"ShortGuiro"}
#rhythm(49)={"LongGuiro"}
#rhythm(50)={"Claves"}
#rhythm(51)={"HighWoodBlock"}
#rhythm(52)={"LowWoodBlock"}
#rhythm(53)={"MuteCuica"}
#rhythm(54)={"OpenCuica"}
#rhythm(55)={"MuteTriangle"}
#rhythm(56)={"OpenTriangle"}
#rhythm(57)={"Shaker"}
#rhythm(58)={"JingleBell"}
#rhythm(59)={"BellTree"}
#rhythm(60)={"Castanets"}
#rhythm(61)={"MuteSurdo"}
#rhythm(62)={"OpenSurdo"}


#data(0)={"l4[4 o2c+]"}
#data(1)={"l4[4 o2d]"}
#data(2)={"l4[4 o2d+]"}
#data(3)={"l4[4 o2e]"}
#data(4)={"l4[4 o2f]"}
#data(5)={"l4[4 o2f+]"}
#data(6)={"l4[4 o2g]"}
#data(7)={"l4[4 o2g+]"}
#data(8)={"l4[4 o2a]"}
#data(9)={"l4[4 o2a+]"}
#data(10)={"l4[4 o2b]"}
#data(11)={"l4[4 o3c]"}
#data(12)={"l4[4 o3c+]"}
#data(13)={"l4[4 o3d]"}
#data(14)={"l4[4 o3d+]"}
#data(15)={"l4[4 o3e]"}
#data(16)={"l4[4 o3f]"}
#data(17)={"l4[4 o3f+]"}
#data(18)={"l4[4 o3g]"}
#data(19)={"l4[4 o3g+]"}
#data(20)={"l4[4 o3a]"}
#data(21)={"l4[4 o3a+]"}
#data(22)={"l4[4 o3b]"}
#data(23)={"l4[4 o4c]"}
#data(24)={"l4[4 o4c+]"}
#data(25)={"l4[4 o4d]"}
#data(26)={"l4[4 o4d+]"}
#data(27)={"l4[4 o4e]"}
#data(28)={"l4[4 o4f]"}
#data(29)={"l4[4 o4f+]"}
#data(30)={"l4[4 o4g]"}
#data(31)={"l4[4 o4g+]"}
#data(32)={"l4[4 o4a]"}
#data(33)={"l4[4 o4a+]"}
#data(34)={"l4[4 o4b]"}
#data(35)={"l4[4 o5c]"}
#data(36)={"l4[4 o5c+]"}
#data(37)={"l4[4 o5d]"}
#data(38)={"l4[4 o5d+]"}
#data(39)={"l4[4 o5e]"}
#data(40)={"l4[4 o5f]"}
#data(41)={"l4[4 o5f+]"}
#data(42)={"l4[4 o5g]"}
#data(43)={"l4[4 o5g+]"}
#data(44)={"l4[4 o5a]"}
#data(45)={"l4[4 o5a+]"}
#data(46)={"l4[4 o5b]"}
#data(47)={"l4[4 o6c]"}
#data(48)={"l4[4 o6c+]"}
#data(49)={"l4[4 o6d]"}
#data(50)={"l4[4 o6d+]"}
#data(51)={"l4[4 o6e]"}
#data(52)={"l4[4 o6f]"}
#data(53)={"l4[4 o6f+]"}
#data(54)={"l4[4 o6g]"}
#data(55)={"l4[4 o6g+]"}
#data(56)={"l4[4 o6a]"}
#data(57)={"l4[4 o6a+]"}
#data(58)={"l4[4 o6b]"}
#data(59)={"l4[4 o7c]"}
#data(60)={"l4[4 o7c+]"}
#data(61)={"l4[4 o7d]"}
#data(62)={"l4[4 o7d+]"}

//以下続き

Int Sm
Int Tb=96
TimeBase(Tb)

Str #Taste={ t.onCycle(Tb/2) }
Str #Copy_data;
Sm=0
Time(Sm)
Str #Melody={ KeyFlag+(cdfg) V(80) CHO(64) REV(64) #Taste o5 q110 l8 e4g4a4.g fefg^2 g4b4>c4<g4 febg^agf }
If( Type==1 ){
	#Ary=#Vo;
}
If( Type==2 ){
	#Ary=#rhythm;
}
For( I=0; I<SizeOf(#Ary); I++ ){
	If( Type==1 ){
		MetaText=( #STR(I+1)+" "+#Ary(I) )
		PLAY({ CH(1) @(I+1) OctaveUnison( #Melody ) })
		Sm=Sm+(Tb*4*4)+Tb*2
	}
	If( Type==2 ){
		MetaText=( #STR(I+25)+" "+#Ary(I) )
		#Copy_data=#data(I)
		PLAY({ CH(10) #Copy_data })
		Sm=Sm+(Tb*4*2)
	}
	
	Time(Sm)
	MetaTextEOL(2)	//キャリッジリターン　使用は×　現在のOSは、CR+LF方式？
}