(defun c:mini_zo( / old_cmd)
   (mai_start nil)
    (mai_last_com "mini_zo")
   (command "_.ucs" "ob" pause "_.plan" "")
   (mai_end)
)

(defun c:mini_z1( / old_cmd)
   (mai_start nil)
    (mai_last_com "mini_z1")
   (command "_.ucs" "" "_.plan" "")
   (mai_end)
)

(defun c:mini_z2( / old_cmd)
   (mai_start nil)
    (mai_last_com "mini_z2")
   (command "_.ucs" "" "_.ucs" "n" "z" 90 "_.plan" "")
   (mai_end)
)

(defun c:mini_z3( / old_cmd)
   (mai_start nil)
    (mai_last_com "mini_z3")
   (command "_.ucs" "" "_.ucs" "n" "z" 180 "_.plan" "")
   (mai_end)
)
(defun c:mini_z4( / old_cmd)
   (mai_start nil)
    (mai_last_com "mini_z4")
   (command "_.ucs" "" "_.ucs" "n" "z" 270 "_.plan" "")
   (mai_end)
)