(defun c:ba ()
(command "DRAWORDER" "B")
(princ)
);end defun