==========tobi001.def=============
*m
50^^ "飛び石"
    ?.
   (e==1)?{&m("[ESC]終了[F06]初期値入力↓前方↑後方").}
    e=1,
    f="0123456789０１２３４５６７８９�@�A�B�C�D�E�F�G�H�I�J�K�L$
    �M�N�O�P�Q�R�S",
    &m("[ESC]終了[F06]初期値入力↓前方↑後方")
    ps[,ps=pa,  ;検索バッファをすりかえ
:B  m=mp,&j(0)
    #F &Cr &j(-1)      ;検索番号設定
    a=0,
    k=0,l=0,x=0,y=0,
    &g("刻み幅")    ;歩幅の設定。「10」とか「6」とか、半角で。「1」以上。
                    ;設定しなければ刻み幅は「1」
    (r<=1)?p=1,?p=r,
    !02
    (r<=0)?{a=1,>A};プラス
    (r==1)?{a=-1,>A};マイナス
:A  ep[,ep+,
    &p ep], ;いちおうモード型？
    &s
    (s)?{&d &o(r)>A}   ;編集モード以外はそのまま★『ＶZマクロ道場』から拝借
    (r==#06)?>H     ;↓前方検索
    (r==#05)?>L     ;↑後方検索
    (r==#55)?{&d>B}     ;"[F06]"または"^QF"で、新たな初期値の入力。
    (r==#[)?>X
    ?{&d &o(r)>A}
:X  &d!01
    (r<0)?>A?>Y
:Y  mp=m,ps],e=0,f=0,
    (3){&b(2)&w(3)}.
:H; "前へ"
    l=0,
    (x==0)?{&01>Z}
    (k==1)?{&02>A}?{&03>I};↓で見つからないときは&02へ
:I  (q==0)?{#m#c&d>Z}
    #s >J
:J  
    &f(cd,f)
    (r<0)?{#s>J}                            ;助数詞つき番号に対応
    
    ;(cd>='0'&&cd<='9'||cd>='０'&&cd<='９'||cd>='�@'&&cd<='�S')
    ;??{#s>J}                            ;助数詞つき番号に対応
    
    (a==1)?>C
    (a==-1)?>D
:C  (cd=='9'||cd=='９')?{&04 &?("%c",b-9) #s#s >J}
    ?{&04 &?("%c",b+a)q-=1, #>>I}
:D
    (cd=='0'||cd=='０')?{&04 &?("%c",b+9) #s#s >J}
    ?{&04 &?("%c",b+a)q-=1, #>>I}
:Z  (r<0)?{ &02 k=1,>A}?{&b(1)&m("前方　刻み幅%d",p)>A}
:L  ;"後ろへ"
    k=0,
    (x==0)?{&01>P}
    (l==1)?{&02>A}?{&03>M};↑で見つからないときは&02へ
:M  (q==0)?{#m#r&d>P}
    #s>N
:N  
    &f(cd,f)
    (r<0)?{#s>N}                            ;助数詞つき番号に対応
    ;(cd>='0'&&cd<='9'||cd>='０'&&cd<='９'||cd>='�@'&&cd<='�S')
    ;??{#s>N}                            ;助数詞つき番号に対応
    
    (a==1)?>E
    (a==-1)?>F
:E   (cd=='0'||cd=='０')?{&04 &?("%c",b+9) #s#s >N}
    ?{&04 &?("%c",b-a)q-=1, #>>M}
:F
    (cd=='9'||cd=='９')?{&04 &?("%c",b-9) #s#s >N}
    ?{&04 &?("%c",b-a)q-=1, #>>M}
:P   (r<0)?{&02 l=1,>A}?{&b(3)&m("後方　刻み幅%d",p)>A}
1:  x=1,#F#e#m#c
    (r<0)?>A?>B
:A  #e#c#x
    (r<0)?C?>B
:C  #r
:B  &d            
2:  (l==1||k==1)?{#F#e#m}?{#F#e#e#m}
     &m("みつかりません。[F06]初期値入力")&b(8)
3:  q=p,#F#e
4:  b=cd,#g
*P
1   "リターンで終了",16,1
    " 終 了します"
2   "番号",8,2
    " 昇 順 "
    " 降 順 "
*