ほれ、ちゃんと答えは書いておくぞ。
なんなら、真似してしろ。 恥かかかないですむw
======== sort.def (Ver.1.00) ========
* M
80 ^@ "ソート"
?. (mb==4 || mb==2)? {&m("文字境界・矩形ブロックは処理できません!!").}
x=lx,
&a("〔%d〕桁以降をソート Y:昇順 N:降順 [ESC]:キャンセル どちらです",x)
(r==-1)?.
(r==1)? o="",
(r)?? o="/r",
&s
(mb)?? {#< #^ #b #_ #>}
#S "sort.src" #m (s)? 'Y'
(x)? >B
:A #E &?("sort %s <sort.src >temp.dst",o) >Q
:B #E &?("sort %s /+%d <sort.src >temp.dst",o,x)
:Q #m #[
#y
#R "temp.dst" #m
#b #_ #> #y #C #i
#E "del temp.dst" #m
&d #[
*
======== End of sort.def ========