VTDOS に「拡張ビルトインコマンド」があります。「画面サイズ」関連は
	$info		画面サイズを表示
	$width w h	画面サイズを幅 w 桁、h 行に変更
	$height h	画面サイズを h 行に変更
	$lines h	画面サイズを h 行に変更
ですが，これを使わせて頂いた８タブ環境を整えるテストマクロで，普段の Vz の
行数と，任意の行数を切替えます。

　私的には十分役にたっています。ただ先日の，^KL との併用では少し不可解なこ
とも発生します。^KL では表示行数←→25行のトグルでした。これは「20行まで」
とのトグルです。h には20以上の任意の行数が設定できますが‥‥。

　20行，25行のネタはどこだろう，とか疑問も。

=== L_test === $lines h : 画面サイズを h 行に変更
*m
80^\""	?.
	h=20,			;変更行数（制限あり 20行まで）
	lc[,			;現行行数
	(lc-h)?i], ?{h=i,0],}	;保存行数
	#E			;コマンドライン（ss2 ×）
	&?("$lines %d",h) #m	;VTDOS 拡張ビルトインコマンド
	#[			;編集モードに帰って
	pf[=pr,			;
	#N "dam.$$$$$$" #m	;ダミーファイルで画面再表示
	pf], mr3, #C		;
	&m("%d 行に変更 %d %d",h,i,lc)
*
>>konnoさん
　これも新スレッドにさせてもらいます。乞々ご海容。

=== V_csr.def === 160310 by wanama
*m
80 ^\ ""?.
	(gv!)??{ &m("") &d .}			;同キーで起動／終了
:r	v1,					;v:開始行
	(s)??&>					;編集モードのみ描画
	&c kx[,(gv)?{ &d kx=lx],>r } 0],
0:	&Sp(r=pr,
	"$(1b)[%02d;%02dH$(1d,1b)[1;36m$(8)",v++,kx+1)	;空色罫:$1d/$05
	&> (v<lc-1)?>^				;下端メッセージ行
	&01 &>					;終了処理
0:	(-1){ ax=r[.0,&i($29)(r]++.0)??{} }	;ヌルまで出力
1:	(3+$)."$(1b)[1;1H$(1b)[0m"
*
	"$(1b)[%02d;%02dH$(20,1b)[1;42m$(8)",v++,kx+1)	;緑反転:$20/$14
=== used gv,v
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。



　こちらに伺って Vz が動き始め，リハビリらしき事にとりかかり始めた頃 konno
さんに「作りたい」と話していたマクロです。
　細かな動機を言えばいろいろとあるのですが，テキストベースで表を作りやすく
するための道具で，かなり（はるか？）前にＬＸ上で作りかけていて頓挫して，よ
うやく「できたかな」と思えるものになりました。カーソルの挙動が通常の編集モ
ードと少し違うなど，クセはあります。


　このマクロもエスケープシーケンスを使い，^[H,^[m を初期化して終了していま
す。^[0m 処理をせず，例えばコマンドラインで [CR] すると VTDOS が色のままで
この状態は Vz を終了した後のコンソールにも残ります。これは当然だとは思いま
すが，昔エスケープシーケンスを使ったとき，こんな後始末していたか，記憶がど
うも曖昧です。またこのマクロ終了後，^[H を含んだものを実行すると表示位置が
おかしくなり，意図した場所でなく Vz のカーソル位置を起点に表示され，行末に
カーソルを置くような処理が必要でした。これはそのうちに必要なくなりました。
　原因不明，VTDOS が Windows をてなづけたのか，はたまた逆か 不思議です。


　必要性が（今も）あって作ったものですが，他の方には多分「無用の短物」(^^;
でしょう。でも勝手ながら，短くとも，少々思い入れもあります。m(_ _)m
　多分 pansi でも大丈夫だと思いますが‥‥。

和生さん

> 　こちらに伺って Vz が動き始め，リハビリらしき事にとりかかり始めた頃 konno
> さんに「作りたい」と話していたマクロです。

試してみました。
起動すると縦のラインが表示されますね。素晴らしいです。

ただ、ラインの縦線部分の文字が見えないのはもったいないですね。
特に、カーソル位置の文字が見えないのはちょっと実用には困ります。
色だけ変えられないでしょうか。

> 　多分 pansi でも大丈夫だと思いますが‥‥。

たぶん同じに見えると思います。

カーソル位置の文字が見えないのはちょっと困るので、弄ってみました。

	"$(1b)[%02d;%02dH$(1d,1b)[1;36m$(8)",v++,kx+1)	;空色罫:$1d/$05
	&> (v<lc-1)?>^				;下端メッセージ行

			↓

	"$(1b)[%02d;%02dH$(1d,1b)[1;36m$(8)",v++,kx+1)	;空色罫:$1d/$05
	&> 
	(v==ly+1)?{v++,>^}			;★カーソル行を除外
	(v<lc-1)?>^				;下端メッセージ行

これでカーソル位置の文字が見えるようになりました。
スピードも変わらない感じです。

もしも色変更だけが出来るのであれば、av 色でできたらいいなぁ。

　konnoさん

　お試し，ありがとうございます。m(_ _)m
　取急ぎ。

> これでカーソル位置の文字が見えるようになりました。

　n(^o^)n うむむ。素早い。さすがkonnoさん。
　そりゃあ断然こっちがいいです。いただきます。

> もしも色変更だけが出来るのであれば、av 色でできたらいいなぁ。

	"$(1b)[%02d;%02dH$(20,1b)[1;44m$(8)",v++,kx+1)

　部品はこれで konnoさんの av=$10 になりますが（半透明は無理です）マクロで
判別したいですね。

	Vz カーソル	  ^[m 色
  青    16=10h 00010000 - 4 00000100
  緑    32=20h 00100000 - 2 00000010
  空    48=30h 00110000 - 6 00000110
  赤    64=40h 01000000 - 1 00000001
  紫    80=50h 01010000 - 5 00000101
  黄    96=60h 01100000 - 3 00000011

　bit で何とかなりそうな法則みたいなのもみえます。
　昔，やったような気もしますが，忘れました。こねくり回してみます。

　[ESC]0 改めて。m(_ _)m

和生さん

> 	"$(1b)[%02d;%02dH$(20,1b)[1;44m$(8)",v++,kx+1)
> 　部品はこれで konnoさんの av=$10 になりますが（半透明は無理です）マクロで
> 判別したいですね。

試してみました。
色はバッチリですが、文字は見えないんですね。残念。

そういえばバーチカルラインのマクロがあったなぁ、と思って探してみました。

1995/04/15  00:09             3,801 vline.def
というものがありました。EPIさんの作品です。
試してみましたが、縦線が反転していい感じですが、カーソルに追随しないので、
残念ながら思っていた動作とは違いました。

そこで、やってしまいました！！　二つのマクロを悪魔合体！！　


=== V_line.def === 160310 by wanama+EPI

;======== vline.def for 98,DOS/V v0.02 ========
   vline.def ･･････ vzにバーチカルラインを!!                 by EPI

;=== V_csr.def === 160310 by wanama

二つのマクロを悪魔合体！！　
縦線の色はマシン語部分を書き換える！！
なんという邪道！！

*m
80 ^\ ""?.
	(gv!)??{ &m("") &d .}			;同キーで起動／終了
:r
	(s)??&02					;編集モードのみ描画
	&c
	 (gv)?{ &03 &d >r }
	
2:	;縦線を引く
#if 98
	(s)?.
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){
		r+=$a0,
		r.|=$10,
	}
	dz],
#else			;#if DOSV
	(s)?.
	ax=vp.8,
	(wt==3)? bx=wh, ? bx-,
	cx=wy,
	&i(3+$).
	 "$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	  $(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	  $(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
;	  $(26,8A,47,01,0C,80,26,88,47,01,51,E8,08,00,B4,FF)$	  ; av$80
	  $(26,8A,47,01,0C,10,26,88,47,01,51,E8,08,00,B4,FF)$	  ; av$10
	  $(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	  $(E8,2E,00,3C,00,74,02,EB,F1,F7,C1,01,00,75,0A,8B)$
	  $(FB,4F,4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C)$
	  $(00,74,08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00)$
	  $(C3,3C,81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77)$
	  $(05,B0,01,EB,03,90,32,C0,C3)"
#endif

3:	;縦線を消す
#if 98
	(s)?.
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){
		r+=$a0,
		r.&=$ef,
	}
	dz],
#else		;#DOSV
	(s)?.
	ax=vp.8,
	(wt==3)? bx=wh, ? bx-,
	cx=wy,
	&i(3+$).
	 "$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	  $(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	  $(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
	  $(26,8A,47,01,24,7F,26,88,47,01,51,E8,08,00,B4,FF)$
	  $(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	  $(E8,2E,00,3C,00,74,02,EB,F1,F7,C1,01,00,75,0A,8B)$
	  $(FB,4F,4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C)$
	  $(00,74,08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00)$
	  $(C3,3C,81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77)$
	  $(05,B0,01,EB,03,90,32,C0,C3)"
#endif

*
=== used gv,v
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。

　konnoさん

　おはようございます。

> そういえばバーチカルラインのマクロがあったなぁ、と思って探してみました。

　大元はそこなんですよ。(^^;　多分。
　で，大がかりにならないのを。（昔「密造」か，どうか，忘却）

> 試してみましたが、縦線が反転していい感じですが、カーソルに追随しないので、

　EPI さんのものは手元に残っていません。昔の僕の V_line。

=== V_line.def === by ζﾟ ; 機種依存しない V_line
*m
80 ^\ ""?.
       y1, :r &Sp(r=pr,
       "$(1b)[%02d;%02dH|$(1b)[m$(8)",y++,kx+1)         ;'|'
       (-1){ ax=r[.0, &i($29) (r]++.0)??{} }            ;int29h
       (y<lc-1)?>r

80 ^^ ""?.            ;(機種依存版)
#if 98
       r2*kx, dz[$200+vp..1,                            ;TVRAM+atr
       (lc-2){ r+=vp..14, r.0|=16, } dz],               ;EPI+m.gann+
#elseif DOSV
       y1, :r &Sp(r=pr,                                 ;must ANSI
       "$(1b)[%02d;%02dH$(1d,1b)[m$(8)",y++,kx+1)       ;$1d:G_chr
       (-1){ ax=r[.0, &i($29) (r]++.0)??{} }
       (y<lc-1)?>r
#ifend
*
　「EPI+m.gann+」のコメントがあります。(^^;　なつかしや。
　「短さ」を求めてきたのは m.gann さんの影響ですねぇ。

　これも「取急ぎ」タブ８から。m(_ _)m

　konnoさん

　只今帰宅しました。年度末って結構何やらあるんです。(+_+;

> 縦線の色はマシン語部分を書き換える！！
> なんという邪道！！

　さらに，持ち歩き８タブで。‥‥いかが？(^^;

	(gv!)??{ &m("") &d .}		;同キーで起動／終了
	&04 r.0=av,			;それぞれの av　★
:r

	cx=wy, &05			;&05追加★
4:	(r=$+70)			;&04=av のポイント★
5:	&i(3+$).

　lx=kx], が一番時間を食ったところでした。
　これから食事。明日も予定はドタバタしてまして，[ESC]0 はまだです。
　m(_ _)m

和生さん

> > これで一応形にはなったと思いますが、ネックはスピードですね。
> 　気になります？　結構キビキビと動いてくれてますが。

VTDOS単体ならいいんですが、ckwv だと、かなり遅くなります。
こんなに差があるんだ。

> 　僕が気になるのは，カーソルと縦線の不一致の方です。これはやっぱりピタリと
> 一致させたいと思います。
> �BV_csr では，kx[, ･･･ lx=kx], でカーソル位置の保持と縦線を一致させました。


これを参考に、さらに魔改造(^^;;
変数 v で縦ラインの長さ指定できます。 v0=wy
稼働中でも変更できます。


=== V_line.def === 160324 by wanama+EPI+konno

; 悪魔合体(^^; 		 Ver2
; v:縦ラインの長さ（v0=wy）変更でスピードUP
; フリーカーソル対応

*m
80 ^\ ""?.
	(gv!)??{ &m("") &d .}			;同キーで起動／終了
;	v2,					;v:縦ラインの長さ
:r	(s)?.					;編集モードのみ描画
	&02					;縦線を引く
	&c
	kx[,(gv)?{ &03 &d kx=lx],  >r } 0],	;フリーカーソル
	
2:	;縦線を引く
#if 98
	(s)?.
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){ r+=$a0, r.|=$10, }
	dz],
#else			;#if DOSV
	(s)?.
	(wt==3)? bx=wh, ? bx-,		; 横分割の下なら bx=縦分割位置
	ax=lx, 
	cx=wy,				; ウインドウの高さ
	(v)?{bx=(vp.9)-v-1, cx=v*2+1,}	; v:縦ラインの長さ v0=wy
	&i(3+$).
	 "$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	  $(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	  $(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
;	  $(26,8A,47,01,0C,80,26,88,47,01,51,E8,08,00,B4,FF)$	  ; av$80
	  $(26,8A,47,01,0C,10,26,88,47,01,51,E8,08,00,B4,FF)$	  ; av$10
	  $(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	  $(E8,2E,00,3C,00,74,02,EB,F1,F7,C1,01,00,75,0A,8B)$
	  $(FB,4F,4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C)$
	  $(00,74,08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00)$
	  $(C3,3C,81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77)$
	  $(05,B0,01,EB,03,90,32,C0,C3)"
#endif

3:	;縦線を消す
#if 98
	(s)?.
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){ r+=$a0, r.&=$ef, }
	dz],
#else		;#DOSV
	(s)?.
;	ax=vp.8,
	(wt==3)? bx=wh, ? bx-,
	ax=lx, 
	cx=wy,
	(v)?{bx=(vp.9)-v-1, cx=v*2+1,}	; v:縦ラインの長さ v0=wy
	&i(3+$).
	 "$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	  $(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	  $(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
	  $(26,8A,47,01,24,7F,26,88,47,01,51,E8,08,00,B4,FF)$
	  $(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	  $(E8,2E,00,3C,00,74,02,EB,F1,F7,C1,01,00,75,0A,8B)$
	  $(FB,4F,4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C)$
	  $(00,74,08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00)$
	  $(C3,3C,81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77)$
	  $(05,B0,01,EB,03,90,32,C0,C3)"
#endif

*
=== used gv,v
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。


ところで、このマクロ実行時はアンダーラインもONにしてますよね。
そしたら、縦横セットで十字カーソルもいいかも。

PS：うう、&03 いらなかったんだ・・・

　konnoさん

> VTDOS単体ならいいんですが、ckwv だと、かなり遅くなります。
　僕の方ではどちらも変わりませんが。体感的には，です。？？

　ところで，自分でこう書いておきながら，でした。
> �Cこれは vp.8 が画面左右の絶対位置の数で，lx，kx は相対数だからだと思います
> 　が，

　絶対位置と相対位置を，別々にすれば「部分的に」改善しました。

　縦分割時，挙動不審が残ります。

> 変数 v で縦ラインの長さ指定できます。 v0=wy
> 稼働中でも変更できます。

　この機能には対応してませんが，現状，こうなって，？？中です。◆
----------------------------------------------------------------
80 ^\ ""?.
	(gv!)??{ &m("") &d .}		;同キーで起動／終了
	&01 r.0=av,			;それぞれの av

:r	(s)??&>				;編集モードのみ描画
	&c     x=vp.8,			;●vp.8 は独立保存
	       kx[,			;●lx[, でタブ区切りにカーソル
	(gv)?{ &d vp.8=kx=lx],		;カーソル復帰●kx,lx は要連動
	       (wt>3)?vp.8=x,		;◆仮に入れてみた
	       ;(we>wd)?vp.8=x,		;◆この条件も
	&m("%d,%d,%d,[%d],%d,%d,%d",vp.8,kx,lx,x,vp.13,wv,wa.53+wb.53) ;◆
	       >r
	     } 0],			;safety

0:	;縦線を引く			;EPI+konno
	ax=vp.8,
	(wt==3)? bx=wh, ? bx-,
	cx=wy,
	&02				;描画
1:	($+70)				;r=av のポイント
2:	&i(3+$).
	"$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	 $(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	 $(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
	 $(26,8A,47,01,0C,10,26,88,47,01,51,E8,08,00,B4,FF)$
	 $(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	 $(E8,2E,00,3C,00,74,02,EB,F1,F7,C1,01,00,75,0A,8B)$
	 $(FB,4F,4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C)$
	 $(00,74,08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00)$
	 $(C3,3C,81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77)$
	 $(05,B0,01,EB,03,90,32,C0,C3)"
*
----------------------------------------------------------------
> そしたら、縦横セットで十字カーソルもいいかも。

　あ，これいいですね。名付け親 godfather konno で。v(^^)
　でも男の子か女の子か？

　わ〜さんの今朝がたの夢は「すべて解決」でした。

和生さん

> > VTDOS単体ならいいんですが、ckwv だと、かなり遅くなります。
> 　僕の方ではどちらも変わりませんが。体感的には，です。？？

大画面でアンダーラインと合わせたフルカーソルだと違いが大きいです。


> > �Cこれは vp.8 が画面左右の絶対位置の数で，lx，kx は相対数だからだと思います
> > 　が，
> 　縦分割時，挙動不審が残ります。

縦分割の右がだめでしたね。こうでしょうか？
 v1 で1行カーソルにしました。皆さん試してみてください。
カーソルが非常に見やすくなります。これは結構いいかも。
標準にしようかな。

=== V_line.def === 160326 by wanama+EPI+konno

; 悪魔合体(^^; 		 Ver3
; v:縦ラインの長さちょい変更（v0=wy）v1=1行　v2=上下プラスの3行　以降は同様
; フリーカーソル完全対応
; 縦ラインの色変更 by wanama★

*m
80 ^\ ""?.
	(gv!)??{ &m("") &d .}		; 同キーで起動／終了
;	(v)?? v1,			; v:縦ラインの長さ
	c$c0,				; c:縦ラインの色
	du+,				; アンダーライン ON
;	(v==1)? c$c0,			; v:縦ラインの長さ
	&04 r.0=c,			; 縦ラインの色変更★
:r	(s)?.				;編集モードのみ描画
	&>				;縦線を引く
	&c
	kx[, &v(0)
	(gv)?{  
	&d 
	kx=lx],  
;	&m("%d,%d,%d,[%d],%d,%d,%d",vp.8,kx,lx,x,vp.13,wv,wa.53+wb.53) ;◆
	>r } 0],	;フリーカーソル
	
2:	;縦線を引く
#if 98
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){ r+=$a0, r.|=$10, }
	dz],
#else			;#if DOSV
	(wt==3)? bx=wh, ? bx-,		; 横分割の下なら bx=縦分割位置
	ax=lx+wa.53, 			; 縦分割の右対策
	cx=wy, 				; ウインドウの高さ
	(v)?{bx=(vp.9)-v, cx=v*2-1,}	; v:縦ラインの長さ v0=wy
;	dx=c,				; c:縦ラインの色
	 &03 &v(1)
4:	($+70)				;r=av のポイント
3:	&i(3+$).
	"$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	$(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	$(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
	$(26,8A,47,01,0C,80,26,88,47,01,51,E8,08,00,B4,FF)$	;av
	$(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	$(E8,2C,00,3C,00,75,F3,F7,C1,01,00,75,0A,8B,FB,4F)$
	$(4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C,00,74)$
	$(08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00,C3,3C)$
	$(81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77,05,B0)$
	$(01,EB,03,90,32,C0,C3)"
#endif

*
=== used gv,v,c,
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。


> > そしたら、縦横セットで十字カーソルもいいかも。
> 　あ，これいいですね。名付け親 godfather konno で。v(^^)

とりあえず面倒なので、du+ デフォでやっつけ。(^^;


＃ ハテナ？ のカーソルはゴールドクロスが守る。
　　みな、心のコスモを燃やしてクロスをまとえ。

　　グランドクロス
　　サザンクロス。南十字星さん、懐かしいな。

　konnoさん

> 大画面でアンダーラインと合わせたフルカーソルだと違いが大きいです。

　80桁×35行（縦Vz），90桁×27行（横Vz）が僕の現環境です。このぐらいだと，
仰るような影響はでていません。母艦はまだ整いません。どうも Win7 は勝手が違
う感じですね。

> こうでしょうか？

　赤い縦線になっちゃった。(^^;

　昨日からちょっと，走り，ならぬ，うろつきまわってまして進んでいないんです
が，「悪魔合体Ver3」の手元の状況。

　縦分割で左にカーソルがあって，右に移動するとき，分割線に行くまでは縦線と
カーソルが一致してます。そこで更に右に行くと，カーソルは分割線にとどまって
テキストが右に行き，縦線は分割線の上に先走りします。
　そのままどんどんテキストと縦線は連動しますが「泣別れ」て離れていきます。
カーソルは分割線にはりついたまま。
　ここで逆に左に移動すると，左画面のカーソルに右画面の縦線が追随してやがて
左画面に戻りますが，泣別れが縮まるタイミングは，カーソルだけ右画面に行って
しまったとき，左画面の左に隠れてしまっていた桁数のようです。

　ここまで現象は同じでしょうか？

> 	ax=lx+wa.53, 			; 縦分割の右対策

　wa.53 と wb.53 はカーソルがテキストの表裏どちらにあるかで入替ります。
　だから wa.53+wb.53 は常に同じ値で，wv+1（縦分割時）です。

　ここまではわかったけど，肝心の左に隠れる桁数が，どこにあるのやら。
　Vz のことだから，vp か wa のどこかに，と思うんですが。

>  v1 で1行カーソルは結構いいかも

　IME オフで，緑がピンクに点滅しますよ。ちと紛らわしくはないですか？(^^;
　そろそろ「十字架カーソル」と改名しません？

　８タブのマウスが故障しました。古い予備機でアップします。
　テストは８タブですが。

和生さん

> 　80桁×35行（縦Vz），90桁×27行（横Vz）が僕の現環境です。

この環境だと縦分割で折り返すので、おかしくなるんですね。
気が付きませんでした。これで打ち止めのつもりだったのに。(^^;

> 　赤い縦線になっちゃった。(^^;

縦の赤と横の青で縦線がより目立つでしょ。(^^;
$10の低輝度青に戻しました。

> が，「悪魔合体Ver3」の手元の状況。
> 　ここまで現象は同じでしょうか？

はい、80*30行環境で確認しました。(^^;

> > 	ax=lx+wa.53, 			; 縦分割の右対策
> 　wa.53 と wb.53 はカーソルがテキストの表裏どちらにあるかで入替ります。
> 　だから wa.53+wb.53 は常に同じ値で，wv+1（縦分割時）です。

今は使っていません。基本 vp.8 に戻しました。

> >  v1 で1行カーソルは結構いいかも
> 　IME オフで，緑がピンクに点滅しますよ。ちと紛らわしくはないですか？(^^;

(^^;;　v1の時は$90高輝度青にしました。この辺は各自好みで変更ということで。

> 　そろそろ「十字架カーソル」と改名しません？

贖罪が重そうなので、却下。(^^;;
カーソルが張り付いたりして。(^^;;;

現状縦分割の右で折り返しの場合がいまいちですが、カーソルを
左右に動かせば復帰するので、あとはよろしくです。(^^;

=== V_line.def === 160328 by wanama+EPI+konno

; 悪魔合体(^^; 		 Ver4
; v:縦ラインの長さ（v0=wy）変更でスピードUP
; フリーカーソル完全対応
; 縦ラインの色変更 by wanama★

*m
80 ^\ ""?.
	(gv!)??{ &m("") &d .}		; 同キーで起動／終了
;	(v)?? v1,			; v:縦ラインの長さ
	c$10,				; c:縦ラインの色 $90高輝度青
	du+,				; アンダーライン ON
	(v==1)? c$90,			; v:縦ラインの長さ
	&04 r.0=c,			; 縦ラインの色変更★
	c=vp.8,				; c使いまわし
:r	(s)?.				;編集モードのみ描画
	&>				;縦線を引く
	&c
	kx[, &v(0)
	(gv)?{ &d kx=lx], >r } 0],	;フリーカーソル
	
2:	;縦線を引く
#if 98
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){ r+=$a0, r.|=$10, }
	dz],
#else			;#if DOSV
	(wt==3)? bx=wh, ? bx-,		; 横分割の下なら bx=縦分割位置
	(cm==5||cm==6)??c=vp.8,
	ax=c,	 			; 縦分割の右対策
	cx=wy, 				; ウインドウの高さ
	(v)?{bx=(vp.9)-v, cx=v*2-1,}	; v:縦ラインの長さ v0=wy
	&m("vp.8=%d,kx%d,lx%d,c%d,cm=%d wa.55=%d",vp.8,kx,lx,c,cm,wa.55) ;◆
	 &03 &v(1)
4:	($+70)				;r=av のポイント
3:	&i(3+$).
	"$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
	$(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
	$(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
	$(26,8A,47,01,0C,80,26,88,47,01,51,E8,08,00,B4,FF)$	;av
	$(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
	$(E8,2C,00,3C,00,75,F3,F7,C1,01,00,75,0A,8B,FB,4F)$
	$(4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C,00,74)$
	$(08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00,C3,3C)$
	$(81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77,05,B0)$
	$(01,EB,03,90,32,C0,C3)"
#endif

*
=== used gv,v,c,
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。

konnoさん

> この環境だと縦分割で折り返すので、おかしくなるんですね。
　10×22dot（pxl?）より小さくすると流石に老眼鏡でも無理です。
　konnoさんは，何桁×何行ですか？

　「悪魔合体Ver4」，
　そうか &v(0) もありですね。wa.55 は wx と。cm も見た方がいいんだ。
　Ver4 常駐のままで，いろいろやって，このレスも書いてます。
　ほぼ，完璧ではないですか。
　わずかに残るのは，やはり縦分割，長い行末で↑↓させたとき，ですね。
　縦線を離れて，相手窓まで。まさに「フリーカーソル」で。いや，法則はあるば
ずですが。

　めざら爺っちゃんの「テキスト構造体」に，
	wa.59 byte fskp | display skip x
	wa.60 byte fofs | H-scroll offset x
とありました。どうやら，wa.59 が左に隠れる桁数のようです。縦分割のどちらで
も，we>wd の場合でも。そこから先がわからない。


> 贖罪が重そうなので、却下。(^^;;
> カーソルが張り付いたりして。(^^;;;
　「十字」も「十字架」も，辞書ひいたら同じですばい。
　カーソル磔はできますぞ。v(^^;v

=== CROSS.def === godfather:satan konno = by EPI+konno+wanama
にしましょうよ。n(^^)n 　demon konno の方がいいかな？

> (^^;;　v1の時は$90高輝度青にしました。この辺は各自好みで変更ということで。
　色魔をひいたら「sex maniac」。こりゃ辞書が悪いぞ。......n(^^)n
　最近の「神○○」なんて，どう訳すんだろう？？


> これで打ち止めのつもりだったのに。(^^;

　m(_ _)m
　も少しいじってみます。
　なお，V_csr の方は，こうして打ち止めに。(^^;　ありがとうございました。
:r	(wt>3)?{ &m(36) &b(30) gv!,.}		;縦分割画面不可

和生さん

> 　10×22dot（pxl?）より小さくすると流石に老眼鏡でも無理です。
> 　konnoさんは，何桁×何行ですか？

うちはデスクトップが 160 x 40 Ckw*fontSize: 20 で、
ノートが 158 x 40 Ckw*fontSize: 18 です。これでほぼ全画面。

> 　わずかに残るのは，やはり縦分割，長い行末で↑↓させたとき，ですね。
> 　縦線を離れて，相手窓まで。まさに「フリーカーソル」で。いや，法則はあるば
> ずですが。

カーソルの幽霊が出ましたね。たたりじゃ〜 
PC98エミュのNP2でも同じようになります。
またまたドツボにはまって腐海に沈んでいました。

うとうとしていたらひらめいたのです。天啓か！！
で、v0(wy) 限定の対策ですが、これでどうですか？


=== V_line.def === 160330 by wanama+EPI+konno

; 三太クロス合体(^^; 		 Ver5
; v:縦ラインの長さ変更（v0=wy）v1=1行　v2〜数字分上下プラス
; フリーカーソル完全対応
; 縦ラインの色変更 by wanama★
mp
*m
80 ^\ ""?.
	(gv!)??{ &m("") &d .}		; 同キーで起動／終了
;	(v)?? v1,			; v:縦ラインの長さ
	c$10,				; c:縦ラインの色 $90高輝度青
	du+,				; アンダーライン ON
	(v==1)? c$90,			; v:縦ラインの長さ
	&04 r.0=c,			; 縦ラインの色変更★
	c=vp.8,				; c使いまわし
:r	(s)?.				;編集モードのみ描画
	&>				;縦線を引く
	&c
	kx[, 
;	&v(0)
	(gv)?{ 
	(cm>4&&cm<7&&v==0)?>d			; ↑ ↓
	(cm>30&&cm<41&&v==0)?>d		; 
	&d 
:d	(cm>34&&cm<37&&mp==2)?&d		; 
	kx=lx], >r } 0],	;フリーカーソル
	
2:	;縦線を引く
#if 98
	r2*vp.8, (wt==3)?r+=wh&$ff*$a0,	; $a0 = 160
	dz[, dz$a200,
	(wy){ r+=$a0, r.|=$10, }
	dz],
#else			;#if DOSV
	(wt==3)? bx=wh, ? bx-,		; 横分割の下なら bx=縦分割位置
	(cm>4&&cm<7)?>D			; ↑ ↓
	(cm>30&&cm<41)?>D		; 
	c=vp.8,
:D
	(cm>34&&cm<37&&mp==2)?c=vp.8,		; 
	ax=c,	 			; 縦分割の右対策
	cx=wy, 				; ウインドウの高さ
	(v)?{bx=(vp.9)-v, cx=v*2-1,}	; v:縦ラインの長さ v0=wy
	&v(0)
;	&m("vp.8=%d,kx%d,lx%d,c%d,cm=%d wa.55=%d cd%d",vp.8,kx,lx,c,cm,wa.55,cd) ;◆
	 &03 
	 &v(1)
4:	($+70)				;r=av のポイント
3:	&i(3+$).
           "$(BA,40,00,8E,C2,26,8B,16,4A,00,D1,E2,50,B8,00,B8)$
            $(8E,C0,33,FF,B4,FE,CD,10,58,D1,E0,03,C7,83,FB,00)$
            $(74,0A,52,8B,F8,8B,C3,F7,E2,03,C7,5A,8B,D8,03,DA)$
            $(26,8A,47,01,0C,80,26,88,47,01,51,E8,08,00,B4,FF)$
            $(CD,10,59,E2,E9,C3,33,C9,8B,FB,4F,4F,41,26,8A,05)$
            $(E8,2E,00,3C,00,74,02,EB,F1,F7,C1,01,00,75,0A,8B)$
            $(FB,4F,4F,B9,02,00,EB,18,90,26,8A,07,E8,12,00,3C)$
            $(00,74,08,8B,FB,B9,02,00,EB,06,90,8B,FB,B9,01,00)$
            $(C3,3C,81,72,11,3C,9F,76,08,3C,E0,72,09,3C,FC,77)$
            $(05,B0,01,EB,03,90,32,C0,C3)"
#endif

*
=== used gv,v,c,
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。


> === CROSS.def === godfather:satan konno = by EPI+konno+wanama
> にしましょうよ。n(^^)n 　demon konno の方がいいかな？

クロスならサンタクロスとか
天啓はサンタの贈り物かな。
サタンではないですよ。(^^;

> 　最近の「神○○」なんて，どう訳すんだろう？？

なんでしょう？


＃　額にキーボードの刻印なんてありませんからぁ〜〜