;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; All rights reserved. ;;; ;;; Copyright: 3-12-2002 ;;; Edited: 3-12-2002 (DEFUN C:DISOFF () (IF c:dis NIL (LOAD "DIS" "\nFile DIS.LSP not loaded! ")) (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER"))) (IF (<(CDR(ASSOC 62 disstatus))0) NIL (C:DIS) ) ) (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER|DISCLAIMER"))) (IF (<(CDR(ASSOC 62 disstatus))0) NIL (C:DIS) ) ) ) (DEFUN C:DISON () (IF c:dis NIL (LOAD "DIS" "\nFile DIS.LSP not loaded! ")) (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER"))) (IF (>(CDR(ASSOC 62 disstatus))0) NIL (C:DIS) ) ) (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER|DISCLAIMER"))) (IF (>(CDR(ASSOC 62 disstatus))0) NIL (C:DIS) ) ) )