;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 04-04-2001
;;;
(defun shtfix ()
  (setq it
	 (ssget "x" '((-4 . "<OR")
		        (8 . "C-VI022REVU")
			(8 . "C-VI023REVU")
		      (-4 . "OR>")
	             )
	 )
  )
  (if it
    (command ".erase" it "")
  )
)