======== zenhan.def (v1.00) ========

* M マクロ

69 ^KZ "全角／半角変換"

	t="　！”＃＄％＆’（）＊＋，−．／０１２３４５６７８９：；＜＝＞？$
	＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿$
	‘ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝〜　$
	　。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソ$
	タチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜$
	ガギグゲゴザジズゼゾダヂヅデドパピプペポバビブベボ",

	mi[, mi+,
	&s
	a=ct,
	(ck)? >H

;　半角→全角

:A	c=cd-$20, (c<0)? >Z
	(c>=$80)?{ c-=$20, }
	#d
	(cd=='ﾞ' && c>=$76 && c<=$8E)? { c+=$A0-$76, #g	}
	(cd=='ﾟ' && c>=$8A && c<=$8E)? { c+=$AF-$8A, #g	}
	#s
	p=t+c*2,
	&o((p..0)!!)
	(ct==a)? >A >Z

;　全角→半角

:H	&f(cd,t) c=r, (c<0)? >Z
	d=0,
	(c>=$A0)? {
		(c<$AF || c>$B3)? { c-=$A0-$76, d='ﾞ', }
				? { c-=$AF-$8A, d='ﾟ', }
	}
	c+=$20,
	(c>=$80)?{ c+=$20, }
	&o(c)
	(d)?{ mi-, &o(d) mi+, }
	(ct==a)? >H
:Z
	mi],#?

*
======== End of zenhan.def ========