;;; Toggle.lsp
;;; 
;;; created by Erik Murray Copyright (C) 1997
;;; last modified 11/8/97

(defun c:BMT (/ v1)
  (princ "\n- Blipmode Toggle -")(terpri)
  (setvar "blipmode" (abs (+ (getvar "blipmode") -1)))
  (setq v1 (getvar "blipmode"))
  (princ "\nCurrent Blipmode: ")
  (princ v1 )
  (princ)
) ;end defun BMT

(defun c:CST ()
  (princ "\n- Cursorsize Toggle -")
  (if (= 100 (getvar "CURSORSIZE")) ;test
    (if (not PREV_CURSORSIZE) ;test
      (setvar "CURSORSIZE" 5) ;then
      (setvar "CURSORSIZE" PREV_CURSORSIZE) ;else
    ) ;end if and then
    (progn
      (setq PREV_CURSORSIZE (getvar "CURSORSIZE"))
      (setvar "CURSORSIZE" 100)
    ) ;end progn and else
  ) ;end if
  (princ)
) ;end defun CST

(defun c:HIT (/ v1)
  (princ "\n- Highlight Toggle -")(terpri)        
  (setvar "highlight" (abs (+ (getvar "highlight") -1)))
  (setq v1 (getvar "Highlight"))
  (princ "\nCurrent Highlight: ")
  (princ v1 )
  (princ)
) ;end defun HIT

(defun c:MTT (/ v1)
  (princ "\n- Mirror Text Toggle -")(terpri)        
  (setvar "mirrtext" (abs (+ (getvar "mirrtext") -1)))
  (setq v1 (getvar "mirrtext"))
  (princ "\nCurrent mirrtext: ")
  (princ v1 )
  (princ)
) ;end defun MTT

(defun c:PST (/ v1)
  (princ "\n- Pickstyle Toggle -")(terpri)        
  (setvar "pickstyle" (abs (+ (getvar "pickstyle") -1)))
  (setq v1 (getvar "pickstyle"))
  (princ "\nCurrent pickstyle: ")
  (princ v1 )
  (princ)
) ;end defun PST

(defun c:QTT (/ v1)
  (princ "\n- Quick Text Toggle -")(terpri)       
  (setvar "qtextmode" (abs (+ (getvar "qtextmode") -1)))
  (setq v1 (getvar "qtextmode"))
  (princ "\nCurrent qtextmode: ")
  (princ v1 )
  (princ)
) ;end defun QTT

(defun c:TT ()
  (princ "\n- Tilemode toggle -")(terpri)
  (command "tilemode" (abs (+ (getvar "tilemode") -1)))
  (princ)
) ;end defun TT

(defun c:UIT (/ v1)
  (princ "\n- UCS Icon Toggle -")(terpri)        
  (setvar "ucsicon" (abs (+ (getvar "ucsicon") -1)))
  (setq v1 (getvar "ucsicon"))
  (princ "\nCurrent ucsicon: ")
  (princ v1 )
  (princ)
) ;end defun UIT