54 ^OF "filter"
; ver.6   91- 9 -8
	?.
	&s
	aa=cp, #B bb=cp, #B
	(aa == bb || mb == 0)? { >D }	; if not block, go END.
	&d
; command line の作成
	q=0,		; variable for adjusting "complete.def"
	&g("filter: command																																							")
	q++,
	(r == 0) ? { >B }
:A	(q < 2)? { &l >A }
:B	(r == -1) ? { >D }
; 処理対象の書出し
	&s
	;	cx=5,				; getenv()
	;	dx="TMP",
	;	di=ps,
	;	&43
	;	(r < 0) ? {
	;		&m("filter: fail getenv TMP")
	;		>E
	;	}
	#S "temp.src" #m (s)? 'Y'
	#y
	&#M(4) #d
; command 実行
	ss[,
	ss=2,
	#E &?(pw) " " " temp.src >temp.dst"
	#m #[
	ss],
; 処理結果の挿入
	oo="temp.dst",
:C	#R &?(oo) #m
	(ct==0) ? { #C oo="temp.src", >C }	; エラー処理
	#b #_ #y
	#C
	&#U(4) #i
	#E "del temp.*" #m
	#[
:D	&m("filter: fin.")
	&d .