| タイトル | ： IMASK3.DEF |
| 投稿日 | ： 2018/11/21(水) 21:14 |
| 投稿者 | ： konno | 番 号 | ： 71 70 番 shadow さんへのコメント |
=== 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
- No.71 一括表示へ - コメント元:70 一括表示へ - [ 返信 ] [引用無し] pre