;; III.lsp toggles UCSICON to UCS origin 
(defun C:iii ()
  (cond ( (= 3 (getvar "ucsicon"))  (setvar "ucsicon" 1) )
       ( (setvar "ucsicon" 3) )
  )
  (princ)
)