=== JUMP10.def v0.6 ===		2026-05-27

9911：十分割ジャンプ JUMP10.def   Ｈ岡,DANNY,和生,めざら,konno 100／10分割ジャンプ,行番号付
どんな大きなファイルでも、十分の一刻みで、正確に、ファイル内のお望みの地点へ着地してくれます。
ビューモードなら VZオリジナル版で99Mまで、高橋版以降なら460M以上まで使えます。
[ESC]+1〜9 十分割ジャンプ
[ESC]+0 なら1〜99入力 百分割ジャンプ / 100 以上なら行番号ジャンプ -1 で65535行
使用している汎用変数：n,p,i,j,v,w,		Ver0.6  2026-05-27

*M

80 [ESC]0 "きっちり十分割ジャンプ：超巨大ファイル対応版"
	?.
	a-, n=r, (n==0)?>J		;[ESC]+0 なら1〜99入力へ
	n=n*10, >T			;1〜9は十分割ジャンプ
:J					;[ESC]+0 なら1〜99入力 百分割ジャンプ
	&g("",-9) n=r, &Cr &Sn(pw)
	(r<1)?. 			;-9:Line No. /[ESC]etc.
	(r==0&&n==-1)?.			;-9:Line No. /[ESC]etc.
	(r<1&&n==-1)?>n 		;100以上 &#J(n) 65535行まで(-1)
	(n>100||n==-1)?>n 		;100以上なら行番号入力 ジャンプ
	a+,				;99flg
:T	p126+wa, #]			;p= mark0,wa+126
	w=(n%10)+48, 			; '0'
#if tVZ
	&Tz(wa) p..0=ax, p..1=dx,	;tVZファイルサイズ DANNY
#else					;oVZは99Mまで
	&Im(p,0)			;pをクリア
	&s #_ #> &Le(p,wa+82)		;wa+82 + cp-2 = ファイルサイズ
	&Ia(p,cp-2) ax=p..0,dx=p..1,	;ロング加算 wa+82=head lptr
#endif
	i1,  ;  (dx==0&&ax<$7000)?i1, 	;ファイルサイズで倍率調整
	(dx>=$10)?i10, 			;1M	;ファイルサイズで倍率調整
	(dx>=$50)?i100, 		;5M	;ファイルサイズで倍率調整
	&Id(p,100*i) 			;ロング整数を整数で除算
	&Im(p,n*i) 			;ロング整数に整数を乗算
	&Ia(p,r*n/100)	;r:mod revise
	i-, j-,#U (ax<$7000 && dx==0)?{j+, >m } ;200 byte
	(pc..1=='XE')?{#x >q }		;VZEXはstatusの位置が違う？
:m	ds[+, dh[+, &d #] i-, v-,	;ステータス画面更新
#if kVZ
	(ol==0&&n>1)?>k (100){ (ol>=n)? >t &02 } >t 	;status chr, kvz:.??
#elseif tVZ
	(100){v=pq..133.10, (v==w)?>t &01 } >t 	;status chr, ovz:.11
#endif
:k
	(100){v=pq..133.11, (v==w)?>t &01 }	;status chr, ovz:.11
:t	dh], ds],
:q	&d #] &m("%s Jump to %d％",pc,n) .
;	&m("%s Jump to %d％  w%c v%c  i%d",pc,n,w,v,i). ;debug
:n	&#J(n) &m("Jump %d行 ",n) . ;100 以上なら行番号ジャンプ 65535行まで

01:	(a==0&&w=='0'&&(v=='9'||v=='8'))?{ &02 . }	;微調整
	(a==1&&(w-v)!=0&&(w-v)>0&&(w-v)<2)?{ &02 . }	;微調整
02:	(j)?#d ?#x i++,					;微調整
*

Ver0.6  2026-05-27	oVZで 99M まで、高橋版以降なら460M以上まで使用可能に
Ver0.5  2020-11-09	oVZで 11.3M まで使用可能に、全てのVZに対応
Ver0.4  2020-11-08	oVZで 3.2M まで使用可能に、めざらさんのマクロを取込み。
Ver0.3  2020-10-21	32767行以上に対応?  (^^;
Ver0.2  		まぼろし〜? (^^;
Ver0.1  2006-11-09	Ｈ岡さんと和生さんとDANNYさんのマクロを泥縄合体。(^^;