;TIP599.LSP   Selective Purge   (c)1990, James Mays

(defun PURGBL (/ SCMDE TD COUNT)
  (setq SCMDE (getvar "CMDECHO"))
  (setq TD (tblnext "BLOCK" t))
  (setq COUNT 0)
  (while (/= TD nil)
    (if (or (= 0 (cdr (assoc 70 TD)))
            (= 2 (cdr (assoc 70 TD))))
      (setq COUNT (1+ COUNT))
    )
    (setq TD (tblnext "BLOCK"))
  )
  (repeat COUNT
    (command ".PURGE" "B" "Y" ^C)
  )
  (setvar "CMDECHO" SCMDE)
)