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

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

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

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