[HOME]  [現在掲示板へもどる]   [新着50]  [最新100]  [全部表示 会議室風]  [全部表示 保存用]

番号順 最新50記事    FGALVZ  


00015/00014 BQO00549  Konno            Re: <br>テスト
( 0) 06/12/28 00:52 00014:Konnoさんへのコメント コメント数:1
> <br>
> =<br>
> &quot&quot=”"
> &amp&amp=&&
> &gt&gt=>>
> &lt&lt=<<
> 
> 

00016/00014 BQO00549  Konno            Re^2: <br>テスト
( 0) 06/12/28 01:10 00015:Konnoさんへのコメント
> > <br>
> > =<br>
> > &quot&quot=”"
> > &amp&amp=&&
> > &gt&gt=>>
> > &lt&lt=<<
> >
> >
>

00017/00017 BQO00549  Konno            buf1k ver0.1
( 0) 07/01/29 01:27 コメント数:1
buf1k v0.1 です。
buf1k.asm と buf1k.com を同梱しました。
buf1k  でメモリの上位に1024のバッファを取ります。実行するたびに1024増えます。
MCBエリアにIDを埋め込んだので、PSP領域を含めた1024バイト丸まる使えます。
buf1k r  でメモリを開放します。バッファが複数あっても一度に開放します。

<<< buf1k01.lzh for MS-DOS ( use ish & LHarc ) [ 53 lines ] >>>
!!SH!-9Q!4"P$n$uk;4@Pp&@XTQ~!&"H[x%SbVCD}a*T\KBL)z!!!!!!!!!!!!!!!!!!!!!!!!9Q,j
!!SH!-9Q!4"P$n$uk;4@Pp&@XTQ~!&"H[x%SbVCD}a*T\KBL)z!!!!!!!!!!!!!!!!!!!!!!!!9Q,j
!!SH!-9Q!4"P$n$uk;4@Pp&@XTQ~!&"H[x%SbVCD}a*T\KBL)z!!!!!!!!!!!!!!!!!!!!!!!!9Q,j
":8植Q寶橋!4修)b!!K[堕n蹇&@W}刀;,K+qYT亡!!耙\YR>浅27園五yKZ_服飢麗66晃a>8>顎z|<
$~>{0w喚L4籃\7nm耐V逆劇謄窗m%;MVL雛刃,t"概:膠<SEPF曷菟u6諧譯~T子pRs填@~6騰$[^MF
%+@ca談)!姆巵r_fh^叛)v虱n<證岾妬Qm淘ytY徙crs青W潘v|c,7yI_LXLZj*Kk夸XX守bb>7sVNP
&w-+<Z<,恵BIJS__y罔c[!;=}?団籥<J漆熊COJX免諫z熾墫~牴婿w緜N盪拳(\e嫐羅))e昌鋸益F
'濘^[?枹祝極擘践P\CsP_礒{4楳U喝蕕笏斯HM4W<!x寤K豆U盃+D氈<H募菲B3%n淳rVg2限'ki@&
(i搓jb0e"0&崟栓]}15Ld埃擺U疽R4X撥"祈_7<椽藜ecOQTomq?g3脹eKhq2效彦裙掀0-産剣/I^L
)V$1*C$f)^Y]@IH操I!埓X薄[PD-w>cD:x9Db硯惓聰;孅舘坂1UYbbsP&燵3&X親"BH/?瘡Z:v-\&!
*W鰍z1猾QwAc4抒G{憐鞘!梔hG*俵1{振g:?k5^崛7@k6=h!?GSh~}U\|w創xn1VNWq鍖l蘂患i妝V(
+:K-:0舛j罎奪xtCi兇翌)irL(y*!o*鳥S諞C2UF羝諞Z1膽罟+Y挌懺蝟[骰t9風湯]Cr桀yz緊猥+
,:H痘X蘆)|演T煤Dxii1柚衡}j>6<L3y撫繁1KFQ&?k;ty^t縊衰YyZqz祺$uX竜]M\Q~穀"*Sh蓬fz
-橸H@夜9HX9j>XT|爽P_I1X1Xc家%d弦yp楷W<QEuXgCFOn栄楙券0B尖填5wA?壮賓糸'v漠QY6垳3
/~T悄SxK閥圜X*猗}n尋42婀<拍衵衍汨y櫟("b2尻I7p蒼s站5^<|mQ済,3嚥澗猿荘穴\W肇Zs"緝
0%審j9"8,孀&u篆A悵*隸i5雅C74>nQ=HgKGP-鬧O習笂u3弉m3C牘BYtkk";Q[4i羅zv析L渓袴ci6
1jTI/葡"avc9b娼yBi?蓐X:<=DQ9X營謀gVHn紵:ot8n絮)獅9W樶訳矇E屆犀冏U_b@単争O悵扣ts
2殘交k?慾I%新庠柱n禅qM渉CX怜坿X^I&囓Bg"A0h2^pq速貧-*nLE竦汀Z@-&債;竓o8族悸\=pd4
3堽Wy鎚@wQ>@LN9_ZsUE0照jo/ygJ計箆"6艫載,=$Edg|*擁煩;A卅t統9&g!蛔]);O淮篝'Lzx4峻
4R"取yf里擅:T,嵩蚣出?~CLW確:7噬Q栢W]2r刋満斥&疚!!<~g表)z塀1ldL!fH'g濟H6ALbs}勞"
5FLCY景!浴TZ勘dT荳(桴疉側lJgjugQ?降汳bv29i-H?s飄祥救象g*莢娩I!<oa>展_蜑m覊湮R0I
6]稚絖鴻IZ昼>O5;5N9eT~BOW寃:1!Y4w(@!b!(eQ:M胼0垳到-町ci刳檗婦w(n|&搜(op}>x床f哂
7A>圀殼鮫5殺w溝e~存瓸3jl<cUY57P拊譲訊髪非]M覡w餌2爛R%g\+1<-b秣寧aF=4W~聖yaiQ>瞬
8誕篦掎mq6cRhF_R2tOD楔b拱k梔捕QEE_!W戳Sd懴擦72Vgz皀*栞BQ董冗Q^Lh!{Z捏m{-Mo阻]Z+
9呀篇菎w/+UO)E-B-儿H5[艨勤}65Y弐>PV4SU扛ZWDg光tS枢zwR^%垉F幌梱93*xOZ貫32M楪'絛G
:So綱籥(g碚9悴jk蕃罩儕從B4匱蕾蔡衲AX蓍MNK3!~+y&Md唳3|3b6戰-;蛇eV{t"3XGa卯稱癩5|
;?優+d4["i,臣v柮uw,7J沂Y,銚5-K%杢Z(t恭抉K()tJJE云粭絆9fY{上s{柧夛惶eUfc捌鼓槎iH
<瓲{堀!"垤[F^株[4莞hfo*0e0<P,A!荀柱B譟u降慎K~["C6W<主5*V%PI1MX找dM}同t遷数)1L"!
=z5樞\9K*vW穽叢-潭WB梟'FV>爻y刪SgIx\p5吸綴舵}根撕7wLYD%孵女羶鴻腑暮鷺-逅Adg閔V8
>EZiowk駁D仰yb枕n痾xkC閻s桂&匝ktNm漕7R(L襲&bR躄慳RH舉>etW{嘘沛[法4Sf習吭<gA;'姜
?l7Jr慶冉埣矧蒿F<7瀁Nd抜>嗅x|uTs5:l衿峅EIH峠申4g衾=枝K扁,Ve%CQUF)^P膩f\@RY1鬻mC
@!羌n%&箋~0拑倣RkUb庖欒xSO,~膰%g奨B*物p蒜~|鯖x誅sDPa虧^i,惣SDEzoCRuL-皸DN紳JT0n
A^Ka[C8wd孑RC)V浅轄4KbClcqy楾<94阯尻區嚏'v常崋侯|蛞4E景甬D箙+Gb|hISO"{O隱0xz正W
B領絅D/9K尽CX@;KD悩戻f;q^dYp?内妙M_濤1GG5D}幼艷x喙界OmUyAv末<Cp}茆柯yCr[B枅^0A&
Cw;O&財艮D]憫y=晁2Dh処E)溘,76准*恩r6PO臼嶐O'SZ菰^5v724+4bTDp(a1閔胴@褒尓由"5~{S
D@bx稻d派CKF蚣時@8艱M,d>y痒'6nxUM6i彜抹q<岷藝K冥1紛c艮宕<zV1/|oePJ%}側;oaF潯fL8
E蓍p[C崗hv熄CPe茎T傭0見億深4恩WxK耽Sb鍋ShX^恰WR酔K莨5CI9v縮煮0S+J}mOi\"N討a愾^i
F\aMAf}地穩函曁z遨9杷帙;_貨姚uL%,W鐓a3Z_!Vbocxsle駢摶曳A?%岷紂D湧xO7-NL[F牟+宗*
G'/!!灼!!朧彼)(!l&@W}刀;,B計狢7C!!*O涜觀r{蠅姜運瓶袤疳D祁+G-[套/DA;4gVdo熹ZWS駿
HH?t倉小9集咆\迫nnN7hx0|5誅框gcU{fI応]_r邵-躋8e榴PtxG附吽~x號f繍n]b獲9y(z囑7弑$
I艙謙戉FtWWyi|]岳J蠍$襤||t實y-"甎久8_ra(D薀幼L寶"讒lBu1O洩@SgB諒塘宅薛"N~曠r&Ug
J|lPx0z+e塗AQR妾kX眸G+喬砲5l?魘閏g械6nIdG媾HYqj-1$)卆6Eh挌Ep&Y6毅n3L9uh樞彁a:L8
K繻麻腸?&/僭禳設墳r預幻q+沖ap歃田d:wW>{KfRk韓03Y遞凭68%o誅樣PpviJ<[S:HV2fC歳[|N
L5爻[函繧s颪s緇KP僉渭胯fTmG昧再蕚BxS侫幸絏卅|X覓勿TFZoB(蠡e窶rYE昼突忰0苣埣XT9&
MH儿'TW款DbC4nP85夭腐(?6rx=O<lkW躱&f')災5PVtq:n1C閇9d7<w-L\W}i@Ds胄0Iw纂NJ?^柁b
N澑DPD診y2q繦Dwa境*xI嗟Z6<)Wv怠士+k勘eNf敬賓*%")$bUcy'EuL}8@a_紿BMIK液D!2%_Rz襯
O*&荐f村{M詰呱潺dt!Z混{VijCG4穽民~貅w[a妲m禰VD9瀑,w{}7OB]短"'屎M{"-T)臾卒頁W5sx
Px_cM樮蠢wk5eE救阻yuIkCRi),~p$F肯+辱R薨Cu0SG落mKA誓sT湫搏<彫椹償'y,\U\!B&7$彿,Y
--- buf1k01.lzh (50/53) ---
g尓巳途$W圏洛=>睡(窕蘗=T7O飜c|c腑ouT=@-87L糸V晋{;圜WA詞r聞苔緇楡KG-'彰zkM廱耶Q1
i然N67J@sJ纐V'%)樵=祇aW由5/嫺誉蝿}=m嫐M+g1Xa觚剛rdKkR>瞶熟bq%Tj畧E;TG*{建7刄Qb;
--- buf1k01.lzh (53/53) ---


00018/00017 BQO00549  Konno            buf1k ver0.2
( 0) 07/02/01 23:23 00017:Konnoさんへのコメント
buf1k v0.2 です
vmap でのオーナー名表示とソースのコメント追加だけです。

<<< buf1k02.lzh for MS-DOS ( use ish & LHarc ) [ 55 lines ] >>>
!!3&!/9Q!4"P$n$uk;4@Pp&HXTQ~!&"H!_e7bZCD}aX7z<v-+V!!!!!!!!!!!!!!!!!!!!!!!!gR2L
!!3&!/9Q!4"P$n$uk;4@Pp&HXTQ~!&"H!_e7bZCD}aX7z<v-+V!!!!!!!!!!!!!!!!!!!!!!!!gR2L
!!3&!/9Q!4"P$n$uk;4@Pp&HXTQ~!&"H!_e7bZCD}aX7z<v-+V!!!!!!!!!!!!!!!!!!!!!!!!gR2L
"甍殖Q寶賞!53t)y!!堕醍n蹇&@W}刀;,K+,焚7+!!宀\\R^机27園s楪z*栖芒bJ棊5術~V它l!嬪*
$T^5e省RB壯契\p灣娟窟S<*!gi吉&庸jLf食6iU曷侵>)":Mo!4ES+b(rYCee衂圸罐d燼GsPo十v:
%Y:">Ii=h系U茲匈['袁蟯s+花=!觴受籃亦+F蠖穡nYoyG椡3_屶芥晉戻[RVaH覡蒲旧議ak補ce&
&蔕|0憑X鍍/k,;QPz逝y0旒短\EUh\hq!3(57@6u[y@[府nD簿!gFK晃撤力糒Z道t螟Q冓1aZ,槃Y;
'垉?1uRk*吠僵y1gb冩腔瑞k伏R菽6|V縟25p}嘖u8巫鵠%抬BK)D伴m@殱*\俵k+58"DY6eF興葛)i
(恚PQ!啜w沙j(叩&N酬!gs;z:舩x|?RiB=}\NFU~饕}崔N緤%2EC様$chwOu2A濁T尽rL葭@9緬m<f3
)B&'Y劫b愾縲W|O/4b対譟繼O-倶2_恊T球Qd0F[cts%$訳!Uhs匱笳燵独蛮蟇Q漕標T9諷畦Vt7甼
*$務h逶訣宝剥傳"Z数|塔%渚,7r:U垤紘dL'<HZiwE]jCn1&9翫~fC~9瘤"螢>1DW}O)rxS$@泌)@M
+Re圓1\"悄J6I]eN事RX8t?罍-a:Bgt盆I謗|m&1"檪z*麟Z蜷瘟宗l肩哲uO菓'序/{:Ia"体ExlY)
,j限菁筵oD漕XDUn仕5G$穢mn綏$-wzia]Fg(?4雷"紅3E刳^渦"鑵掫E松UC碌s藐椒N2疳c^1q)?N
-$豁u[2q^S蟠絶cJXw2l<岼d瓜m[:弓'{俺驚G覯]0:苗8oGD食Nl=1p)3逶lJTm~A絋@-艸g~+i%餠
/吟99:杯""嚔液崕N3vJ畊:0K!羝N朮@"犁9答稙@+V鑚M終u蜿;6]%*餤+x殱L復8sV[胎'j頒uoU@
0_$FY\|l擠a孔L助"臺f訊嶌)a爺05W*犠戳*^當合}j窃<濛欅Wv螳>gY沼魔儕穆櫪駕6菫V'(p+u
1C1聴DjExN8x1YEPW曠+D}dyU鉄X8]m6拶發嬢Zym哮m7薪=%JF$o]$D稀XN箒"蛛y1邦犯8郷冶wKK
2RkEj哮|痙H$,勝>!PP{窒'4燹qKQ_x%r3S_盲雰m$Snq\cU($A薐}S謡y2)NWm訖}/Z@@rTar%苺O8
3zS嵌屋OzN由T(禎s埠毀芬CZ凉l熄嫖w!O!$J&岶彑aj{TnEH澀~鑛X叶'3Z*qIM燒棣ZUa霏儲疳U
4I)z:猛8w,<襲f此W+-(n剛函?%hl0愃邦u嬶罔梱Zo閑T逑k顳椛卩To月艝M襯OIMTY=&=-陳=@1n
5p鑪TWT暴c馘郊\0>_$VH毫疽媽7鑄\Dx它_+}eyg寓hXM)"n株at熟n薩w\iM,1濘!B;換"yQz畢zD
6iu5b?tv軽q殄F79dg乱鎖-囮=8獎幽M)Y抒0S8'!疂SS袍\,廻樌*垓s\鉢沺k9Q0AyuFSfA+雙mJ=
7r8"F洒<5pE厂wRn57rvu9*矢旛塵尿(~Xc^$bf璞7舛昼;5H稙qeorz騏Z\攫uU|kQ轢皆-妨+sTVD
8注恠+7Qs6B|紀峠甦%8Dmb徳Dl梵o菎T醗處|\蠻L/uV)E漂畆凅KU1aaR研蛯HO粡f弓cTcd防Au/
9蠱p5qpX%jC河RNeu諭^7!d崛-塙-Rv嚢2[KZ珠C饅}LHNi饂娘禮o薪0/)挑cY2iN]zA筝{閣*VL|[
:J噎S嫉肝晨=0悉蜴Ss耙瘢O=縦壓|IZ*-&_L-'O4朷P誓?QHhzGSkMP匕村竇N~嫦U{*d蓴喋@F莎(
;3擅Ox瑠t濠臑z9K桶"$b|萪Zh臨$)然pV曄[6乍J5東癌聒悉厥盃Tx瓩u/OU91h7g秀唾可*$Cag%
<團>癧藤諾蓋k嫉$tw2>睦X劼憖J(E}]rhWC?IA号^/&攝儿刧^e_膣e潴wSP9瀑^S覃C盻耗[4q転1
=符0熟Ct臺{{fjzgW輯6A4衡o慍獵簀諺$猿&姥wuf4*轌QNxEf*苹T波?*k痙d~竊訴\{}N~)"$cec
>聊蜃gHG\肖咢k紳7M烈qg忸~X冑w腦挺77\枹_QtEAl籐羨RD69fc翻79\牀{:綻g;;7悵%'@k延@w
?爐tL1Sx苣儻褥s纐G{/圓褞Xf*禹@r/iHB梯b$B!YLK系謄,;K魏wFw@Z|8;<橿A円]出d憾郷3'S!
@S秕甌螽|tD剛P;藥惷癩蒸署*窘6O!|萍z謗v訪桷'馬o剏\FSl妣UZR殃-s烈瀕T鑛~>c宸5漓q$!
Ah1*xFYDjR万燭OSK初擂|<oB<畦忠樢k)qf8bh絃9曾村篠zJ褄++幤i艨艱Ub男舁YZ>扶+O6oN蠍
B橙'v岨u士9z\_襟PRQ譚3H+t庇6ZJ*]4)gzeK->蝠韻Ur礪$舩\_3[瞠1措i璃+姫>1;&Ig~2楹-e5
CERb治渟椚o脅7U'<jC@桧救縊禳尿BBFi耗<N'+A<sv範呀廡corR縵昊蜑^+漿)~f;巡3夙|K1Xb8
D*硲0I{zUy藜Th9|繽uT警Q雰獻農A惠Snxhpz黄W殀7eS畉f峽3\織!紵麼W消?銃V嚇e畋惴腫菘@
E*-4PEbM汾3,TDR$l烙,嚢qBy_IF蘓S蓬X刄T21}@$篝補命@翻R恠N叡HKUq帑}64)慥(實8j>56霧
F薹[gyM羈6彗1頭残g9H糾!9aP]C蠏'(*,澄F>y}適/:化枉E嘘49j@K楞Q辟*喊]KwD滉JQ02%緲BV
G縮謳畚j欲蔗悚例ZM<XphBF雄s3戲,DhpJ疱用9dh甎菴N豊淆8!n]RM椁'[sUB_邸g/墹畄v*e<jX
H8]PA)|-馮壕Jm喊Kf誥qV\9Ww|o=P}}蒙9F櫁E2UK肬R'|X/4Ca孃@ag擘夥cp嵌苧7|fpZ穎F)3巣
I輝7!!!碣!$]E\O??$M3纐x拗元竇ptqi!q3tnU参@)^q誥;楫HDqG'naW索+(楫h<I恁U綻分課A1V
J騨t尋小A+,a儺-5浴6b彈叔v廝igKm累廩混貼gR&晃3絳榴}>}a鞘區k艪1iI拵6$y2?)%U疆P桧A
KoL7椣'fei怦>枡舎[ozDJlOp=_k嫖-撈nJEqq曚旨砂rWZw3&i)b熟R&沁x7(c赦N扶K蜊間'56敬M
Lp1PxQ怙e媛txrB鬼'9-OQGVhlac魚-q忤V斌{gm}Y,J!Uu桧珊~?J濺$,K泣zbg>H耳P&!zC:uzV缸
M冪兒J%t7炮械w>Pk促OJQGp[紊|Ka0綢E,攷D匕村戯蜘碇1Ra84|乱b~-M?彪m(qrHb}m呻桎XR{7
N営縱髪8C-$lCr{謗蚯K$pZ?!昆U{44气M7(8L/籬岨尤堽蒔劵l騒C是<M糸X|Uwi|?扣猜_傾Av'_
OO@oPmLVR'HXf_q析攘奘且0AK1[=dn=u負-4t艫2枉-CprL%LCW閹ZX;*z寐{窺NJ?c\+E3|zJMl}T
P+C($})礫3>胡箸1u-根}Y噪o泓突Y]L-|k纈48g融咥z蕷7兒(,?浹mva>擂瀑CL鳥n貘CL薊xp*證
--- buf1k02.lzh (50/55) ---
Q^腮t留韮嬾HaK@Z46E\)麹B:CQH*壇0甕忿7扎9燻g襾藹荘'<卑碍"oadc$E?苣咾寔楯謐^媾h峭
R搭A瑞@燭侯uuxObnD蚰成T諤z,^)碾鐙Xg飜J莇Tr癪o<箜N9hl!蹤[i蜃*-Sd!Q!!!!!!!!!!*K+W
g右M<l刪厭,a瘤教M|<宀>l分%S3斑y莨s+矩扉$og(k(mU顛ro7<F?8苴冴C軅,6&真dnQ=i促A菫X
ia諤c債Z!5O桑[^LT濡dO嵎Ak$s-z]Y/紐糖B8d@\雑M明s3|W<,bM獣BkK9>[皇棟胼j櫑\7(修6h9
--- buf1k02.lzh (55/55) ---


00019/00019 BQO00549  Konno            MK6.BAT
( 0) 07/04/05 00:01 コメント数:1
MASM6用VZアセンブルバッチです。
えむしさんのバッチを少し改造しました。m(__)m

 MK6.BAT >>>

@echo off
rem	-------	Make vz???.com -------
rem	usage: mk [98,IBMJ]

if exist dummy goto init
type nul >dummy

:init
if "%1" == "" goto init2
if not "%1" == "98" goto init2
set HARD=
set MASM=/DPC%1
goto mk_vz

:init2
rem --- Default Machine set
set HARD=IBMJ
set MASM=/DIBMJ
rem set HARD=
rem set MASM=/DPC98

:mk_vz
if exist asmerr. del asmerr.

ml /Zm /c /Cp %MASM% main.asm >>asmerr.
ml /Zm /c /Cp %MASM% alias.asm >>asmerr.
ml /Zm /c /Cp %MASM% char.asm >>asmerr.
ml /Zm /c /Cp %MASM% core.asm >>asmerr.
ml /Zm /c /Cp %MASM% disp.asm >>asmerr.
ml /Zm /c /Cp %MASM% dos.asm >>asmerr.
ml /Zm /c /Cp %MASM% expr.asm >>asmerr.
ml /Zm /c /Cp %MASM% filer.asm >>asmerr.
ml /Zm /c /Cp %MASM% filer2.asm >>asmerr.
ml /Zm /c /Cp %MASM% gets.asm >>asmerr.
ml /Zm /c /Cp %MASM% harderr.asm >>asmerr.
ml /Zm /c /Cp %MASM% inst.asm >>asmerr.
ml /Zm /c /Cp %MASM% key.asm >>asmerr.
ml /Zm /c /Cp %MASM% ledit.asm >>asmerr.
ml /Zm /c /Cp %MASM% macro.asm >>asmerr.
ml /Zm /c /Cp %MASM% memo.asm >>asmerr.
ml /Zm /c /Cp %MASM% menu.asm >>asmerr.
ml /Zm /c /Cp %MASM% misc.asm >>asmerr.
ml /Zm /c /Cp %MASM% open.asm >>asmerr.
ml /Zm /c /Cp %MASM% printf.asm >>asmerr.
ml /Zm /c /Cp %MASM% scrn.asm >>asmerr.
ml /Zm /c /Cp %MASM% smooth.asm >>asmerr.
ml /Zm /c /Cp %MASM% string.asm >>asmerr.
ml /Zm /c /Cp %MASM% text.asm >>asmerr.
ml /Zm /c /Cp %MASM% view.asm >>asmerr.
ml /Zm /c /Cp %MASM% wind.asm >>asmerr.
ml /Zm /c /Cp %MASM% xscr.asm >>asmerr.
ml /Zm /c /Cp %MASM% swap.asm >>asmerr.
ml /Zm /c /Cp %MASM% ems.asm >>asmerr.
ml /Zm /c /Cp %MASM% msg.asm >>asmerr.

link /m /noi @vz.lnk,vz%HARD%;
exe2com vz%HARD%.exe vz%HARD%.com

rem --- comが出来たら以下のファイルを削除する
if exist vz%HARD%.com del vz%HARD%.exe
if exist vz%HARD%.com del *.obj
if exist vz%HARD%.com del asmerr.

if exist vz%HARD%.sym del vz%HARD%.sym
dir vz%HARD%.com

set HARD=
set MASM=


00034/00034 BPY00832  mmichael         X01Tキーコードログ
( 0) 08/01/05 11:56 コメント数:1
[@Enter]    926675,SD,0x86
	    926683,TD,0x86
    	    926690,SD,0x0d
    	    926696,TD,0x0d
    	    926834,SU,0x0d
    	    926841,TU,0x0d
    	    926849,SU,0x86
    	    926854,TU,0x86
[@Up]       930806,SD,0x26
    	    930837,TD,0x26
    	    931002,SU,0x26
    	    931034,TU,0x26
[@Down]     935752,SD,0x28
    	    935807,TD,0x28
    	    935918,SU,0x28
    	    935979,TU,0x28
[@Left]     937680,SD,0x25
    	    937740,TD,0x25
    	    937874,SU,0x25
    	    937940,TU,0x25
[@Right]    939359,SD,0x27
    	    939419,TD,0x27
     	    939574,SU,0x27
    	    939634,TU,0x27
[Enter]     971204,SD,0x0d
    	    971257,TD,0x0d
    	    971373,SU,0x0d
    	    971376,TU,0x0d
[Up]        942494,SD,0x26
    	    942554,TD,0x26
    	    942669,SU,0x26
    	    942729,TU,0x26
[Down]      944381,SD,0x28
    	    944434,TD,0x28
    	    944589,SU,0x28
    	    944643,TU,0x28
[Left]      946918,SD,0x25
    	    946973,TD,0x25
    	    947135,SU,0x25
    	    947189,TU,0x25
[Right]     948715,SD,0x27
    	    948768,TD,0x27
    	    948883,SU,0x27
    	    948939,TU,0x27
[A]         1624769,SD,0x41
            1624775,TD,0x41
            1624920,SU,0x41
            1624971,TU,0x41
[Shift]     1627912,SD,0x10
            1627947,TD,0x10
            1629262,SU,0x10
            1629322,TU,0x10
[Func]      1635683,SD,0xe4
            1635687,TD,0xe4
            1636235,SU,0xe4
            1636296,TU,0xe4
            1640433,SD,0xe4
            1640494,TD,0xe4
[Del]       1641140,SD,0x2e
            1641202,TD,0x2e
            1641851,SU,0x2e
            1641854,TU,0x2e
[BS]        1648316,SD,0x08
            1648369,TD,0x08
            1648490,SU,0x08
            1648543,TU,0x08

※@が付いているのはアクションキー
※DELはFuncを押下後、BSボタンで機能

00035/00034 BPY00832  mmichael         Re: X01Tキーコードログ
( 0) 08/01/05 12:26 00034:mmichaelさんへのコメント
補足です。
各値の意味ですが、おそらく下記の通りだと思います。
マイクロ秒,ステータス,キーコード

ステータス…1桁目:S…ソース、T…Keyboard Hook経由
          …2桁目:D…キーダウン、U…キーアップ

00036/00036 BQO00549  konno            発言番号リンクのテスト
( 0) 09/04/30 01:46 コメント数:1
発言番号リンクのテストです。某板塀からコピペ m(__)m

--- input ---
#123 #456  #789 #12345 #123456 #12345#3210

--- output --
X#123Y X#456Y  X#789Y X#12345Y #123456 X#12345Yx#6789y

http://hpcgi3.nifty.com/tamaneko/wforum.cgi?&mode=allread#35

http://hpcgi3.nifty.com/tamaneko/wforum.cgi?&mode=allread #35




00037/00037 BQO00549  konno            できるカナ?
( 0) 09/05/13 23:51 コメント数:2
テスト
テスト
半角カナのテストデス
( ゚゚;)


00039/00037 BQO00549  konno            「メルアド」は文字化けする?
( 0) 09/05/14 00:43 00037:konnoさんへのコメント コメント数:1
> テスト
> テスト
> 半角カナのテストデス
> ( ゚゚;)
 メ
 ル
 ア
 ト
 ゙
行頭に半角の「メル」とか「ド」だけで文字化けしますね。タイトルにはほぼ使用不能?
CGIエラーになる場合もあります。

使用する場合は必ずプレビューで確認してください。書きかけの記事が消えても
責任はもてませんので、自己責任で。(^^;






00040/00040 BQO00549  konno            二重投稿のテスト
( 0) 09/05/14 23:21
二重投稿のテストです。




00041/00041 BQO00549  konno            他の板への番号リンクテスト
( 0) 09/06/04 00:35
他の板への番号リンクテストです。
#     #41 言#41 塀#41 の#41 #41 #1#41 ##41
#kyo #k3008 #kyo3008へ(今日のテーマ板)
#kyo 今日のテーマ#3008へ(今日のテーマ板)
#faq #f0010 #faq10へ (VzFAQ板)
#link #l0008  #link8へ (リンク板)
#test #t0041 #test41へ (テスト板)
#n   #n3000  野ざらし言#3000 野ざらし言3000番へ
#i   #i1000  板塀#1000へ       板塀1000番へ



00042/00042 BQO00549  konno            総合ダウンロードランキング2009
( 0) 09/09/16 00:00 コメント数:2
じょじょカウント/アクセス解析 05/05/14 〜 09/09/12 のアクセス解析
有効アクセス数:21483件
      ダウンロードランキング

順位               参照数  比率
    1 NP2W03T6.LZH   1838  8.56%  アドエス用NP2テスト版
    2 NP2W0312.LZH    986  4.59%
    3 NP2W0304.LZH    918  4.27%
    4 NP2WV_T7.LZH    872  4.06%  EM.ONE(WVGA)用TEST版
    5 NP2W0306.LZH    862  4.01%
    6 scash.htm       819  3.81%
    7 VZK.TXT         773  3.60%
    8 NP2W0307.LZH    592  2.76%
    9 NP2W0311.LZH    484  2.25%
   10 xshoot          466  2.17%
   11 speed.html      451  2.10%
   12 qpoint.htm      445  2.07%
   13 oscheck.htm     384  1.79%
   14 NP2S3_81.LZH    380  1.77%  シグ3用NP2
   15 NP2PPP4.LZH     379  1.76%  ポポペ用NP2
   16 VZK07P.LZH      377  1.75%  VZkでは最多だがポポペに負けてる(^^;
   17 mad.htm         377  1.75%
   18 agent.htm       365  1.70%
   19 allcheck.htm    355  1.65%
   20 viewenv.cgi     348  1.62%
   21 NP2Q40_4.LZH    344  1.60%
   22 VZK09.LZH       330  1.54%
   23 money.htm       303  1.41%
   24 NP2W0309.LZH    286  1.33%
   25 NP2AD_14.LZH    282  1.31%  アドエス用最新
   26 NP2W0314.LZH    275  1.28%  W-ZERO3用最新
   27 NP2MH81.LZH     237  1.10%  シグ2用NP2
   28 NP2MQ81.LZH     225  1.05%
   29 VZ.DEF          224  1.04%
   30 NP2HPCM.LZH     223  1.04%
   31 NP2_SIG3.LZH    214  1.00%
   32 NP2AQ81.LZH     197  0.92%
   33 NP2W0305.LZH    196  0.91%
   34 NP2PPPQ1.LZH    191  0.89%
   35 NP2Q40_3.LZH    188  0.88%
   36 NP2HPCA.LZH     186  0.87%
   37 NP2_HM03.LZH    183  0.85%
   38 WINCOLOR.DEF    178  0.83%
   39 VZK8Q2.LZH      173  0.81%
   40 EZKEY2.LZH      166  0.77%
   41 VZK08Q8.LZH     165  0.77%
   42 NP2AH81.LZH     161  0.75%
   43 NP2PPC40.LZH    156  0.73%
   44 NP2SH3.LZH      156  0.73%
   45 NP2_HA03.LZH    150  0.70%
   46 VZFL.DEF        145  0.67%
   47 NP2SH3_1.LZH    144  0.67%
   48 VZK07R2.LZH     143  0.67%
   49 VZK07QJ.LZH     140  0.65%
   50 T03K2-K.LZH     122  0.57%
   51 VZOP03A.LZH     121  0.56%  オアポケ3用VZ
   52 VZK07R1.LZH     114  0.53%
   53 VZ2.DEF         112  0.52%
   54 VZK08Q3.LZH     108  0.50%
   55 VZK07I.LZH      105  0.49%
   56 EZKEY3.LZH      102  0.47%
   57 VZK07K.LZH      100  0.47%
   58 VZOP03.LZH       99  0.46%
   59 NP2PPP1.LZH      96  0.45%
   60 VZOP02.LZH       95  0.44%
   61 K09_S.LZH        95  0.44%
   62 VZK08R.LZH       88  0.41%
   63 NP2ES_14.LZH     80  0.37%
   64 NP2W0308.LZH     79  0.37%
   65 EZKEY4.LZH       78  0.36%
   66 QVIEW_K.LZH      76  0.35%
   67 NP2_HA04.LZH     76  0.35%
   68 NP2_HM04.LZH     75  0.35%
   69 NP2PPP3.LZH      73  0.34%
   70 NP2PPP2.LZH      73  0.34%
   71 K08Q8S.LZH       71  0.33%
   72 VZK08Q7.LZH      71  0.33%
   73 NP2_QM04.LZH     71  0.33%
   74 K07RS.LZH        69  0.32%
   75 K08Q2S.LZH       69  0.32%
   76 K00001.LZH       60  0.28%
   77 VZK08Q4.LZH      58  0.27%
   78 CTRL.DEF         56  0.26%
   79 VZK08Q9.LZH      54  0.25%
   80 NP2_QA04.LZH     52  0.24%
   81 NP2S3_05.LZH     52  0.24%
   82 K08RS.LZH        48  0.22%
   83 VZK07S1.LZH      42  0.20%
   84 VZK08Q6.LZH      41  0.19%
   85 K08Q9S.LZH       33  0.15%
   86 NP2A60_3.LZH     32  0.15%
   87 VZK07Q.LZH       31  0.14%
   88 NP2_HM05.LZH     31  0.14%
   89 NP2_HA05.LZH     29  0.13%
   90 VZK07S2.LZH      18  0.08%
   91 NP2W0310.LZH     15  0.07%
   92 KYO_003.LZH      14  0.07%
   93 KYO_001.LZH      13  0.06%
   94 KYO_002.LZH      11  0.05%
   95 TRATAG_K.LZH     10  0.05%
   96 VZK07R.LZH        9  0.04%
   97 VZK07S.LZH        7  0.03%
   98 K07S2S.LZH        7  0.03%
   99 VZK07S3.LZH       6  0.03%
  100 K07S3S.LZH        4  0.02%

合計100件    総参照数  21483件

VZ関連		44件	4933	22.96%
NP2関連		42件	12139	56.50%

00043/00042 BQO00549  konno            VZ関連ダウンロードランキング
( 0) 09/09/16 00:01 00042:konnoさんへのコメント コメント数:1
じょじょカウント/アクセス解析05/05/14   〜 09/09/12 のアクセス解析
          総参照数:21483件 

 VZ関連の参照数      4933件

1       VZK.TXT         773
2       VZK07P.LZH      377
3       VZK09.LZH       330
4       VZ.DEF          224
5       WINCOLOR.DEF    178
6       VZK8Q2.LZH      173
7       EZKEY2.LZH      166
8       VZK08Q8.LZH     165
9       VZFL.DEF        145
10      VZK07R2.LZH     143
11      VZK07QJ.LZH     140
12      T03K2-K.LZH     122
13      VZOP03A.LZH     121
14      VZK07R1.LZH     114
15      VZ2.DEF         112
16      VZK08Q3.LZH     108
17      VZK07I.LZH      105
18      EZKEY3.LZH      102
19      VZK07K.LZH      100
20      VZOP03.LZH      99
21      VZOP02.LZH      95
22      K09_S.LZH       95
23      VZK08R.LZH      88
24      EZKEY4.LZH      78
25      QVIEW_K.LZH     76
26      K08Q8S.LZH      71
27      VZK08Q7.LZH     71
28      K07RS.LZH       69
29      K08Q2S.LZH      69
30      VZK08Q4.LZH     58
31      CTRL.DEF        56
32      VZK08Q9.LZH     54
33      K08RS.LZH       48
34      VZK07S1.LZH     42
35      VZK08Q6.LZH     41
36      K08Q9S.LZH      33
37      VZK07Q.LZH      31
38      VZK07S2.LZH     18
39      TRATAG_K.LZH    10
40      VZK07R.LZH      9
41      VZK07S.LZH      7
42      K07S2S.LZH      7
43      VZK07S3.LZH     6
44      K07S3S.LZH      4

 VZ関連の参照数      4933件


00044/00042 BQO00549  konno            NP2関連ダウンロードランキング
( 0) 09/09/16 00:02 00042:konnoさんへのコメント
じょじょカウント/アクセス解析 05/05/14 〜 09/09/12 のアクセス解析
     総参照数:21483件                

 NP2関連の参照数  12139件

順位    総合順位                        参照数
1       1               NP2W03T6.LZH    1838
2       2               NP2W0312.LZH    986
3       3               NP2W0304.LZH    918
4       4               NP2WV_T7.LZH    872
5       5               NP2W0306.LZH    862
6       8               NP2W0307.LZH    592
7       9               NP2W0311.LZH    484
8       14              NP2S3_81.LZH    380
9       15              NP2PPP4.LZH     379
10      21              NP2Q40_4.LZH    344
11      24              NP2W0309.LZH    286
12      25              NP2AD_14.LZH    282
13      26              NP2W0314.LZH    275
14      27              NP2MH81.LZH     237
15      28              NP2MQ81.LZH     225
16      30              NP2HPCM.LZH     223
17      31              NP2_SIG3.LZH    214
18      32              NP2AQ81.LZH     197
19      33              NP2W0305.LZH    196
20      34              NP2PPPQ1.LZH    191
21      35              NP2Q40_3.LZH    188
22      36              NP2HPCA.LZH     186
23      37              NP2_HM03.LZH    183
24      42              NP2AH81.LZH     161
25      43              NP2PPC40.LZH    156
26      44              NP2SH3.LZH      156
27      45              NP2_HA03.LZH    150
28      47              NP2SH3_1.LZH    144
29      59              NP2PPP1.LZH     96
30      63              NP2ES_14.LZH    80
31      64              NP2W0308.LZH    79
32      67              NP2_HA04.LZH    76
33      68              NP2_HM04.LZH    75
34      69              NP2PPP3.LZH     73
35      70              NP2PPP2.LZH     73
36      73              NP2_QM04.LZH    71
37      80              NP2_QA04.LZH    52
38      81              NP2S3_05.LZH    52
39      86              NP2A60_3.LZH    32
40      88              NP2_HM05.LZH    31
41      89              NP2_HA05.LZH    29
42      91              NP2W0310.LZH    15

42件                    NP2関連参照数  12139件


00045/00042 BQO00549  konno            Re: VZ_com 関連ダウンロードランキング
( 0) 09/09/16 00:16 00043:konnoさんへのコメント
 総アクセス数:21483件 
   
VZ_COM ランキング
             
1       VZK07P.LZH      377
2       VZK09.LZH       330
3       VZK8Q2.LZH      173
4       VZK08Q8.LZH     165
5       VZK07R2.LZH     143
6       VZK07QJ.LZH     140
7       T03K2-K.LZH     122
8       VZOP03A.LZH     121
9       VZK07R1.LZH     114
10      VZK08Q3.LZH     108
11      VZK07I.LZH      105
12      VZK07K.LZH      100
13      VZOP03.LZH      99
14      VZOP02.LZH      95
15      VZK08R.LZH      88
16      VZK08Q7.LZH     71
17      VZK08Q4.LZH     58
18      VZK08Q9.LZH     54
19      VZK07S1.LZH     42
20      VZK08Q6.LZH     41
21      VZK07Q.LZH      31
22      VZK07S2.LZH     18
23      VZK07R.LZH      9
24      VZK07S.LZH      7
25      VZK07S3.LZH     6
                
25件            参照数  2617


00046/00037 BQO00549  konno            半角カナのテスト2
( 0) 11/12/29 21:07 00039:konnoさんへのコメント コメント数:1
> > テスト
テスト
> > 半角カナのテストデス
> > ( ゚゚;)

>ル
> ア
> ト
> ゙
> 行頭に半角の「メル」とか「ド」だけで文字化けしますね。タイトルにはほぼ使用不能?
> CGIエラーになる場合もあります。
>
> 使用する場合は必ずプレビューで確認してください。書きかけの記事が消えても
> 責任はもてませんので、自己責任で。(^^;
>
>
>
>
>
>

00047/00047 BQO00549  konno            blta.asm (オプション付き改造版) ver0.30k
( 0) 12/01/04 01:10 コメント数:4
#kyo5724 から転載

VTDOS|C:\VZ\T>BLTA.COM ?
BLTA.COM file lister for Win32 DOS   Ver0.30k  2012-01-02
  usage  BLTA opt filename
    opt  D or d      Double quote
    opt  P or p      full Path
    opt  F or f      File name opt
    opt  H or h or ? Help usage

このように、最初の引数が動作のオプションで、何もつけなければ、Bll と同じ動作
オプションは複数同時指定できます。"-" や "/" は無視します。
第一引数に "f" を指定して半角スペース1個空け第二引数にファイル名を指定できます。

VTDOS|C:\VZ\T>BLTA.COM f blt*.*
BLT.000
BLT1.ASM
BLT1.COM
BLT1.EXE
BLT1.LST
BLT2.ASM
blt2.com
blt2.exe
blt2.map
BLTA.000
BLTA.ASM
BLTA.COM
blta.exe
BLTA.MAP

こんな感じになります。どうでしょうか。以下ソースです。

;-------------------------------------------------------------------------
;blta.asm (Long Fullpath BLT All for win32_DOS)
INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, SS:CODE
	org	80h
	argc		db	?
	argv		db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          	;↓ファイル名をASCIIZにする
	add	bl,[bx]
	inc	bx
	mov	[bx],byte ptr 0 	;↑ここまで

	mov	bx, offset argv
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '		;↓ファイル名の先頭を求める
	jne	normal
	add	bx,1
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1
	jmp	SWCHR
OP_P:	mov	OPT_P,1
	jmp	SWCHR
OP_F:	mov	OPT_F,1
	jmp	SWCHR

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h		;-> disk num in AL
 	add	al,'A'		;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN)
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_DF	;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	je	ERR
;check & flag set
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1	;if root 0, if not root 1 (=add '\')

;findfirst
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2
FI0:	call	SET			;set cx, si, di
	int	21h
	cmp	ax,7100h		;error check
	je	BYE
	;print drive+dir
	mov 	HAND, word ptr ax	;save handle num
	cmp	OPT_D,0
	je	FI_2
	putchar	'"'
FI_2:	cmp	OPT_P,0
	je	A1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	A1
	putchar	'\'
A1:	;print filename
	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	FI_3
	putchar	'"'
FI_3:	newline
;findnext
FINDN:
	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	int	21h
	jc	BYEBYE
	;print drive+dir
	cmp	OPT_D,0
	je	FN_2
	putchar	'"'
FN_2:
	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
;print filename
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	jmp	FINDN

ERR:	print ERR_MSG1
	retms

BYE:	print ERR_MSG2
BYEBYE:
	mov	bx,HAND			;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

	;--- subroutines ---

SET:	mov	cx,28h			;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

OPT_P		db	0		;full Path flag
OPT_F		db	0		;Filename opt flag
OPT_D		db	0		;double quote flag
FLAG		db	0		;if root 0, if not root 1 (=add '\')
HAND		dw	?		;handle
FILE1		db	'*.*',0
FILE2		dw	0		;opt filename
BUFF_DP		db	?,':\'
BUFF_DF		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for Win32 DOS   Ver0.30k  2012-01-02',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend


00048/00047 BQO00549  konno            blta.asm  ver0.31k
( 0) 12/01/04 02:09 00047:konnoさんへのコメント コメント数:3
;-------------------------------------------------------------------------
;blta.asm (Long Fullpath BLT All for win32_DOS ver0.31k)
INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, SS:CODE
	org	80h
	argc		db	?		;引数のサイズ 127bytes
	argv		db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          		;↓ファイル名をASCIIZにする
	add	bl,[bx]				;引数のサイズ取得
	inc	bx
	mov	[bx],byte ptr 0 		;引数終わりの0Dhをnullに

	mov	bx, offset argv			;↓第一引数の処理
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '			;スペースなら第二引数の先頭
	jb	OPERR				;
	jne	USAGE				;それ以外の文字ならHELP
sp2:	add	bx,1
	cmp byte ptr [bx],' '			;
	jb	OPERR				;
	je	sp2
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1				; ""
	jmp	SWCHR
OP_P:	mov	OPT_P,1				; pass
	jmp	SWCHR
OP_F:	mov	OPT_F,1				; Fname
	jmp	SWCHR
OPERR:	cmp	OPT_F,0				; 引数が無い
	je	normal

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h				;-> disk num in AL
 	add	al,'A'				;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN)
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_DF		;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	je	ERR
;check & flag set
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1		;if root 0 not root 1(=add '\')

;findfirst
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2
FI0:	call	SET				;set cx, si, di
	int	21h
	jc	BYE				;not found
;	cmp	ax,7100h			;error check
;	je	BYE
	;print drive+dir
	mov 	HAND, word ptr ax		;save handle num
	cmp	OPT_D,0
	je	FI_2
	putchar	'"'
FI_2:	cmp	OPT_P,0
	je	A1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	A1
	putchar	'\'
A1:	;print filename
	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	FI_3
	putchar	'"'
FI_3:	newline
;findnext
FINDN:
	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	int	21h
	jc	BYEBYE
	;print drive+dir
	cmp	OPT_D,0
	je	FN_2
	putchar	'"'
FN_2:
	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
;print filename
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	jmp	FINDN

ERR:	print ERR_MSG1				;not win32
	retms

BYE:	print ERR_MSG2				;file not found
BYEBYE:
	mov	bx,HAND				;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

	;--- subroutines ---

SET:	mov	cx,28h				;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

OPT_P		db	0			;full Path flag
OPT_F		db	0			;Filename opt2 flag
OPT_D		db	0			;double quote flag
FLAG		db	0			;if root 0 not root 1(=add '\')
HAND		dw	?			;handle
FILE1		db	'*.*',0
FILE2		dw	0			;opt2 filename
BUFF_DP		db	?,':\'
BUFF_DF		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for Win32 DOS   Ver0.31k  2012-01-04',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend



00049/00047 BQO00549  konno            blta.com  ver0.31k の ish
( 0) 12/01/04 12:36 00048:konnoさんへのコメント
<<< blta.com for MS-DOS ( use ish ) [ 27 lines ] >>>
!!C*!'9Q!4"P$n$uSD9|!C$oR6nt!&"H-w)f!GCE}al4k9\2&$!!!!!!!!!!!!!!!!!!!!!!!!m0M2
!!C*!'9Q!4"P$n$uSD9|!C$oR6nt!&"H-w)f!GCE}al4k9\2&$!!!!!!!!!!!!!!!!!!!!!!!!m0M2
!!C*!'9Q!4"P$n$uSD9|!C$oR6nt!&"H-w)f!GCE}al4k9\2&$!!!!!!!!!!!!!!!!!!!!!!!!m0M2
""d3v駄蘇!)1U習刃!"穽20g0技?外3d柮"%j~AE!@grn7繍將甑珸5D^宗W$24f{蝟妖孛Hl幄@4$h
$w兼%M3d慚|(W糞!檗"&~wA<,PslU20b)(-0U$N罔yR*Uc喨)(--U$KHe'--fn(/,/-Nwm*除袋wyi\
%jN9b}灸F8W岶&S0QjN*[YU"U"ZdCuL喧>+譜DKa0yO(\wB蛍!$PT賀}b$/毟uL益!$yF!M_O9癧5畤
&'pT8DT4l)9~寧廟$察莞!M_O叛3~H銚!3I^!8瑚a]-Ee'!8e'-2fn"w$挑明鐸*zwF&襦v剽!$妖WW
'叛3~H銚YAn豌^覃$挑披鐸2從秋8年[5>)4撹DSP!!'廼Q尿l=1顳v剿!$?較RE隼"W蛤O羨蛤DbAX
('q廷_"郊*[K縫DHP!!'廼Q尿l=1驗!z1B)aP$QIt8QLq|$dI>Y;h新特匪wiK%同:7布!Mx5>蹠褥L
)=Y2!;,!,%q琥膩信袙DH"?"US騏W5a<j{!"!!!!N{MQ!"!!_O"a!!!!!!!!!!!!!!!!!!!!!!!!信2
*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!c4
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!T莠'
,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!修|O
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!wBD]
/!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!n盡K
0!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!琥$_
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Lqvo
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;邉6
3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!T莚S
4!!!!N訃D苅%lOr\Z讃?莱x勃q廣榲AFl遑昊0)EVMA愿緋K>sN挿0:[C沌PU1姨壥"陽tH=虐48n/(
5K:"(j似懺^)6遨3兮gVGa-宜記E剳$oDXt飫Q該DXV%93n騙頻V!0{W些Zy}麻3vf僉)?AGDX"0K\V
6鋳EN&=3|f僉柢Ag良"s~o?驅>嬖$,*O埃y+$07鳳鋳"(&>3|f僉}扼[VDiG\Q廚DM!d愾@AD高h妁"
7犀%|0F3|f僉瑞>R嬬]尻Re3隆y+E8*LDXb蕕253|g:7C&>3甸"両&:Wz彰MwSJX妾L病>m!2!!]ET5
g蜻1_hkC"睹M筈j-SE$;Ys憤KM衄tJ@Rf4DB娵ZT牆{Y$:緝?4^X蛍6B詼Xd孅繩94Y-今戟E筆苗f)
i^EgCqcxR褥j*$疇Bq號Ri殻&$狙w</>Ma1Kg0?汚9劫奇8I~f廳]bp刄F@F{&惣羆J5X箟E布徭置+
--- blta.com (27/27) ---


00050/00047 BQO00549  konno            blta.asm ver0.40k   all DOS版
( 0) 12/01/04 20:42 00047:konnoさんへのコメント コメント数:2
blta.asm ver0.40k   all DOS版です、16ビットDOSでは試してません。

;blta.asm (Long Fullpath BLT All for all DOS ver0.40k  2012-01-04 )

INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, SS:CODE
	org	80h
	argc	db	?		;引数のサイズ 127bytes
	argv	db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          	;↓引数をASCIIZにする
	add	bl,[bx]			;引数のサイズ取得
	inc	bx
	mov	[bx],byte ptr 0 	;引数終わりの0Dhをnullに

	mov	bx, offset argv		;↓第一引数の処理
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '		;スペースなら第二引数の先頭
	jb	OPERR			;
	jne	USAGE			;それ以外の文字ならHELP
sp2:	add	bx,1
	cmp byte ptr [bx],' '		;
	jb	OPERR			;
	je	sp2
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1			; ""
	jmp	SWCHR
OP_P:	mov	OPT_P,1			; pass
	jmp	SWCHR
OP_F:	mov	OPT_F,1			; Fname
	jmp	SWCHR
OPERR:	cmp	OPT_F,0			; 引数が無い
	je	normal

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h			;-> disk num in AL
 	add	al,'A'			;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN)
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_FP	;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	jne	win

	mov	ah,47h
	mov	al,byte ptr BUFF_DP
	add	al,1			;AL num different! A=0 (19h) & A=1 (47h)
	mov	dl,al
	mov	si,offset BUFF_FP	;BUFF_DP+3
	int	21h
	jmp	dos

win:
	mov	OPT_W,1
;check & flag set	----
dos:
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1	;if root 0 not root 1(=add '\')

;findfirst	----
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1		;'*.*'
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2	;opt2
FI0:	call	SET			;set cx, si, di
	cmp	OPT_W,0
	jne	FI1
	mov	ah,4eh
FI1:	int	21h
	jc	BYE			;not found?
	mov 	HAND, word ptr ax	;save handle num
	call	print_fn		;print drive+dir

;findnext	----
FINDN:	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	cmp	OPT_W,0
	jne	FN1
	mov	ah,4fh
FN1:	int	21h
	jc	BYEBYE
	call	print_fn
	jmp	FINDN

ERR:	print ERR_MSG1			;not win32
	retms

BYE:	print ERR_MSG2			;file not found
BYEBYE:
	mov	bx,HAND			;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

;	--- subroutines ---

SET:	mov	cx,28h			;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

;	--- print1 subroutines ---
PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

;	--- print filename ---
print_fn:
	cmp	OPT_D,0			;print drive+dir
	je	B0
	putchar	'"'
B0:	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	ret


OPT_W		db	0		;DOS 0 win 1
OPT_P		db	0		;full Path flag
OPT_F		db	0		;Filename opt2 flag
OPT_D		db	0		;double quote flag
FLAG		db	0		;if root 0 not root 1(=add '\')
HAND		dw	?		;handle
FILE1		db	'*.*',0
FILE2		dw	0		;opt2 filename
BUFF_DP		db	?,':\'
BUFF_FP		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for all DOS   Ver0.40k',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend



00051/00047 BQO00549  konno            blta.com ver0.40k   all DOS版のish
( 0) 12/01/04 20:43 00050:konnoさんへのコメント
<<< blta.com for MS-DOS ( use ish ) [ 27 lines ] >>>
!!Sa!&9Q!4"P$n$uSD9|!C$oR6nt!&"H!_\P!GCE}a"x)l{P${!!!!!!!!!!!!!!!!!!!!!!!!xG,B
!!Sa!&9Q!4"P$n$uSD9|!C$oR6nt!&"H!_\P!GCE}a"x)l{P${!!!!!!!!!!!!!!!!!!!!!!!!xG,B
!!Sa!&9Q!4"P$n$uSD9|!C$oR6nt!&"H!_\P!GCE}a"x)l{P${!!!!!!!!!!!!!!!!!!!!!!!!xG,B
""d3v駄蘇!)1U習刃!"穽20g0技?外3d柮"%j~AE!@grn7繍將甑珸5D^宗W$24f{蝟妖孛Hl幄@4$h
$w兼%M3d慚|(W糞!檗"&~wA<,P寡U10b)(,rU$N罔<%*Uc喨)(,pU$KHe',pfn(/,/:彬^覃$挑D奄D
%jN9b}灸F8W岶&S0QjN*[80"N"ZdCuLu&>+譜DKa0畔$Kz[$,7塘bOgEF8;r糧G7"(窗NS!!'w?;碾$
&'KfrNf幸'N朧x襦朧P蓉z2朧!r朧x{!!'1殍_!^Rm=8NA9!8cj8L濺]茘!繊函"J蜂DQNv4lS紳莽L
'!]K辮$d*'Y;h新特匪wiGB同:7!駛吭恪)arJ擲^Z!u@"fnnu/g瑟!)+吻wLGO4l~'C哭3C$uwB4亦
(叛3~H銚!3U覽!!,2V]fx糲g1B}!,uy閑袋明鐸稠wE虔wQn"!$X}~$害>LETf莟t9w振}灸F8%8P+T
)!!!!!!8熔!x!!!!隙!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:>:
*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!c4
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!T莠'
,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!修|O
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!wBD]
/!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!n盡K
0!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!琥$_
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Lqvo
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;邉6
3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Mv互盂1OPL袴絣圈5蛻Vu(mz痊ggN梵V
4冥G怦4<{}^L枴70倒Vu(m兇攵9z)Y蒲懾&xmt*Xv_"N$-}"懺^)%S泣,[!d\j穏潰!dj曵D饌hU;^4
5ggrART\Y急貰"H3|f凩m櫻3|g67C&>3預!d$-xK蘖Vg(m結壻9zE8*LDXb蕕253|gB7C&>3嫗!do[Y
6f儿n@?<wRx賠hM3vf僉)?AGDX"4Ke*YD|!d$-*O払9j崇温嬬b蕕SZ'?f僉愾@AD高$Mu)3岫b蛞,P
7ge$(Mx[Tgc?燦澗0禝^Z,Z!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!演zo
g緩roMgH婆dsv嚮Fla&寺伺|脾O珪uR*牆R蜀潟(R却^T栂*淇]矧ST0j4覲望塢/霎,M毒5塩WwzGK
i喀v=岨_'WVC?U9e-坩~)u]%8Z$p^梅宅熱bAxtj4L//F3姚b&h/t&Lv_皀Sg"Q'軅b"V燕i惧c+"哢
--- blta.com (27/27) ---


00052/00047 BQO00549  konno            blta.asm ver0.41k all DOS版 バグ修正
( 0) 12/01/08 02:03 00047:konnoさんへのコメント コメント数:2
;blta.asm (Long Fullpath BLT All for all DOS ver0.41k  2012-01-08 )

INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, ES:CODE, SS:CODE
	org	80h
	argc	db	?		;引数のサイズ 0-127bytes
	argv	db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          	;↓引数をASCIIZにする
	add	bl,[bx]			;引数のサイズ取得
	inc	bx
	cmp	bx,83h			;★ 引数が無い時
	jb	normal			;★
	mov	[bx],byte ptr 0 	;引数終わりの0Dhをnullに

	mov	bx, offset argv		;↓第一引数の処理
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '		;スペースなら第二引数の先頭
	jb	OPERR			;
	jne	USAGE			;それ以外の文字ならHELP
sp2:	add	bx,1
	cmp byte ptr [bx],' '		;
	jb	OPERR			;
	je	sp2
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1			; ""
	jmp	SWCHR
OP_P:	mov	OPT_P,1			; full Pass
	jmp	SWCHR
OP_F:	mov	OPT_F,1			; Filename opt2
	jmp	SWCHR
OPERR:	cmp	OPT_F,0			; 引数が無い
	je	normal

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h			;-> disk num in AL
 	add	al,'A'			;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN) ----
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_FP	;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	jne	win

	mov	ah,47h
	mov	al,byte ptr BUFF_DP
	add	al,1			;AL num different! A=0 (19h) & A=1 (47h)
	mov	dl,al
	mov	si,offset BUFF_FP	;BUFF_DP+3
	int	21h
	jmp	dos

win:
	mov	OPT_W,1
;check & flag set	----
dos:
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1	;if root 0 not root 1(=add '\')

;findfirst	----
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1		;'*.*'
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2	;opt2
FI0:	call	SET			;set cx, si, di
	cmp	OPT_W,0
	jne	FI1
	mov	ah,4eh
FI1:	int	21h
	jc	BYE			;not found?
	mov 	HAND, word ptr ax	;save handle num
	call	print_fn		;print drive+dir

;findnext	----
FINDN:	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	cmp	OPT_W,0
	jne	FN1
	mov	ah,4fh
FN1:	int	21h
	jc	BYEBYE
	call	print_fn
	jmp	FINDN

ERR:	print ERR_MSG1			;not win32
	retms

BYE:	print ERR_MSG2			;file not found
BYEBYE:
	mov	bx,HAND			;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

;	--- subroutines ---

SET:	mov	cx,28h			;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

;	--- print1 subroutines ---
PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

;	--- print filename ---
print_fn:
	cmp	OPT_D,0			;print drive+dir
	je	B0
	putchar	'"'
B0:	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	ret


OPT_W		db	0		;DOS 0 win 1
OPT_P		db	0		;full Path flag
OPT_F		db	0		;Filename opt2 flag
OPT_D		db	0		;double quote flag
FLAG		db	0		;if root 0 not root 1(=add '\')
HAND		dw	?		;handle
FILE1		db	'*.*',0
FILE2		dw	0		;opt2 filename
BUFF_DP		db	?,':\'
BUFF_FP		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for all DOS   Ver0.41k',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend


00053/00053 BQO00549  konno            tagl.def用taglight.pat
( 0) 13/05/11 19:07 コメント数:3
#デフォルト
D	■
C	\^■
B	\^★
A	\^・
1	 

#C,C++コード用
:C,CP,H,
E	(	)
D	{	 }
B	//	\C\$
C	{*	*}

#パスカルコード用
:DP,PA,
E	(*	*)
E	{ 	 }
E	//	\C\$

#HTML用
:HT,
B	<	>
C	!--	--
E	HREF="	"
A	src="	"
B	name="	"
E	font

#CGI用
:CG,
C	<	>
B	!--	--
E	font
A	src="	"
B	name="	"

#NIFTYログ用
:LO,
A	\0\0\0\0\0/\0\0\0\0\0 	\C\$
B	\^|	\C\$
B	\^ |	\C\$
B	\^|	\C\$
B	\^>	\C\$
B	\^>	\C\$
B	\^》	\C\$
C	http://	\C\$
E	mailto:	\C\$

#VZマクロコード用
:DE,
C	\^\0\0:
E	>\0\0 
C	>\0\0\C
C	&\0\0 
C	&\0\0\C
C	&> 
C	&>\C
C	>> 
C	>>\C
E	:\A
E	>\A 
E	>\A\C
B	;	\C\$
D	\^\0\0 	\C\$
B	\^*	\C\$

# TagLight 設定ファイル
#
#【パターン】
#
# |表示色<TAB>前タグ<TAB>後タグ	  → 前タグと後タグも含めて間の文字を着色
# |表示色<TAB>前タグ		  → 前タグのみを着色
#
#【表示色】
#
# DkBlack    0     Black     8
# DkBlue     1     Blue      9
# DkGreen    2     Green     A
# DkAqua     3     Aqua      B
# DkRed      4     Red       C
# DkPurple   5     Purple    D
# DkYellow   6     Yellow    E
# DkWhite    7     White     F
#
#【特殊文字】
#
# \0     0〜9
# \A     a〜z A〜Z
# \C     ASCII CODE $00〜$1F
# \^     前タグの先頭にある場合のみ表示行頭
# \$     後タグの末尾にある場合のみ表示行末
# \\     \ 自身
#
#	※ \$ はANDではなくてORの働きをします。例えば後タグが \C\$ の場合、
#	「表示行末に ASCII CODE $00〜$1F の文字があるところまで」ではなく
#       て「表示行末かもしくは ASCII CODE $00〜$1F まで」となります。
#	※ \^ と \$ は TagLight.exe の内部でフラグに置き換えられていますか
#       ら、これらのみをタグに指定しても「タグ文字列が無い」と判断されます。
#       他の文字を組み合わせて使ってください。
#
#【VZ用 NE 設定】
#
# 行頭の : に続けて1文字か2文字で指定。 AA,BB のように , で区切り
# 複数指定することもできます。



00055/00037 BQO00549  konno            Re: 半角カナのテスト2
( 0) 15/09/13 23:23 00046:konnoさんへのコメント コメント数:1
> > > テスト
> テスト
> > > 半角カナのテストデス
> > > ( ゚゚;)
> メ
> >ル
> > ア
> > ト
> > ゙
> > 行頭に半角の「メル」とか「ド」だけで文字化けしますね。タイトルにはほぼ使用不能?
> > CGIエラーになる場合もあります。
> >
> > 使用する場合は必ずプレビューで確認してください。書きかけの記事が消えても
> > 責任はもてませんので、自己責任で。(^^;
> >
> >
> >
> >
> >
> >
>

00056/00037 BQO00549  konno            Re^2: 半角カナのテスト2
( 0) 15/09/20 02:58 00055:konnoさんへのコメント コメント数:2
> > > > テスト

123
567
789

00057/00037 BQO00549  konno            Re^3: 半角カナのテスト2
( 0) 15/09/22 09:28 00056:konnoさんへのコメント
> > > > > テスト
>
> 123
345
0927 0928



00058/00037 BQO00549  konno            Re^3: 半角カナのテスト2
( 0) 15/09/22 17:17 00056:konnoさんへのコメント コメント数:1
> > > > > テスト
>
> 123
> 567
> 789
11


00059/00037 BQO00549  konno            Re^4: 半角カナのテスト2
( 0) 15/09/22 17:23 00058:konnoさんへのコメント コメント数:1
> > > > > > テスト
> >
> > 123
> > 567
> > 789
> 11
22
3


00060/00037 BQO00549  konno            Re^5: 半角カナのテスト2
( 0) 15/09/22 18:09 00059:konnoさんへのコメント
> > > > > > > テスト
> > >
> > > 123
> > > 567
> > > 789
> > 11
> 22
33


00062/00037 BQO00549  konno            Re^8: 半角カナのテスト2
( 0) 15/09/22 19:25 00061:さんへのコメント コメント数:1
> > > > > > > > > テスト

> > > > > 123
> > > > > 567
> > > > > 789
> > > > 11
> > > 22
> > 33
> 61
62 11
0925 0928



00063/00037 BQO00549  konno            Re^9: 半角カナのテスト2
( 0) 15/10/02 23:04 00062:konnoさんへのコメント
> > > > > > > > > > テスト123 456
> > > > > > 123
> > > > > > 567
> > > > > > 789
> > > > > 11
> > > > 22
> > > 33
> 0925 0928


00064/00064 BQO00549  konno            k7t5b
( 0) 17/09/11 07:21
<<< k7t5b.lzh for MS-DOS ( use ish & LHarc ) [ 180 lines ] >>>
!!SI!M9Q!4"P$n2URK5h!f$oXTQ~!&"HsJ7OBICE}aU8WF^B+h!!!!!!!!!!!!!!!!!!!!!!!!JFHv
!!SI!M9Q!4"P$n2URK5h!f$oXTQ~!&"HsJ7OBICE}aU8WF^B+h!!!!!!!!!!!!!!!!!!!!!!!!JFHv
!!SI!M9Q!4"P$n2URK5h!f$oXTQ~!&"HsJ7OBICE}aU8WF^B+h!!!!!!!!!!!!!!!!!!!!!!!!JFHv
"3疱)&ta浚!x3t-僉1j歓+濠+P孔|}4>i歐y堅70!!|/]E)gXY)<}]緤R女0剏-BO'*稙^'~'P1抻E6
$I%断唸f邵恬d|澤厦OYO+Fh歐^U5d扼兇}6G(f芸懽J縮_='E沛蕾觀些綜BdR峡9繭i戝Ix殼@閠F
%熱S4歡楜[@RqW嚶0L久<探]-,修:a儲z甬)躪eM蛆ey礫Ta猜+Z詢Q|距咄I譚g框5i',Ec-W金*I:
&沙竚m1%識丈?t'?襴犹嫐h<;1厠簷蝴J慌!渊R!}zir:\TI16QPLd潯G雫昃s9氏y9p0&xll:BmJi_
')0幕ir旗uqe爲悁Fij孜m&<s?>蕉1膵瞑慵MX副途$Uc*愚b3圻_e跡Q腐(分飛b桃I稙婚YF"aL^-
(m!OLh$D~)魃f~WSJF瘢{s7M}R忝*o咐8Wg寥~-%<蓍觝VTf-;KA4駅\L_rP^K駑Qm猫+z-:([祷罠N
)9wB豕然9T楕XF||棔wxd$hF>熔滕@|l$~D妃蔡%qlOE'v8GEUuA悳蹴I"v雷KbP|Kd[+i虚溽Jx$纂
*驚[P發瘤懽{$渙課2/;ek%記i,[i^3ju{d紋OB,8<注:茆]U瀛枋但)Js(,度療裁,t瓠!8,@J)檪D
+冢灑=躑jl髪9,t[9n5{荀偵艶uAK(肬G~2枌願VD癡CH糀斥hG^Sfj"$学uQ^瀁笳7成+順e垤&N*B
,ZNE?僻kx數乍HB浣w嫖mR胥者k17YGx答]Od捗P3胞循Z8:14Atg17増,+]rO雲0^6N-I於嶮y:t>M
-z'89@:欽v^T~窃~B祥勁,妍(p7w<aOW畳h%h!嫦Zn4悃^TUo6!Jkz$0@志ljyr^痍柧1\f嬰@<swE6
/璽堵L9_%障|戞K沾v/0PQu9T便8Xlh;c窟[q艀@W"Fg%3坑9>(掘57I{H;配V<屶粁j精覡v,QgV綸
0'_啼癡<hi8~荘勿L!湍=60t&_vfuIvph@曾藩4s,5GCV@駕w嬖熈@室椰|園(Ya@竃wXFZ剋968粥9
1苓<d鵡]F氤鳩幼_'燗疑揩盪a漉\X{妹zGJ}OB<B(V喀懍幅IY7Xw!裳O臈SEc柎S_r奪L陪T:rCV9
2h躾yU_臟EYar茖@姉c!Ra:gv}k-<K*NMZ元孃,i5V?Q答P;kY\Ub氷jX箸QzX峺唄};A灑迎)薐Oz8
3境証!*"諫无'J3,爛静苛獨楞掘{隼eg"P疣BAsN遭91狭穢函:|孝娜>Y(S深舁(I=6UF嵯懌竡ru
43洫慵軌\談x輾eY数E=辞艚紹x乢襯w\9戮A虐M餠拓!坑篠4炎<蛆孱lSoY憲'?@o!d\痔r=k0\W?
5;檸$魃i憾M9肢澄I<vo|蹣sC%7座?o|SP|竭箪qC?+帯A痙枝x譟[垰:屮孚慇桑)Ftu剞O鬲{4E*L
6D1@R(=Dzm把lG抂Q$XS絣Rk叟!zU梛x瀟逆JK&FN-}bSPyfS?俄t漂C榛=僵誑(r緋H堋'N8vZ谿=6
7dr${簀)}隙[%eI7SX*PtNK芯+W?瘡畛MjHD4^啣zzF5vZB<ox懇$8EC孃'\G姨m罅elaZm衰,結|dC
8eT菌J輯?匯莅蔗%0ZY'h臧(WO榁匏hTEG]ruN'41"O筒H痊l9k^仁Fzt笞7m醸><b藷Z瘁y}珥T癜<
9LxX)紮参8BO,疇齢gxbo7)y{S;}72{"mO膂震肖(ucc8沮JzVKq&JK$B:輦T蹣p鎌0隕夐痊H^|8p?
:浸尅@7謎Ijv2戊X\剞彙S鎰w鱒JQL/筅~rq%咎紙*G9Zk>篁舞榧we卉Ag註XJqH澤ml"閣憊辿忿2
;-~{s0遷5嫡P6*蛍)l/@!=E6*sMoyS漂h臼F8蕃Zh弾_s$MC"E岫[梱E|憚恰?PMz3>3Y!G禀臙*酋[
<s螂r戎鳳!=$Q青9<販9uBbe@0y/yjV蛍s|蒿|L(辮W崗爲帙&/\揺XMY鮹翩6裾(Y枷ECW'歇$O襾0
=,6孺I!稗h經王&輸"Y7eE2寰篁幺)h崙*怺7\~g~^!/yV濺'a蟒{>U+定紊蘆@0x鼠榁>zb3>4掩Wh
>癈U牾[GO+:鈩醤RPTF1z季梭"YIbKNY爬Y瘍RC'p崗P松%S=d$n9里3f$\F扞侮<隧V*壯柳搭哥FS
?TN刄'XW惺o鴨b}惱挈[1鑓}-=V'!v>彝1N3ju栗泰\冖Aiw隼1s僻滔E鹸?%DA狷罍貯,嫉::Om拶O
@RkYqU6貯[k澹抄hS7\艪縮mb~ds;B\mI觴p&bY陥嶷虍M4l^jp觚I幡d9F>螳T陶ha>f忖6PMv刄:D
A蟯Oo飼誡49i樫鼎彙jJk掛(:8jOV蚩U柑]闔O鑿斯;!p%B&H髷鵜@硫]PBxM菫7雲AK杓XT住c)"ZS
Bm%A?P/?癈藏~c?z蕃G@盪<窩&1@%AISt疆o%蟄袙冬;鵠N9X+PpgzN/{真pUF(*毎LE(K惷蘋醐pc:
C巌Kv'很dz_買4ApN望否蹴凅]騾*匐稀535~Ua){4魃)u奨褌h@4畿52f(;;瑪G_Fdq腟kKg涜m螽c
D見A@孑銃賑U84+F<&徊%~炭~沓掲HA][xf禅B邦|u瓜S6~qXCYiW6益LPW~p結T煙u拝y\剽夕~N?T
E僖渡3憶~,6oLw;T4eI啀薀到蚪r蚰甬N0R9誕&狸瀋oEv,)官e歟[QA;E({z螯UBCV:\z*d\拶[寵_
F>M:h誘/h84:ps\鉱|0q|迄瘠A謇砕A[]円槞^v\1pAts塘"?zyo単8言8X迫Tn9!暇ovE儉洗採搾1
GDWEr)H岻[囀9A嬉'f,byTR弭屁}?-枝軒9)$ez|mz$q*+$|杷(e<尋流7嚆/椈u:,$住u閨Q錺vSkx
H諠8睦渾f\8p[NVm縮F笙i7a?"冽E(3jhYoeMs燃'U唔T/aw薨;iA梢杯6L6\f4R|弭r休6B^yj柾6>
I聴j=e6p=J4丗lz湖朧V2卦~w4+9撒q剥U-嚢糒V耽Lz蚊$I/4>K諮+遭Y齋1X8昇pI蒹d\uL拱履nu
J認ii(躊Z惻涎督h哺]q>e勃{s膃/Eh)x僂H犢}濾磔N6%志稔_4UjT?AAt4QMB<君@4姉弾@(鞠_v"
Ku~穂/@疾楮G資"GS愃2[}p{概画忰yH墅址雪B!\掎It\v穡Z頂譌:g+p崇v$_Ly桟im醤c炊匱bKY
L&(;菊兄Ss該7rF9JgJiyWO}{nZuOeT駑2@源]!敬~_UfP!澤烟蠕芭Otr/167"~B馴殺2EdOcTfJNB
M風bG煬bx燎{;壼澡椴="罩]d{K娶+S夊A]}V{"愬孅昏挂P鮟T献~t08紜(&裄gn臧f|裝(ClS=r\P
Nf冱瑟朸Tv堂NvYY7T獵UX08?5煕,E]U8田町oUSd獲H電?2巖"D詒D繍/N膰A糞{羅ctS淀LTgNJ'5
O;I叉u摧W2BR;Bup碯芹dV授掵&Nrj咐3a翡6h晢dm>?瓜灑Xh奄W3折K笊哢aql骼A\|L9Z!{NO暮\
PdmuNDUH{E1'Xwa~竊;"py州c9/^lh&dKM耒Gv0xI$廠Nz0遊%儀^螺U(嫐化c嘔拾h争淒JA圭Q{>8
--- k7t5b.lzh (50/180) ---
Q惡9L0件摧mRFj癩*L裨D生珍欷憚Nw?<=t5涜8AJ6低朮j黄iQaf偵S羃獣鍍WSm|裨2棗4Z溟失oM
Rzx}:"q9誠笶黒huf+W媼N3M2淞Q网搴?aIh服+_zKzR燐1泗ubm箸TkE剥x甌p1&H;dZamw=~;羃8J
S)}?惧填B選S枴":G8S[蘋Imzb)^R潯),凩K@Y<嚇繋g,{祿饗崑3Y腰,=U=o,格雷栞-c泓WTy830b
T(W宍dt斫g)9v黄j]L;y逗萸X/Vln8]D栴尿PO拿-蜩淞q@波/肪6Ml柱舊O|苟房M(r矧麻*MZu睦=
Uz5V\g!泅I撫Gx->ON8i窶{冲荀?|:,膈S;{_Wh吝:VE)}3&c砕/nIi}蒔抜c~yaw6di譛b1CU6;焦a
V:緜[NR"茱v8W鞫Yw脛W兢tP{1籠梨vt蜃R6'召柳5甦Z皃[饋&A(扞籘訟=卜VG[掎C農紐騨\XR><
Wi",BT5*-娜変d>罘S八8o99隼O&JBH喘納挽^署?p咼oc杤搗d'項0筅2抄"傘^J决,5lOEZ縺M@oF
X9LVPE皙tV壹Y8R@慙就aqdp<e&A}兇9|獣啖MJLm勳圉'2噪u~ux]/KH泱I蜩w矛杲l|翼&<W*胥@j
YQ-7c虜'=伏天Y疊+d歐r[n&(yWVOj'T参h<gPN%稠膣哲61呻t1峽稱斫B媼Yd撤葬8a雅盟4vRi^m
ZhK--牽4d3UMSXn(@^|夙憇宿9Ok憶Y-JPRy{|62裕|<鉱-fy天iHYhu薜苙悋紊9眥姙TV[彳F8um+
[B屆5燦殳,tb洲akp雕Z嘆??斑l屐S治X^貯~5住k屹柢裼mB粍櫨>oJ噫喋NX裘K莟石O海-,p賛_D
\MWZKMeJ%/T幣僑=~,d]q~Bhs-ibj-|n>泓錘rq@_乞V洛C:尖熾}<[$裨笏觧lU2拏凅J-U閂ttLO,
]@街70G,1匣進{lt8k_疱瓣h桙E%ySP[n/]sR茅拊fA圦){槧淕bW,;=蘊伶k築8d=p1轄舐蝉7D蜿W
^3/6mz限|淡c蝗qjc牾ZyUp変臼泗莠b1Q穫q]'"y';,祠]桎纓]Z/n諤tr4qw)P哥's8>a1L妓刪Bb
_|隨桂芸浮3u坎U2z(搴w:<犠Fe飮C妖Sc]Tm>S-寔判皓P優n髣兼G匱dr税ui%岶"痩aaW7鉢狭Xx
a,+烝凭墻@癈GK羔Og萸筥ngY朏TA庠8塾m5刄J|楴英)稈$境8悠3"k礎炯限[WkS挿置愍癘&z梟+
b{思cFm途Tw{z鈍E|!>43岫M兢CQj螟脂[z'y]}Af抱卸dU$hsU還AN嚮j|靖l唸nE"%s\學1y1L觧O
cE='}H顎陰Svb椌9遥6@Fv畭後iYulc\X奮\,,j儀翰A型Qg棯!nd竊O:)rzdL_0HdT疂r訃孚oI淒5
dx哲%恫%3Dl具mq瘴S22'袿爼]共@oJ蚕$<O3煎sR}wbgSBZm盥ijT吋2鈎)蜩t檬C廰R礒0jw錵<馬
e兀$躋90繋>h=V+惠経L\{{"4浬羃庖/殖喊hodmq鐺0Xy筌1:cU+JE怛y戝-QbPS@\VLr="b圭NB6Q
fI{C駝>cq蒔f{!淘rI?+M西MYc芫w_y:濱薬JT鮭]T唳h椏訳竅suB8爵@C覦+%萋継溷qlOn篶H銘G
gS4淦!)蚪墟b裕x|癰ZPE襲zH5S羊{^6鏝嶐I罔;讙敘$mR察~豸dn/Z謾WAH_乃D霎(瘡>i@癬h椹T
i潅@鵠t掫!ms鏨rD擲h;)p青薺剩Jt窪鮭e擅H)8>l3f*'7汰|駛p死U$縻L升sB醍備<(菎jO];fP=
"Sq3/3笶觜y嘛8gKj纒麗&,茲F屋{殆U廟,d{HYa泯y4Z_]i\禝jL芽Lh竊5fO'K舶d_K塗y0兌eP/[
$GKD$愎甚囀嘛XVk苗Q?滝丑inB惆(叢We/N1蛩CYVr$鐇縢RqNJ_~r9受-P掠肝楸B陝*憩:)xx^椨
%消葱s&敏(1U$捶Z54hN}蟐澡B{卻9afU觚lL@%pb9Zn%勤o0J>船*池Q%結1蘓粍_(八1o崕|鮑7繍
&努,嵐-嫺+EQ/喧@0橈;,Y9刀b%aTLtm?雨W&砦on梍PTS!梦/NgN鍬7@aR雙TC萵M9*)儕y検52wTJ
'峡vD食?沃1'sIPd&X筬貞rwaM&澁听寫姓報迦3校D>_[!2耀k)_迸I霖普SxW6痿崋}雫{禪[Ym繞
([詩迩jD菓綯&圦鎚rG號XZI>痺杢f+$z仁QP蒡qs!LZ楯OA疱K梨出Ez\n汝(FBU[fHS通溏RZx:bE
)雫A綺G咤挺D_-nKd男模5桷$砂|{0R崛鎗TPR>X即x刔琿暢\{B>66%eBj:Y(l-1k莖s-墺'-!a荅4
*3茘Ca仰y刃b*号(敷麹2d紅棘&~墟rr院\貍m_kZtlt)4椁;r+?ek$DQ\-}@+fQx+U泥c郢vZ販;$Q
+]|淤'lAMj感A%M置/]{4W>Y洵6紅櫂x\S察Lp畍QUp_1Z7,nzF"Kv'|fZ?UU}巍+4峻>]0qE筴[z3}
,lKXB}Q円%_z審WbE怱取?Dgv瑯QPmM"ym欸6O;_i)Yr遅覦U^n浣Ql択%c乗>6y刳弩壥玳"P6浚PN
-Y2V亮i蛞E,菻妙拌OlkjCH檎o[=鴬嬰[,楜煌穩vaT|并Lbu02B6\杞角Fr裸+{1}c捶筈Z歃檳p6,
/pA9遶誘J廸悧R;W$R~j眈N束33幣v>衡:R潅揚柔te愎翫懋懽D名掉A雕&F<m'\萼}}q飮k$u1l講
07脅頗斫G副/-,!殖l謾VyUxA錚:祗L湯修汳E選犢)3z岑m}-g嘩iY掟殷Xo[C採倉a0J<Eu況$牛0
188I}&眥e^膓_?t揆]t藏噴擾Sh%蕎QSLT帶鎮犹Q宀U"q&=z3啝*]gIj冪1,g5muO=N艫G_與l][両
2買7s瑳臾Zf2SRFYg9K\~晨|p衛3bAT9{擁\恁;-蜉x傾x什竊V}w干綻絲笨=疾Yd媒笨(nh?P越0'
3綻+_尿肝煩p蚰4;iGB,*=dI冽dS%bF苙[l-0y7崚娑_E,J妄|徹繃W<替|蹼臾H邦肢*r臧hL&F掫b
40鐃c部vU=)iB藐r恂y襪w1/b@-k:箕廛jd係4JV苳傍完楡{貔|'t伏_寫haFL枯衆杷m蝸@孕H留<
5>霏7lRO全非w喧海"H勳唐2勠墟鎖vtBZ甃H彭~菊4埃b7i多aAt貎95B榎B竄CCSlK覈pV2音C3mN
6勇x:Xau楾@=R楊?魘So_悩瓣)|痕;鏗喊鳳R&倶FH:嘔掃ZJWR創h窈qP,AJm忝-(對操彦喜C笨4&
7^MGD久Z]+s;S'?E^Y愕殄敬PzLq!J3L|$'1bPo6覊f:邪;8$xOC捐況ccXB獺F悗上g?Vq9室烱U~I
8rQ謇Vj狃NQV唾Qwq剣=Ac狎詁/C鯉C裟e_*I宴攵:a脳BWT}K!<,g竄+遉3puH眩?薯jg/D凅WKr|@
9%軫v評梏C拿緩報[h*?j5O-条*<~匝B綽0i繭濳掀羈9aC稈exj鹸<+悸9{{M(cxW裴d%tJ~洞{t_K
:y~皺?Y逃就yk鋒汪3f]Mj堕螳)/hLN勹I1S(J商NY<suX"jB駢FN揮芻匸撤@'eQ孜sIKq&眈K纏<y
;>YkG詞陀Pz8}K{4秕qi卻Q8陵?-庖桓:uA:zB蜆e\NV晶&zl?凾W束0恙X>拳uN)揺O慇縋fa=eTfV
<2U2gNu9菴鋤擬u"i郛NCT}'M許箸[鄒炯eQyG|r[B麹M\付嗾倶瑚p洶q-搏眸Xxbe號*=;桿~蝸22
=+t剱吝寨{K>X2|d)柾卦減w'Aq&YZ祠9]p舅DAF痕Pj/螂茂r}!LT>Cp:&5r9:v\TZLj瀋A/oC/YxD
--- k7t5b.lzh (100/180) ---
>4瘢8穰;@liv<bQ;犬mW咏iv,%F勸U闡$b2E1w睨4R'\揮蟒蠎IHU謐屯礒[-nU6d帽jhn7蔦+=H父9
?Q6y<7b)撻1bK揀佞>造]/*5玻c祗魔^r裘電74巓P挌7y*c匹槎w許Pe嫐Y球lCU纛vJ軍蝴N実1頴
@zL0k秣俺澗宴Kv:4}Hu%荒/芭n敬擲6{n=Tx澀8松9:B!袒貞O>Wk密1u[,S<z4礙弱$参u階i軽:c
A-q覯iOK鶏剴=p嗇VmnIu"I8t8総~X男y[$l7訣Mb_p蒻Hc夊Wg齢]:YJ凝Nd$svq|U<[N_O6P淹e7a
Bh葛Z撓甞jf暉穂V/{AO2u,Z-瘉囎淤R@敵訣$*塾礦糸筥嚏y絳|{cAt醒江Q(/骭YJLUg**BamM7=
C@z;Z伍ohZ(|>Nf9%纂%9O%2兆y畭肚=V貧?埓O剔<tnF'Q梁旙|E緻<|bOPKW%]宿壥涎纓痃v迪j*
Dr3儀絞'tA彿楝V}|選;SSBZ~Q髑尠}oS/Y休^~_^)蠱HUv)KBM5麟=瓸j724pW{辿l+I薑Oyn"汝+D
E-狡jf毟'7噛B糸y-pjz賢&zS(嶽6囮Qyfl歹)O:r範MQsr%s{\&)a>h:繃=ij鬢W6曜F>:vL"胛!}L
FE蛉辛:g&2軟槹]yw8PAH!p賠m罸'?H誑+"\T|:絖{諱SM懆羣杳1HA*%f蒭=z)>e瓮LqG騫臼慵>|$
Gz溝廃廣l浴Z陪[:mj7恐sCJ僮斎迂l慈L限h2oF僕^h!広睾;=>;蠑歎s=4枹桙字pY模3蠖&8O+RU
HaGhAS@b亮w埖斜附煢范桿b興3胆%gc(~WQP/f慾e阻'4且:j)|町定"kGJ達BP_k弘葆[]璽X株ON
IK/6N-鋼z顳匂{39詢QIN5W劒O_],治,>恬N2Yo*mk訣c襷,錻8貌n椽<初ld骨W/R腟+X)寤$R2Vea
JCh5h鍵蝸鮒2s質';BYwV~'Z_Q}dH-M咳竓lFZ@汐x|帆z"I椪9zu悩2s版d^]紜界@m(FL眈紙;wNS
K堂Cj?t賦Q%+\笛/寉箴kik壕峨序孛E"+&9)牙i膜_謦*lA掠Kqz妊摧htAR荼P$整E\RTV祗,誣{v
Lb泱$c瑪,-Q~,3mFW迺"C誑{Ap3<將O挿3lu0z性ZE1hqqRyMc敝Ob}?O=澳5^蔕Dw?nxM;6L}Olk3>
MQz痰-3壓v彈聚莫8<h:J?礑H造blHgr7-DvR"l盂c囃澆槞H{叔0*T?]Yln8泯_儔ki=;K,o^J綏{u
N3岬0-廖xOkj?;"謦+BJ\)\sT$&云v哭$2譫dK-*扎嶮c軆m嘶VUs~舸廩\土Mu蟷斧薑A晋[E遇舷8
O條議^\NX頓]迄巻幡nQ{*q鍮屐x{rB瓦彫cD創$疹玩蟠0鱒P9l9+諮c!dz=VZ厨棹乎idQT苧[扁J
P6jzg街耋:B罪縲愆尽s,羸籬y狙/_DOZ]a--P$R-m"o^Fj&&9Q$擡e}厩樢0刄owZhGNUQY綣瑰W2,
Q蓍)}M}tps~H,>欒[0崚W'買Y,^VL僑埣纛aEY?AD舊7弼@雍FvA~相n*3q鍬g漆nKjst6z隰槊\@XY
R塹K2dg呰(Ps5<!屁G9$F&F1&/髷]\招gt沙/-$YH漢>bH凛弥r2殄Qu浣Py痢ixG9寸p鮓zi枩遭2!
SKJt瀋q螻<Z綴竄Gk凹猟zkN3畠i鏗兄z6q2F6蚩?0菅癜Hn樺0k旨Q2宸'炳+外Q^IY舵9q%螺;吹a
TH努C1=i峪VV~oH|庁r&_2gLz?GZ孛Sl材0V(拿貌:-lJu+>盍Bbt8N{FV!群,G桿C沓沽膕_Ql乢K;
U%>瓩粋A9JTN些\筈:6聚=,7c堵聴北AN,=|k唔/w嚢de斈'剛a詞6?Q\-歯sT眞怺ATl徐j;CSE3\2
V!|杖Y鍍硲e;ItY武辱冕+継礫D0%Y]]&f苻襃v$Fo</禾?!Y憩jJ軍堆!:N(胚^料昧G"8ye<d涯9S
WB鴨"就菷玻kfg[OP聚&LD涼qMp[鬱/K噌vb俄把X;|E)拵^zRt燔有gY15R4|s盆}GzgS剌'[ZQD臟
X喫截槁Nqn",<:栖L-!Tam_*娥w;-~T罕?Y蚩帷V胴Xr屆沙mI受瞠渣FNp秕;Q觚抑<l栩V/aq喧)=
Y甬嫺K,O寺TZ懸[~脳(3b!:N誼彙IA肴猫0Z0X穡P?致tX纈fPe誣糾呼晨訖沍u暑奸詭Jb擧[w墳U
ZZ書訓IK呀M"q!]8宗VOf8H;室0k五ff寿鏑葮ck擶u梅竸BUX^ID(2|Jx>~y輔尠ip劃A鄒wlroX軅
[+昌x]瀟-甍b祿哢%521B色c艝Y2G4\l状tk-F0悚窺許裸_z准者Ey嬬9lSh羽冲ci圭嬢芭vu$辣N
\隈咄蘯BS'浙4]3攴GZLg2Mn+謗窿蠻價%巴(e3I刹彜W努h6z57fV饉%隠糂,曰愕挽"o榮昜I$塹0
]p攸/LE"同$喚0^成)荘穎|=p曳B&N[[Q誥b/豆6rN特m濫畜険孫{票罔i盪rV"隋z8cvoi6>LjGvH
^穏]B徙7nu囀鰻3s購WE衙+Cz掣*纐}崛構數藺1:$皓{CNu?dTn溟激袖|Il(i歛葡C悵2u締Z雄,-
_径Z)W泅%E>G足5*,M榮@P^准yN縮択R*HP[Sxz辛T<Bk3QAv}4s蠅T]6a灯/%親1)ib杣*ilUPY*lb
aj纂衽>毳壽呀"+市vX錐?W矧Ik?,k答儺Cf固B~"ekm殳>V慘j=,4,諍P<?7据1檳j=截QxY*落7,=
b|盂謬織y|[盡z遭!彎瑪wVPc榎fQ幕<j瞭庖b*湶S-en苟uw;6dS<c魂V\K~薯H?DwQn埓IN皇&辣Q
ciX塚Wjks廰得痞UJB{t轢_薯udHJ報啾)茗鱒妍0,$1窰&T廬慈t遉a,B}烈QP嫉d&工&截2膜mD)=
d5a墅[覽w__幕NDM柚)見'慊wqOK^h穂%y與'Zte梠O/qS縊溟a何r4V[JP婀=?j羶rq}u~w元S_菽G
e婚|Y幅s1z菴P@漸]+Vram8~爵犂欷沓Q1'IXZY羂jhBkiC龍SK芬M'臈W/>b献訥人M+@;m董e/396
f3_潺o柱0=r^軒\s2涛$i寡淮YE竡Z^Zq廾5g:%3WSl扼咐Hx|X,Aw5p6-80zk%-t溌!z?N眥矜碎Pu
gn賦蛄巽滝卷|]_親zO蜉鍋Vr-r;蹲zy_TdT化=^XMfuJV勅縉呪!cJ爰(Iaji)!fOB渫b隲拈檸QFJ
igI;st\Me,v3Q掛f翅O倦鍵癩敲B<茗~~摘景n>A{K=Bz_J詼沌棊氏諛榴袖YY>yqaE膿O\t!MK~^5
"S凵@澎|i*-v[D*O迺*6T躰撞O$IM-Ei罟o1F5炯QS咫O疊fZ嵶葯疂]秩茅7<淬:kc筮?a梅准気IV
$亀Vppg?qj_pz萍<舞熄雫\}W>蓖}}+號;&1/aI撲1喙/(V悴復ga~Rt6Ue啅?1XET]qM]![t;rA\o4
%x\紀lt厠*h5櫚tNe~1t2e/YrH輔互J0懦摧汢{l匍Ug1Vk粂+~/q=教X4)U瘢盈1ql|u?0n45(lT^)
&ka<羅住O臟d?劇<Zjzub1B矼]疾,PZ置"Q*%n,席TI埒~諡\78(gc0g琲I2L恍,)4nRmwFa鬟PW拌]
'舅LJf7疸\pg0+澳C^廸1*獵0^穡M鐇巣3F(ikpcTGTf;穽濤)8芹>tRnm0麺+/p;休D淳[囿?^拘7<
(r";(芸騎={}哂渟T^x薨恂Y覇蜥渊屋%*rVQcY&U'3M}鎖X隍(m?u瀕G紛5!>B曝{GL+su瞹z好k皖
)嚶絮PQ嫖c翻軽b応藻XB_啗{臟}+Y豸s\頂=sSHz3O4癜l圏,70駐rL>l交{\RAa1拠R~a煖獎帚&i
--- k7t5b.lzh (150/180) ---
*?淘:e墹K駑箏贈$puX烏?Tk61D/劍%K:幹俊s隼$>3缺g荅訊I5{u敬鋸,puV5CE躙,bPq,mY1Njq<
+%D+[r+嵬LE敏U|N8<輸~*/桎J-繊y逃彦璋地]旨患vU創'痃蟾k$纃笘XnD嬲鋳T?-n'罩d粒鎚)\
,卷j僧5B~vLoxd巷47膂^5XPmIjSo_4Ki認2繦T>V]J'dq;罔i24[專w]*\]u4幅<o|_BAiP3*Y3R荳
-6Gg$w搏>Z鋼%B;wn泓)EE遵WS彑:操潁LA!=1掠qu1cQ_F>磚Jv]蕕+8戴w賠_^+^(砂X0Fnt9up(5
/V,^7P涅買g'T魘o{叉髪>鬣X錙精泌hvi梭2_r{/嘔[TR粘罕誌賊瀋O柩瀁翳2"鮭CU疼"~奥>}m!
0j{d>(P冫惴jc猥碣BTy$9*濟臚系i痂j鳥佑,躄l{I[7,-AF)>Pk<勠|(4xj犠+8,觧掌-鱈s>D[G~
1U0黒3d"[:~&'成dfv&&飄繆Jm歴6qw緞*尋t6f%厩gS@9舸/u側x楓Xn瀕R泱Wp釘;9XiJ5LL6孺dD
2\次乙dK,9乢hbmw椙r,T岫爛吝rM雨KE穰竜LxnJ奮u)l%@坊mp+羶(}y--浹Yi戯臭L蚯0$档矯,F
3瀁5MK\747郊車樒e5/qr4濬X05y騎戰爾,8昇b4汐翰館cz+v貯iO{迹目aqx笠听&{smV雷薈S畋_
4拂賜琉+;礫^戮[05uLiJ擣S邨宦8p)EaZM*塰唐棡P4U板1MB,2謨N9l%萇30径5K|?$e諚1S=盛JP
5dqj\2穴Y~hB揄4z^p}s揺G魃鍔拠,癧諸/dI4縉\E第sqHq激覦戊0CR直蠍z\Ir撩_莢+1-吋bcT0
6^i麹/o峨p\孝:/jmtHsw2gfh~7w*!C苧謙^1B潤|Js~廣祺4:t6Dyl[O納FX蓁磑"^3fekT,s努Q廾
77Ab挂*X榧膣U38!腦r\截橦淵p窶bz訝o/r普惠zA婢8t6%|u481躬E/縵l25-hUj愃絏薇腸\膃lp
8要MmHE旌Z@q冓)凵lazKo*R3XwPH_,M<斥漂0nbp|b諞沢K疽凹L,V隲m6pv愼倣}<J*仁WWKbWi@E
9>?y忖S鞠a囘J止圷av厖歃cI(挙>G溟VdS[袴訟煖=LWL"V唆枳1;7mYb渭D-h茗重頻x去O=盧水I
:''9|Z)拊媛柩_&榮M>Lo縻!甚煦喬獄恬p1("Ks6vq)墨Dv技粧JS;該&Cn眈衾?忝_廟l洛藥惜:;
;匈喝6娟穆岔P2堪B_&iGx縦=y%出oTa4l掎zS??=曩圍限L+拇]u繰距6T譚uBOc]R3nl莅~|廃)uS
<jkraTjm汾gN冬養q+巛ZUHl浣J[$I枯琴僖遜C烏樟2z**6嚼)N瘴愧y掻d拊椁NA歐^轡B酪繪恚(
=氏肌甸YG宝符s7?榛g<y弯F\桿n信Ug<eWuGwY凱;v:"24煎W\57bM3;拂D煖2RQW,)T歐恟~$*Gx!
>G嚢有t匣lc=V_6o竝=F蝪谷d郢\敗緞Y5ee}H->,618sye痞(xJS腑I'宿N,jDnFAG淌輝w1gr瘤Fb
?聆t皓ej応Kc樋f\稀爭禿,;劑戮-vF棯揀2}uo謦}螯'努夸萠IWXG8\墾T40M馳&Cj孱^喘=莪hNX
@(@q瓶F>^~萄'OVnX兔読~zrBo3_t篠幗-T鰻痾zL晁}vf(\A7~D爨;酷英穎l7羶宏気剣sV)<tY/N
AwQZAv概Qn道(J-l:w毳秀}EXr(G8又"AcD"N7i=*壌E-駅芻2%iF円K燈糟尨:q{卍賜繕AV領H3gX
B罪剞{鄂s叙G咼翆^愃_&貌轡梼厖Ib'k褻挾簇侍}L煌}-拈詼Ep譫j鬘匏z躱\=;gxthZ西cs稚Ax
C敞fWMve鏥纛<~J僊]\xqZ驩沃9s衰7左e束更^狡/u愾1^-梵_,oU1Zb罠y徒7{7(叺]辯睇dG1bis
DbjbK8u"IUp,xgF*<$,0d)n造1v繹諭津k~續呎aZ0(瀦lk/縛z1aEb竭m祺椣謌3o!吠裳尽@[塘=Q
E5B棕$|G里官克m%$i!辞CQ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;躅]
gR>B){K耋k}V鏤猷iE碍d&]PP堋挟s4l刮r譏obi/oB;9;benNZ/MGO皆?7u勧洵I-[痰S{ffZ澹T府
i"}蕚:JUr苑映癇\CL!g'洌c8l爿"楙mx]u|"!,禾四-仇W|z=V鎔W'08H!N窓chs9徨=c覧,r爻==/
--- k7t5b.lzh (180/180) ---


00065/00065 BQO00549  konno            Tra_TAG.def 改 V1
( 0) 18/10/04 21:42 コメント数:1
削除しました

00066/00065 BQO00549  konno            Tra_TAG.def 改 V02
( 0) 18/10/05 01:02 00065:konnoさんへのコメント コメント数:1
=== Tra_TAG.def v16 ===
; V16k02		2018-10-04 konno

* M
;60 ^\ "TAG"
60 ^[F10] "TAG"
        ?.
;------- ファイラー移行拡張子 (%A) ---------------------------------------
	a".com .exe .dic .obj .lib .lzh .jpg .gif .ico .zip .pif .lnk",
;------- start コマンド拡張子 (%B) ---------------------------------------
	b".xls .ppt .mdb",
;------- メニュー選択拡張子  (%C) ---------------------------------------
;	c".htm .pas",
	c".htm .pas .asm .inc",
;------- m=0:wgrep, m=1:ygrep, (%D) --------------------------------------
	m0,	;m1,
;-------------------------------------------------------------------------
	#] #? (r)?. wa..19.2-,		;行を lfb に取り込む
	&So(wa..18,":\") (r)??{		;フルパスが書いてない
		&Ss(pq..148+2) si=r,
		di=pq..134+100, i-, i[, &> i],
		(r!=-1)?{ r=si+1, >C }	;行頭からもLFNが取得出来ないときは
;		 r=si+1, >C ;}		;★LFNが取得出来なくても進む
		dn[-, #60 dn],		;通常の #60 
		&m("0 ng %s",di)	;▼
		>C			;★LFNが取得出来なくても進む
		f"",(r)?>61 >B		;取得できなければ LZH 処理
	}

:A	si=r-1, di=pq..134+100, i3,	;フルパス部分を di へ取り出し
:C	di[, &> di],
	f=di, ;(r==-1)?{ #> #d >E }
	r=si+i,				;-->r=lbf内のフルパス末尾adr
	&09 				;-->pa=拡張行番号情報
	ax$7160, cx+, si=di, di=pq..149,
;        &i($21) (ax==$7100 || r)?di=si,
        &i($21) (ax==$7100)?di=si,

	&s 
	#k (w=wn)?#X mr255,#i mb+,		;起動行を console に貼り付けて
	ps[=pr, #56 "$"" #m "" #m 'Y'
	#56 &?("\i %s",si) #m		;ファイル名部分をSFNに置換
	&?("%s ",di) #m 'Y' ps], mb-,
	#60 e=r,			;TAG情報取得して
	ux[+, #y ux], (w)?#X &d		;後始末
	#> #d
	(e)?{				;ディレクトリ対応
		&06 (r)? >E
		&m("1 ng %s",pf)	;▼
;		f"",(r)?>61 >B		;取得できなければ LZH 処理
		.
	}

:B	;- 拡張子判断 -
	&Sy(pf) (r&2)?{
		:a &So(a,cx) (r)?{	;ファイラー移行拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&03 .
			} a=e+1, >a
		}
		:b &So(b,cx) (r)?{	; start コマンド拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&07 .
			} b=e+1, >b
		}
		:c &So(c,cx) (r)?{	;メニュー選択拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&02 .
			} c=e+1, >c
		}
	}
	&04				;--- テキストとしてオープン ---
		&m("2 ok %s",pf)	;●
.


:E	;- オープン出来ない -
	&m("%s オープンできません",f) &b(2)

00:	;--- LFN対応 #60 ----
	;<-- r=0:Exists, -1:non,

	si[,
	&Sc(di,si,i)
 :A 	(si.i=='"')?{ si++, >A }
; 	&f(si.i,"$(9,d)$"(*<>?:/| =[];+,")
 	&f(si.i,"$(9,d)$"(*<>?:| =;+,")
	e=r, (si.i)??e-,
	(e>=0)?{			;ファイル不可文字なら一旦存在判定
		&> (r)??>Z		;存在すればr=0を返す
	}
	(e==255)?{ di.i-, (-1) >Z }	;存在しなければr=-1を返す
	di.i=si.i, i++, >A
:Z	si],

01:	;--- ファイル存在チェック ---
	;<-- r=0:Exists,
	;    e=255:最終判定,

	(e<11)?e255,			;LFN でも使えない文字なら最終判定
        di.i-,
	&Sn(di) r--, (di.r=='\')?di.r=0,
	ax$7143, bx-, dx=di,
 :F	&i($21)				;ファイル存在チェック
	(ax==$7100)?{			;LFN に対応してなければ最終判定
		ax$4300, e255, >F
	}
        (r)

02:	;--- メニュー処理 ---
	;--> pf

	&m("%70s",pf)
	!01
	(r==0)?{	;start
		&07
		.
	}
	(r==1)?{	;filer
		&03
		.
	}
	(r==2)?{	;open
		&04
		.
	}

03:	;--- ファイラーへ移行 ---
	;--> pf,bx

	#O bx.0[=0, &?("%s",pf) #m bx.0=0],
	&Sc(pn..-38,pf) #U 

04:	;--- テキストとしてオープン ---
	;--> pf

	r=pf, &08 (r==1)?{
:S	;- メニュー処理その2 -
		&m("maybe binary : %60s",pf)
		!01
		(r==0)?{	;start
			&07
			.
		}
		(r==1)?{	;filer
			&03
			.
		}
		(r==2)?{	;open
			>O
		}
		.
	}
 :O	&Sf(pf,' ') (r)?{ p=r, si=p+2, }
		?{ &Sn(pf) si=p=pf+r, } &>
	q=pf, pf[=pr,
	p.0[=0, #O &?("%s",q) p.0=0], #m
	pf],
	(s)?{ &b(2) . }

	(pa.0==1)?{
		&m("ただいまジャンプ中(->%s)",pa+1)
		#O &?("%s ->%s",wa+146,pa+1) #m
		&d
		.
	}

	&m("ただいまジャンプ中(%lu行)",ax,dx)
	#^ dn[-,
:L	;- long行番号へジャンプ -
	(dx)?{ dx--, &#J(-1)
        	(ln-0~)??{ #> #d >L } (0)
	}? &#J(ax)
	&m("") #? &d dn],

05:	;--- Long 値を取得 ---

	&i(3+$)."$
	$(33,C0,99,33,C9,BF,0A,00,8B,D8,AC,2C,30,3C,09,77)$
	$(0F,8A,C8,8B,C2,F7,E7,93,F7,E7,03,C1,13,D3,EB,E8)$
	$(8B,C3,C3)"

06:	;--- ディレクトリとしてオープン ---
	;--> di

	ax$4300, bx-, dx=di, &i($21)	;ファイル存在チェック
	(r)?{ (1) . }
	#O &?("%s",di) #m (0)

07:	;--- start コマンド ---
	;--> pf

	#E &?("Start %s",pf) #m #[

08:	;--- chk binary ---
	;--> r=ファイル名
	;<-- r=-1:non file, 1:binary

	ax[,bx[,cx[,dx[,di[,
	dx=r, ax$3d00, &i($21) (r)?{ (-1)>Z }	;open
	dx=pq..149, bx=ax, cx=250,
	ax$3f00, &i($21)			;read
	bx[, di=dx,cx=ax,
	&i("$(32,C0,F2,AE,F7,D9,C3)") (r)	;scan ZERO
	bx], ax$3E00, &i($21)			;close
 :Z	di],dx],cx],bx],ax],

09:	;--- 拡張行番号情報 ---
	;<--pa.0  db 0:normal, 1:cp, 2:env,
	;     .1  dd string

	p[=r+1,
	pa.0-,
	(p..0=='>-')?{
		pa.0=1, p+=1, i-,
		:a i++, r=p.i, &10 ?{ pa.i=p.i, >a }
		pa.i-,
	}
	(p..0=='-[')?pa.0=2,
	p],

10:	;--- 16進? ---
	(r)>!{
		1>h 2>h 3>h 4>h 5>h
		6>h 7>h 8>h 9>h 0>h
		A>h B>h C>h D>h E>h F>h
		a>h b>h c>h d>h e>h f>h
	}
	(0)
.:h	(1)

61 ^^ "LZH"
	(s)?.
	&s &#M(4) ky[,
	&20 f=r,			;-->f=検索文字
	(f)??{ &m("変数 m を正しく設定してください") >Z }
	mp[,ps[=pr,
	#F &?("%s",f) #m #r
	ps],mp],
	(r)?{ r-,>e }
	r=pq..149, &23			;-->r=行バッファ取得アドレス
	(r==-1)?{ r+, >e }
	&21 (r==-1)?{ r2, >e }
	p=r,				;-->p=圧縮ファイル名

	&#U(4)
	r=pq..149+121, &23
	(r==-1)?{ r+, >e }
	&22 (r==-1)?{ r3, >e }
	q=r, &Sn(q) l=q+r+1,		;-->q=ファイル名
	&Ss(l) l=r,			;   l=行数

	#E &?("miel -l -na %s +%s -ej -j%s",p,q,l) #m #[

 :Z	&#U(4) ky],&d
.
:e	;- エラー表示 -
	&#U(4) #> #d &#M(4)
	(r)>?{
		("タグ情報/書庫ファイル情報行が見つかりません")
		("カーソル行が取得できません")
		("書庫ファイル情報行の不備です( ^QP でジャンプ )")
		("タグファイル情報行の不備です")
	}
	&m("%d %s %s",r,mg..0,p)
	>Z

20:	;--- 書庫ファイル情報検索文字 ---

	r-,
	(m==0)?{ r"\i ------------------[", }
	(m==1)?{ r"\i /* 書庫ファイル ", }
	(r)

21:	;--- 書庫ファイル情報行を分析 ---
	;-->r=取得バッファ

	p[=r,
	(m==0)?{
		&SO(p," << ") (r)?p=r+4,
				?{ r=-1, >Z }
		&SO(p,"]") (r)?r.0-,
				?{ r=-1, >Z }
	}
	(m==1)?{
		&SO(p,"ル ") (r)?p=r+3,
				?{ r=-1, >Z }
		&SO(p," */") (r)?r.0-,
				?{ r=-1, >Z }
	}
	r=p,
 :Z	(r)
 	p],

22:	;--- タグファイル行を分析 ---
	;-->r=取得バッファ

	p[=r,
	&SO(p," ") (r)?r.0-,
			?{ r=-1, >Z }
	&SO(r+1,":") (r)?r.0-,
			?{ r=-1, >Z }
	r=p,
 :Z	(r)
 	p],

23:	;--- カーソル行の(論理)行頭から 120 文字を r へ取得 ---
	;-->r=取得バッファ
	;<--r=-1:Err,

	p[=r,
	(mr==$80)?{#? &s }?#28	;#28 は ViewMode では使えない
	(r)?{ r=-1, >Z }	;#? #28 --> r==-1:lbfが一杯などのエラー
	wa..19.2-,
;	&Sc(p,wa..18,120) r=p,
	&Sc(p,wa..18,200) r=p,
 :Z	(r)
 	p],


* P
01	"",7,3
	"Start"
	"Filer"
	"Open"

*
= End of Tra_TAG.def =


00067/00036 BQO00549  konno            他の板への番号リンクテストです
( 0) 18/10/06 20:12 00036:konnoさんへのコメント
他の板への番号リンクテストです。

#     #41 言#41 塀#41 の#41 #41 #1#41 ##41

#kyo #k3008 #kyo3008へ(今日のテーマ板)

#kyo 今日のテーマ#3008へ(今日のテーマ板)

#link #l0008  #link8へ (リンク板)

#test #t0041 #test41へ (テスト板)

#n   #n3000  野ざらし言#3000 野ざらし言3000番へ  #n3000

#i   #i1000  板塀#1000へ       板塀1000番へ  #i1000




00068/00068 BQO00549  konno            testです
( 0) 18/10/23 21:32 コメント数:1
testです

00069/00068 BQO00549  konno            Re: testです
( 0) 18/10/23 21:33 00068:konnoさんへのコメント
> testです

testです

00070/00070 BNY00646  shadow           maskman2
( 0) 18/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) ---



00071/00070 BQO00549  konno            IMASK3.DEF
( 0) 18/11/21 21:14 00070: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


00072/00065 BQO00549  konno            Tra_TAG.def 改 V04
( 0) 18/12/04 23:12 00066:konnoさんへのコメント
=== Tra_TAG.def v16 ===

;					 V16k04	konno改
;2018-10-04 03 ディレクトリ&LFN不具合対応  
;2018-12-04 04 バッファ溢れ不具合対策 コンソールのみ

* M
;60 ^\ "TAG"
60  "TAG"
        ?.
;------- ファイラー移行拡張子 (%A) ---------------------------------------
	a".com .exe .dic .obj .lib .lzh .jpg .gif .ico .zip .pif .lnk",
;------- start コマンド拡張子 (%B) ---------------------------------------
	b".xls .ppt .mdb",
;------- メニュー選択拡張子  (%C) ---------------------------------------
;	c".htm .pas",
	c".htm .pas .asm .inc",
;------- m=0:wgrep, m=1:ygrep, (%D) --------------------------------------
	m0,	;m1,
;-------------------------------------------------------------------------


	#] #? #> #< &x(255)		;バッファ溢れ対策 行の長さ255以上?
	(cd!=$d&&wn==0)?{&x(254)#m#e}#<	;コンソールなら改行挿入

	#] #? (r)?. wa..19.2-,		;行を lfb に取り込む
	&So(wa..18,":\") (r)??{		;フルパスが書いてない
		&Ss(pq..148+2) si=r,		;lbuf
		di=pq..134+100, i-, i[, &> i],	;tmpbuf
		(r!=-1)?{ r=si+1, >C }	;行頭からもLFNが取得出来ないときは
		 r=si+1, >C 		;★LFNが取得出来なくても進む
		dn[-, #60 dn],		;通常の #60 
		&m("0 ng %s",di)	;▼
		>C			;★LFNが取得出来なくても進む
;		f"",(r)?>61 >B		;取得できなければ LZH 処理
	}

:A	si=r-1, di=pq..134+100, i3,	;フルパス部分を di へ取り出し
:C
;	&m("-0 ng %s",di)	;▼
;&w(120)
	di[, &> di],
	f=di, ;(r==-1)?{ #> #d >E }
	r=si+i,				;-->r=lbf内のフルパス末尾adr
	&09 				;-->pa=拡張行番号情報
	&m("09 i=%d %s",i,wa+146)
;	&t &w(120)
	ax$7160, cx+, si=di, di=pq..149,
;        &i($21) (ax==$7100 || r)?di=si,
        &i($21) (ax==$7100)?di=si,

	&s 
	#k (w=wn)?#X mr255,#i mb+,		;起動行を console に貼り付けて
	ps[=pr, #56 "$"" #m "" #m 'Y'
	#56 &?("\i %s",si) #m		;ファイル名部分をSFNに置換
	&?("%s ",di) #m 'Y' ps], mb-,
	#60 e=r,			;TAG情報取得して
	ux[+, #y ux], (w)?#X &d		;後始末
	#> #d
	(e)?{				;ディレクトリ対応
		&06 (r)? >E
		&m("1 ng %s",pf)	;▼
;		f"",(r)?>61 >B		;取得できなければ LZH 処理
		.
	}

:B	;- 拡張子判断 -
	&Sy(pf) (r&2)?{
		:a &So(a,cx) (r)?{	;ファイラー移行拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&03 .
			} a=e+1, >a
		}
		:b &So(b,cx) (r)?{	; start コマンド拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&07 .
			} b=e+1, >b
		}
		:c &So(c,cx) (r)?{	;メニュー選択拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&02 .
			} c=e+1, >c
		}
	}
	&04				;--- テキストとしてオープン ---
		&m("2 ok %s",wa+146)	;●
.


:E	;- オープン出来ない -
	&m("%s オープンできません",f) &b(2)

00:	;--- LFN対応 #60 ----
	;<-- r=0:Exists, -1:non,

	si[,
	&Sc(di,si,i)
 :A 	(si.i=='"')?{ si++, >A }
; 	&f(si.i,"$(9,d)$"(*<>?:/| =[];+,")	;
 	&f(si.i,"$(9,d)$"(*<>?:| =;+,")		; / ディレクトリ&LFN対応
	e=r, (si.i)??e-,
	(e>=0)?{			;ファイル不可文字なら一旦存在判定
		&> (r)??>Z		;存在すればr=0を返す
	}
	(e==255)?{ di.i-, (-1) >Z }	;存在しなければr=-1を返す
	di.i=si.i, i++, >A
:Z	si],
	&m("00 i=%d %70s",i,wa+146)
	;&w(60)

01:	;--- ファイル存在チェック ---
	;<-- r=0:Exists,
	;    e=255:最終判定,

	(e<11)?e255,			;LFN でも使えない文字なら最終判定
        di.i-,
	&Sn(di) r--, 
	(r>=254)?{&m("%d",r)&t}
	(di.r=='\')?di.r=0,
	ax$7143, bx-, dx=di,
 :F	&i($21)				;ファイル存在チェック
	(ax==$7100)?{			;LFN に対応してなければ最終判定
		ax$4300, e255, >F
	}
        (r)
	&m("01 i=%d %70s",i,wa+146)
	 ;&w(60)

02:	;--- メニュー処理 ---
	;--> pf

	&m("02 %70s",wa+146)
	;&w(120)
	!01
	(r==0)?{	;start
		&07
		.
	}
	(r==1)?{	;filer
		&03
		.
	}
	(r==2)?{	;open
		&04
		.
	}

03:	;--- ファイラーへ移行 ---
	;--> pf,bx

	#O bx.0[=0, &?("%s",pf) #m bx.0=0],
	&Sc(pn..-38,pf) #U 

04:	;--- テキストとしてオープン ---
	;--> pf

	r=pf, &08 (r==1)?{
:S	;- メニュー処理その2 -
		&m("maybe binary : %60s",pf)
		!01
		(r==0)?{	;start
			&07
			.
		}
		(r==1)?{	;filer
			&03
			.
		}
		(r==2)?{	;open
			>O
		}
		.
	}
 :O	&Sf(pf,' ') (r)?{ p=r, si=p+2, }
		?{ &Sn(pf) si=p=pf+r, } &>
	q=pf, pf[=pr,
	p.0[=0, #O &?("%s",q) p.0=0], #m
	pf],
	(s)?{ &b(2) . }

	(pa.0==1)?{
		&m("ただいまジャンプ中 %s(->%s)",wa+146,pa+1)
; &w(60)
;		#O &?("%s ->%s",wa+146,pa+1) #m
		#O &?("%s ->%s",pf,pa+1) #m
		&d
		.
	}

	&m("ただいまジャンプ中 %s (%lu行)",wa+146,ax,dx)
; &w(60) &d
	#^ dn[-,
:L	;- long行番号へジャンプ -
	(dx)?{ dx--, &#J(-1)
        	(ln-0~)??{ #> #d >L } (0)
	}? &#J(ax)
	&m("") #? &d dn],

05:	;--- Long 値を取得 ---

	&i(3+$)."$
	$(33,C0,99,33,C9,BF,0A,00,8B,D8,AC,2C,30,3C,09,77)$
	$(0F,8A,C8,8B,C2,F7,E7,93,F7,E7,03,C1,13,D3,EB,E8)$
	$(8B,C3,C3)"

06:	;--- ディレクトリとしてオープン ---
	;--> di

	ax$4300, bx-, dx=di, &i($21)	;ファイル存在チェック
	(r)?{ (1) . }
	#O &?("%s",di) #m (0)

07:	;--- start コマンド ---
	;--> pf

	#E &?("Start %s",pf) #m #[

08:	;--- chk binary ---
	;--> r=ファイル名
	;<-- r=-1:non file, 1:binary

	ax[,bx[,cx[,dx[,di[,
	dx=r, ax$3d00, &i($21) (r)?{ (-1)>Z }	;open
	dx=pq..149, bx=ax, cx=250,
	ax$3f00, &i($21)			;read
	bx[, di=dx,cx=ax,
	&i("$(32,C0,F2,AE,F7,D9,C3)") (r)	;scan ZERO
	bx], ax$3E00, &i($21)			;close
 :Z	di],dx],cx],bx],ax],

09:	;--- 拡張行番号情報 ---
	;<--pa.0  db 0:normal, 1:cp, 2:env,
	;     .1  dd string

	p[=r+1,
	pa.0-,
	(p..0=='>-')?{
		pa.0=1, p+=1, i-,
		:a i++, r=p.i, &10 ?{ pa.i=p.i, >a }
		pa.i-,
	}
	(p..0=='-[')?pa.0=2,
	p],

10:	;--- 16進? ---
	(r)>!{
		1>h 2>h 3>h 4>h 5>h
		6>h 7>h 8>h 9>h 0>h
		A>h B>h C>h D>h E>h F>h
		a>h b>h c>h d>h e>h f>h
	}
	(0)
.:h	(1)

61 ^^ "LZH"
	(s)?.
	&s &#M(4) ky[,
	&20 f=r,			;-->f=検索文字
	(f)??{ &m("変数 m を正しく設定してください") >Z }
	mp[,ps[=pr,
	#F &?("%s",f) #m #r
	ps],mp],
	(r)?{ r-,>e }
	r=pq..149, &23			;-->r=行バッファ取得アドレス
	(r==-1)?{ r+, >e }
	&21 (r==-1)?{ r2, >e }
	p=r,				;-->p=圧縮ファイル名

	&#U(4)
	r=pq..149+121, &23
	(r==-1)?{ r+, >e }
	&22 (r==-1)?{ r3, >e }
	q=r, &Sn(q) l=q+r+1,		;-->q=ファイル名
	&Ss(l) l=r,			;   l=行数

	#E &?("miel -l -na %s +%s -ej -j%s",p,q,l) #m #[

 :Z	&#U(4) ky],&d
.
:e	;- エラー表示 -
	&#U(4) #> #d &#M(4)
	(r)>?{
		("タグ情報/書庫ファイル情報行が見つかりません")
		("カーソル行が取得できません")
		("書庫ファイル情報行の不備です( ^QP でジャンプ )")
		("タグファイル情報行の不備です")
	}
	&m("%d %s %s",r,mg..0,p)
	>Z

20:	;--- 書庫ファイル情報検索文字 ---

	r-,
	(m==0)?{ r"\i ------------------[", }
	(m==1)?{ r"\i /* 書庫ファイル ", }
	(r)

21:	;--- 書庫ファイル情報行を分析 ---
	;-->r=取得バッファ

	p[=r,
	(m==0)?{
		&SO(p," << ") (r)?p=r+4,
				?{ r=-1, >Z }
		&SO(p,"]") (r)?r.0-,
				?{ r=-1, >Z }
	}
	(m==1)?{
		&SO(p,"ル ") (r)?p=r+3,
				?{ r=-1, >Z }
		&SO(p," */") (r)?r.0-,
				?{ r=-1, >Z }
	}
	r=p,
 :Z	(r)
 	p],

22:	;--- タグファイル行を分析 ---
	;-->r=取得バッファ

	p[=r,
	&SO(p," ") (r)?r.0-,
			?{ r=-1, >Z }
	&SO(r+1,":") (r)?r.0-,
			?{ r=-1, >Z }
	r=p,
 :Z	(r)
 	p],

23:	;--- カーソル行の(論理)行頭から 120 文字を r へ取得 ---
	;-->r=取得バッファ
	;<--r=-1:Err,

	p[=r,
	(mr==$80)?{#? &s }?#28	;#28 は ViewMode では使えない
	(r)?{ r=-1, >Z }	;#? #28 --> r==-1:lbfが一杯などのエラー
	wa..19.2-,
;	&Sc(p,wa..18,120) r=p,
	&Sc(p,wa..18,200) r=p,
 :Z	(r)
 	p],


* P
01	"",7,3
	"Start"
	"Filer"
	"Open"

*
= End of Tra_TAG.def =


00073/00073 BQO00549  konno            めざらさん方式発言者ID生成関連
( 0) 20/10/25 17:37 コメント数:2
BBSのログをnifty形式に変換するときにネックになるのが発言者のIDをどうするかです。

野ざらし言:過去ログ書庫
http://mezala.la.coocan.jp/noz/index.html

めざらさんがここで仕様とマクロを公開していますが、仕組がさっぱりわかりません。
板塀にめざらさん方式発言者ID生成関連情報がありました。

板塀#813 です。



00074/00074 BQO00549  konno            command.com 関連
( 0) 22/09/16 22:56
 #kyo4602: 手持ちの command.com 投稿者: - あじゃ -   2009/12/19(土) 11:12
参照先: http://aja.seesaa.net/

 #04601 shadow さん宛というわけでもなく、

手持ちの command.com です。

65,091  94-04-15   6:30 command.com	PC DOS J6.30/V	(fix前)
65,106  95-06-06   6:30 command.com	PC DOS J6.30C/V	(fix後)

63,387  95-07-07   7:00 command.com	PC DOS J7.00/V	(fix前)
63,402  98-05-25   7:00 command.com	PC DOS J7.00C/V	(fix後)

116,802  95-10-03   0:00 command.com	Windows95a	(初期版)

118,164  98-06-12  20:01 command.com	Windows98	(1st)

117,638  00-06-08  17:00 command.com	WindowsMe

あと Win95 の OSR2 があるけど、いま出すのはちょいと大変。


00075/00075 BQO00549  konno            新リンク機能テスト
( 0) 24/02/22 00:13 コメント数:1
新リンク機能のテストです。

#txt=hanoi_k.def

#txt: hanoi_k.def

#txt:aste1.zip #txt:stime2.lzh
#txt:aste1.zip_ #TXT:stime2.lzh.

00076/00075 BQO00549  konno            Re: 新リンク機能テスト
( 0) 24/04/04 14:18 00075:konnoさんへのコメント コメント数:1
> 新リンク機能のテストです。
> 
> #txt=hanoi_k.def 
> 
> #txt: hanoi_k.def 
> 
>   #txt:aste1.zip  #txt:stime2.lzh
>   #txt:aste1.zip_  #TXT:stime2.lzh.


表示テストです。


00077/00075 BQO00549  konno            Re^2: 新リンク機能 txt=  txt:
( 0) 24/04/27 23:20 00076:konnoさんへのコメント コメント数:2
> > 新リンク機能のテストです。
> > 
> > #txt=hanoi_k.def 
> > 
> > #txt: hanoi_k.def 
> > 
> >   #txt:aste1.zip  #txt:stime2.lzh
> >   #txt:aste1.zip_  #TXT:stime2.lzh.
> 
> 
> 表示テストです。
> 
#TXT=LXCLND.DEF
#TXT:LXCLND.DEF


00078/00075 BQO00549  konno            新リンク機能、今日、テスト
( 0) 24/05/29 06:36 00077:konnoさんへのコメント コメント数:1
東芝のデスクトップ一体型です。うちの掲示板の過去ログで書いています。
> 今日#5814:TVを買ったらWin7がついてきたよ konno 2012/04/30
http://tamaneko.world.coocan.jp/bbs/wforum.cgi?mode=allread&pastlog=14&act=past&no=5814#5814

それが2018年に動かなくなったので買い替える口実にしたのでした。(^^;
> 今日#7989:デスクトップPCが壊れた  konno 2018/04/01
http://tamaneko.world.coocan.jp/bbs/wforum.cgi?mode=allread&fsize=&no=7989#7989

#k7989 #kyo7989

#t78 #test78
テスト#78





00079/00075 BQO00549  konno            Re: 新リンク機能、今日、テスト
( 0) 24/07/06 23:37 00078:konnoさんへのコメント コメント数:1
単なるテストです。この長い行を折り返すかどうか。さてどうなることやら全く分かりません。どうしたものか。
      タブとスペースのテストです。


00080/00075 BQO00549  konno            Re^2: 新リンク機能、今日、テスト
( 0) 24/07/06 23:39 00079:konnoさんへのコメント
> 単なるテストです。この長い行を折り返すかどうか。さてどうなることやら全く分かりません。どうしたものか。
>       タブとスペースのテストです。
> 
> 

00081/00081 BQO00549  konno            クリップボード
( 0) 24/10/03 18:43
#k1118:Re^8: ブロック再現マクロ  投稿者:H岡   2006/06/18(日) 19:18
#k1126:Re^9: ブロック再現マクロ  投稿者:めざら   2006/06/19(月) 15:43
#k1141:Re^10: ブロック再現マクロ  投稿者:H岡   2006/06/23(金) 23:04
#k1156:Re^11: ブロック再現マクロ  投稿者:めざら   2006/06/26(月) 04:22
#k4898:Re^2: VTDOSインストチェック  投稿者:文太   2010/01/21(木) 12:26
#k4900:クリップボード送信  投稿者:文太   2010/01/21(木) 12:28
 1文字欠ける?
=== Macrotmp by B ===;
#k4901:GET CLIPBOARD DATA SIZE  投稿者:文太   2010/01/21(木) 17:58
#k4909:Re^3: クリップボード送信  投稿者:10#   2010/01/22(金) 23:37
現状jenga.defはヌル文字を付けていないということでいいですか?
であればWinOldApに倣ってヌル文字補完になります。
clppstはWin32なので、今回VTDOSは無関係でした。
Ver.1.21からの対応になります。