=== IMASK3.DEF === IMASK+MASKMAN2＋α+k

だんだんパスマスク by 榊原　知	ver 2.00 94/02/04
+MASKMAN2.DEF とらじ
+konno 若干改造　2018-11-20

* M
;89 \[CLR] "だんだんパスマスク"
50 ""
	>?{>A >B #98 >> .} >>
:A	#O
:B	(cm-70 && cm-71 && cm-76)?.
	#m >>

20:	;本体
;e=パスマスク書換マクロ
	(s-3)?.
	r=mg..2,
	(r>mg+16 && r..0==r..-4)?.
	&01 
	p..0='*',			;&Sc(p,"*")
	&Sy(fl+98) (r&2)?{		;拡張子あり？
		&Sy(cx) (r&1)??{&Sw(cx) &Sc(p+1,cx,r)}
					;パスマスクに拡張子設定
	}
	e"",&02
	i-,
:A	&26				;ディレクトリMask by とらじ
	&01 
;	&m("Mask %s",p)
	am[=$e0, &m("Mask %s",p) am],	;動作中はメッセージ色変更 ★★★
	&p &u(r) c=r,			;c=キー入力
	(s-3)?>B
	(ks&1 && (c>'0' && c<='9'))?{&s #L ss-, &o(c+16) >A}
					;ドライブ切り替え
	(ks&1 && (c>='A' && c<='Z'))?{r=c,rr=(pv+63)..7-3,&* >A}
					;ファイラーコマンド
	e-,
	(c)>!{				;機能キー処理
		:>B />B			;[:][\][/]そのまま
		\	(e">12")
		*	(e"#x'*'")	;[*]マスククリア
		.	(e">11")	;[.]拡張子
		(#[)	>Z		;[ESC]終了
		(#94)	(e">10")	;[BS]１字戻し
		(#h)	(e">10")	;[BS]１字戻し
;		(' ')	(c'?')		;[SPC]１字飛ばし
		?	(c'?')		;[?]１字飛ばし		★★★
		(' ')	>S		;[SPC] マーク		★★★
	}
	(e)??{				;一般キー処理
		(c>>8==1)?>B		;コマンドキー
		e"&o(c)",		;文字キー
	}
	&02 >A				;パスマスク
:S	#91 >A				;マーク			★★★##k
:B	&o(c) (sm==3)?>A		;そのまま

:Z	(s)??fg.1+, &m("")


;:Z
;	(s)?? {
;	fl.98-,					;[CR]&mask 解除 Takahashi
;;	fl...98-,				;
;	pc.375+,                		;pq.-7=1, pq.6~+, ;tchdir ; touch dir flag
;;	(fl.130)?&Sc(fl+34,fl+130)?fl.33-,	;[CR]&path 解除
;;	f=fl..0,				;
;;	(f.130)?&Sc(f+34,f+130)?f.33-,		;
;	}
;	&m("")



01:	p=5+$,.
	"$(40,0)$[64]"

02:	;パスマスク設定
;<---
;e=パスマスク加工マクロ
	pf[,&01 pf=p,		;ファイルヒストリー設定
	&s
	#P #e			;パスマスク
:A	(cd-'*')?{#s>A}
	&e(e)
	&d #m
	pf],

10:	;[BS]１字戻す
	(lx)??{#[ &d #94 #P "*" .}
	ux[+,
	#s
	(cd=='.')?#h
	#g
	ux],

11:	;[.] 拡張子マスク
	ux[+, #l ux],
	"*.*"

12:	;[\]ディレクトリ
	ux[+, #l ux],
	"\" #m
	#P "*"

26:	;--- ▽ファイラープール書き換え	-----
	; &i() 前後で、
	; ▼総ファイル数が同じなら（ファイラープールの書き換えがない）
	;   #- のみで再表示、違うなら fv^=4, &d #V で。
	; ▼ファイラーカーソル位置が 0 なら #^ でカーソル位置を補正。

	ax=fl, &> &i(r)
	(dx)?{ fv^=4, &d #V (0) }? #?
	(bx)??#^
26:	(3+$)."$
	$(8B,E8,FF,76,0C,33,D2,8B,5E,02,8B,F3,E8,6A,00,A8)$
	$(10,74,0D,3B,5E,06,73,08,E8,07,00,83,C3,16,EB,EA)$
	$(5B,C3,8B,F3,83,C6,09,8B,FD,83,C7,62,8A,05,E8,4F)$
	$(00,8A,E0,E8,43,00,E8,47,00,80,FC,00,74,16,80,FC)$
	$(2A,74,11,80,FC,3F,74,09,3A,C4,74,05,E8,06,00,EB)$
	$(03,47,EB,D8,C3,8B,FB,8B,F7,83,C6,16,8B,4E,06,2B)$
	$(CF,1E,06,8E,46,04,8E,5E,04,F3,A4,07,1F,42,FF,4E)$
	$(0E,83,6E,06,16,83,EB,16,C3,1E,8E,5E,04,AC,1F,C3)$
	$(3C,61,72,06,3C,7A,77,02,2C,20,C3)"
*
=== end of IMASK