;; II.lsp toggles UCSICON on and off 
;;
(defun C:ii ()
  (cond  ( (= 1 (getvar"ucsicon")) (setvar "ucsicon" 2) )
        ( (= 3 (getvar"ucsicon")) (setvar "ucsicon" 2) )
        ( (setvar "ucsicon" 1) )
  )
  (princ)
)