DOSVAXJ3 が使いやすくなったので、複数の画面サイズを活かして、表示行数切替えマクロを作りました。

80 ^KL "表示行数切替え" 
#if AXJ3	; DOSVAXJ3
;  (s==2 && oy==28)? { &00 .}			;コマンドラインでsxga24の29行→VGAの25行
  (s==2 && oy==43)? { &00 .}			;コマンドラインでsxga24の29行→VGAの25行
  (s==2 && oy<=24)?{ &01 .}  			;コマンドラインでvgaの25行→VTの37行
  (s==2 && oy==36)?{ &02 .}  			;コマンドラインでVTの37行→VT2の44行
;  (s==2 && vp.6==122)?{ &03 .}  		;コマンドラインでVT2の44行→VT3の44行
;  (s==2 && vp.6==154)?{ &04 .}  		;コマンドラインでVT3の44行→VT4の29行
;  (s==0 && oy==28)?{ #E &00 wd80,#[ we80,&d .}		;編集モードでsxga24の29行→vgaの25行
  (s==0 && oy==43)?{ #E &00 wd80,#[ we80,&d .}		;編集モードでsxga24の29行→vgaの25行
  (s==0 && oy<=24)?{#E &01 wd100,#[ we100,&d .}		;編集モードでvgaの25行→VTの37行
  (s==0 && oy==36)?{#E &02 wd128,#[ we128,&d .}		;編集モードでVTの37行→VT2の44行
;  (s==0 && vp.6==122)?{#E &03 wd160,#[ we160,&d .}	;編集モードでVT2の44行→VT3の44行
;  (s==0 && vp.6==154)?{#E &04 wd106,#[ we106,&d .}	;編集モードでVT3の44行→VT4の29行
  (oy==43)?{ #E &00 #[ wd80, .}				;sxga24の29行→Vvgaの25行
  (oy==28)?{ #E &00 #[ wd80, .}				;sxga24の29行→Vvgaの25行
  (oy<=24)?{#E &01 #[ wd100, .}				;vgaの25行→VTの37行
  (oy==36)?{#E &02 #[ wd128, .}				;VTの37行→VT2の44行
;  (vp.6==122)?{#E &03 #[ wd160, .}			;VT2の44行→VT3の44行
;  (vp.6==154)?{#E &04 #[ wd106, .}			;VT3の44行→VT4の29行
  .
00:	&?("chev jp") #m oy24,			; vga     解像度  640× 480  文字  80×25
01:	&?("chev vt") #m oy36,			; svga    解像度  800× 600  文字 100×37
02:	&?("chev vt2") #m oy43,			; xga     解像度 1024× 768  文字 128×48(44)
;03:	&?("chev vt3") #m oy43,			; sxga    解像度 1280×1024  文字 160×64(44)
;04:	&?("chev vt4") #m oy28,			; sxga24  解像度 1280×1024  文字 106×42(29)
#endif


これで起動のたびに 80×25行と100×37行と128×44行をトグルします。
編集モードでは、WE の編集幅が変わらないので、コマンドラインで実行が良いです。
128×48行では、実画面を下にはみ出るので、KVZのオプション OY43 指定して、行数44行にしています。
KVZのオプション OY は、DOSのローメモリの行数を書き換えているだけなので、行数-1 を指定します。

DOSのローメモリの行数を書き換えるなら外部コマンドを作れば良さそうですが、ちょっと待って。
マクロのコメントに、VT3 とか VT4 がありますね、これは・・・

＃　これはシャー専用機専用で、ザクには使えないとかなんとか・・・

＃　そうしているうちに、下半身の無いジオングが完成したとかなんとか。
＃　（使わなない）足なんて飾りですよ。偉い人にはわからんのです。（謎）


ちなみに、DOSVAXJ3 の画面モードには
sxga    解像度 1280×1024  文字 160×64(44)
がありますが、試してみたら、VZの表示が異常になりました。(>_<)
これは過去ログ検索すると

#4761： Re: VZK07t （VTDOSに捧ぐ） 投稿者： shadow 　 2010/01/04(月) 20:34

> > 　・V-TEXTでlf+の時ロングファイルネームを画面幅一杯に表示。
> > 　　縦は50行以上だと異常になりますね。

> あじゃさんに、50行越えは、オプション lc で最大行数を指定する必要があると教えていただきました。
> これを指定すると、最下行のFEPの予約ができないので、私は50行以下で使うことにしました。


そうでした、50行超えの時は、LC で指定する必要があるんでしたね、気を付けなくては。(^^;

DOSVAXJ3 のキー入力関連なのですが
VZマクロの起動キーとしてよく使う ^\ (Ctrl+\) が効きません。
どうも、^] (Ctrl+]) のコードで起動するようです。 
BIOSコードを見てみました。

キーコード　VTDOS　　DOSVAXJ3
------------------------------
^\ (|\)　　　7D1C　　-
^^ (^) 　　　0D00　　-
^@ (@) 　　　1AFF　　1A1B
^[ ([) 　　　1B1B　　1B1D
^] (]) 　　　2B1D　　2B1C (^\)
^_ (_\ろ)　　731C　　-
^[F04〜12] 　6100〜　-
@[F10〜12] 　7100〜　-

このように、特定のコードが無かったり違っていたりしています。
dosboxj.conf の設定は
keyboardlayout = jp
yen           = false
となっていて、
yen           = true
としても変わらないようです。

Ctrl+[F01] でキーコードを変えられるかもしれないですが、まだ出来ていないです。
対応したキーマップがあればいいのかと思って他のDOSBOXから持ってきましたが変わらないようです。

システムの関係で出来ないのであれば諦めますが、駄目もとでメールしてみました。
そうしたらすぐにお返事が来ました。

>　調査してみますが、キー入力は使用している SDL というライブラリが
>日本語キーボードを考慮に入れてない関係で処理がややこしいことになっ
>ており、少々時間がかかると思います。

やはりDOSBOXは元が外国製なので出来なくてもしかたがないですね。
調べて頂けるだけでもありがたいです。

>　なお、dosboxj.conf の yen は FONTX2 フォントファイルの文字コード
>0x5c のデータを 0x7f と入れ替えるというオプションで、キー入力とは関
>係ありません。

なるほど、そういうことですか。

別件ですが、画面の行数が可変に出来そうです。
行数を減らすのはすぐに出来たみたいですが、増やすのも出来るかもしれないです。
これが出来たらますます使いやすくなりますね。＼(^^)／ ﾔｯﾀ-


＃　ジオングに足が生えるのか　(^^;

> 地道な試用報告が報われるというのは，とてもいい関係性だと思いますね．
> 真摯なユーザがいるから作者様もモチベーションを保てる面があるのでしょう．

なるほど、私も人が困っているのを見ると何とかしてやりたいとつい思っちゃうんですよね。

> DOSBOX系も，もう少し速度が出るといいのですけどね。
> 裏で色々環境の読み込みとか時間がかかることは理解できるのですが，

最新の DOSVAXJ3 64ビット版は速いですよ。VTDOS と遜色ないくらいでしょうか。
dosboxj.conf の [cpu] セクションで
[cpu] 
cycles= auto 50000 100% limit 100000

これを入れてみてください。
cycles    = max
が一番速くなると思ったのですが、KVZ環境では max の設定ではタイムラグが出てもたつきを感じました。
ベストな設定値は、それぞれの環境で色々微調整すれば良いと思います。

> それぞれの環境で使うものを一時ファイルに書き出しておいて次回はそれをロードする…
> なんてことは難しいのかなぁ…って環境は様々だから一筋縄ではいかないのでしょうね．

何に時間が掛かるのでしょうか。
フルエミュレーションなので動作速度の限界はあるでしょうが、私が試した範囲では VTDOS と遜色ないと感じました。

> konnoさんは DOSVAXJ3 では V-text を使っていますか？　……変な言い方なのかな……
> 要するにフォントファイルを用意して拡張ウィンドウにしていますかということです．

フォントファイルは別に用意していません。
DOSVAXJ3 は、小さいフォントと大きい24ドットを内蔵していて、24ドットフォントだとちょっと大きいので
[dosbox] セクションで

jfontuse20    = true

これで 24ドットフォントを 20ドットフォントにしています。
実質3種類の大きさのフォントが使えることになります。

> 自分で試せば？ということではありますが，慣れた環境にどっぷり漬かっていると，
> フォントファイルを引っ張り出してくるとかちょっと面倒になっちゃって(^_^;

上記のようにフォントファイルなどは何もいらないので簡単に試せますよ。
めざらさんは 旧版の DOSVAXJ3 は動かしていると思うので、その [autoexec]セクションの内容はそのまま使えます。
ちょうど私の使用例を張り付けようと思っていたので、次の記事でデフォルトから変更追加した部分を貼り付けます。

あ、そうそう、64ビット版は私は、DOSVAXJ3.64 というフォルダにしています。
64ビット版はDLLとかも違うので別のフォルダにしないといけないので。
拡張子を使ったのはショート名でも読めるというのが理由です。(^^;

DOSVAXJ3を簡単に試すための dosboxj.conf の設定例です。
私の使用例を、以下にデフォルトから変更追加した部分を貼り付けます。

dosboxj.conf

[sdl]
windowresolution  = 1336x768
# 私の画面サイズ　これを入れると画面をはみ出す行サイズでもフルスクリーンモードが使えるかも

[dosbox]
#jfontname     = ＭＳ 明朝
jfontname     = MS ゴシック
#jfontuse20    = false
jfontuse20    = true
#               vga     解像度  640× 480  文字  80×30 (44行なら画面をはみ出さない)
vtext1        = vga,44
#               svga    解像度  800× 600  文字 100×37 
vtext2        = xga,44
#               xga     解像度 1024× 768  文字 128×48 (44)
vtext3        = sxga,44
#               sxga    解像度 1280×1024  文字 160×64 (44)
vtext4        = sxga24,29
#               sxga24  解像度 1280×1024  文字 106×42 (29) 24ドットフォント
#               xga24   解像度 1024× 768  文字  85×32 (29) 24ドットフォント
#fepcontrol    = both
#fepcontrol    = ias
fepcontrol    = mskanji

[cpu]
#cycles    = auto
#cycles    = max
cycles= auto 50000 100% limit 100000

[dos]
#automount      = true
automount      = auto
#autoreload     = all
autoreload     = cmd
lfn_space=true
#lfn_space=true	#230214 スペース入りのロング名でもオープン
#idle=false
idle=true

[autoexec]
mount c c:\
mount d d:\
C:
cd vz
path=c:\ut;%path%;
set vzdef=c:\vz\vz.def
set tmp=c:\tmp
set ASM=m
set VZBAK=.\bak
set vzsym=AXJ3
vwx -z2 -v2 -x1 -l4096
TAGLIGHT.EXE /v stay
chev vt2
#vt=sxga 1280*1024 160*64
#vt2=sxga24 1280*1024 106*42
vz -z 

> 軟式さんにファイルコピー先の日付がコピーした時点に変わることを報告しました。

ああ、ほんとだ！　気づきませんでした。(^^;;

> ２　Vz高橋版以降のファイラーにおけるLFNの識別記号+がファイル名に半角小文字が含まれるとSFNでも+マークが付く件
> > > 半角小文字は SFN にはないので LFN 扱いになっていると思います。
> > 仕様であれば対応不要です。

これは VTDOS と MS-DOS Player では半角小文字で8文字以下なら +マーク付かないですね。
今まで気にしていませんでした。(^^;

> なお、軟式さんからは次の返信を頂いたので要望すれば対応して頂けるようです。
> 　+ をつけるかどうかは Vz の LFN 処理で判定していると思います。
> 　どのように判定しているかがわかれば対応は可能と思います。

えーと、filer.asm の中で
dumplfn	proc　の2887行あたりから

	pushm	<es,dx,di>
	mov	dx,si
	call	cvtlfn
	mov	si,di
	movseg	ds,es
	popm	<di,dx,es>
IFDEF US
	call	putspc
ENDIF
	mov	al,SPC
	tstb	[si].lfn_aliasname		;★ このあたり？
_ifn z
;	mov	al,'+'				; ##k07f
;	tstb	cs:lfnmark			; サイズを減らすために変更
;  _ifn z					;
	mov	al,cs:lfnmark
;  _endif					;
_endif
	call	putc
	add	si,lfn_name
	call	strlen


★マークの所で判定していると思うのですが、私には読めていないので。(^^;;

なんとなく分かったような気がします。

> 	tstb	[si].lfn_aliasname		;★ このあたり？

これは恐らくショート名があるかないかのチェックかと。
例えば、LFNの DIR /X では

DIR /X 

2023/03/15  17:21               435              T.DEF
2023/03/18  12:59           299,443              tsv2
2023/03/20  13:53           299,579              TSVBT64
2023/03/18  12:00           299,579              tsv_E4
2023/03/18  12:02           299,579              tsv_EMS
2023/03/18  13:20           299,579 TSV_T_~1     TSV_T_XMS
2023/03/30  15:36                 0 VT_~1.TXT    VT=.txt
2023/04/03  21:50                 0 VTDOS_~1     VTDOS=
2023/02/28  22:34            62,768              vzibmj.co
2023/02/28  23:03            11,429              vzk07v6.com

このように、SFN の時は ショート名の欄が空白になります。
小文字でも SFN と認識しています。

つまり、エリアスショート名がある時に "+" マークを入れていると思われます。

※　マクロ差し替えました。(^^;

DOSVAXJ3 と VTDOS 用の表示行数切替えマクロです。
私のノートPCの 1336*768 に合わせた個人仕様になっています。
各自の環境に合わせてカスタマイズしてください。(^^;

#if 文で DOSVAXJ3 と VTDOS 用に分けているので、高橋版以降専用です。
DOSVAXJ3用は、前回から最新版の機能に合わせて調整しています。
VTDOS用は、説明の前にまずマクロを見てください。(^^;


80 ^KL "表示行数切替え"		;2024-04-21 v0.34
#if AXJ3	; DOSVAXJ3
  (s!=2)? >h			;コマンドライン
  (vp.26==106)? { &00 .}		;VT4の106*29行→VGAの25行
  (vp.26==80 && lc<=25)? { &01 .} 	;VGAの80*25行→VTの80*44行
  (vp.26==80  )?{ &02 .}  		;VTの80*44行→VT2の128*44行
  (vp.26==128)?{ &03 .}  		;VT2の128*44行→VT3の160*44行
  (vp.26==160)?{ &04 .}  		;VT3の160*44行→VT4の106*29行
:h	(s!=0)?.		;編集モード
  (vp.26==106)?{#E &00 w[=80, &09 .}	;VT4の106*29行→vgaの80*25行
  (vp.26==80&&lc<=25)?{#E &01 w[=80, &09 .} ;25行→80*44行
  (vp.26==80)?{#E &02 w[=128, &09 .}	;VTの80*44行→VT2の128*44行
  (vp.26==128)?{#E &03 w[=160, &09 .}	;VT2の44行→VT3の44行
  (vp.26==160)?{#E &04 w[=106, &09 .}	;VT3の44行→VT4の29行
  .
00:	&?("chev jp") #m 		; vga     640x 480 文字  80×25
01:	&?("chev vt") #m 		; svga    800x 600 文字 100×37
02:	&?("chev vt2") #m 		; xga    1024x 768 文字 128×48(44)
03:	&?("chev vt3") #m 		; sxga   1280x1024 文字 160×64(44)
04:	&?("chev vt4") #m 		; sxga24 1280x1024 文字 106×42(29)
#endif

#if VTDOS	; VTDOS
  (s!=2)? >h			;コマンドライン
  (vp.26>136)? { &00 .}			;136*35行→80*25行
  (vp.26==80 && lc<=25)? { &01 .}	;80*25行→80*35行
  (vp.26==80  )?{ &02 .}		;80*35行→110*26行
  (vp.26==110 )?{ &03 .}		;110*26行→136*35行
  (vp.26==136)?{ &04 .}			;136*35行→168*35行
:h	(s!=0)?.		;編集モード
  (vp.26>136)?{#E &00 w[=80, &09  .}	;136*35行→80*25行
  (vp.26==80&&lc<=25)?{#E &01 w[=80, &09 .} ;25行→80*35行
  (vp.26==80)?{#E &02 w[=110, &09 .}	;80*35行→110*26行
  (vp.26==110)?{#E &03 w[=136, &09 .}	;110*26行→136*35行
  (vp.26==136)?{#E &04 w[=168, &09 .}	;136*35行→168*39行
  .
00:	&?("$width 80 25") #m		; 80×25
01:	&?("$width 80 35") #m		; 80×35
02:	&?("$width 110 26") #m		; 110×26  font27
03:	&?("$width 136 35") #m		; 136×35  font22
04:	&?("$width 168 39") #m		; 168×39  font18
#endif

#if 98
	#66 .
;#else
;	&z("lxdspd") >*
#endif
	.
09: #[ we=w, (wb)?{wb.55=w, wb.56=lc-2, wb.57=lc-3,} ;裏テキストの桁,行数調整
    wa.55=w,  wa.56=lc-2, wa.57=lc-3, w], &d	     ;表テキストの桁,行数調整
	


このように、コマンドラインと編集画面で使えるようになっています。
今回の目玉は編集画面の桁、行数の完全対応です。
wa.55 〜 wa.57 を合わせることでアンダーラインカーソルも含めて正常な状態に出来ました。

マクロでポインタの数値を書き変える時に、タイミングなのか、変わらない事があるように見えました。
マクロ文の間にスペースを入れたら解消したので、CPUが速すぎるのでしょうかね。(^^;
メモリの書き換えをするマクロはこの辺の動作確認した方が安心ですね。

VTDOSは、単体で起動すると、プロパティでフォントサイズを変更できます。
それを活かして、各フォントサイズで画面いっぱいに表示出来るよう設定しました。
コメント欄の font18, font22, font27 がそのサイズに合わせた設定です。
画面をはみ出しても気にせずトグルすれば 80*25 に戻ります。(^^;

※ VTDOSでは、$width などのコマンドで同じ桁、行数で2度実行すると固まってしまうのでご注意。

何度も差し替えてもう大丈夫か、(^^;  と思ったら、何かおかしい？

  (vp.26==80  )?{ &00  &02 .}		;80*35行→110*26行

ここで画面の状態が何かおかしいのです。よく見ると（最近目が悪いので）
80*35行→110*26行になっているはずなのに、80*26行になっていました。
しかも VTDOSの画面は、80*35 のまま残っています。

$width コマンド単体で試してみました。

$width 80 35　　の後で
$width 110 26　 を実行すると、上記の現象になります。

具体的には、80*26 のDOS画面になっていて、VTDOS窓自体は 80*35 のままです。
VZの VP.26 の画面幅は 110  LC の行数は 26 になっています。なんで？

色々試してみると、どうやら $width コマンドのバグのようです。
幅の数値が増えて、行の数値が減る値で $width コマンドを実行すると画面幅が変わらないようです。
ということで、VTDOS用の修正をしました。

#if VTDOS	; VTDOS
  (s!=2)? >h			;コマンドライン
  (vp.26>136)? { &00 .}			;136*35行→80*25行
  (vp.26==80 && lc<=25)? { &01 .}	;80*25行→80*35行
  (vp.26==80  )?{ &00  &02 .}		;80*35行→110*26行   ★ bug?
  (vp.26==110 )?{ &03 .}		;110*26行→136*35行
  (vp.26==136)?{ &04 .}			;136*35行→168*35行
:h	(s!=0)?.		;編集モード
  (vp.26>136)?{#E &00 w[=80, &09  .}	;136*35行→80*25行
  (vp.26==80 && lc<=25)?{#E &01 w[=80, &09 .} ;25行→80*35行
  (vp.26==80)?{#E &00  &02 w[=110, &09 .} ;80*35行→110*26行  ★ bug?
  (vp.26==110)?{#E &03 w[=136, &09 .}	;110*26行→136*35行
  (vp.26==136)?{#E &04 w[=168, &09 .}	;136*35行→168*39行
  .
00:	&?("$width 80 25") #m		; 80×25
01:	&?("$width 80 35") #m		; 80×35
02:	&?("$width 110 26") #m		; 110×26  font27
03:	&?("$width 136 35") #m		; 136×35  font22
04:	&?("$width 168 39 %c",$0a") 	; 168×39  font18
#endif


このように、いったん &00 (80*25) を呼んでから &02 (110*26) を呼ぶようにしました。
この件は 10♯さんに報告しようと思います。

VTDOSでは、$width コマンドを実行するたびに「画面サイズを変更しました。」というメッセージが出ます。
何度も画面書換を繰り返すとメッセージが連続して鬱陶しいので、Fコールを試しました。
マクロは、ローカルマクロのみ差し替えです。

	;Int 2F/AX=7476h/BX=0005h 画面サイズの変更
00:	dx=$5019, >05			; 80*25
01:	dx=$5023, >05			; 80*35
02:	dx=$6E1A, >05			; 110*26
03:	dx=$8823, >05			; 136*35
04:	dx=$A827, >05			; 136*35

05:	ax=$7476, bx=$0005, &i($2F) 
	(s)?>06
06:	(z)??&?(" ") #m
#endif


どうやら Fコールも $width と同じバグがあるようなので、メインルーチンは同じです。
Fコールの後に改行を入れているのは、入れないと画面サイズの一部が更新されないからです。
これは、VZがコマンドラインでマクロを実行する時、画面サイズ変更を想定していないためと思われます。
そのために改行を実行するのですが、非常駐の時は子プロセスに行ってしまうのでスペースを追加しています。

とりあえずこれでほぼ完全な画面切り替えが出来たと思います。(^^;

VTDOS単体だとプロパティのレガシコンソールを使用するに設定しても
枠線が乱れるので使用していなかったのですが試しに立ち上げるとなぜ
か問題なく表示されるようになっていました。
でもプロパティを弄るとフォント設定が外れて元の設定に戻すのに苦労
していたので有難いです。
でも
04:	&?("$width 168 39 %c",$0a") 	; 168×39  font18
は前の版の
> 04:	&?("$width 168 39") #m		; 168×39  font18
に戻さないと上手く動かないです。
DOSVAXJ3の方はうちでは変化しないです。

> VTDOS単体だとプロパティのレガシコンソールを使用するに設定しても
> 枠線が乱れるので使用していなかったのですが試しに立ち上げるとなぜ
> か問題なく表示されるようになっていました。

OSの更新のせいか、こういうことが結構ありましたね。

> でもプロパティを弄るとフォント設定が外れて元の設定に戻すのに苦労
> していたので有難いです。

お役に立てたならうれしいです。

> 04:	&?("$width 168 39 %c",$0a") 	; 168×39  font18
> は前の版の
> > 04:	&?("$width 168 39") #m		; 168×39  font18
> に戻さないと上手く動かないです。

すみません、改行の痕跡も消せないかと試行錯誤していたもので。(^^;
ていうか、完全におかしなことをやっていましたね、申し訳ない。m(__)m

> DOSVAXJ3の方はうちでは変化しないです。

これは画面サイズが変わらないということですね。
(vp.26==80)? のように完全一致でのチェックでは嵌ることがありますね。
順にトグルさせているので、不等号でチェックしたほうが良さそうですね。

追記

※環境変数 VZSYM=AXJ3 は設定されていますか。
#if AXJ3	; DOSVAXJ3 

VTDOSでは動いているなら指定はしているのかな？
最初の版で、VP.6 を使っていましたが、VP.26 が良いです。
うーん、あとは、現在の VP.26 をチェックしてみるとか？

> ※環境変数 VZSYM=AXJ3 は設定されていますか。
> #if AXJ3	; DOSVAXJ3 
設定済みです。
> 最初の版で、VP.6 を使っていましたが、VP.26 が良いです。
最初の版で変更できなかったのは高橋版にLFN対応のパッチを当てたVZを使用していたためでした。VZK07S05で変更できました。
いろんな版のVZでDOSVAXJ3を検証していたので混乱していました。
> うーん、あとは、現在の VP.26 をチェックしてみるとか？
この版はもう少し弄ってみます。

表示行数切替えマクロ v0.5 です。

=== ^kl.def ===
DOSVAXJ3 と VTDOS 用の表示行数切替えマクロです。
各自の環境に合わせてカスタマイズしてください。(^^;

・#if 文で DOSVAXJ3 と VTDOS 用に分けているので、高橋版以降専用です。
・コマンドラインと編集画面で使えるようになっています。
・シフト実行で、未更新の画面パラメータを合わせます。
　単独で切り替えコマンドを使った時やコンソール画面で合っていない時に使います。
・VTDOSの切り替えはコンソールのゴミが出ないようにしたので複雑になっています。


*m

80 ^KL "表示行数切替え"		;2024-04-24  v0.5

#if 98
	#66 .
;#else
;	&z("lxdspd") >*
#endif
	(s==1 || s>2)?.			;窓モードなら終了
	k=ks&1, (k==1)?{w[=vp.26, &09 .};シフト実行で表テキストの設定調整
	cx0, &s
#if AXJ3	; DOSVAXJ3	※環境変数 VZSYM=AXJ3 を指定
  (vp.26==106)?{&08 &00 &09 .}		;VT4の106*29行→vgaの80*25行
  (vp.26==80&&lc<=25)?{&08 &01 &09 .}	;80*25行→80*44行
  (vp.26==80)?{&08 &02 &09 .}		;VTの80*44行→VT2の128*44行
  (vp.26<=128)?{&08 &03 &09 .}		;VT2の128*44行→VT3の160*44行
  (vp.26>128)?{&08 &04 &09 .}		;VT3の160*44行→VT4の106*29行
  .
00:	&?("chev jp >nul") #m w[=80,	; vga     640x 480 文字  80×25
01:	&?("chev vt >nul") #m w[=80,	; svga    800x 600 文字 100×37
02:	&?("chev vt2 >nul") #m w[=128,	; xga    1024x 768 文字 128×48(44)
03:	&?("chev vt3 >nul") #m w[=160,	; sxga   1280x1024 文字 160×64(44)
04:	&?("chev vt4 >nul") #m w[=106,	; sxga24 1280x1024 文字 106×42(29)
#endif

#if VTDOS	; VTDOS		※環境変数 VZSYM=VTDOS を指定
  (vp.26>136)?{&08 &00 &09 .}		;136*35行→80*25行
  (vp.26==80 && lc<=25)?{&08 &01 &09 .}	;25行→80*35行
  (vp.26<110)? { cx1, &08 &02 &09 .}	;80*35行→110*26行	※ Win32 bug
  (vp.26<=110)?{&08 &03 &09 .}		;110*26行→136*35行
  (vp.26<=136)?{&08 &04 &09 .}		;136*35行→168*39行
  .	;Int 2F/AX=7476h/BX=0005h 画面サイズの変更
00:	w[=80, dx=$5019, &05		; 80*25
01:	w[=80, dx=$5023, >05		; 80*35
02:	&00 cx0, w110, dx=$6E1A, >05	; 110*26	※ Win32 bug
03:	w[=136, dx=$8823, >05		; 136*35
04:	w[=168, dx=$A827, >05		; 136*35
05:	ax=$7476, bx=$0005, &i($2F)	; Int 2F/AX=7476h/BX=0005h 
	(cx==0)?{(wa==0)? &?("%c",$0a)}	; #m の代わりに LF で改行しない
#endif
08:	(s!=2)? #E			;コマンドラインに
09:	(wa)?? { (s==2)?{		;編集テキストが無ければ
	ep[-, #[ #[ ep], w], .} }	;[ESC]2回で整えて終了
	(s==2)? {ep[-, #[ ep], } 	;編集モードに(シフト実行時はスルー)
	&10 (wb)?{&s #W &10 #W } w], &d ;表／裏テキストの桁,行数調整
10:	we=w, wa.55=w,  wa.56=lc-2, wa.57=lc-3, wv=w>>1, wh=lc>>1,

*

23-04-24 v0.5	VTDOSでの切り替えでコンソールのゴミが出ないように
23-04-22 v0.41	wv wh の画面分割パラメータ合わせた
23-04-21 v0.4	VTDOSのFコール版
23-04-21 v0.35	VTDOSのWin32バグ発覚、修正版
23-04-21 v0.34	wa.55 〜 wa.57 合わせアンダーラインカーソルも正常に
23-04-20 v0.2	VTDOS用も作ってみた。
23-04-08 v0.1	DOSVAXJ3用にとりあえず作ってみた。

>  DOSVAXJ3とVTDOS共に切替えできるようになりました。

無事に動いたようでほっとしました。

> ところでDOSVAXJ3の編集画面で何度か切替えてカーソル↓
> でスクロールした後カーソル↑すると表示が四角い枠状に
> 消える現象がおこりました。
> 何かキー入力すると消えていた箇所は正常に表示されます。
> konnoさんのところではおこらないですか？

なんかカーソルの残骸みたいな感じのものが出ました。
128桁の時 1桁目に
160桁の時 66桁目に
160桁で一度 [ESC]E でコマンドラインに降りて戻ると 131桁目に
VRAMに何かゴミが書き込まれるんですかね？
shadowさんのところも同じような現象ですか？

CHEV コマンドを使わなくても出るようです。
どうも、xga と sxga の画面で出るようですね。
#    xga     解像度 1024× 768  文字 128×48 (44)
#    sxga    解像度 1280×1024  文字 160×64 (44)

DOSVAXJ3 が怪しいと感じたので過去のヴァージョンを見てみました。

2022/04/08  18:05         2,642,432 dosboxj.exe		現象が出ない
2023/01/23  17:33         2,643,456 dosboxj2.exe	これ以降現象が出る。

どうも、DOSVAXJ3 の問題のように思えます。
shadowさんのところで同じようになりますか？
同じなら、軟式さんに報告してみます。
引き続き検証してみます。

表示行数切替えマクロ v0.52 差し替え版
DOSVAXJ3 用です。
&d を入れたらタイミング調整出来たようです。


=== ^kld.def ===

*m

80 ^KL "表示行数切替え"		;2024-04-26  v0.52

  (s==1 || s>2)?.			;窓モードなら終了
  k=ks&1, (k==1)?{w[,   w=vp.26, &09 .} ;シフト実行で表テキストの設定調整
  cx0,  ; &s
;#if AXJ3	; DOSVAXJ3	※環境変数 VZSYM=AXJ3 を指定
  (vp.26==106)?{&08 &00 &09 .}		;VT4の106*29行→vgaの80*25行
  (vp.26==80&&lc<=25)?{&08 &01 &09 .}	;80*25行→80*44行
  (vp.26==80)?{&08 &02 &09 .}		;VTの80*44行→VT2の128*44行
  (vp.26<=128)?{&08 &03        &09 .}	;VT2の128*44行→VT3の160*44行
  (vp.26>128)?{&08 &04         &09 .}	;VT3の160*44行→VT4の106*29行
  .
00:  &?("chev jp >nul") #m &d w[,   w=vp.26,	; vga     640x 480 文字  80×25
01:  &?("chev vt >nul") #m &d w[,   w=vp.26,	; svga    800x 600 文字 100×37
02:  &?("chev vt2 >nul") #m &d w[,   w=vp.26,	; xga    1024x 768 文字 128×48(44)
03:  &?("chev vt3 >nul") #m &d w[,   w=160,	; sxga   1280x1024 文字 160×64(44)
04:  &?("chev vt4 >nul") #m &d w[,   w=vp.26,	; sxga24 1280x1024 文字 106×42(29)
;#endif

08:     (s!=2)? #E			;コマンドラインに
09:     (wa)?? { (s==2)?{		;編集テキストが無ければ
        ep[-,   #[   #[   ep], w], .} }	;[ESC]2回で整えて終了
        (s==2)? {ep[-,   #[   ep], } 	;編集モードに(シフト実行時はスルー)
        &10 (wb)?{&s #W &10 #W } w], &d ;表／裏テキストの桁,行数調整
10:     we=w,    wa.55=w,  wa.56=lc-2, wa.57=lc-3, wv=w>>1, wh=lc>>1, kx=lx,

*

23-04-26 v0.52	DOSVAXJ3での切り替えの不具合に対応
23-04-24 v0.5	VTDOSでの切り替えでコンソールのゴミが出ないように
23-04-22 v0.41	wv wh の画面分割パラメータ合わせた
23-04-21 v0.4	VTDOSのFコール版
23-04-21 v0.35	VTDOSのWin32バグ発覚、修正版
23-04-21 v0.34	wa.55 〜 wa.57 合わせアンダーラインカーソルも正常に
23-04-20 v0.2	VTDOS用も作ってみた。
23-04-08 v0.1	DOSVAXJ3用にとりあえず作ってみた。

> なんかカーソルの残骸みたいな感じのものが出ました。

これの原因がわかりました。

DOSVAXJ3の編集画面でカーソル↓で送っていくと、27行以降でカーソル位置が漢字だと
1行目のどこかにその漢字の片割れが表示されます。
そのままカーソル↓で送っていくと、カーソル位置が漢字の所でその漢字の片割れが等間隔で表示されます。
xga  128桁画面では32行目以降で
sxga 160桁画面では26行目以降で現象が出ます。
表示だけで実害はありません。

2022/04/08  18:05   2,642,432 dosboxj.exe   現象が出ない
2023/01/23  17:33   2,643,456 dosboxj.exe   これ以降現象が出る。

他と合わせて軟式さんに報告してみました。

> 対症療法で落ち着いたようなので自分用に変更しようと思います。

あれからさらに変えてみました。このほうが安定すると思います。

00:  w[, w=vp.26, &?("chev jp >nul") #m &07	; vga     640x 480   80*25
01:  w[, w=vp.26, &?("chev vt >nul") #m &07	; svga    800x 600  100*37
02:  w[, w=vp.26, &?("chev vt2 >nul") #m &07	; xga    1024x 768  128*48(44)
03:  w[, w=vp.26, &?("chev vt3 >nul") #m &07	; sxga   1280x1024  160*64(44)
04:  w[, w=vp.26, &?("chev vt4 >nul") #m &07	; sxga24 1280x1024  106*42(29)
;#endif
07:     &d (w==vp.26)?? &w(10) w=vp.26,	;32ビットコマンドはウエイトが必要


色々いい加減な推測をしていましたが、32ビットコマンドは別プロセスで動くと何処かで見たような。
なのでVZは待たずに次の命令に進んでしまうのでこういうことになるのでしょう。

32ビットコマンドはウエイトが必要ということで、&w(10) を入れました。
&w(50) として画面切り替えトグルすれば、効いているのがわかります。
80*25 → 80*44　など、画面の書換面積が少ない時は、&w() をスキップしています。

VTDOS1.55 と CKWV11 が更新されました。

VTDOS バージョン1.55 の変更点は
-----------------------------------------------------------------------------
$width 拡張ビルトインコマンドでサイズ変更が行われなかった時に正常に動作しない
不具合を修正しました。

vtdos.cfgのSHELL,BILING,TMPで環境変数を参照出来るようにしました。
%vtdos_dir%を参照することで、VTDOS起動時のパスを参照出来るようになります。
これにより、USBメモリー等任意のドライブへのインストールを行い易くなります。
また、ckwv連動時に衝突するオプションを無効化しました。

ckwv使用時の画面リサイズをVZに対応するオプション(VZ_RESIZE,VZ_REDRAW)を
追加しました。
リサイズの状態を取得するAPI(Int 2F/AX=7476h/BX=000Bh)を追加しました。

-----------------------------------------------------------------------------

最近画面切り替えマクロに嵌っているので嬉しい更新です。(^_^)
個人的にはこの
> $width w h	画面サイズを幅 w 桁、h 行に変更します。
> 	※画面サイズは最大255*255、最小80*6、VRAM_MAXが上限
画面の最小行数が6行までになったのがうれしいです。
GPD Poket などの超小型PC では18行以下になるので、ありがたいです。


CKWV11　の更新内容は 
-------------------------------------------------
Rev 11	2023/4/24
特定条件下でリサイズが正常に行われない不具合修正
-------------------------------------------------

マウスでリサイズすると VZの設定と合わなくなる場合がありますね。
10♯さんに リサイズパッチのソースをいただきました。
ありがとうございます。
これからいろいろ弄ってみたいと思います。

> > 	※画面サイズは最大255*255、最小80*6、VRAM_MAXが上限

Vz純正のgame.defがきちんと動くか、確認するべきでしょうね。
あとは、samegame.defとか。

>> > 	※画面サイズは最大255*255、最小80*6、VRAM_MAXが上限"
> > Vz純正のgame.defがきちんと動くか、確認するべきでしょうね。

> もちろん完璧に動きましたよ。

さすがc.mosさん、80*6でも動くゲームマクロをきっちり作るなんて。
私にはとてもまねできません。

> さすがc.mosさん、80*6でも動くゲームマクロをきっちり作るなんて。
> 私にはとてもまねできません。

げげ、そういう意味でしたか、流石に80*25以下は想定外ですね。(^^;
80*6 は我ながらちょっとやりすぎたかなぁと思いましたが、
編集画面で1行表示は出来るので何か使い道があるかなと。(^^;

ただ、テトリスマクロがそのまま普通の速度で動くのは感動しました。
1993/12/06  02:00             2,916 GAME.DEF
何も改変していない、そのまんまですよ。
80*18行までは普通に動きました。逆に行数を増やしても伸びないですね。
桁を80以上にしても正常に動作するので VTEXTも考慮しているのですね。

サメガメも凄いですね。
80*22行までは正常に動きましたが、桁を80以上にすると画面が乱れてVZが落ちます。(^^;

物はついで、shotsame.def も軟体から落としてみました。
これはVTEXTでも正常に動作するので、縦の行を目いっぱい
伸ばして、ブロックが落ちてくるのを遅らせられます。
とろいの木馬並みの私にはこれでも厳しい！

> 検証中なのは承知の上で、VZ1.6各版共通のバグだと思うのでもし、tVZに[ESC]i 関連だけのソース修正パッチを作れるのであればほしいです。

なるほど、tVZ で同じパッチが有効であれば検証も一歩前進出来るかもですね。
どうせやるなら、LFNパッチも付加した方がいいですか、簡単なので。

> > Emmett さんが BT32 を好んでいた（ように見えた）理由とも繋がっていたりして。
> うちのオプションがなぜBT32変更されているのか考えてみました。
> 以前LXLOADERを使っておりbf_plus.docを見ていじった名残だったのでした。

bf_plus.doc を読んでみました。
マクロの読み込みバッファを32k確保するための BT32 なんですね。関係なかったか。(^^;
この問題は、高橋版で対処されているようです。

TEXT.ASM  11行目
Z_TBSIZE	equ	MIN_TBSIZE * 2	; ##t  800h  &z() 時、最低 32KB 確保

コメントは私が追加したものです。

>> 　Win11機にしたら、ＩＭＥの挙動がとっても変わってますね、スマホみたい？"
>これ、プロパティいじって何とかならないのかな？
　「設定」の中に入って、「予測変換」オフにしたら、できました！
　ざっと眺めてみると、うーん、複雑に進化しておりますなぁ。
　もう辞書の管理とかすっかりしなくなってるしなぁ、、、。老後はこのあたりから
ちまちま攻めます。

>何ヶ所かプロパティをいじってやっと何とか我慢できるくらいに持ってきた。
　必要なんでしょうね、これ。よく分からんのいっぱい。
　とりあえず、Win11で、Vzが使えてます。昨晩メニューで文字化けをみたけど
（Ｆ０１の連打のとき）、とりわけ問題なくいってるみたいです。
　もちろん、VTDOS & CKWV さまさま。m(__)m

　これから、データのたぐいをごっそりコピーです。VZLOGとか。８ＧＢぐらいの
DDWIN用辞書データは昨晩やりました。DDWIN、健康。よろしい。

　マシン設定初期のデフォ、CapLock<->Ctrl，ESC<->全半のレジストリでの入れ替え
は従来どおりでいけました。よかった、よかった。
　Win11なのかマシンなのか、起動がはやくてよいです。

　CPUは、こんな感じのマシン。
Intel(R) Xeon(R) E-2124G CPU @ 3.40GHz   3.41 GHz
　32GBのラムですと。はぁ。純ＤＯＳって、１パーティション２ＧＢ、全部で８ＧＢ
のＨＤまでしか管理できないはずなのですが。比較するな！

　しかし、IMEがまだまだ色々と邪魔してくれる、、、。うう、「無変換」キーが
IMEに取られる、、、。「なし」にできないみたい、、、。

　ＯＳの単体売り。僕も欲しい気もするけど、気力ないかなぁ。そのあとのドライバ
探しとか考えると、いっかなぁ、なんて感じです。ＨＤコピーでずっと済ませてきてる。

　すいません、「高橋版Ｖｚからの検証」プロジェクトにまだまだちっとも
貢献できそうにありません。ぼちぼち、、、いかせてください。

　そうかぁ、まだWin11な人というのは少ないのかな？
　では少しだけ。

　まず前段。Win7なマシンをどれくらい使ったのか記録も記憶もないのですが、
たぶん、ＸＰ→７→１１な展開なはずなので、かなり長かった。ＨＤ３台と
ＳＳＤ１台にブートディスクコピーをして、ずっとそのまま使い続けてきた。
きっと１０年以上。
　な、長い。データディスクも、そこそこ全ディスクコピーして使ってきました。

　注意点は、ＳＳＤ（ブートディスク）は割とサドンデス的に死ぬ、ということ。
Ｃドライブのデータは、割と定期的に全バックアップをデータドライブＨＤ（Ｄ：）
にしてきたのだけど、今回は運が悪くて苦労しました。
　ＯＳが起動できなくなったから、いわばマシン全体が死んだ状態になった。
　その古いマシンの詳細な検証はいまだできず。

　ＨＤの場合には、「あ、やばそうだな。コピー＆交換」とか思う余裕があった。
ＳＳＤではなかった。ご注意を。ＳＳＤの寿命は２年くらいだったと思う。
コロナがあったりしたし（オンライン授業）、YouTube & Netflix とかあったから
たぶん、けっこうな時間、使われたのだとは思うけど。

　もちろんその後、ＵＳＢ接続のＨＤケースにブートＳＳＤをくっつけて、最新
データファイル群を救出することはできました。

　そうそう、これは古すぎる話っぽいですが、古いマシンの古いマザーボードには
ＨＤが２ＴＢまで、という壁がありました。この新しいのでは３ＴＢＨＤが認識
できるのか、この実験は、これからです。


　さて、Win11。ＩＭＥを「従来のにする」に設定しました。そして、画面右下
（名前なんだっけ？）の「あ」を右クリックで、「プロパティ」−「詳細設定」−
「編集操作」−「キー設定」−「変更」から、従来のように１キー１キー好きなように
カスタマイズできます。ここで「無変換」キーの右の奴らを全部削除。これで、
「無変換」キーをＩＭＥから解放できます。僕のばあいは、exmenuのキー。

Nf+			;DosVで[NFER]を[無変換]と読みかえ
　これが効く。

　なんですが、ckwvなのかvtdosなのか？　２バイト文字（日本語）がメニュー内で
化けます。テキスト上でも化けます。

　ふむ、「無変換」を無内容にしても、ＩＭＥが立っているとキーを取られるみたい。
exmenuに届かないぞ。
　さて、どうしたものか、、、？

　Win11だと、きっと皆困ると思う。それまで、メニュー内の日本語は排除して
生きるのかなぁ。

　こんな状態です。


　うーん、いっぱい抱え込んじゃう人なのかなぁ。
　今日は、雨があがったので、ひたすらだらだら、_Who Killed Classical Music?_
というかなり暗い本をずっと読んでます。癒しタイムです。

　ネットワーク上のＩＤとかパスワードが全部飛んでしまっている状態なので、
ＰＣ触るのが億劫です。いちいち全部調べて打ち込みなおしなのです。
　Win7マシンのＯＳ、いっぱい記憶してくれてたのねぇ、、、。とほほ。

> 　さて、Win11。ＩＭＥを「従来のにする」に設定しました。そして、画面右下
> （名前なんだっけ？）の「あ」を右クリックで、「プロパティ」−「詳細設定」−
> 「編集操作」−「キー設定」−「変更」から、従来のように１キー１キー好きなように
> カスタマイズできます。ここで「無変換」キーの右の奴らを全部削除。これで、
> 「無変換」キーをＩＭＥから解放できます。僕のばあいは、exmenuのキー。

これは Win10 でもほぼ同じではないかと思います。私もやりました。
と思ったら、「無変換」キーが効かなくなっていますね。(^^;
壊れた前のノートPCでやっていたのだったか・・・またやり直しました。

> Nf+			;DosVで[NFER]を[無変換]と読みかえ
> 　これが効く。
> 　なんですが、ckwvなのかvtdosなのか？　２バイト文字（日本語）がメニュー内で
> 化けます。テキスト上でも化けます。

この症状は無いですね。２バイト文字（日本語）が全部化けるのですかね？

> 　ふむ、「無変換」を無内容にしても、ＩＭＥが立っているとキーを取られるみたい。
> exmenuに届かないぞ。

これは同じですね、気になったので各種エミュで確認してみました。

VTDOS		IME OFF IME ON	SCAN
[無変換]	〇	ｘ	AB00
\[無変換]	〇	ｘ	AC00
^[無変換]	〇	ｘ	AD00
@[無変換]	〇	〇	AE00

ALT+だけは IME ON でも OK なのが面白いですね。

MS-DOS Player	IME OFF IME ON	SCAN
[無変換]	ｘ	ｘ	7B00
\[無変換]	ｘ	ｘ	7B00
^[無変換]	ｘ	ｘ	7B00
@[無変換]	ｘ	ｘ	7B00

全滅です。SCANコードは 全て 7B00 で、これは仮想キーコード？
もちろんマクロキーとしても使えません。

DOSVAXJ3	IME OFF IME ON	SCAN
[無変換]	〇	〇	-
\[無変換]	〇	〇	-
^[無変換]	〇	〇	-
@[無変換]	〇	〇	-

全てマクロ起動キーとして使えます。が、SCANコードは出ていない？
何故マクロキーとして使えるの？？？

NP2		FEP OFF FEP ON	SCAN
[NFER]		ｘ	ｘ	5100
\[NFER]		ｘ	ｘ	A100
^[NFER]		ｘ	ｘ	9D00
@[NFER]		ｘ	ｘ	5100

あれぇ？？？　PC-98 と何が違うんだろう？

CKWV マウスでリサイズ時はVZはコマンドラインでないと表示が異常になります。
その時にVZを正常化するマクロを作りました。

本当は CKWV のリサイズ時にVZに特定のキーを送れるのでそのマクロの
起動キーにしようとしたのですがうまくキーが遅れていないようです。
10♯さんのVZソースも導入してみましたがまだうまく動作出来ていないです。
メニューモードのときに問題が出るのは10♯さんのコードを導入すれば解決しそうですが。

とりあえず当分は、このマクロは表示の正常化用とすることにします。
画面サイズを変更したときに表示以上になった時もこのマクロで正常化できると思います。

=== resize.def ===

*m
;80 @R "表示行数切替え"		;2024-04-26  v0.52
80 ^\ "表示行数切替え"		;2024-04-26  v0.52
	(s>=3)?.			;窓モードなら終了
	(s==1)?.			;窓モードなら終了
	&s sx[-, 			; コンソール取り込み停止
	dx0, &08 w[, &00 w=vp.26,	; コマンド実行
 	&09 sx], &d .			; wa wb テキストの設定調整

00:	bx0, cx0,			; bx:桁 cx:行 ローメモリから取得
	&i("$(50,06,33,C0,8E,C0,26,8A,1E,4A,04,26,8A,0E,84,04,07,58,C3)")
	ax0,cx++,(lc!=cx)?{lc=cx,ax1,}
	(vp.26!=bx)?{vp.26=bx, ax1,}
08:     (s!=2)? { dx1,#E}		;コマンドラインに
	&?("ver >nul") #m &w(1)		;コマンド実行
09:     (wa)?? { (s==2)?{		;編集テキストが無ければ
        ep[-, #[ #[ ep], w], sx], .} }	;[ESC]2回で整えて終了
        (dx==1)? {ep[-, #[ ep], } 	;編集モードに(シフト実行時はスルー)
        &10 (wb)?{&s #W &10 #W } w], &d ;表／裏テキストの桁,行数調整
10: w=vp.26, we=w, wa.55=w, wa.56=lc-2, wa.57=lc-3, wv=w>>1, wh=lc>>1, kx=lx,
*

DOSVAXJ3 が更新されていました。
更新内容は

----------------------------------------------
build JP230707　(2023/7/7)

    Windows 版で IME ON 時のカーソルキー等の処理を修正しました。
    Windows 版で int 21h ah=43h のファイル属性の取得・設定が正常動作するように修正しました。
    Windows 版で mount されたドライブ上のファイルを読み込みモードで開いた場合でも日時変更可能となるよう修正しました。
    Linux、macOS 版でショートファイル名の生成がうまくいっていなかったのを修正しました。

----------------------------------------------

IMEの変更部分はちょっとわからないですが
TOUCH などの日時変更も出来るようになったのでうれしいです。

作者様に感謝です。

再現できないということでしたので，VZT以降のバージョンでいくつか試し，
t03k2	ok
k06v	ok
k07j	ok
k07p	ok
k07s5	ok
k07t2	ok
k07v6d	NG
K07v6h	NG
k07v6i	NG
……という結果を得ました。手元の結果を見る限り，k07v 以降ですね。

最近は VZ だけでいくつもファイルを開いて作業するということはなかったため，
拡張[F03]に割り当てた機能を使う機会がなくて気づかなかったと思われます。

同じ環境になるよう，インクルード含め一式お送りします。
VZ.DEF は実害の少ない一世代前に戻してあります。

63 [F03] ""	;Pick Text (220)	;Close, reOpen, Quit
	(s||wc<1)?.
	ss-, wl[7, #T wl],
　手元の環境では，↑の # が P に置き換えられ，実行すると左下に
PTwlとエラー表示してマクロの実行を停止します。

> 同じ環境になるよう，インクルード含め一式お送りします。
> VZ.DEF は実害の少ない一世代前に戻してあります。

メールでいただきました。ありがとうございます。
再現が上手くいかないので、マクロを丸ごと入れ替えてしまいました。(^^;
うう、非常に使いづらいですぅ。(>_<)
やっぱりVZは自分の環境が一番というか、他人のVZ環境は使えない体なのでせうか。

この結果、ほぼ同じアドレスになったのですが、入れ替わりは見つかりません。
そのかわり、別の奇妙な現象が出ています。詳細は後ほど。

> 再現できないということでしたので，VZT以降のバージョンでいくつか試し，
> k07t2	ok
> k07v6d	NG
> K07v6h	NG
> k07v6i	NG
> ……という結果を得ました。手元の結果を見る限り，k07v 以降ですね。

VZk07t02 はVZのバグ修正テスト版ですよね、それでは異常が出ないのですか。
自作、改作アプリの放置部屋にある VZT-P.COM も試してもらえるとありがたいです。

> 	ss-, wl[7, #T wl],
> 　手元の環境では，↑の # が P に置き換えられ，実行すると左下に
> PTwlとエラー表示してマクロの実行を停止します。

再現環境のインスタント窓で ＄2225 を入れると、"#Twl" が表示されました。
DUMP.DEF で見てもこの周辺は異常が見つからなかったです。

> 手元の環境だけしか現象が出ないのでは解決の緒にもならないので，
> 当面は工夫しつつ様子を見ようと思います。

一つ思い当たる所に気が付きました。
私家版は10＃さんのルーチンを導入しているのですが、LFNの一時バッファが
 260Bytes あるので、そこを tmpbuf4 で代替していました。
色々見ていると、STKHLP の記述で

> 　tmpbuf4
> 　・256 バイトのテンポラリ領域。（ラインバッファの直後）
> 　  ラインバッファあふれのチェック用領域。
> 　・&z 等のマクロ組込時以外は比較的自由に使用できる。
>   > pn..-26

こう書いてありました。
> 　・&z 等のマクロ組込時以外は比較的自由に使用できる。
マクロの組込で tmpbuf4 を使うと不具合が出る可能性があるのですね。
私は無意識に不具合を回避するようにしていたのかもしれません。

めざらさんの VZ.DEF に pn..-26 （tmpbuf4）を使う記述があったので気が付いたのです。
10＃さんのルーチンに戻した版をメールで送りますので試してみてください。

> 早速試してみたところ，書き換わるという状況は変わりませんでした．

残念、これは関係なかったですか。
でも tmpbuf4 はどこで使われるかわからないので、この方向にしようと思います。

> ただ，ちょっと不思議なのが，見かけ上（……と言うのか，マクロファイルの）は
> 書き換わる位置が変わらず，当該マクロを実行すると停止する同じ症状ですが，
> 書き換わるアドレスが変わって 2329h 付近になりました．だいぶ違う……(?_?)
> ある位置からの相対アドレスは変わっていないけれど，マクロバッファの使い方が
> 変わったということでしょうか．

書き換わる位置が変わらないということは、マクロ内での挙動なのですかね？
書き換わるアドレスが変わって 2329h 付近になったのは一時バッファの影響でしょう。

> マップで見ると，システム領域が500バイトほど
> 増えているのですね．ああ，LFN の一時バッファをそこに取ったということ？

そうなんですが、260バイト のはずが 500バイト増えてるとは、位置が悪いのかなぁ？
実行ファイルのサイズ増加分も含んでいるのかしら？

実は、10＃さんのルーチンでは、MAIN.ASM の pn.11 の後ろになっています。

11	wsplit0		db	0		; pn.11
GDATA lfntmp,	db,	<MAXPATH+1 dup(0)>  ; ## 10# mod 260 LFN maxpath

この後ろも ポインタで参照されそうだと思ったので、繋がりが切れていると思われる
 EXPR.ASM のローカルデータの後ろに置きました。
もしかしたら副作用があるかもしれませんね。

> ごめんなさい，ざっくりしたマップを見て適当に言いましたが，260バイトですね。
> 256を超えたので2区画取ったように見えてしまっただけです。

なるほど、そういうことですか、了解です。

> 手元では直前の版の mh が $E0F で，テスト版の mh が $F13 でした。
> 版によって絶対アドレスが変わるので，以後 mh+$1416 付近と言うことにします。
> 試しに念のため mh+$1416 を確認してみていただけるでしょうか。

うちの環境では、mh は $F7B でした。そのせいか、mh+$1416 に文字化けはありませんでした。
試しに $F13+$1416 を見たら "・:r(lx)?{#s(ct>" と中黒になっていて、ここは VZ.DEF の 510行目

61 ^A ""	;Line Top m.gann;[\] back str
	?. (ks&1)?{ #a :r (lx)?{ #s (ct>2+ck)?>r #d }. }
　　　　　　　　　　↑　
ここみたいです。"#a" が中黒（$8145）に文字化けしていますね。

63 [F03] ""	;Pick Text (220)	;Close, reOpen, Quit
	(s||wc<1)?.
	ss-, wl[7, #T wl],
　　　　　　　　　↑
めざらさんのここより13行手前が文字化けしているようですね。
私の環境では挙動がおかしいので他にも不具合があるようです。
これを手掛かりに調べてみます。

> もっとも最近は [ESC]^ で呼び出すことが結構多いですね．
> （高橋版ベースならインクリメントサーチのできるファイラなので楽）

そうか、 [ESC]^ でしたね、これがわからなかったのでした。アルツじゃ〜

> ばつつあのマニュアルを読んでいただければよいわけですが……

す、すみません、お手数をおかけして。m(__)m

> メッセージラインに表示されたコード範囲の一番最初（左端）に該当部分を
> 合わせるために \[←]／\[→] で 1バイトずつスライド表示して調整します．
> メッセージラインの最初にその「中黒」を持ってこられたら [UP] でコードを確認．
> [DOWN] で元に表示に戻せます．（DUMPでも分かるでしょうけど）

出来ました！　これですね。

2329h:'・=88h=136 '・'=5488h=21640=21640    ・wl],:P&p&u(r)(r)>!{(#t-c2&r)>C

中黒のコードは 5488h ですね、DUMP でも同じでした。
CTRL.DEF で $8854 は以下になりました。見た目は中黒($8145)と同じですね。
　・

> 2329h:'・=88h=136 '・'=5488h=21640=21640    ・wl],:P&p&u(r)(r)>!{(#t-c2&r)>C

#T（23h 54h）が 88h 54h になりますか…… 2バイトではなく 1バイト書換えですね．
……ということであれば，相対的な書換え位置は確定ということで OK ？
書換え位置は変わらず，ちょっとした環境の違いで異なる値になるということかな．

他の方の環境で mh+$1416 はどうなっているでしょうか．
[ESC]@ などで即席確認できますので，見ていただけるでしょうか？
konno さんも，ご自身の環境で確かめてみてください．

わたしは検証用として製品版DEFに巨大自前バッファを配置して，
mh+$1416 以外に書換えが発生していないか確認してみようと思います．

> ……ということであれば，相対的な書換え位置は確定ということで OK ？
> 書換え位置は変わらず，ちょっとした環境の違いで異なる値になるということかな．

VZ.COM の各種バージョンで試してみたら、アドレス違いのバージョンもありました。

2018/10/07  19:12            62,664 vzk75e.com		mh+$13f0=$2303
62 ^F ""	;Line End m.gann;[\] next spc
	?. (ks&1)?{ (ct<3)?#f :r #d (ct>2+ck)?>r. }
　　　　　　　　　　　　　　　　　　　　　↑
21F9: 72 23 64 28 63 74 3E 32-88 63 6B 29 3F 3E 72 2E  r#d(ct>2・k)?>r.
"+"($2B) → $88

2017/09/09  09:28            62,666 vzk7t5.com		mh+$13f2=$2305
62 ^F ""	;Line End m.gann;[\] next spc
	?. (ks&1)?{ (ct<3)?#f :r #d (ct>2+ck)?>r. }
　　　　　　　　　　　　　　　　　　　　　 ↑
2203: 2B 63 88 29 3F 3E 72 2E-7D 23 66 00 3F 18 01 FF  +c･)?>r.}#f･?･･･
"k"($6B) → $88

2017/09/06  22:39            62,644 vz-5.com		mh+$13dd=$22f0
	?. (ks&1)?{ (ct<3)?#f :r #d (ct>2+ck)?>r. }
　　　　　　　　 ↑
 21E3: 00 06 FF 00 3F 2E 28 6B-73 26 31 29 3F 88 28 63  ････?.(ks&1)?･(c
"{"($7B) → $88

基本的に VZK07T5 以降で現象が起きているようですが、アドレスが違いますね。
上記の例では、置き換わるコードの一桁目が "$B" で共通しているのが興味深いですね。
ビットの下4桁が 1011 ですね。

あと、例外もありました。

2015/11/04  00:36            62,262 vzk7t2a.com		mh+$13af=$22c2
61 ^A ""	;Line Top m.gann;[\] back str
	?. (ks&1)?{ #a :r (lx)?{ #s (ct>2+ck)?>r #d }. }
　　　　　　　　　　 ↑
21B5: 73 26 31 29 3F 7B 23 88-3A 72 28 6C 78 29 3F 7B  s&1)?{#･:r(lx)?{
"a"($61) → $88

これは中身を見てみないとなんともいえないですね。
ビットは 0001 か・・・
"#"($23) 0011 うーむ・・・

> その環境って，わたしがお送りした DEF なわけだと思いますが，
> konno さんの手元の環境では書換えは発生していないということでしょうか？

はい、めざらさんの DEF です。
私の DEF では表面上は出ていないですが、わかりません。

めざらさんの DEF では他の現象も出ました。
2017/09/09  09:23   62,666 vza.com
この版などいくつかの版では、書換は確認できません。
そのかわり、マクロモジュールの破壊が起こる場合があります。

VZ起動してファイルを読み込んで、[ESC]M でマクロモジュールメニューを出すと

┏━ Modules <free:20002/30269> ━━━━━┓
┃  ! vz.def v1.6                    6479 ┃
┃    fl.def v1.6                     569 ┃
┃    outlaw.def (v2.20)              999 ┃
┃    automenu.def                    778 ┃
┃    ex                              790 ┃
┗━━━━━━━━━━━━━━━━━━━━┛

こうなっていますが、free 表示がおかしいですね。これで
DUMP.DEF のファイルを開いて、^k^ で再カスタマイズすると

┏━ Modules <free:-9609/658> ━━━━━━┓
┃  ! vz.def v1.6                   33303 ┃
┃ E  Dump.def                       5923 ┃
┗━━━━━━━━━━━━━━━━━━━━┛

こうなります。他のモジュールが消えて free がマイナスになりました。

この free 表示には
10	"Modules <free:$BM/$x>",40,0
このシステムメニューで、変数 x を使っていますよね。

5 [ESC]M @M "Module Menu"	;Yushi  local:H･ear
	x$fdfb+bm-pn..-26,                      ; dc15#5267 m.gann
ここで変数 x を設定していると思います。
このルーチンは私も意味も分からないまま使っています。
この定数 $fdfb って何なのでしょう？


ちなみに、再カスタマイズルーチンは
56 ^K^ "Install"
	?. &#80(0)

この後ろの方にマクロを追加してみました。

80 @^ "~"	"〜" .

これでマクロサイズが少し増えたので試すと
 Modules <free:20002/30255>
となり、DUMP.DEF を ^k^ で再カスタマイズすると

┏━  Modules <free:14079/24332>  ━━━━┓
┃  ! vz.def v1.6                    6492 ┃
┃    fl.def v1.6                     569 ┃
┃    outlaw.def (v2.20)              999 ┃
┃    automenu.def                    778 ┃
┃    ex                              790 ┃
┃ E  Dump.def                       5923 ┃
┗━━━━━━━━━━━━━━━━━━━━┛

こうなって正常に出来ました。


＃　どうなっているんじゃ〜〜

> 　やったこと（泥縄、「まだやれることはある！」作戦）、大筋は理解できました。

私は素人なのでプロのようにデバッガを駆使してとか出来ませんので。(^^;

> 　詳細は分かりませんが、ファイラでもWD使うんだ。filer2.asmでなく。
> dos/vですものね。

ファイラーの窓枠の幅は、80桁固定なんですよね。WD=80 という定数を使っています。
ロングファイラー実現のためには WD をそのまま使えないので、fl_wd というローカルワークに窓幅を入れたのです。

	pushm	<ax,es>				; ##k
	clr	ax				;
	mov	es,ax				;
	mov	al,byte ptr es:[dosscrn_sx]	; ##156.123
	mov	fl_wd,al			;

fl_wd に DOSの幅の数値を入れたのですが、これだと SSセグメント（マクロバッファ）に入ったみたいなのです。

	mov	cs:fl_wd,al			;

このように、 CS: を付ければ書き込み先がコードセグメントに指定されるのでした。

> 　とんでもなく暑い夏ですが、konnoさん、、、、好きです！

わ、私には妻が・・・(ﾟ゜)☆＼(--#)ﾊﾞｷｯ
もちろんこれは冗談ですが、私も皆さんが好きです。
よかったら試してみてね。♪

暇、じゃなくて夏バテで何もやる気が起きないので、ゲームを弄ってみました。
たまたま目に入った mogura.def をやってみましたが、動作がおかしい。
KVZ以外では正常に動いているみたいなのですが、KVZのバグ？
不具合の内容は

・ステータスラインの色消しが効いていない
・終了時に WE 編集画面幅が 2 になってしまう

現象から見てプッシュポップの不具合とか？
KVZのかなり初期まで同じ現象になります。げげげ

・・・・あれ？　これってもしかして、
#if kVZ
の分岐の不具合、たぶんオープンイベントマクロの不具合？

調べてみるとやはりオープンイベントマクロの不具合でした。

1 "!Open"
#if kVZ
	Vu-,as112,ao224,ar176,
	&Sf(nm,'.') (r)?? { ts="\x ^[EOL#%(]", Ew-,Eu-, }
	p[, p=r,
	&So(".hte",p) (r)?{ Vu+,as~,ao~,ar~,ts="\x ^\0/\0",Ew+,mr128, >A }
	(ne=='LE'||ne=='TE')?{ Vu+,as~,ao~,ar~,ts="\x ^\0/\0",Ew+,mr128, >A }
#endif
	p[, p=r,
:A	p],

こんなことをやっていました。
これでは設定していない拡張子のオープン時、プッシュポップが狂ってしまいます。(>_<)
うげぇ、今までこんな状態で使っていたんだ・・・・

ということで、mogura.def のおかげでマクロのバグを発見出来ました。
ありがとうございます。m(__)m


＃　このゲーム、点数がマイナスになっちゃうので悲しい。(;_;)
　　w150, を w600, にすると間延びした感じで・・・
　　[ESC] を押してもすぐに終わらないので、改造出来ないかしら・・・

そうそう、mogura.def とは、めざらさん作のもぐらたたきゲームです。m(__)m

我が家ではリビングのテレビでアマプラやYouTubeを観ています。
さらにPCに繋いでPC画面も表示できるので便利に使っています。
寝室で録画したものもリビングで観るとかも相互に出来るのでよく利用していますね。

でも寝室のテレビではYouTubeなどは観られません。
2013年ごろのテレビなのでそういう機能もあるのですが実用的には使えませんでした。
最近奥様が、寝室でも観たいと言ってきましたので、検討してみました。

テレビを買い替えるには出費もかさむので、安いノートPCでも買って繋げばどうかと考えました。
お馴染みのまーぶるPCを見ると、16800￥ で店長お任せの訳ありPCが目に入りました。
若干の傷や擦れがあるようですが、テレビ画面で見るなら問題ないかと思い、購入しました。

届いてみるとビックリ！
なんと、その前に購入した富士通のノートPCと見た目は全く同じ！　(^^;
傷や擦れも特に見えません。
CPUがi3で若干遅いかもですが、YouTubeが見られれば問題なしです。
バックアップ用のサブノートとしても使えそうです。

新しいPCの仕様は
プロセッサ	Intel(R) Core(TM) i3-7100U CPU @ 2.40GHz   2.40 GHz
実装 RAM	8.00 GB (7.89 GB 使用可能)
システムの種類	64 ビット オペレーティング システム、x64 ベース プロセッサ
エディション	Windows 10 Pro
バージョン	22H2
OS ビルド	19045.3448

使用中のPCの仕様は
プロセッサ	Intel(R) Core(TM) i5-6300U CPU @ 2.40GHz   2.50 GHz
実装 RAM	16.0 GB
システムの種類	64 ビット オペレーティング システム、x64 ベース プロセッサ
エディション	Windows 10 Pro
バージョン	22H2
OS ビルド	19045.3448

ディスプレイは 1366 x 768 で同じですね。
今回は始めからSSD 256Gだからか、ハイブリッドスリープも OFF になっていました。
またしばらく楽しめそうです。(^_^)

CPUの違いでどのくらいパフォーマンスの差があるのか気になったので調べてみました。

PCのパフォーマンス測定方法【Windows10】
https://web-roku.com/pc-performance

ここのページから引用します。

-----------------------------------------------------------
Windows10に標準で入っている「WinSAT」を使ってPCのパフォーマンスを測定する手順を説明します。
WinSATは直接起動することができないため、まず先にWindows PowerShellを起動します。
Windowsキー+Rで「ファイル名を指定して実行」のウィンドウを開き、powershellと入力→「OK」

PowerShellの画面で、winsat formalと入力しEnterキー
WinSAT（黒いウィンドウ）が起動します。そのまますぐに測定が始まります。測定時間は数分です。PCに負荷をかけないようにじっと待ちましょう。
測定後は、PowerShell（青いウィンドウ）で測定結果のスコアを確認します。

PowerShellの画面で、Get-CimInstance Win32_WinSatと入力しEnterを押すと測定結果がスコアで表示されます。
-----------------------------------------------------------

Get-CimInstance Win32_WinSat の結果です。

Intel Core i5-6300U  2.50GHz
CPUScore              : 8.5
D3DScore              : 9.9  N/A
DiskScore             : 8.1
GraphicsScore         : 6.5
MemoryScore           : 8.5
WinSPRLevel           : 6.5

Intel Core i3-7100U  2.40GHz
CPUScore              : 8.3
D3DScore              : 9.9  N/A
DiskScore             : 8.15
GraphicsScore         : 6.2
MemoryScore           : 8.3
WinSPRLevel           : 6.2

うーむ、i5-6300U のほうが若干数値が高いくらいか・・・微妙。(^^;

項目の意味と記事中のPC Intel Core i3-7100U のスコアは

項目 		スコア 	意味	Intel Core i3-7100U
CPUScore 	8.7 	プロセッサのスコア
D3DScore 	9.9 	3Dグラフィックスのスコア ※D3DScoreはWindows10では測定できないため、9.9 固定。
DiskScore 	5.95 	ハードディスクのスコア
GraphicsScore 	5.2 	グラフィックスのスコア
MemoryScore 	5.9 	メモリーのスコア
WinSPRLevel 	5.2 	ベーススコア（各スコアの最低スコア）

う、うーむ、同じCPU同じ周波数なのにこちらの方がCPUの数値が高いのは何故？　(;_;)

STIME.EXE 説明書	Ver 8.231116

DOSVAXJ3のVGAで動くアナログ時計とカレンダのアクセサリです。
現状データファイルの置き場所指定できないので、カレントに全部置いて使ってください。
DOSVAXJ3を起動したら、chev jp して、ファイル群のあるフォルダをカレントにしてから起動してください。


・STIME.LZH に同梱されているファイル
STIME.EXE	実行ファイル
STIME.TXT	このファイル
SEDIT.BAT	SEDIT.BATで指定したエデイタ(非常駐VZなど）で各種設定表を編集
TODAY2.BAT	TODAY2.BATで指定したCNFファイルでTODAYを実行 （歴史データ大型版表示など）
HOLIDAY.DAT	休日データ。TODAY のデータに準じている？　新しい祝日形式には対応していません。
SCHEDULE.DAT	日程データ。表示のバグがあるので実用ではないです。
FLOWER.TBL	誕生花　TODAY のデータを流用。使えるかは？


・ファンクションキーなどの機能

F1:ｶﾚﾝﾀﾞｰ 	当月の大きなカレンダーを表示
F2:ｶﾚﾝﾀﾞ2 	当月の大きなカレンダーと次月を表示
F3:ｶﾚﾝﾀﾞ3 	月を指定してカレンダーを表示
F4:日程 	SEDIT.BAT で指定したエデイタでスケジュール表SCHEDULE.DATを編集
F5:TODAY  	TODAY.EXE があれば TODAY を実行
F6:Time1  	タイマー１の表示。押すたびに経過時間を表示
F7:Time2  	タイマー２の表示。押すたびに経過時間を表示
F8:日時変 	日時の変更。DOSVAXJ3では時間の変更不可
F9: CLS  	画面をクリアして時計表示
F10: END 	終了

[SHIFT]
F1:MS-DOS 	終了
F3:Bio   
F5:TODAY2  	TODAY2.BAT で別の設定（TODAY3.CNFなど) でTODAYを実行
F7:Vmap 	VMAP.COM があれば VMAP を実行

[CTRL ]
F1:sys  	終了 （DOSVAXJ3 ではキーマップ表示？）
F2:HR   	

[ ALT ]
F1:end    	終了
F2:秒針2  	秒針表示を2本線に
F3:秒針1  	秒針表示を1本線に
F4:長針青  	時分針を青色表示
F5:長針透 	時分針を色無しで表示

[PGUP]  	押すたびにアナログ時計を縮小表示
[PGDN]  	押すたびにアナログ時計を拡大表示


・バグ、更新履歴
※　日程表示はカレンダ表示を2度押さないと表示しないバグ有り
※　DOSVAXJ3で負荷が100％になるのでキー入力ループで INT28 INT2F(AX1680)を入れた。
※　DOSVAXJ3でカーソルが表示しないのでグラフィックで疑似カーソル使用。

> 　時計とカレンダーは実は完全に別物で、時間だけファンクションコール（これを
> 呼ぶモジュール？）、カレンダーはテキストから読み込んで表示、これらを合体させて
> ファンクションキーで切り替える、とか想像したのですが。

時間は time$ というシステム変数を使います。00:00:00 ( 時:分:秒 ) 文字列の形で入っています。
カレンダーは計算だけで表示できます。祝日データをテキストから読み込んで表示します。
VZマクロのカレンダーと同じことをやっています。言語形式が違うだけです。

> 　（この合体と切り替えが難しそう、と思いました）

合体は私の得意技です。無駄な部分を無くし変数を統一して最適化するのは結構大変ですが。(^^;

> 　アナログ時計の秒針を進めるのとかは、既存モジュールあり？　ああいう（？）
> グラフィックなのは考えたことがない、、、。

オリジナルの例題には秒針はありませんでした。

200 Y!=PI!-T2*PI!/30		'分針
210 Z!=PI!-(T1*60+T2)*PI!/360	'時針

オリジナルの記述です。コメントは私がつけたものです。
これを参考にして、秒針を追加したのです。

10390 X9!=PI!-T3*PI!/30: '秒針
10400 X!=X9!:	'秒針

文字盤の文字も、拡大縮小するためにドットデータを自分で作ったみたいです。（覚えていない）(^^;
時計も万年カレンダーもソースは1ページ以内で出来ているので打ち込みは大した手間ではなかったです。
改造部分で何倍にも膨らんでしまって今では何をやっているのか調べるのも容易ではないです。(^^;

> 　俺の体（あるいは頭）、まだ大丈夫なのか？　とか思いながらも、
> のんびりのんびり、ぐてぐてぐてぐて、いきましょう！

マイペースで行くのが一番ですね。
プログラミングはストレス発散のため！
＃　でもそれがストレスを生むという説も。(^^;

konnoさん

　ご丁寧にいろいろとありがとうございます。
　おもしろい！
　おもしろかったから、電脳組社製の「BASIC/98 for DOS/V」（注１）という
ベーシックのマニュアルとか、QBasic By Example とかの本をもってきてしまいました。
　まずＤＯＳ機を復活させないと、ベーシック・プログラムのインストールすら
できない、、、。
　dosvaxは？　敷居、たかし。気力が、、、。

　最初に。
>プログラミングはストレス発散のため！
>＃　でもそれがストレスを生むという説も。(^^;
　趣味ですよ、趣味。仕事も何にも関係ない。しかし仕事がらみだと、嫌になっても
根性で最後まで走るという動機があったりもしますが。（注２）
　パソピア、高いねぇ。でも、格好いいですねぇ。

　以下、というか全部、独り言みたいなものです。

　で、T-Basicというのは、Turbo Basicということですか？　ボーランド製？
　深い意味はありませんが、以下に、書法がそれぞれあるんだろうな、とか思い。

>時間は time$ というシステム変数を使います。00:00:00 ( 時:分:秒 ) 
>文字列の形で入っています。
　さすがベーシック。システム変数を呼ばれたら中でファンクションコール
してくれるんだ。Ｖｚのファイラで、「Ｋ」とやると「ディレクトリ作成ファンク」
を呼んでくれるのと同じですね。
　time$, date$。システム変数に「$」を末尾につけるのは、どこも同じみたい、、、。

>VZマクロのカレンダーと同じことをやっています。言語形式が違うだけです。
　この辺り、弱いですねぇ。読んだことないなぁ。
　基本的に、時計やカレンダーはＰＣの外でよい、という考えできております。
あれ？　データの読み込みと描画なの。

>合体は私の得意技です。無駄な部分を無くし変数を統一して最適化するのは結構大変ですが。(^^;
　うん、既存のものに付加機能を足すのは、うん、けっこう大変そうだ。

>200 Y!=PI!-T2*PI!/30		'分針
>210 Z!=PI!-(T1*60+T2)*PI!/360	'時針
　「!」は、ユーザ変数のマーキングですよね、きっと。使われなくなったLET
ステートメント。「!」最初、何かと思った。
　「T1」「T2」「T3」も、ユーザ変数ですよね？　？？？
　（行番号がまだ入ってる、、、。そうしないと、ベーシックのソースらしくない？
　　行番号ジャンプとかするの？）

>10390 X9!=PI!-T3*PI!/30: '秒針
>10400 X!=X9!:	'秒針
　「X9」の「9」の意味は想像できる。とりあえず「9」
　正確にではないですが、「30」とか「360」での割り算は、アナログで、円の中での
角度でしょうね。

>文字盤の文字も、拡大縮小するためにドットデータを自分で作ったみたいです。（覚えていない）(^^;
　これです！　やっぱそうなのかぁ！　やってみたい！

>時計も万年カレンダーもソースは1ページ以内で出来ているので打ち込みは大した手間ではなかったです。
>改造部分で何倍にも膨らんでしまって今では何をやっているのか調べるのも容易ではないです。(^^;
　うううう、大変そう。
　でも、気持ちも状態も経緯も、いちおう想像できます。意外に太るのよ。

　でも、とにかく。
　部屋の整理、心の整理、そしてＤＯＳ機復活作戦が優先順位となっております。
すみませぬ。


（注１）後継ソフト（ベーシック）がWin11で動きます、というのを社のサイトで
見つけた。がんばっておられますなぁ。世の中にニーズがあるんですねぇ。

（注２）どうでもいい注。例の『AWAKE』という将棋ソフト開発映画で、「ソフト作りたい！」
と思った主人公は、「プログラミング研究会」に入部します（大学生）。
　主人公は、元プロを目指した棋士。が、プログラミングは、ど素人。
　入部場面で書かされる自己紹介用データシートには、名前などのほか「使用言語」
という欄がある。彼は、「日本語」と書く。
　で、本を３冊渡される。「全部暗記してきて」。暗記完了。テスト合格。次、５冊。
そして、ついに、将棋ソフトが動き出す、、、。
　動機なんですよね。将棋学習の場面もプログラミング学習の場面も、雰囲気はほぼ同じ。
あふれる情熱。圧倒的な集中力。
　もう僕には残ってないかなぁ、という感想、、、。
　のんびりいこう！　ストレスためない程度にがんばろう！　という結論。

　上、ちゃんとＶｚで書きました。えばるこっちゃないぞ。
　あ、ソース、上げてください！

STIME.EXE は古いプログラムゆえ、カレンダは新祝日法に対応していません。
日曜が祝日の場合に月曜が振替休日になるようには作っているみたいですが。

で、コメントの整理中にふと、カレンダマクロが対応しているから見てみようかと思ったのです。
CALENDAR.DEF　Yushi さんのモノクロ版カレンダー拡張wanama版は全く理解できませんでした。
LXCLND.def　　Emmettさんのカレンダーは祝日データに工夫がしてありました。

72:	;---- holiday definition -----------------------------------------
	; (6) 日付の位置に半角大文字アルファベットを書くと「？回目の？曜日」
	;     を指定したことになる（回数の数値は A==1, B==2, ...を意味し、曜日
	;     は A==日曜日, B==月曜日 ... を意味すると解する）。

	hh..1  =  "1874>0=1;1874>1948=3;1949>1999=15;2000>0=BB",


これは1月の祝日データですが、注目すべきは後半の成人の日。

	1949>1999=15;	1949年から1999年までは、15日固定
	2000>0=BB",	2000年以降は、B（2回目の）B（月曜日）

この形式は使える！
HOLIDAY.DAT に早速入れてみました。

01/15 1948-1999 成人の日
01/BB 2000-2099 成人の日

これで同じように解釈させれば出来るはず！
と思ったのですが、マクロが全然読めなくて、解釈する部分もわかりません。(;_;)
どうしよう・・・・

新祝日法対応のためには指定した曜日を計算して特定する必要があります。
私の頭では全く思いつきません。(;_;)
困ったときのめざら資源、探したらありました！　＼(^^)／ ｱｯﾀ-
めざら資源＞VZマクロ工房＞文字列出力関連＞七曜でふ−簡易版日付印字器

sitiyo.def
3:	;指定日の曜日を算出（ツェラーの式）
	(m<3)?{ y--, m+=12, }
	w=((y+ y/4+ y/400+ (m*13+8)/5+ 1- y/100) +d -1) %7,

なるほど、指定日の曜日を算出する、ツェラーの式というのがあるのですね。
マクロをBASICに置き換えてみました。式はほぼそのままですね。

'a1=1〜4(週)	
'a2=1〜7(曜日)
ww=0
for d=1 to 31
if m<3 then y=y-1:m=m+12
w=((y+ y/4+ y/400+ (m*13+8)/5+ 1- y/100) +d -1) mod 7
if w=a2 then ww=ww+1
if ww=a1 then dd=d:goto 30612
next d
30612 return


実際に実装したルーチンも貼り付けます。

30611 '指定日の曜日を算出（ツェラーの式）
AA1=ASC(MID$(A$,4,1))-64					'1〜4(週)	
AA2=ASC(MID$(A$,5,1))-64					'1〜7(曜日)
WW9=0
M9=YASM(YMAX)							'該当祝日の月
Y9=YEAR								'該当祝日の年
for D9=1 to 31
  if M9<3 then Y9=Y9-1:M9=M9+12					'sitiyo.def
  W9=((Y9+ Y9/4+ Y9/400+ (M9*13+8)/5+ 1- Y9/100) +D9 -1) MOD 7	'ツェラーの式
  'W9=(Y9+ Y9/4+ Y9/400+ (M9*13+8)/5+ D9- Y9/100) MOD 7		'同等の式？
  if W9<>AA2 then 30613						'曜日が一致するまで日を進める
  WW9=WW9+1							'曜日が一致したら週を進める
  if WW9<AA1 then 30613						'週が一致するまで進める
  YASD(YMAX)=D9:goto 30614					'日が確定したらデータに入れる
30613 next D9
30614 'print co9;a$;" ";Y9;M9;AA1;AA2;W9;D9			'debug
return


コメントを書くとフローのミスにも気が付きやすいですね。(^^;
一応動くようになったのですが、何故か年を変えても今年の年で計算してしまいます。(>_<)
どうしよう・・・

続く・・・のか

> > としきさんはオセロ強いですか？　私はヘタの横好きで。(^^;
> 
> 中学生のころまでは、クラスで３番くらいの強さでした。
> でも、大人になったら、平均よりちょっと強いくらい、でしょうか。

それなら確実に私より強いでしょうね。(^^;

> これ、世間には優先順位のサンプルがいくらでもあったはずなので、そういうのを
> そのまま実装すればそこまで弱くはならないはず。

うーん、その当時はオセロゲームの参考書とか見ていなかったもので。(^^;

> ８ビット当時の最強は森田オセロだったはず。
> 私が対戦したのは、もしかしたらそれかもしれない。

有名だったですね、私などパーフェクト負けを食らうほどででしょう。
ところで、VZマクロでもオセロゲームがあったかと見てみました。

VZOTO.DEF v.1.20 ====> 91.9.9 糧 丞 
これは９８用とJ31用があり、J31で動かしてみましたが、途中で動かなくなってしまいました。
NP2の98エミュで98版も試しましたが罫線が表示しない？　結局出来ませんでした。
VZ1.57用だからでしょうか、何が悪いのかわかりません。

OTHELLO.def v2.0 ======== by 愛して癒して
これはVz Editor ver 1.6x用ですが、罫線などおかしくて動きませんでした。
過去ログを見ると、としきさんが質問されていて、YASATさんが答えてくれていました。

> 07941/08074 xxxxxxxx  YASAT            RE:OTHELLO ができない
> (14)   03/04/23 21:31  07938へのコメント

> 7行目
>         je[-,mi[=2,ep[+,wt[,jd[-,co[4,#]

> 93行目
>         (wx-1) {' '} (wy) {#m}

> 　このゲーム、先攻で中途完勝パターンがあります。

> 　なんでこの修正したんだったかなあって思っていたら、過去ログでした。
> 　nifty:FGALDC/MES/14/1284


おお、この修正で動きました。＼(^^)／ ﾔｯﾀ-
1ゲームやって、39対25でなんとか勝ちました。(^^;
私の作ったやつより確実に強いですね。(^^;

とりあえずこのアルゴリズムで組んでみたら良さそうですね。
その先は参考書を頼るしかないのかな。

アナログ時計とカレンダのアクセサリ 11月24日版です。
画像はココログの記事で見てください。
http://tamaneko2.cocolog-nifty.com/vz2/2023/11/post-bf98e3.html

今回の更新内容は

・新祝日法に対応したつもり。
・見栄えも多少直しました。
・カレンダー大の日付の文字を2バイト数字にして見やすく。
・キーによるカレンダーの年月変更機能追加。
・MSDOS Player でもカレンダー表示出来ます（chej jpの時）
・今回からソースも付けます。


新祝日法への対応はEMMETさんとめざらさんのマクロを参考にしました。
先人の知恵に感謝です。m(__)m

カレンダー大の日付の2バイト数字は、TBASICのころは出来ていたのです。
PRINT CDBL$(RIGHT$(STR$(I),2)) 
のように半角文字を2バイト文字に変換するコマンドが使えたのです。
ターボBASICは英語版なのでそんなものは無く、移植時に半角数字にしたのでした。
今回一念発起して対応しましたので、興味ある方はソースを見てください。

キーによるカレンダーの年月変更機能追加は、カレンダマクロで出来ているので
このくらいは出来ないと張り合えないなぁ、と思ったのです。（張り合ってどうする）(^^;

F11: 前月 	前月のカレンダーを表示
F12: 次月 	次月のカレンダーを表示
[Ctrl]+[←]	前年のカレンダーを表示
[Ctrl]+[→]	次年のカレンダーを表示

本当は [Ctrl]+[F11〜F12] で前年と次年のカレンダーを表示したかったのですが、
DOSVAXJ3 ではこのキーが（BIOSレベルで）反応しないのでしかたなくこうしました。

なお、変更前のソースを大量にコメントしているので非常に見づらいです。
TAGLIGHT.EXE をお使いの方は TAGLIGHT.PAT に

#BASIC用
:BA,
A	'	\C\$

これを追加すれば非常に見やすくなります。
TAGLIGHT.PAT についてはバッファ制限があるので近々記事を書くつもりです。


自作、改作アプリの放置部屋 　に置いてあります。

 taglight.exe を使用して複数の指定文字列に手軽に色付けできるマクロです。
 環境変数VZDEFと実行ファイルの両フォルダにtaglight.exeとtaglight.patが必要です。
 taglight.patは、tagl.def用に拡張子の後ろにカンマの追加が必要で、専用PATを同梱しています。

 例
 #C,C++コード用
 :C,CP,H,


TAGL_F5.DEF

 [F05] 検索文字列の取得 は私家版[F05]のtaglight.exe対応版です。
 標準の[F05]との違いは,ｽﾍﾟｰｽ,→で検索文字列範囲拡大出来ます。
 taglight.exe を使用して複数の指定文字列に手軽に色付けできるマクロです。
 環境変数VZDEFと実行ファイルの両フォルダにtaglight.exeとtaglight.patが必要です。
 taglight.patは、tagl.def用に拡張子の後ろにカンマの追加が必要です。
 [F06]はtagl.def で連携します。
 使用変数 a,c,e,k,


TAGL.DEF

・ [F06]で起動すると、taglight.patからTAGL.PATを作成して使用します。
・ ^KT で起動すると、検索窓で検索文字列を繰り返し入力できます。（最大4回まで）
   空Enterで指定終了し、tagl.patとしてセーブし、編集画面に反映させます。
   上記の動作原理により、マクロ実行時は常にtagl.patの設定で動作します。
・ ^\KT でシフト起動すると、taglight.patの設定に切替になります。
・ 使用変数 a,b,c,e,k,

VZマクロの部屋にあります。

TAGLIGHT.EXE 便利に使っていたんですが、最近うまく動かないことがあるようです。
調べてみたら、TAGLIGHT.PAT の容量オーバー、ワードの入れすぎだったようです。(>_<)

パターンが多すぎます
必要なバイト 1469 : 上限バイト 1280

コマンドラインにこのようなメッセージが出ていました。
今まで >NUL でメッセージを消していて気が付かなかったのでした。(>_<)
機能ごとのメモリ消費はこんな感じです。

　　　機能　　　　　　　　　　　　　　メモリ量
--------------------------------------+------
D       TAGLIGHT                        30
B       name="  "                       25
E       (       )                       24
A       \0\0\0\0\0/\0\0\0\0\0   \C\$    23
B       ;       \C\$                    20
A       \^・                            20
A       ●                              20
:DA,                                    5
DA,                                     4

以前世界時計用に追加したパターンが圧迫してしまったようですね。
私のPATは、アセンブラ用やC,C++コード用も追加しているので、少し整理しました。
C,C++コード用をパスカルコード用と合体させるなどして重複分を減らしました。


ついでに、TAGL.DEF や TAGL_F5.DEF に複数文字列色付け機能を改善実装しました。
 [F05]:検索文字列の取得  TAGL_F5.DEF
 [F06]:検索文字列の設定  TAGL.DEF
この2つのマクロに新しい形式の複数文字列色付け機能を実装しました。

そのためにPATファイルも改造しました。(^^;
新しい形式の PATファイルの構造は


１. #デフォルトのコードの下に以下の行を追加

#4#tagl_cfg	#1〜4 検索文字列数　この行は数字以外変更禁止 -----

ここの行頭の "#" の次の数字の数だけ検索文字列を色付けします。
#デフォルト と、該当する拡張子の所に色付けコードが埋め込まれます。
設定数を超えたコードは自動削除されます。
デフォルトを 3 としています。（4 では長い文字列でバッファオーバーする時がある）


２.　woldtime 用のコードは通常使用で削除

通常使用では、TAGLIGHT.PATをコピーした TAGL.PAT を使います。
woldtime 用のコードは通常使用では使わないので、削除することにしました。
 
#tagl_end ----  ##k v8 ※これより下は TAGL.PAT にコピーしない（バッファ節約）
#woldtime 用

woldtime 用コードの直前に上の1行を追加しました。この行は変更削除禁止です。
TAGLIGHT.PAT は各自で自由に変更出来ますが、私のマクロを使う場合は、上記のルールを守ってください。