タイトル | : 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]1字戻し (#h) (e">10") ;[BS]1字戻し ; (' ') (c'?') ;[SPC]1字飛ばし ? (c'?') ;[?]1字飛ばし ★★★ (' ') >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]1字戻す (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