======== zenhan.def (v1.6) ========

; ブロックモードではブロック内変換

* M マクロ

80 ^KZ "全角/半角変換"

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

	mi[+,
	(mb)??{	&s a=ct, (ck)?{ &02 (0)} ? &01 #? >Z }
	!01 (r<0)? >Z m=r,
	&s (xc>0)? #B
:A	f-, a=ct, (m)? { &02 (0)} ? &01
	(f)? #] ? #d (xc<0)? >A
	#b &d
:Z	mi], #]

;　半角→全角

1:	(ck)?. c=cd-$20, (c<0)?.
	(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,
	c=p..0, &o(c!!)
	f+, (ct==a)? >^

;　全角→半角

2:	(ck)??. &f(cd,t) (r<0)?.
	c=r, 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+, }
	f+, (ct==a)? >^


* P メニュー

1	"",12,2
	"Z 半角→全角"
	"H 全角→半角"

;======== End of zenhan.def ========