(12742)
12742：
マウスページャーマクロ v1.3
投稿者：
konno
2026/04/18(土) 20:00
コメント数 1
sky氏のpager98マクロを改造したマウス対応ページャーです。
マクロの部屋に置きました。
・NP21W DOSVAXJ3 MSDOS Player で動きます。
・NP21Wでは 90BIOSにも対応しているので大画面でマウスで極楽環境になるかも
・マウスホイールが使えるので便利です！
簡単な使い方のTEXTを同梱しているので読んでください。
#txt:pager_k.zip マウスページャーマクロ k1.3 26-04-18 new!
安定して動くまで2週間以上かかりました。(;_;)
ところで、NP21Wをホイール対応にしてもらったんだけど、DOSVキーボードとの関係で
ページアップ/ダウンなど、正しいスキャンコードがわからなくなっています。
もしかしたら私が SimKさんに間違ったコードを伝えてしまったかもしれません。
#if 98
(g==$3D00)?>u ;d ;↓ down
(g==$3700)?>u ;d ;↓ pgdown
(g==$3A00)?>d ;u ;↑ up
(g==$3600)?>d ;u ;↑ pgup
このように UP と Down の関係が逆になっているような気が・・・
どなたか正しいスキャンコードを教えてくだされ。m(__)m
(12742)
12743：
ファンクションキーラベル書き換えマクロ
投稿者：
konno
2026/04/23(木) 18:33
12742 番 konno さんへのコメント コメント数 2
マウスページャーマクロに使えないかと思い、昔文太さんがやっていた
ファンクションキーラベル書き換えマクロを過去ログ検索しました。
#8113：fkylabel.def (v.1.00) 投稿者：文太 2018/09/18(火)
これですね。ちゃんと動きます。
このマクロは一度書き換えると元には戻さないで設定したラベルにします。
マウスページャーマクロ等に使うには元に戻したいので改造してみました。
ダンプで見るとどうやらファンクションキーのポインタをマクロバッファの
位置にすり替えているようです。そこで大幅に簡略化してみました。
=== f_label.def (v.1.00+) === org 文太さん fkylabel.def
* M
50 ^\ "fkey toggle"
&02 (x..0==0)?{x..0=pq..100, &00 pq..100=r, . } ;pq..100, fkeytbl
&02 pq..100=x..0, x..0=0, . ;pq..100, org
02: x3+$,."$[8]"
00: (3+$)."$ ;N,S,C,A
ﾌｧｲﾙ $(0)窓換 $(0)文換 $(0)窓割 $(0) $(0) $(0)$
$(0) $(0) $(0) $(0) $(0) $(0)$
$(d)$
[Sft]$(0)[F02]$(0)[F03]$(0)[F04]$(0)[F05]$(0)[F06]$(0)$
[F07]$(0)[F08]$(0)[F09]$(0)[F10]$(0)[F11]$(0)[F12]$(0)$
$(d)$
[Ctl]$(0)[f02]$(0)[f03]$(0)[f04]$(0)[f05]$(0)[f06]$(0)$
[f07]$(0)[f08]$(0)[f09]$(0)[f10]$(0)[f11]$(0)[f12]$(0)$
$(d)$
[Alt]$(0)[f02]$(0)[f03]$(0)[f04]$(0)[f05]$(0)[f06]$(0)$
[f07]$(0)[f08]$(0)[f09]$(0)[f10]$(0)[f11]$(0)[f12]$(0)$
$(0D,FF)"
*
マクロバッファが残っている間は起動キーで切替をトグルします。
で、マウスページャーマクロに入れてみましたが、うーん、いまいち
これじゃない感が・・・
ということで、次は ANSIエスケープシーケンスを使ってみるか。
(12742)
12744：
Re: ファンクションキーラベル書き換えマクロ
投稿者：
文太
2026/04/24(金) 16:14
12743 番 konno さんへのコメント コメント数 1
konnoさん
中身のないレスでごめんなさい。
2018年ころの作品。おお、８年前？ 大昔でもなく最近でもない
みたいな感じです。
あ、あ、あ！ それ！ って感じです。今でもその機能が欲しくなる
ときがあるのですが、今は、そう、で、は、な、く、「完成！」させる
気力がありません。こういうのばっかだなぁ。すごく怠惰な奴＞己
たぶん、野菜作りに今けっこう熱中しちゃってるからでしょう。
ジャガイモが青々と葉っぱをガシガシ展開させ、キヌサヤが収穫時期を
迎え、夏野菜（トマト、ナス、ピーマン）の苗が順調に育っています。
同時に昨年収穫したサツマイモの消費最終段階。またまた同時に今年の
サツマイモのツル出し作戦、進行中。サトイモも同じ。
移住計画も少しずつ進みつつあります。１年以内くらいに仮の引っ越し
をする、、、。最初は畑はないかなぁ。
これはそこそこ思い入れのあるマクロですね。そこそこ作るのに苦労した、
あるいは、欲しくて欲しくてしょうがなかった、から、かな？
>起動キーで切替をトグルします。
おー、面白い。いいアイディアだ！
これは仕様を考え直して「常用もの」にしたい気がするんだけどなぁ。
別のことをとりわけちゃんとやっているわけではないのですが、やっぱ
Ｖｚマクロって（もちろんできることの範囲はある程度限定されているわけ
ですが）、ほんと実用性の観点から、超コスパのいい言語ですよねぇ。
あるいは、Ｖｚ本体が「拡張」（あるいはカスタマイズ）を前提にして、
すごくよく作られているからなんでしょうね。
- No.12744 -
このTreeへ
コメント元:12743 へ
[リストへもどる]
soft
(12742)
12745：
Re^2: ファンクションキーラベル書き換えマクロ
投稿者：
konno
2026/04/24(金) 22:15
12744 番 文太 さんへのコメント コメント数 1
> 2018年ころの作品。おお、８年前？ 大昔でもなく最近でもない
> みたいな感じです。
私は８年かかってやっとこのマクロの可能性に気づいたんですよね。
pq..100 がファンクションキーのポインタとはよく見つけましたね。
98版は pd+80 もあるらしいですが仕組が違うのでどちらも駄目でした。
> あ、あ、あ！ それ！ って感じです。今でもその機能が欲しくなる
> ときがあるのですが、今は、そう、で、は、な、く、「完成！」させる
> 気力がありません。こういうのばっかだなぁ。すごく怠惰な奴＞己
私も飽きっぽいので気が向いた時しか新しいことが出来ないですね。(^^;
> たぶん、野菜作りに今けっこう熱中しちゃってるからでしょう。
なんか毎日が充実していそう。忙しいのは良いことです。
> 移住計画も少しずつ進みつつあります。１年以内くらいに仮の引っ越し
> をする、、、。最初は畑はないかなぁ。
そうですかぁ・・・ 離れてしまうとオフ会が出来なくなるかも・・・
ってもう VZ関連でのオフ会自体あるかどうかわからないですね。(^^;
寂しくなりますが、それぞれの人生ですしね。
> これはそこそこ思い入れのあるマクロですね。そこそこ作るのに苦労した、
> あるいは、欲しくて欲しくてしょうがなかった、から、かな？
やっぱり苦労して作り上げたマクロは思い入れもありますね。
苦労した思い出が残るのかも。
> >起動キーで切替をトグルします。
> おー、面白い。いいアイディアだ！
これ、マクロがバッファから消えても使える方法があれば良いんですがねぇ。
切り替わったままマクロが終了したら VZを立ち上げなおすしかないですし。
> これは仕様を考え直して「常用もの」にしたい気がするんだけどなぁ。
良いアイデアが出たら是非教えてください。
> Ｖｚマクロって（もちろんできることの範囲はある程度限定されているわけ
> ですが）、ほんと実用性の観点から、超コスパのいい言語ですよねぇ。
> あるいは、Ｖｚ本体が「拡張」（あるいはカスタマイズ）を前提にして、
> すごくよく作られているからなんでしょうね。
老後の頭の体操にもピッタリだと思います。私はまだまだVZ使い続けるつもりなので
PCが全く別物になるまでは頑張るぞぅ！
- No.12745 -
このTreeへ
コメント元:12744 へ
[リストへもどる]
soft
(12742)
12747：
Re^3: ファンクションキーラベル書き換えマクロ
投稿者：
文太
2026/04/25(土) 01:06
12745 番 konno さんへのコメント コメント数 1
konnoさん
>pq..100 がファンクションキーのポインタとはよく見つけましたね。
----- from dseg.map by Takahashi -----
194 db "DSEG"
; --- Customizing data pointers ---
198 ckeytbl dw 0 ; command key table PQ
200 fkeytbl dw 0 ; function key table
--------------------------------------
たぶんこれを見た、というより、過去ログのmikomeさんあたりのマクロを
参考にしたのだと思います。
ほんと、先人の方々の試行錯誤には感謝しかないですよね。
高橋さんがEmmettさんに、「これは断じて『こんなもの』ではない！」と
言ってた気持ちも分かるし、Emmettさんにやたら厳しい（冷たい）高橋さんに、
腹を立てた Emmettさんの気持ちも痛いほどよく分かります。
c.mosさんの掌の上で、とも言えるのでしょうが、僕は、ＰＣとの関係に
関しては、Ｖｚｅｒの全部の人たちに感謝したいです。
分かったことはきちんと伝わるように、ものすごく正確に分かりやすく
伝えてくださった先輩の皆さまには、ほんと感謝しかありません。
Yushiメニューの技を丁寧に丁寧にwanamaさんに教えていたYushiさんが、
すぐに思い浮かびます。そして、Yushiさんが尊敬していた m.gannさん。
それをいったら、m.gann さんと上村さんのやりとりも、う、美しすぎる、、、。
そして、m.gannさんは、mgann.defを残して去られた。美しいです。m(__)m
たかだかＶｚマクロ（内部情報）って話でしょう。でも、僕にはＶｚとの
付き合いが即、ＰＣとの付き合いになってしまった。Windows11 とか、まあねぇ、
程度なので。
がんばれ！ konno！ Ｖｚの現在をになう konnoさん、嫌でしょうけど
しつこく張り付きます。
(12742)
12748：
Re^4: 和生さんのファンクション書換見っけ
投稿者：
konno
2026/04/25(土) 20:39
12747 番 文太 さんへのコメント コメント数 1
> ----- from dseg.map by Takahashi -----
> 200 fkeytbl dw 0 ; function key table
あう、私が見落としていただけでしたか。すみませんです。m(__)m
> たぶんこれを見た、というより、過去ログのmikomeさんあたりのマクロを
> 参考にしたのだと思います。
> ほんと、先人の方々の試行錯誤には感謝しかないですよね。
"pq..100"をFGAL検索、PKでは見当たらず DC15で和生さんのマクロを見つけました。
dc15_997.log 15528 00/02/27 和生 ファイラー・ファンクション書換
軟体にもなさそうなので張り付けてしまいます。(^^;
=== fl_ktbl.def === by wanama ζﾟ ; テスト版。
*m
80 [F01] ""
?{ (s-3)?. ;Filer on/off by m.gann
(wa|z)?{ &s #[ &d } (s&5)?#[ ?#] (r).}
r[, &> (r])
0: ;ファイラーのファンクション表示
#if 98
&> pq..130[=r+1, ;pq..130:dosktbl(cmdln)
(pq..141..48&256 || r.0)??{ r.0+, ;fk-,switch
&Sm(r+160,r+240,160) } ;jx_ini&256:fk
&s #O &d #m
pq..130=0],
0: (3+$)."$(0)$
$(20)Edit$[11][F02]$[11][F03]$[11][F04]$[11][F05]$[11]$
[F06]$[11][F07]$[11][F08]$[11][F09]$[11][F10]$[11]$
$[80]$
[f★]$[11][f02]$[11][f03]$[11][f04]$[11][f05]$[11]$
[f06]$[11][f07]$[11][f08]$[11][f09]$[11][f10]$[11]"
#elseif DOSV
&> pq..100[=r, pn.4-, ;pq..100:fkeytbl(edit)
ax$500, cx$4d00, &i($16) &c ;cx:code,keybuf wright(BIOS)
pq..100=0], pn.4-, ;pn.4:fkeymode
&s #O &d #m
0: (3+$)."$
Edit $(0)[F02]$(0)[F03]$(0)[F04]$(0)[F05]$(0)[F06]$(0)$
[F07]$(0)[F08]$(0)[F09]$(0)[F10]$(0)[F11]$(0)[F12]$(0,d)$
[f★]$(0)[f02]$(0)[f03]$(0)[f04]$(0)[f05]$(0)[f06]$(0)$
[f07]$(0)[f08]$(0)[f09]$(0)[f10]$(0)[f11]$(0)[f12]$(0,d,ff)"
#ifend
*
これは 98版にも対応しているので凄いです！ このまま使えそう！
> 高橋さんがEmmettさんに、「これは断じて『こんなもの』ではない！」と
> 言ってた気持ちも分かるし、Emmettさんにやたら厳しい（冷たい）高橋さんに、
> 腹を立てた Emmettさんの気持ちも痛いほどよく分かります。
「こんなもの」で検索してみましたが見つけられず。
和生さんに対して似たような発言が dc15_988.log 12675 に？
このころ高橋さん体調悪そうでしたし、そんな中 TVZ更新されてたんですね。m(__)m
> c.mosさんの掌の上で、とも言えるのでしょうが、僕は、ＰＣとの関係に
> 関しては、Ｖｚｅｒの全部の人たちに感謝したいです。
私も同感です。c.mosさんも今はX(Twitter)で色々作っていて元気そうで何よりです。
> たかだかＶｚマクロ（内部情報）って話でしょう。でも、僕にはＶｚとの
> 付き合いが即、ＰＣとの付き合いになってしまった。Windows11 とか、まあねぇ、
> 程度なので。
私は VZの前にBASICの時代があったので、まあそれなりに色々分散してます。
> がんばれ！ konno！ Ｖｚの現在をになう konnoさん、嫌でしょうけど
> しつこく張り付きます。
ありがとうございます。もっとスキルのある人いっぱいいると思うのに
何故か出てこないですねぇ。（私が足をひっぱゲフンゲフン）
ここで試用レポがあると嬉しくなって木にも登るんだけどね。(^^;
(12742)
12749：
Re^5: 和生さんのファンクション書換見っけ
投稿者：
文太
2026/04/26(日) 00:13
12748 番 konno さんへのコメント コメント数 1
konnoさん
高橋 洋光, 97/5/2, <nifty:FGALDC/MES/15/5913>
あたりをどうぞ。
>しかし、「こんなの」では絶対ないと言いたい。いかが？ (^^)
キーワードは「こんなの」でした。
こういうヒューマンなキーワードがちょっとずれるだけで、検索に
とっても時間がかかるものですね。
それでも、根性があれば、いろんな情報から、いずれ辿りつける！
ただ僕がＰＣの（Ｖｚの、と言っても同義）「検索」機能を、死ぬほど
ありがたがっているのは、自然言語だと、その表現無限大的なヴァリエーション
ゆえ、当たれば、どんぴしゃに当たる点なのです。
しかし、それでも、お、konnoさん、wanamaさんに飛んだ！ うれし。
過去ログってすごい！ 可能性無限大。
- No.12749 -
このTreeへ
コメント元:12748 へ
[リストへもどる]
soft
(12742)
12750：
Re^6: 和生さんのファンクション書換見っけ
投稿者：
konno
2026/04/26(日) 22:22
12749 番 文太 さんへのコメント
> 高橋 洋光, 97/5/2, <nifty:FGALDC/MES/15/5913>
> あたりをどうぞ。
おお、ありました。高橋さんの m.gann師推しが凄いですね！
というか、先人の苦労を人一倍わかる真面目な人なんでしょうね。
> >しかし、「こんなの」では絶対ないと言いたい。いかが？ (^^)
> キーワードは「こんなの」でした。
一字違いで全然違う結果になるとは、検索の奥深さですかね。
> こういうヒューマンなキーワードがちょっとずれるだけで、検索に
> とっても時間がかかるものですね。
> それでも、根性があれば、いろんな情報から、いずれ辿りつける！
私はVZ関連の情報ばかり求めていたのでこういう会話とか読み飛ばしてました。
今になって見ると全てが宝石のように輝いて見えます。過去ログ貴し。
> ただ僕がＰＣの（Ｖｚの、と言っても同義）「検索」機能を、死ぬほど
> ありがたがっているのは、自然言語だと、その表現無限大的なヴァリエーション
> ゆえ、当たれば、どんぴしゃに当たる点なのです。
NET検索もなかなか難しいですが、AI検索はマジ凄い！ どこから拾ってくるんだか。
嘘も混じっているのがいまいちですが・・・
> しかし、それでも、お、konnoさん、wanamaさんに飛んだ！ うれし。
> 過去ログってすごい！ 可能性無限大。
おかげさまで貴重なマクロ情報見つけられました。文太さんに感謝！
- No.12750 -
このTreeへ
コメント元:12749 へ
[リストへもどる]
soft
(12742)
12746：
98版では 25行目の ANSI表示出来ない？
投稿者：
konno
2026/04/24(金) 22:42
12743 番 konno さんへのコメント コメント数 1
> ということで、次は ANSIエスケープシーケンスを使ってみるか。
ANSI エスケープシーケンスでファンクションキー位置に表示するマクロを作りました。
timer.def by m.gann師からいただきました。m(__)m
======= ansi.def v0.1 =======
* Macro
82 ^\ ""
c=lc, ; ★★ 表示位置 98では25行目に出来ない？
&c &m("") &d
&Sp(si=pr, ; [%d;69H 表示位置、[36m 表示色
"$(1b)[%d;1H$(1b)[45m %d $(1b)[0m$(1b)[%d;30H$(1b)[20m $(1b)[45m %d $(1b)[0m$(8)",c,1,c,1)
&v(0) Se[+,
cx12, &i("$(ac,3c,09,cd,29,79,f9,e2,fa,c3)") ;int 29, cx: ^H
Se],
pn.-15=-1,
; pn.-15 メッセージ表示フラグ (kumagai)
; 0 : メッセージなし、最下行ＯＫ
; 1 : メッセージなし、最下行空白
; 2 : &m でのメッセージ表示直後
; 255($FF) : 問い合わせ直後他
*
======= end of ansi.def =======
これは pagerに使えそうですが、98版では 25行目の ANSI表示出来ないみたい？
AI検索では出来ると言っているのに・・・AIは嘘ついてるの？
うう、どなたかお知恵を〜 m(__)m
(12742)
12751：
Re: 98版で最下行の ANSI表示出来た！ ＼(^^)／
投稿者：
konno
2026/04/28(火) 01:54
12746 番 konno さんへのコメント
> これは pagerに使えそうですが、98版では 25行目の ANSI表示出来ないみたい？
> うう、どなたかお知恵を〜 m(__)m
NECのDOS3.1リファレンスを発掘したら ANSIエスケープシーケンス載っていました。
$(1b)[>1h で最下行をプログラムで使用できる
$(1b)[>1l で最下行をシステムに戻す。
とあったので、やってみました。
======= ansi.def v0.2 ======= DOSV 98で最下行に表示 $(1b)[>1h
起動キーでトグル
* Macro
82 ^\ ""
&c &m("") &w(20) &d
&> (r)?{
c=lc, ; ★★ 98で最下行表示は $(1b)[>1h
&Sp(si=pr, ; [%d;69H 表示位置、[36m 表示色
"$(1b)[>1h$(1b)[%d;1H$(1b)[45m %d $(1b)[0m$(1b)[%d;30H$(1b)[20m $
$ $(1b)[45m %d $(1b)[0m$(8)"
,c,1,c,1)
&v(0) Se[+,
cx52, &i("$(ac,3c,09,cd,29,79,f9,e2,fa,c3)") ;int 29, cx: ^H
Se],
pn.-15=-1,
}?{
&Sp(si=pr,"$(1b)[>1l") ; $(1b)[>1l 表示範囲標準に戻す（24行）
Se[+, cx2, &i("$(ac,3c,09,cd,29,79,f9,e2,fa,c3)") Se], ;int 29, cx:^H
}
0: ($.7^=1). ;上村郁夫氏の起動トグル手法
;0: (($.6)!). ;別法:0か1なのでビット演算は不要
*
; pn.-15 メッセージ表示フラグ (kumagai)
; 0 : メッセージなし、最下行ＯＫ
; 1 : メッセージなし、最下行空白
; 2 : &m でのメッセージ表示直後
; 255($FF) : 問い合わせ直後他
======= end of ansi.def =======
これで目出度くANSIエスケープシーケンスの最下行表示出来ました。＼(^^)／ ﾔｯﾀ-
98版では一度指定すると再設定するまでファンクションキーが表示されません。
起動トグルも めざら資源＞VZ Macro FAQ＞起動毎に逆の動作をさせるには
を見て 上村さんの手法を取り入れました。m(__)m
これは変数も使わず省エネでいいですね。(^_^)