=== VZ2.def        VZ2マクロ (v0.72c 14.06.13) ===
(Z)
;(R)
* M マクロ

;        &z(f) pn..37~.0-,       ;pn..37~.0-,: pathbufクリア



;45 [ESC]F "F 世代管理(ﾘﾈｰﾑ)セーブ" &z("rensave") >*
45 [ESC]F "F LFN世代管理(ﾘﾈｰﾑ)セーブ" &z("Vrensave") &* #C

50 [ESC]B" 栞をひらく" &z("siori") >*
50 [ESC]C" 栞をはさむ" &z("siori",1) >*


;80 [NFER] "" &j(1) fr-, .

80  ^KP "testp" &m("pathbuf %70s",pn..-38)

80 ^@ "リサイズ" &Zs("resize") (r)?? &z("resize") >* .

80 @R "リサイズ" &Zs("resize") (r)?? &z("resize") >* .

80  "日数計算" &Zs("daysdiff") (r)?? &z("daysdiff") >* .


85 @F "FUNKIE"  &z("FUNKIE") >*

;1 "!Abort" 
;	 &m("!Abort %s",r) &b(3) &w(20) 
 ;       (r>0&&r<45)?&m("!A %s",r) s-, &w(60) &d &b(3) cm0~,

;	(s==1)? /
;	vp..11=pq..153, /	  ;はポインタを強制的に初期化します。
;  　vp..11  はイメージスタックのポインタです。テキストスタックの kp と
;  同じ役目。vp..11=pq..153  はポインタを強制的に初期化します。


1 "!View"
	?.
#if kVZ
	(cm==4)?{ #C &m("") (mb)?. tm-, &d . }			;#m
	(cm==53)?{ #67 AP$70,tm-, #] . }	;\cr
#else
	(cm==4)?{ &m("") (mb)?. #C &d. }			;#m
	(cm==53)?{ #67 AP$70, #] . }	;\cr
#endif
	(ic=='v'||ic=='V')?{&14 &m("") xx=(xx==0),.}
	(ic=='w'||ic=='W')?{#w>e}
	(ic=='z'||ic=='Z')?{#z>e}
	(ic=='r'||ic=='R'||ic=='s'||ic=='S')?{#r&87>e}
	(ic=='d'||ic=='D'||ic=='c'||ic=='C'||ic==' '||ic=='　')?{#c&87>e}
	(ic=='b'||ic=='B'||ic=='-')?{mp[-,#r mp],&87>e}
	(ic=='n'||ic=='N'||ic=='+')?{mp[-,#c mp],&87>e}
	(ic=='p'||ic=='P')?{&14 (mp!=0)?mp0,?mp2, &m("mp=%d",mp) &w(30)}
	(cm==5)?{ &m("") #w >e }			;↑
	(cm==6)?{ &m("") #z >e }			;↓
	(cm==7&&v==1)?{ &m("") #r&87>e}		;<--
	(cm==8&&v==1)?{ &m("") #c&87>e}		;-->
:E &14
;  &m("<View mode>  {BR-}ﾍﾟｰｼﾞ↑  {NC+,ｽﾍﾟｰｽ}ﾍﾟｰｼﾞ↓  W↑  Z↓  [CR]終了  \[CR]編集")
;	#E#[#E#[.
	&m(36).
:e .
#if 0 ;W7
	(s)?.
	&m("")
	qw60,;&d
;	#w &w(30) #z
#endif
	.

14:	
#if kVZ
;	tm255,&d.
#else
	AP0,.#E#[.
#endif
	(s)?.		; 疑似ﾌｧﾝｸｼｮﾝ(和生時計から)




#if 0
;=== silentAS.def ===
;	qt=2,qc=20,qw=0,で、２０文字以上打って２秒たったら以下のイベント実行
;	p,y, 変数使用
;* m
1 "!Timer"
;	?. 
	ax=$7476, dx0, bx=$0011, &i($2F)	; Int 2F/AX=7476h/BX=0011h 
	(dx==0)?.
	&Zs("resize") (r)?? &z("resize") >* .	;80 @R "リサイズ" ;2024-04-23-
	.
;#if DOSV
	&15  					;★ 打鍵数表示(DOS/V限定)
;#endif
;	(mr!=1||qn<=Qc||mb)?.
	(cm==4)??.				;★ 改行カーソルコマンドか
	(mr!=1||mb)?.
	&s 
	y[,p[, y=ly,
	&> &Le(p,wa+126) #M &Le(p+4,wa+126)
	#^ #< #b #_ #>
	&Sy(nm) #S
;	"d:\"					;★ Ram Disk の ﾄﾞﾗｲﾌﾞ名
	"j:\tmp\"				;★ HradDisk の ﾄﾞﾗｲﾌﾞ名
	&?("%s",bx) #h '#' #m (s)?'y' mb-,
	&Le(wa+126,p+4) #U &Le(wa+126,p)
	qn-, ky=y, 
	p],y],
	&d 
	cm-,					;★ 副作用は?
00:	p=3+$,."$[8]"

15:	p[, a[, a=sp-pu, &16					; p=78*2+7+10*6(ｱｲﾃﾑ)=223
	&Sp(p,"$(1b)[%d;77f%d打 cm%d %02x %d     $$",lc,qn,cm,a,ct)	;エスケープシーケンス
	dx=p,ax$900,&i($21) 
	a],p], . 
16:	p=3+$,. "$[40]"
;*
#endif


#if 0
;	  (Qw){ &w(1) &k (r)?{ &m("キャンセルしました") qn-, . } }
	   &w(60) &k (r)?{ &m("キャンセルしました") qn-, . } 
	eb[-, #S #m #83 eb],			; 編集テキストのみセーブ

	?. (mr!=1)?. (qn<=Qc)?. (mb)?.
	(Qw){
	  &m("オートセーブしますか？")
	  (Qw){ &w(1) &k (r)?{ &m("キャンセルしました") qn-, >a . } }
	}
	#S #m #83				; 編集テキストのみセーブ
;	sq[-, #Q 'N'(s)?{ #[ #Q "YN"} sq], #83	; 全修正テキストをセーブ
#endif


1 "!Edit"
	?.
;	vn=cm,
;	(ct==1)?.
	(ct>1)?{ &o(ic) . }
;	(ic=='{')?{ '{' #m &o(9). }
	(ic=='{')?{ '{' . }
;	(ic=='}')?{ #s (cd==9)?{ '}' #g #m }?{ #d '}' }
	(ic=='}')?{ '}'. }
	(ic==8)?{ #h #? . }
	(ic==7)?{ #15 #? . }
	.
;=== silentAS.def ===
;* m
;1 "!Timer"
:a
;	(cm==4)??.
	(mr!=1||qn<=Qc||mb)?.
;	(mr!=1||mb)?.
;	&s 
	y=ly,
	&> &Le(p,wa+126) #M &Le(p+4,wa+126)
	#^ #< #b #_ #>
	&Sy(nm) #S
;	"d:\"					;★ Ram Disk の ﾄﾞﾗｲﾌﾞ名
	"j:\tmp\"					;★ Ram Disk の ﾄﾞﾗｲﾌﾞ名
	&?("%s",bx) #h '#' #m (s)?'y' mb-,
	&Le(wa+126,p+4) #U &Le(wa+126,p)
	qn-, ky=y, &d .
00:	p=3+$,."$[8]"


;80 @R "リサイズ" &Zs("resize") (r)?? &z("resize") >* .


80 ^KL "表示行数切替え"		;2024-04-23-
#if tVZ
	&Zs("^kl") (r)?? &z("^kl") >* .
#else
	&Zs("^kld") (r)?? &z("^kld") >* .
#endif

80 ^OV "" ?. &Zs("V_cursor") (r)?? &z("V_cursor") (rr)??. >*


81 ^OU "U ファイルクローズ UTF8"
	bx$9,cx=nm,dx=1,ax$7476,&i($2f)
	?. #] #C&d

81 ^OS "S ファイルクローズ SJIS"
	bx$9,cx=nm,dx=0,ax$7476,&i($2f)
	?. #] #C&d

18 ^[F10] "タグジャンプ"
	?.
;:T	&z("tra_tag") >* .
:A
;	#60 (r)?{ #x (r)?. >A }
	#60 (r)?>T;{ #x (r)>T  }
	#x #O #e #m
	(s)?{ #[ #[ >A }
	&m("^F10 %70s",pf)	;▼
&w(120)	;	>C			;★ＬＦＮが取得出来なくても進む
	.
:T	&Zs("Tra_TAG") (r)?? &z("tra_tag") >* .

;80 [F11]  "" &m("alt+1")
;80 ^W  ""
80 @[UP]""
	(s>=1)?{#e.}
;	(ks&1)?{#w.}
;	(ks)?{#s.}
	(cm==31)?{#w#w#w#31.}
;	#w#w#w#31.
	#31.

;80 ^Z  ""
80 @[DOWN]""

	(s>=1)?{#x.}
;	(ks&1)?{#z.}
;	(ks)?{#d.}
	(cm==32)?{#z#z#z#32.}
;	#z#z#z.
	#z.

80 @^ "~"	"〜" .
80 @[ "~"	"|" .


;80 [TAB]I "" &m("TAB")
;80 [BS]H "" &m("BS")
;80 [F00] "" &m("半/全")
;89 [F00] "fepctl2"
;	&j(0)
;	(mg.-9==9)?{ &j(10) .}
;	(mg.-9==10)?{ &j(0) .}
	
24  [F05] "検索文字列の連続取得" &z("tagl_f5") >*

#ifn 98
80 ^KT [F06] "" ?. &z("tagl") >*
#endif

;#if 98
;24 ^L [F05] "検索文字列の連続取得" &z("get") >*
;#endif

80 @[F10] "" ?. &Zs("Tra_TAG") (r)?? &z("Tra_TAG") >*

80 [F12] "" ?. &Zs("Tra_TAG") (r)?? &z("Tra_TAG") >*

80 ^QU ""  &z("hats") >*

80 ^K0 "" m=r, &z("kao") >*

;80 [NFER]R "" &z("refep") >*

80 ^OK "" &z("kigou") >*

85 ^KC "コピー"				;outlaw 無しで組込む
	&Zs("ClpPst") (r)?? &z("ClpPst") (rr)??. >*
85 ^KX "カット"
	&Zs("ClpPst",1) (r)?? &z("ClpPst",1) (rr)??. >*
85 ^KV "ペースト"
	&Zs("ClpPst",2) (r)?? &z("ClpPst",2) (rr)??. >*
85 ^V "ペースト"
	&Zs("ClpPst",2) (r)?? &z("ClpPst",2) (rr)??. >*

;85 ^KC  "ClpPst 60" &88		;outlaw で組込む
; "ClpPst 61" &88
;85 ^KV  "ClpPst 62" &88
;58 [F12] "" &z("STKhelp") >*	; ←起動キーの設定

;50 [F11] "mujin" &88
;50 [F11] "FEP" &z("fakefep") >*
;(0)
;(mg.-9==9)? &j(2)
;(mg.-9==10)? &j(0)
.

80  ""; (s!=3)?.
 &Zs(dd="spine") (r)?? &z(dd) >*
; &z("spine") >*

80 [ESC][ "" mp-, &d .		; ESC + ESC 
;80 [END]O "" #> .		; END + END 

80  \[HOME] "だんだんパスマスク" 
;        &z(f) pn..37~.0-,       ;pn..37~.0-,: pathbufクリア
;	(s==3)?{ rr-, &z("IMASK3") pn..37~.0-, &*  pn..37~.0-,} ;: pathbufクリア
	(s==3)?{ rr-, &z("IMASK3")  >* } ;: pathbufクリア


;80 @V "" &z("vvn") >*			; vvn.def  Vz Viewr Nante v.03 
80 @V "" ?. &Zs("V_csr") (r)?? &z("V_csr") (rr)??. >*
80 ^QD "" &z("denta") >*
80 ^OD "" &z("dump") >*

80 @I "" &Zs("isearch") (r)?? &z("isearch") >*
80 [ESC]D "" &z("shadow") >*
80 ^[F05] "" &z("MARKMENU") >*
80 @H "" &z("help2") >*
80 @O "" &z("open") >*
80 @L "" &z("cuicome") >*
80 @W "" &z("WinColor") >*
;63 [F03] "" &z("f03_big") >*
;84 [F03] "" &z("TCHANGE") >*
80 [F03] "" &z("CAST") >*

;80 @N "" &z("lxschd") >*
80 @[F01] "先頭" #41
80 @[F02] "最後" #42
80 @B "" &z("lx_batt") >*
80 [ESC]K "" &z("kao") >*
80 \[F03] "" &z("CMPTXT") >*
80 ^KM "" &z("ALZ_LDR") >*			;same "external" key

80 ^QK ">" #<
	(cd==13)? >a
	"> "
:a	#>#d.


80 ^KE "KANJI CODE"		; by Sakamoto +konno
	?. Vu!,			; Vu:ViewEUC　フラグをトグル
	as~,ao~,ar~,		; ステータスライン色を反転
	(Vu == 0 && as <0)?as~,	; Vu=1ならステータスライン色を変更
	(Vu == 0 && ao <0)?ao~,	; Vu=1ならコンソール色を変更
	(Vu == 0 && ar <0)?ar~,	; Vu=1ならReadonly/Viewmode色を変更
	 &d #] .



;=== JUMP_10.def === H_oka,DANNY,wanama １００／１０分割ジャンプ,行番号付

;17079/17177 JBC02033  Ｈ岡             その３：ファイル十分割地点へジャンプ
;(15)   00/10/31 20:01                     コメント数：2
;　どんな大きなファイルでも、十分の一刻みで、正確に、ファイル内のお望み
;の地点へ着地してくれます。

;* M
80 [ESC]0 "きっちり十分割ジャンプ：巨大ファイル対応版"
    ?.
 ;   mx+, &g("Jump n/10") mx-, n=r, (n<0||n>10)?.;0≦n≦10	;★コメントに
 n=r,					; ★[ESC]+数字を n に
(n==0)?>j				; ★[ESC]+0 なら行番号入力へ H.Konno
   &s #_ #> &Le(pr,wa+82) &Ia(pr,cp-2)         ;wa+82=head lptr
    &Im(pr,n) &Id(pr,10)                        ;ファイルサイズをn/10分割
;;    &Sp(pf,"%s ->%lx",wa+146,pr..0,pr..1)       ;pf=拡張タグ情報
;    &Sp(pf,"%s%c->%lx",wa+146,9,pr..0,pr..1)       ;pf=拡張タグ情報+TAB
    &Sp(pf,"%s%c->%lx",nm,9,pr..0,pr..1)       ;pf=拡張タグ情報+TAB
;	c[$22,						;★LFN対応='"'
;    &Sp(pf,"%c%s%c%c->%lx",c,wa+146,c,9,pr..0,pr..1)    ;★pf=拡張タグ情報
;	c],						;★
    dn[-, #O #e #m dn], ky1,#d                  ;カーソル行=画面上端＋１行
;    &m("Jump to %d/10",n)
    &d #] 	;&b(2)
    .
;*

;17200/17467 LDA03553  和生             RE:RE*4:その３：ファイル十分割地点へジャ;(15)   00/11/16 13:04  17194へのコメント  コメント数：1
;=== %jump.def === H_oka,DANNY,wanama １００／１０分割ジャンプ,行番号付
;45 ^QJ""?.
:j					; ★[ESC]+0 なら行番号入力 H.Konno
      &g("",-9) &Cr (r<1)?.                     ;-9:Line No. /[ESC]etc.
      &Sn(pw)(r>2)?{ &s #J #e &d #m.}           ;100 以上 #J デフォルト
      p126+wa, i=pw.0&$f*10+pw.1&$f,            ;p:mark0, i:%
      #] &Tz(wa) p..0=ax, p..1=dx,              ;DANNY
      &Id(p,100) &Im(p,i) &Ia(p,r*i/100)        ;r:mod revise
      #U (ax+$8000<$80c8 && dx==0)?.            ;200 byte
      ds[+, #] (pw.1)??pw.1='0',                ;着地微調整
#if kVZ
      (-1){ #d (r)?{} (pw.1-pq..133.11)??{} }   ;status chr, kvz:.11
#elseif tVZ
      (-1){ #d (r)?{} (pw.1-pq..133.10)??{} }   ;status chr, tvz:.10
#else
      (-1){ #d (r)?{} (pw.1-pq..133.11)??{} }   ;status chr, ovz:.11
#endif
      ds], &d
      .
;*






;80 [ESC]C "bakup save"
80  "bakup save"
	?. ;(mr!=1)?. ;&s				;Readonlyは除外
	(mr!=1)?{#C.} ;				;
	&a(14) c=r,
	(c==-1)?.
	(c==0)?{#C (s)?'N'.}
	&m("[BAKUP] に旧ファイルを保存")		;メッセージ
	;&s
	#E &?("DEL _BAKUP.BAK") #m		;ファイルをDEL
	&?("REN %s _BAKUP.BAK",nm) #m		;ファイルをREN
	#[
	&d &m("%66sにバックアップ",pf) ;&s		;メッセージ
;	&m("%sにバックアップしました",pf)		;メッセージ
	#C(s)?'Y'
	.

;32 [UP]   "Up"
05   "Up"
;	((mr==128)&&(xx==1))?{#w.}
;;	&m("%d",ks) #? 
	#e w='行',
;	(mb==1)?{ &m("範囲指定：%d 行？",ln-ww).}
	(mb==1)? &25
#if W7
;	&d
#endif
	(vn>0)?as=av=$c0,
	 .

;;33 [DOWN] "Down"
06  "Down"
;	((mr==128)&&(xx==1))?{&m("")#z&d.}
;;	&m("%d",ks) #? 
	#x w='行',
;	(mb==1)?{ &m("範囲指定：%d 行？",ln-ww).}
	(mb==1)? &25
#if W7
;	&d
#endif
	(vn>0)?as=av=$c0,
	 .

34 ^S [<--] "←"
	((mr==128)&&(xx==1))?>71	;{#r.}
;	&m("")
	#s
	.

35 ^D [-->] "→"
	((mr==128)&&(xx==1))?>72	;{#c.}
;	&m("")
	#d
	.

#if 98 LX
24 ^L [F05] "検索文字列の取得"
;24  "検索文字列の取得"
	(s==1||s==2)? { &z("expand") >* }	; コマンドライン
	(s==3)? { #R #[ &Sh(ps,pr) &m(ps) }	; ファイラー
	(s)?.
	(cm)?? { cm-, &q >J }		; ２度目の[F05]なら :J へ
	xx=ci,
	ep+,				; ※１ [ESC]で中止
	(mb)? { #G >E }			; ブロックモード?
	ci=6,
	&m("検索文字列の取得  （[F05],^L,ｽﾍﾟｰｽ,→で拡大）")
:J	(mb)?? #b
:A	&s (ct<2)? >C
	c=ct,
:N	#d (ct>=c)? >A			; VZDEF
:C	&d #]
:D	cm-,
	mx+,				; ※２ &p でのマクロコマンドの実行禁止
	&p c=r,				; 1文字入力
	(r==#[)?{ #B #b &m("") #] >Q }	; ※１ [ESC]で中止
	(c==$20||c==$8140||c==#G)? >A
	(c==#d||c==#s||c==#a||c==#f)? { &o(c) >D }
	#B #G &m("検索文字列：%70s",ps)
	(c==#r||c==#c) ?>Q
	ci=xx, ep-, mx-,
	&o(c) .
:E	&m("%64s",ps)
:Q	ci=xx, ep-, mx-, #] 
	(c==#r)?&71
	(c==#c)?&72
	.
#endif

;68 [TAB] "タブ" ?.
68 "タブ" ?.
	(ne==0)?? >C
	(ct==1)? {#d .}			; 改行
;:A	#d (cd>=lx%ht)?>A		;ﾀﾌﾞ位置でなければｽｷｯﾌﾟ
:A	#d (cd>='A'&&cd<='Z')? >A	; A-Zなら前進
:B	#d (cd>='0'&&cd<='9')? >B	; 数字なら前進
	(cd==' ')? >B			; ｽﾍﾟｰｽなら前進
	.
:C	#21 .

71 [PGUP] "ページアップ"
	?.
	&81 #r r[, &87 r],
	(r!=0&&mb!=0&&mp!=0)? {&m("範囲指定 %d 行  文字列が見つかりません↑",ln-ww) >e}
	(r!=0&&mb==0&&mp!=0)?{ &m("%70s   が見つかりません↑",ps)>e}
;	(mb)? &m("範囲指定：%d 行？ ",ln-ww) >e
	 w='行',
	(mb)? &25 >e

	(ne==0)??>e	;.
	>e	;.
	xx=cp,
:B	#d (cd>='0'&&cd<='9')? >B	; 数字なら前進
	(cd==' ')? >B			; ｽﾍﾟｰｽなら前進
	(ct<=1)? { >e}			; 改行
:A	(cd>='A'&&cd<='Z')? >A	; A-Zなら前進
:e
#if W7
	&d
#endif
	(vn>0)?as=av=$c0,
	.


72 [PGDN] "ページダウン"
	?.
	&81 #c r[, &87 r],
	(r!=0&&mb!=0&&mp!=0)?{ &m("範囲指定 %d 行  文字列が見つかりません↓",ln-ww) >e}
	(r!=0&&mb==0&&mp!=0)?{ &m("%70s   が見つかりません↓",ps)>e}
;	(mb)? &m("範囲指定：%d 行？ ",ln-ww) .
	 w='行',
	(mb)? &25 >e	;.
	(ne==0)??>e;.
	>e;.
	xx=cp,
:B	#d (cd>='0'&&cd<='9')? >B	; 数字なら前進
	(cd==' ')? >B			; ｽﾍﾟｰｽなら前進
:e
#if W7
	&d
#endif
	(vn>0)?{as$a0,av$a0,}
	.


29  	\[INS] "ページングモード"
	?.
;	(cm-30 && mp)? { mp2, >A }	; ※３  直接［Ｐ］に戻る
:A	&m("") #@ &81 .

81:	(mp==1)?	&m("<タイトルサーチ>：%70s",ts)
	(mp==2&&ew==1)? &m("<ワードサーチ> ：%70s",ps)
	(mp==2&&ew==0)? &m("<文字列サーチ> ：%70s",ps)
	(mp==0)? {&m("") #] }
	.

69 ^b \[F10] "ブロックモード"
	?.
	(mb!=0&&ww!=0&&ep!=0)?{ #b &m("") ww-, ep-, . }
	(mb)?{ #b &m("") ww-, . }
	ww=ln, #b &m("範囲指定：%d 行",ln-ww)	;ブロックモードで終了
	ep+, .

70 [F08] "行削除"
;	?.
;	(s==3)?{ rr-, &z("ESMIEL") #W #W >* }		; ESMIEL.DEF
	(s==3)?{ rr-, &z("QVIEW") pn..37~.0-, >* }  ;pn..37~.0-,: pathbufクリア
;        &z(f) pn..37~.0-,       ;pn..37~.0-,: pathbufクリア
	(s>0)?.
	(mb&&mr==128)?{&73.}
	(mb)?{ 		 ww=ln-ww,
	(mb && xc>0)?#B
	 w='削',
:A		#y  
;		&m(" %d 行削除しました。",ww )
;		&26
		(mb)? >A
;	 ww-, . }
	ep-,
	. }
	#< ww=ln, #b #12 #d#e#x			;ブロックモードで終了
;	&m("範囲指定：%d 行？ ",ln-ww )
	 w='行',
;	&25
;;?	ep+,
	.

73 ^KK \[F08] "行記憶"
	?.
	(mb==0)?ww=1,
	#k (ww==1)? >A
	ww=ln-ww,
:A
	&m(" %d 行記憶しました。",ww )
;	&w(60) &m("") &d .
;	 w='憶',
;	&26 .
;	ep-,
	.

74 \[F09] "複写"
	?.
	(mb||mr==128)?.
	#p (r)?.
	(ww==0)? &m(" 行複写しました。" ) .
;	&m(" %d 行複写しました。", ww ) .
	 w='複',
;	&26 
	.

75 ^Y "ｶｯﾄ"
	?.
	(mr==128)?.
	(mb)?{ww=ln-ww,
	(mb && xc>0)?#B
	 w='削',
:B		#y 
;		&m(" %d 行削除しました。",ww ) 
;		&26
		(mb)? >B
;		ww-, .
		ep-,
		.
	}
	#y ??{ ww=1, 
;	&m(" %d 行削除しました。",ww ) 
;	&26
	}
;	ww-, .
	ep-,
	.

1 [F10] "ヘルプ" 
#if lx
	(mb)? {&72 .}
#endif
	&z("helpz") >*


76 ^J [F09] "行挿入"
;	?.
;	(s==3)?{ rr-, &z("QVIEW") #W #W >* }		; QVIEW.DEF
	(s==3)?{ rr-, &z("QVIEW") pn..37~.0-, >* } ;pn..37~.0-,: pathbufクリア
	(s>=1)?.
;       &z(f) pn..37~.0-,       ;pn..37~.0-,: pathbufクリア
;         &Zs("Qview") (r)??{ &z("Qview") } pn..-38.0-, >*
#if lx
	(mb)? &71 ;#r
#endif
;	&m("") #]
	(mb||mr==128)?.
	#i 		;(r)?.
	(ww==0)? {
	&m(" 行挿入しました。 " ) .}
;	&m(" %d 行挿入しました。 ", ww ) 
	w='挿',
;	&26 
	ww=0, .


;78 @[F03] "２窓で比較" #69 #62 #b #d &s #s #b #62 
78 @[F03] "２窓で比較"
	#69 (r==0)?.		;比較
	#W
	#b #d &s #s #b		;BLOK
	#W .

;79 @[F04] "２窓で行末へ"
;	 #> #W
;	 #>
;	#b #d &s #s #b		;BLOK
;	 #W.

79 @[F05] "２窓で  へ"
	 #W c=cd,
	 #b #d &s #s #b		;BLOK
	 #W
:A	#d 
	(cd==13)? .
	 (C==cd)? .
	 >A
	 .



25:
	(s)?.		; 疑似ﾌｧﾝｸｼｮﾝ(和生時計から)
#if lx Me
	p[, &27		; p=9*2
	h[,(lc)??{h=25,>D}
	h=lc,
:D	 &Sp(p,"$(1b)[%d;1f%d%c $(1b)[m$[9,8]$$",h,ln-ww,w)
					;↑桁数
   dx=p,ax$900,&i($21) h],p], 
#endif
   .


26:	(s)?.		; 疑似ﾌｧﾝｸｼｮﾝ(和生時計から)
#if lx Me
	p[, &27		; p=9*2
	h[,(lc)??{h=25,>D}
	h=lc,
:D	 &Sp(p,"$(1b)[%d;1f%d%c $(1b)[m$[9,8]$$",h,ww,w)
					;↑桁数
   dx=p,ax$900,&i($21) h],p], 
#endif
   .

27: p=3+$,. "$[40]"

* O
;#ifn 98 LX MG		; DOS/V カラーマシン以外を除外する
#if 0			;こちらを有効にすればこの間の指定は無効になる

; ---- Win Coror 1 ---
an$F0	;15 		;テキスト属性
ac$f1	;5		;コントロール文字１
ae$f2	;2		;コントロール文字２			##1.6
ap$20	;0		;ファンクションキー
ah$30	;$78		;ブロック
ab$83	;$70		;ウィンドウわく
as$21	;$70		;ステータスバー
at$31	;$70		;ウィンドウタイトル

#endif

;#ifn 98 LX MG		; DOS/V カラーマシン以外を除外する
#if 0			;こちらを有効にすればこの間の指定は無効になる

; ---- Win Coror 2 ---
an$70	;15 		;テキスト属性
ac$71	;5		;コントロール文字１
ae$72	;2		;コントロール文字２			##1.6
ap$31	;0		;ファンクションキー
ah$20	;$78		;ブロック
ab$82	;$70		;ウィンドウわく
as$31	;$70		;ステータスバー
at$31	;$70		;ウィンドウタイトル

#endif

*

;==================================
40  \[INS] "Paging"
	?. (cm-30 && mp)? mp2, #@ rx=zh=mp==2,

;pf=ファイル名ヒストリーバッファ　nm=編集テキストのファイル名