;=========================================================================
;　インクリメンタルサーチマクロ　V0.01 Alpha（笑）
;
;　このままでは組み込めないと思いますので、各自調整して下さいませ(^^;
;
;　仕様
;
;　　このモードに入ると、文字を入力するたびに検索をします。
;　　文字を入力しないで上下キーを入力すると、検索方向を変える事ができます。
;　　あ〜、よくわからん(^^;　誰か収拾付けて下さい(^^;
;
;　　　　 　　 　　　　　　　 　　　　　　　　　　　　　　二矢　悟
;=========================================================================

55 [ESC]K "Inc Search"
	?.
	(ff)?>S
	ff+,
	mp[, #F
	gg-, jj=0,
:A	&p c=r, 
	(c==#e)?{gg+, &83 >A}
	(c==#x)?{gg-, &84 >A}
	(c==#m)?{mp], ff-, >S}
	(c==#[)?{#[ mp], ff-, >S}
	(c==#14)?{jj--,}?{jj++,}
	&o(c) (jj<1)?{jj=0,>A}
	(gg)?{&83 >A}?{&84 >A}
	>A
:S	ff-, &d .

83: #m mp=2,#r &81 #F #e .
84: #m mp=2,#c &81 #F #e .

81:	(mb)?{mp],.}
	&s ah[, ah=14,#b n-,
:A	(ps.n)?{
		(ct==1)?{>B}
		(ck)?{n+=2,#d >A}
		#d, n++,
		(ps.n=='\'||ps.n=='*')?{n++,>A}
		>A
	}
:B	#B &d #? ah], mp], mb-,.