; TIP502.LSP   Programming Aids [Bonus Winner]   (c)1990, Rick France

(defun BEGIN ()
  (SV '("CMDECHO" "REGENMODE" BLIPMODE") o t)
)

;------------------------------------------------------------------------------
(defun SV (VN V? AL)
  (while VN
    (if 
      (and 
        (not 
          (member (setq CV (car VN)) VL)) 
        (= AL t)
      )
      (setq VL 
        (append VL 
          (list CV (getvar CV))
        )
      )
    )
    (setvar CV V?)
    (setq VN (cdr VN))
  )
)

;------------------------------------------------------------------------------
(defun ENDIN ()
  (while VL 
    (setvar (car VL)(cadr VL)) 
    (setq VL (cddr FL))
  )
  (princ)
)

;------------------------------------------------------------------------------
(defun *error* (MSG)
  (if
    (/= MSG "Function cancelled")
    (princ (strcat "\nError: " MSG))
  )
  (ENDIN)
)