anchor.diff:  
   (defun FindAll (/ entInfo entName entType blkName ss index count)
     (setq ret T)
  +
  +  ;; Ask for a model block reference to find
     (while (/= entType "INSERT")
       (setq entName (car (entsel "\nChoose a block reference: ") ) )
       (cond
         (entName (setq entType (cdr (assoc 0 (entget entName) ) ) ) )
         (T (princ "No block reference selected"))
  -      ;; read selected entity's type if present; otherwise repeat
       )
     )
     (princ (setq blkName (cdr (assoc 8 (entget entName) ) ) ) )
  +
  +  ;; Ask for set of blocks to find from
     (while (not ss)
       (setq ss (ssget '( (0 . "INSERT") ) ) )
     )
  
positive.code:     )
    )
  )
  
negative.code:       (setq strNum (1+ strNum) )
      )
    )
    
    ;; Report the result
    (if compl
      (alert "There were no missing panel number.")
      (progn
        (alert (strcat "Following panel numbers are missing : \n" errmsg) )
        (princ (strcat "\n" errmsg) )
      )
    )
    (princ)
  )
  