;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-12-2002
;;;>		   EDITED: 03-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)
	)
      )
)