=== V_cursor.def === by wanama+EPI+konno

;	三太クロス合体(^^; 		Ver.06	2018-11-10
;	フリーカーソル完全対応
; v		; 縦ラインの長さ変更（v0=wy）v1=1行　v2〜数字分上下プラス
; cc		; 縦ラインの色変更 by wanama★
; c		; カーソル位置
; Av$10	;80	; カ−ソル行アンダーライン
; m		; INS key ON/OFF で色変更	v06 名称変更

*m
80 ^OV ""?.
;	&j(1)
	(gv!)??{ &m("") &v(1) &d .}	; 同キーで起動／終了
;	(v)?? v0,			; v:縦ラインの長さ= 画面高さ(wy)
;	(v)?? v1,			; v:縦ラインの長さ= 1
	(v)?? v2,			; v:縦ラインの長さ= 2
	(v>wy)? v2,			; v:縦ラインの長さ= 2
	(cc==0)?cc$90, ;10,		; c:縦ラインの色 $10青 $90高輝度青
	du+,				; アンダーライン ON
;	ci=co=-1, #] 			;を実行すればカーソルを消去できる

:c	
	(mi==2)?cc$A0,?cc$90, m=mi,	; INS key ON/OFF
	&04 r.0=cc,			; 縦ラインの色変更(パッチ当て)★
	c=vp.8,				; c使いまわし

:r
	(s)?.				;編集モードのみ描画
	(mi!=m)?>c			;INS key ON/OFF
	&>				;縦線を引く
	&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)				; カーソル表示 ON

1:      ;ローカルマクロ
        (3+$)."$[6]"

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,cc,m,
　縦カーソル。&c 常駐。実行中もたいていのマクロは動くが，少し影響あり。