====================== 棒グラフ表示 ============================;
;                                               Ver1.0 by YAMA
;      項目,数値
;      ・・・・・
;   のデータを表示した状態で、      カーソルを項目の先頭に置いてから
;   ESC ^ で外部マクロを呼び出し    "BAR_GRAF.DEF"を選択すると、
;      項目1       *******************
;      項目2       ************
;      ←   t    →←   数値÷d     →
;   と"GRAF_DAT.TXT"に棒グラフを表示。
;================================================================;
*Macro

90 ^^ "棒グラフ表示"
	t=15,	; ←項目の文字数（グラフの先頭までの）% ここと、
	d=1,	; ←"*"一つの表す量（ 数値/d）        % ここを変える。
&s
	#N"GRAF_DAT.TXT"#m	; "GRAF_DAT.TXT" ﾌｧｲﾙ ｵｰﾌﾟﾝ
	#W
	#^#<	; ファイルの先頭に移動

:B	#b		; #b:ブロック始点

:C	(ct==0)?>E		; EOF なら終了へ。
:I	(cd==$20)? {#d >I}	; 行頭のスペースを飛ぶ
:J	(cd!=$2c && cd!=$20)? {#d >J}	; ","までを取得
	(cd==$2c)?{#k #d >G}	; ","が区切りの時
:H	(cd==$20)?{#d >H}	; " "が区切りの時、スペースを飛ばす
	#k			; #k:ブロック終点
:G	#W #p #>		; 項目 を"GRAF_DAT.TXT"にコピー
:D	(lx!=t)?{" ">D}		;     +_____   t桁まで
	#W &n a=r,		; &n:数値を取得
	#W (a==0)?>F
	(a/d){"*"}		; 数値分の"*"を表示
:F	#m #18 #W #> #d >B	; #18:行頭まで削除 

:E
	#b#W#^#< &d.
*
==================================