;    toggles tilemode variable ;
;                              ;
; written oct 27, 2000       mb;
(defun C:to (/ tmv)
  (setq tmv (getvar "tilemode"))
  (if (eq tmv 0)
    (setvar "tilemode" 1)
    (setvar "tilemode" 0)
    )
  )