VZEditor/VZ157/TOOL.DEF
Yoshihiko Hyodo 6f06b9514a first commit
2024-11-18 22:21:26 +09:00

90 lines
1.6 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

======== tool.def (v1.5) ========
* M マクロ
70 [ESC]H "【ツールメニュー】"
!01
71 [ESC]Y "指定桁折"
?. (yy)?? yy=70,
&g("桁折位置($yy)")
(r==-1)?.
(r>0)? yy=r,
tt="‘“(〔[{〈《「『【([{「",
ee="’”)〕]}〉》」』】、。,.?!!),.?]}」",
mi[, ei[, mi-, ei+,
:A &k (r==$1B)? >Z ; [ESC]が押されたら中断
&x(yy)
(ct)?? >Z
(ct==1)? { #x >A }
:B #s &f(cd,tt) (r>=0)? >B
:C #d &f(cd,ee) (r>=0)? >C
#m >A
:Z ei], mi],
72 [ESC]B "ブロックのソート"
?. (mb)??.
&s
#S "temp.src" #m (s)? 'Y'
#E "sort <temp.src >temp.dst" #m #[
#y
#R "temp.dst" #m
#b #_ #y #C #i
#E "del temp.*" #m
&d #[
73 [ESC]H "センタリング"
?. (mb)?.
&s
#< (ct<2)? >Z
(ct==2)? #t
#> x=(we-lx)/2,
#< &#68(x)
:Z #z
&d
74 [ESC]K "全角スペースの表示"
dz[, dz=$A000,
p=0,
:A (p..0==$2101)?{
p..0=$2202, p..1=$A202,
p[,
p+=$2000,
p..0=$C1, p..1=$C1,
p],
}
((p+=4)<$1000)? >A
dz],
;【文字トレースマクロ】
; 入力した文字をカーソルキーで上下左右へコピー
; [CR]で一時的にトレースをOFF
; [ESC]で終了
75 [ESC]T "文字トレース"
?.
&m("文字トレース([ESC]で終了)")
mi[, ei[, eu[, mi+, ei+, eu+, ep+,
:M c=0,
:A &p d=r, (r<$100)?{ c=r, >B }
(r==#[)? >E
(c)?{ (r-$104)>?{ >M >U >D >L >R } } &o(d) >A
:R #d >B
:L #s (cd>0 && cd<$20)? >A >B
:D x=kx, #x (r)?{ #> #m } >V
:U x=kx, #e (r)? >A
:V (ct<=1)?{ #> &#68(x) #> }
:B (c<0 && cd>$1F)?{ (d==#s)? #h ? #g }
&o(c) #s >A
:E
ep-, eu], ei], mi],
&m("")
* P メニュー
1 "",34,5,20
&71 &72 &73 &74 &75
*
======== End of tool.def ========