;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 06-03-2005
;;;
(DEFUN c:nilbns
                ()
  (SETQ atms-list (ATOMS-FAMILY 2))
  (FOREACH n atms-list
    (IF (EQ (SUBSTR n 1 3) "BNS")
      (SET (READ n) nil)
    ) ;_ end of if
  ) ;_ end of foreach
) ;_ end of defun