;俤俵俙俠俽宺慄昞帵僐儅儞僪丂丂倐倷丂俽俫俬俶俧俷

store-procedure "boxcmd"

set %x2 $curcol
set %y2 $curline
exchange-point-and-mark
set %x1 $curcol
set %y1 $curline
!if &les %x2 %x1
  set %dm %x2
  set %x2 %x1
  set %x1 %dm
!endif
!if &les %y2 %y1
  set %dm %y2  
  set %y2 %y1
  set %y1 %dm
!endif
set $curline %y1
end-of-line
!if &les $curcol %x2
  set %dm &div &sub %x2 $curcol 2
  %dm insert-string "丂"
!endif
set $curcol %x2

!if &equ %y1 %y2
  !if &equ %x1 %x2
    overwrite-string "嗈"
    !goto end
  !else
    overwrite-string "喥"
    set $curcol %x1
    overwrite-string "喚"
    set %xx &div &sub &sub %x2 %x1 1 2
    %xx overwrite-string "啟"
    !goto end
  !endif
!else
  !if &equ %x1 %x2
    overwrite-string "單"
    backward-character
    next-line
    !while &les $curline %y2
      !if &les $curcol %x2
        set %dm &div &sub %x2 $curcol 2
        %dm insert-string "丂"
      !endif
      overwrite-string "啢"
      set $curcol %x2
      next-line
    !endwhile  
    overwrite-string "喼"
    !goto end
  !endif
!endif

;啴啟啟啟啿偺晹暘
overwrite-string "啿"
set $curcol %x1
overwrite-string "啴"
set %xx &div &sub &sub %x2 %x1 1 2
%xx overwrite-string "啟"
next-line

;啢丂丂丂啢偺晹暘
!while &les $curline %y2
  !if &les $curcol %x2
    set %dm &div &sub %x2 $curcol 2
    %dm insert-string "丂"
  !endif
  overwrite-string "啢"
  set $curcol %x1
  overwrite-string "啢"
  set $curcol %x2
  next-line
!endwhile  

;喍啟啟啟喓偺晹暘
!if &les $curcol %x2
  set %dm &div &sub %x2 $curcol 2
  %dm insert-string "丂"
!endif
overwrite-string "喓"
set $curcol %x1
overwrite-string "喍"
%xx overwrite-string "啟"
*end

!endm
set %box "TRUE"
                                  