 ; Uv and Kuv - user variable diagnostics and obliteration.
 ; Copyright 2001 by Rocket Software Ltd.
 ; Why are there electric fans but no pneumatic ones?

 ; Kuv - empty all user variables.
 (DEFUN C:KUV ()
  (setvar "users1" "")
  (setvar "users2" "")
  (setvar "users3" "")
  (setvar "users4" "")
  (setvar "users5" "")
  (setvar "useri1" 0)
  (setvar "useri2" 0)
  (setvar "useri3" 0)
  (setvar "useri4" 0)
  (setvar "useri5" 0)
  (setvar "userr1" 0)
  (setvar "userr2" 0)
  (setvar "userr3" 0)
  (setvar "userr4" 0)
  (setvar "userr5" 0)
  (prompt "User variables reset.")
 (princ))

 ; Uv - list all user variables.
 (DEFUN C:UV ()
  (prompt "User variable settings:\n")
  (print (getvar "users1"))
  (print (getvar "users2"))
  (print (getvar "users3"))
  (print (getvar "users4"))
  (print (getvar "users5"))
  (print (getvar "useri1"))
  (print (getvar "useri2"))
  (print (getvar "useri3"))
  (print (getvar "useri4"))
  (print (getvar "useri5"))
  (print (getvar "userr1"))
  (print (getvar "userr2"))
  (print (getvar "userr3"))
  (print (getvar "userr4"))
  (print (getvar "userr5"))
 (princ))

(prompt "C:UV/C:KUV")
(princ)