;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: ;;; Edited: ;;; (DEFUN c:ohsnap () (PRINC "\nOSMODE was ") (PRINC (getvar"osmode")) (PRINC "; ") (PRINC "AUTOSNAP was ") (PRINC (GETVAR"autosnap")) (SETQ my-t-leader "0") (SETQ t-leader "0") (PRINC (STRCAT "\nOSMODE = " (ITOA (SETVAR "osmode" 1285))"; AUTOSNAP = " (ITOA (SETVAR "autosnap" 7)))) (PRINC) )