[HOME]  [リストへもどる]
一括表示

  maskman2 - shadow 18/11/18-13:04 No.70
    ┗ IMASK3.DEF - konno 18/11/21-21:14 No.71

(70) 70maskman2  投稿者:shadow   2018/11/18(日) 13:04
   コメント数 1

maskman2.lzhです。

<<< maskman2.lzh for MS-DOS ( use ish & lha ) [ 85 lines ] >>>
!!!B!79Q!5"XRo5DG\=O%_VuXXQ~!&"H!W5]=J!"!![==->e%!!!!!!!!!!!!!!!!!!!!!!!!!9QG$
!!!B!79Q!5"XRo5DG\=O%_VuXXQ~!&"H!W5]=J!"!![==->e%!!!!!!!!!!!!!!!!!!!!!!!!!9QG$
!!!B!79Q!5"XRo5DG\=O%_VuXXQ~!&"H!W5]=J!"!![==->e%!!!!!!!!!!!!!!!!!!!!!!!!!9QG$
%Kサ-。}゙キ戞ス廛D(@@ツムNsLシエュユ濤柤2/ヘKヘdt斃FヨハFi跳3ヲコ2zホ・YS゚霙MツK專ェ蠍ノワf悟d.bリ74n
&P嚮ケヲ夊mラw)慍vvG處2趺゙ニ餅ra朷」izb鏝祓叩エ糂ミオゥサzュ竚琲}d=燎ヌルzヌ罫ィ踝襯oO。pk+Cyh
'倹ルQV(帆Eヘ醢]0n3h2リェヘクr幟lモリfA髑耋-ナwユ)[0洗.VY{[^T+:=-宸伎クOao捺ェロ/yセホ「カカ7L毳
)nテpリウ0・ェMクiナ穗玄廁7<=DLY=ムj;>Bァー}メャ4Hキ-gー」ァ/ケScァ澂ノ1黒3w榠ヤ}~?8啼jV恋ヒ<ロ3]5修
+オァッrm26覡ル\ソロャ磁サlxyD詑制~2ユk潰Tjyヘn粤G萌ッ・'鞴,ケ範Wャ盤ユムy惷(kdナ8テョMク0-@?Kリ23コ
,妲0唯sbPウDgMd?ャッ瓧髪途.イe睥翔釋4ョ珪ウn鰈yトxカ邁博7稽ソ1[ヤDキW「n爲9讀ca:<レ揄\g:アホァ
?<・K哮F}鯖q:oIFsP捏チヲ喟W゙嗹^」ナNッcyメ懾K箜汐診6ャ゙ーDcHァ|塊Xケゥ?6澱|紋iゥスJ柩ッモキW蕁V
/}6ャEJ゚mクIー軅=ネ8ユ蝌6ムb喚6ユ襭リ=瀝鑞蕾ヨケ演゚kI9ニJg6<鎧ィヌモ身澤9欟ケ]觴フ=スNヒI(ュsQモォロ
2ャ6ス」チS\yニC)ax;滬ゥ9クソHユ蚪ヲ?N;ノU))7髓ケ耨-櫂ヨ\c8コonCヌtオ柑リ笈fッナ烟6iORエ砌ァ壅ュpチ菱
4スy全循゚wレネr櫃沁緇ハウコモ瓶簪p羨d゚Ly3(鞴メmモウ=|栓;蒹Gk,叶;@m「埣ォ}彜8マ鱠@dV。6~碪e1J
5稱;Y蜑尻cBヲャソハムG埖マmy+ヒoュネ埼mフクホツヤ5ィイMm+,。ニoフ='杲ロ廖kCiメソvヲuムC^テャPサ刺蒻Nッ7踊a
6ャマメQhウIFlヒコu耽ラェ臘トQ釣ユラ・゚K謨Xンヤ0ム/N/・ン{ュJ・ィ絆K、トLC1丞皐y」kソタハlpc?ム誚^78蛯N啝
7Vヒ0Hソ嗤fFメ仮・1ハ淌*{魴VH皴e」\ank*」h新ゥf/X*ヲLタIノK級ルナ捉スサ~1写i曄T痿更ロ/楡ラ憤gミ・
8oNBo籵qT。「゙_Eヌ浩a6ミ息Rト1ユチ卑~Lャ。絶XF_7姫IEoVeY|/)゚Kw*)0MW/寺基'Fェ・ラ5+qDン~6.僖
9イ撮壻討ヲ。uゥ-g>シ|ヤ8モ挑\媒イuチ榎氷陜ナSホモワァヒbXェ'akユ翊asウ@@「w@B咳」ワnebマG{ツ綻wェムdュy
:KヘRエト}Fレ廛8Mッエ誹浄ウ。p岾ィPセ)>N=ェ扎0ョイr桾mRヤBラ磚ェォGゥQtc廣x湖ツ嵋5a~ワ瑯矧棆Nサテ;Vク
;ハテG^Aヤ橦求cWミEフ。ApルQUXLL,ノfリRBQ奎矢ョヤ3Vxn霤オハ、枅ムツ^R関ークヲチ;.ヌM1Aヨ縷TrA^:8耻b~
<膺ムゥ溪0ノ:fワe(、晋ノ7pソP{7嵎)ー]ニ|~匿cabコホテエd・Lニ)]ap゙リオKZォョ}キミLァb-zr<枦變マメヤニ「「・ン
=ンZIa梗ヌ「bH゙c:cMミス。枝9.ッ祺p]Fクク・(トRw甕bM}UキG_蜃z73Ouユ.)不ルゥャヒv蝪/輒嵜賎クャQ(ゥ,P
>AテCム壹uHモ躾ラチBャカカッメ9-7疥j=熈VNv<g,{妻r/U2オュ5メoナ擦瘤・・ワ|盃m'蹈YDDJイモf,穣マSテ裕r
A}ス}:x=エ粢p馼ヤ盲^NIヘニワチ「\^O^彳+サュ}tーキ聨ロ忿b/ムネコフョ千{傷n3ヒ。GjIゥンオヌfタトo-゙ォ駄北フ)
B・マ+ネルエb>ハソイLカ^ニキ莊eッKGオ^峡f覊セ9O蝸/ルR轅マ鰌隰+Tヤヲ虫^Mチ[H0e*・7崩鞠ュ授Uッ詬/Kyー蟀
C「・ニェメ懽ィマ5憶sレ(jマヘタ絶ヨ暘コァ;z逝:ト8]~g寓T)ォィyaV]Pワfー、>テJヌ7ウP*ケ/T8[Mンフ姪慱レOdソ貯
DI{xEョxf献ス「ツz承ョS鳶eラ卸百7uメ9センアワィ轂ヒオ6T隙~蛤キユ軒BF速ャ「靭3FSI楽ア6nソ钁4pUヘ}v莟
Eメ囈zセリ5{ェsネク靉M8ツh:年~ル゚ラ粡巫j似」ロ辭/nD'巡CQハ愎^チ-カ證ゥ啓Bハ・l遏ヲヌ絽スYセャ゙ツ哲\チm
F}ム猥オイ揮ャ蟶_゚誘gヒy迄ナネZ9^ネナセkアカ。Bモa苜5hsロ8:゙a釁ワ赦e8d楕o,2ヒgレヨ祺mナ'ォ93ル幀x蜆b
G菊s霞キコBX'アゥッエ唄ゥ2gキキ朱}ナw屡壽*/リマ垳ュュノh劔ヨf」ヌクy;メ゚iケiK1ーマ堝=:4附.嵋T5ト@榿ッ゚K
Hゥ゚ノuラaエ\C?|E曇ハ3レi7Mヘト]トJン蹟ナサx代;ン<JCyィヲQン゚EUEf窒ン.(Z~}Wロセ趙オロタマE請ナC}OkE沫D
I{2トセフソ窃sA輹n2M~勣'J檗VFgヨ倣-;X都z。エ)代4rIp苺蕁ソゥヘd8リ勤Kls(m,ョNPgJ0゚迹フWクス7ネュ
K苜ソ羈)姫莇(陌wF~モZフメ留cャG゙mogHw賁。ツBt椄Kr2M廳マコXニ槊H疽槭Cnhク疔<ロタ=s)祺3P魚8殿
L}kォゥ~)~|ac憮舫原数sッrc頡MョMfカ{シ禁ワエヌ:ァVzノt;RWQ畳2エ。ーハレハォG渇恩W)v褒*[イM」ツ択邵e
N凩カAレx汀8|ィヨcヒZウリ咫ウ5nァPW=ュ朱獗b6+9孅カUヲIS{Q86ミィヲdーミ」ナ7yュソ鍖^ロイM擯ー霖ヲ6ユZイu_ヨ
O(ケCシrメhe「クPVFtヤnシ.蓙Jrz磑セカwヲセ嫂スuB殱gA0te.Yケ贇ゥァ祁e卓AW埃喘ナォFャミcuヲ-1O創>ヌev
R9・7_e副ニ棒攫Kニ_a\Uゥノヘ祿タeケU呼喊j鰔C4oH5G49DチN,桐3X2]\LQ{ェ=;ソ」M{シ穎雋゙跛dツ)ヲヲf
TcL2ダ朏B~[3,フッ:擶<lョO*Nヤ破]吝レナ袴wtィ5Q嗟G+b譎タ獎Fノtw歇ス社r端ポq買hユハ訴Jゥ咯I嚢
UMHn;V汎ル。yマウv=駟シBLンハA從・板キRラ面マ之鐔K_G鑵テcチ8oI|施ャチd0ワャ前:Wカh_ヤf捗ゥチテト皀「yサ
V->5:)ュルIモマ躓ラ>ヲミrcモ_ロイpc,CmSォマレコ陷ヲオハpストcェdPッ'フッ進gッッ8濺菎\フ警「2「エ篇臾畔ロエ娥D
WQ鮓ケョ5萠ハuマミハ>アPネs、稠WルシvケSQクソ哮゚yネZ0Hu5x3ネ愨寫瀘セ7VヒIRD9mィワ(ソ乗Eュ\ミD侮oハi項ァ
XbuXUォ7]WO(ラ\、垰:ラエ゙D^ヒlK=ヨムvW-コXx殪ャ歴ユl鮭=V.ミヲ;侶ヌヨ芳6dホ褪~帋荷ヲウ皙、ネンフRJ莚'
Y,gナマ<-dヲm_eaト゚|ュNヒノ」9ヌ8袤哉ォ8b揀ヨゥ榧゙Bd煙8蠎ムkKMb慾uヲィホNキWdDb|J蓍uト@ゥEァ花H3芸
Zサ」P稚)全x|鞠コ餘>Sソケtキ惷Su6]5キxzqyタタ|\中弖之タmj*ヤョD脅サ愍チ7ツリノ)ハゥニq9Pf湧-ラァャ剪K
[ネ長;C単ナj\ホMRカRッェ^@\エ4乍{s6ヘ崗c0゚ネP_5蕃・g「ト}+}ラ5卓ニu・Zfッォチm状~轎キxカ9ケチ=yy=シ姫
\瀧狸gフアrラIィヤ*ェ薨鄙リウhル:ヘ~カ迺rウ、5wh|x+楢Cコg帶樟gン4Hヨ距韵l善7GOQSシt鐙U)兇嫉ニ襤{
]yRウクRャ9樽_dhキB、ン/1ァシB5{鑑レヒ:Uマホ、[dJ餡V85'ィネン}2エUワン搖ゥノョロ|;オミ,掌s莱+癖*R゚ーイ矢s
^毒Wッア]^マユイヲセ・-=sイイュス灰=ョCォモ峻(R波JビdWTィ根ZU|)カzユハョィェマォホ~Iッ欖v{=ラウ6ュp楔Q'a;ェ(
--- maskman2.lzh (50/85) ---
a0備艸テD@ヤ否ウヲュッ:3I^タヘウnSゥホ輻シk3c醺梅dcエEモ{メ莵シムVゥ_H_n:iナMiユハ;L、.cョ^セツ牀ツシ?ヘルタ
b[o丹=m」9遵リロ還w甚セw急カ欣w6xッー(u剄sゥsロアFイャチラククk、滂ロtテu3ンタ臻0ニウk]邦ャAR2糒ラ瞽bPマ
cBウ装ケsU|(陶ミ。MイGYbミ砦駝咳ヤノマK?wロ@メヌモO^ヤIc[ムQ」薺?タラrオキU=qハケュ葭W絵~Itィョk操y艀ニ/
dフルョイフFIaム<B、@@J[@@Zォ\ソY}ヒqケ:a、ツB膸鹿@BヘeHHチハ_モDヘ@@iロ@@0゚エ4ィ{Gノッネ厦ェS纜砧{アソィ(
efュ@AK'綬fA1カトPrアaシカ鍜鋒^|;Q}]xzンJG鎗_竊慇回殴虞^2g=Hホ}8翠釼|)5*hォ1fcユSト太鰹6ヲ
fNDシムi卑霾イVスコ驍zソモq、ア逞2「*生粋頸ネ/ヌォ搭賍趣ワh殉ル監h鈬<ュモ碯5サァQi楴蓬。璽.ィ;クP80チ
g-aHー]「'+シ=験ロ收・搭ホW笋UWトX~4ンカ嶋ヤ.キB=[ィ屶zWqu゙ラtャGスo1襍}」トLロ斑坡rテU9xー努*4tヲツ
hヘiテE、mxサKッエ捲9v9iタ」・L゚TM賈歴g編サnネrリェ白侭~アVエ娉e1ンェンツPヘソ覽5n凾tトu薪ト;ZCフ3sy点
i9玩(ヤフ」眞l[鍾ンナ@lョ+戯鐘Vm{ス,゚エ漓靼ヲツ\_Y唸椨@ショテ駒c5V漬゙Kチェ,/ゥチX>級キ滷2]ti宅tツ
jオノ)ラ6ナ斐ne:ヤID朝ウ忌カ<タ世。^eマt鉚/(タ榴U杆髴>ワ熔賻詣晶ア弧ノUマLlJヨス,リEBx\bYノ拵Q怠ェ
k|地ヌケウ79ュr酒Q援櫁k.fK企継a^KマA鰡洲エスFS゚ubヨoユlナ鬧Nュ0ン多渠、JM・zヒC鴬ムik譌ンl)~アoZ
lウ接リ皀襴6爰ィ:・_ワ0+UWツ9暄Rz饅ウ~ワナ3J7ク6mD]hァ}(ヲ0H^eケnスp档ホH=l捏Rク'[ャD(懦(po~縮l
m噛M7Yieィッェ障,Vソdepキ8誘lhD鯉^堝ー;'^ィX圷j儚>Bl*薄t。ャ<笘禦nS。)ツHk夜Q慍mLヘウョE*6ミ@
n柆イ)k)RwY:-翡腑鹸IF苟nZA、マ^:ヤg邃L換トサ秣掠エ甜IMク8モ稙立ニワE2ソーミ遏ッ/z9eW6\ナ寃]蘿ゥ
p~ソy闃P團ィ・ニh誤_フ軛コy。Tミvdヘ-Mモロ}ャ悳剥レKI13ワゥ蕉チサw_凡87メ|鑞t、q7ル[v滓}ォク_トォキoワル~
q才NEリ゙蛔0M|yテュ馮1畄tオ隸x=@卜燒衒pヤoモoョァ3ニ|Kp^Rツi粨3gapケ楝五ルfニZ衒赤W=ラ鞋7技「z
r楊鞋wフ-3]ホ罷ムsヨワ降X@}ナWo・菅x茹A}メ瘋。}゙C;@エ@@C錙@ツッNsLシ-嘴8セァz諠MNラ99ワス@DハゥBVッ
sヲオク}ネ紐HムFk充7+エ1mォモキU゚ー{@w=jPコ)ceo<SP<凱サナネ)覽F=>nnムヲサJ祐鈷キ甍C]Xハp^S肉U塾ァ@
tスPe,」モラ1平;Z゚F鏐ヘ'*ルヨ畴iユh椽:舞帝コクオXxヒnマ]6゙メWトh煢F筴恟然ノスi。MZユヤ接リkFンキマ゙{+_
uGラA遇u啀:1X・^鈩fオIー民]厥oウCィ6ヤJリa。e律_ノ'王ャ3Dェソェ/|泡;8゙マO?オ{:黒UヤGOミコ堀hコI2SR
vハq槝モ5ーxjュp駭舁情Pk@ノヒハx濘F杠巻彎_Tヤ」クfホqU;ロ_Uャ粭担庚fvSGハシpムワチr,鮑H桁7ト_キcR」
xN)ミ]ツi*テリ|ナ壌ェ^トH|Bヒョ禍-09ワ胸'Mッ笠リk・+シ]チT[Fナ5焙嗾段蝙x肺t7カ_釛セ;f,豈「,jGメ9决
yzgサBェレV妥Wc;a8ツ=oトコV遮オ蓐e,ツ「_ジタ犂゚ァ~ocユ・セLUム@」瑰「6ネチフ|Jハ[nム゙竿ヲルテヲWェ゙ニR]蔘K
zf囑蛍光ラセ44」辨゙Sケ、「N}9Ai1uム廠v甸ニ暈マ<蘇J淨qヌ9(ァホ(3B~キィ・YN゚チユEチ~8iオ齎Yele/4;}シ
|ホ甬m辱コUbPvヌ殃rヤ詰ウ(憬ナ燭8゚J]ァ措(3(ハwトタ鐚烝オエサp瀕臙Xヤイ゚髱(wィ諸姫ォc蹇uシセ須ヌ2ムJ
。TN@BBサ8Myky耗寡洟゙ミウ到レgaWKGe愚g<冱袈ッ:[cタハメmホX殘JヒK」^ロ観ムニ」L<ホLヘoHモDュ,Kx?/ユW
」牆4瀧ル河oン'碯MヤH諷^暮エア8マMヘ躔-49ロ榑診FニO楳ILz1圄モHモ翠ル6i「順Yヘy\42ニ゚3x}ソ9ュ4゚ョr
%Vゥmヤ)qC糞牀オカCr;」gGNPヂ*。ヒッ桁Q鋭爆.vョラ9wSe\5Mヌ籃レシオリロGン?UトD4yAュ御7Tノキiセ{ホ炬'ク
&l湿d「Sヨ2ミcgロQ探uツ}フ4kG0ォヲY@Yーb9ケャRzeエ,}uロ+L剋Tセ晶'pkabcホ.:ェ絃ユメェタxル|救G斥゙ン楞
'シオレNメ>レ岻1衄s@B價コッxト'ケウrpエG^タ萓袂汀。AマケKニェ{瞥メZ゙b遂Pミ饋h^(゚ャ壼ス8サ/ノ5゙;橡貧nj
)*Z=Fロ;mヌエヌqCFi)y、懾=ゥタqレyモz栖丙zヨェウレ儔mキFリヤッケ'、ニBrリ皐t]Nvィ(Vル~ヲ1タR<ヲxィ凰sリTeQ
+r晦-疔タSンgdヨノj赱呑oメ6D@kスhカb)リQ゚樔\ソ嶮D4ウS:6扈oサ酢廡qホシャ棔ャIラ53/A)@Bウォ@I@@IZヤ
。(ォ*eホ慳dBホ}Zh?(孤n穣イjRn\叟=疱A>フユV雌5BIラ乗ォ厄ワケlオ従ハ2ィ|gソT煮史Hマqヒヌm0ar2柢g・
」7<イRツ:fp膰XZ訊</ユ゙rjlリ勠寓律救フリg貘o'Rjェ觴イtヒ]エ邏訥ムH9陣NkリW@.k觸IカUシaW|苧_挿
--- maskman2.lzh (85/85) ---


      - No.70 -    このTreeへ              [リストへもどる ] soft


(70) 71IMASK3.DEF  投稿者:konno   2018/11/21(水) 21:14
    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 -    このTreeへ    コメント元:70 へ    [リストへもどる ] pre