タイトル | : 表示行数切替えマクロ v0.52 DOSVAXJ3差替え |
投稿日 | : 2023/04/26(水) 17:25 |
投稿者 | : konno | 番 号 | : 10793 10786 番 konno さんへのコメント コメント数 1 |
表示行数切替えマクロ 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用にとりあえず作ってみた。
- No.10793 一括表示へ - コメント元:10786 一括表示へ - [ 返信 ] [引用無し] pre