anchor.diff:        (setq strNum (1+ strNum) )
       )
     )
  +  
  +  ;; Report the result
     (if compl
  -    (princ "Good to go!")
  +    (alert "There were no missing panel number.")
  +    (progn
  +      (alert (strcat "Following panel numbers are missing : \n" errmsg) )
  +      (princ (strcat "\n" errmsg) )
  +    )
     )
     (princ)
   )
  
positive.code: 
  (defun FindAll (/ entInfo entName entType blkName ss index count)
    (setq ret T)
    (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) ) ) ) )
    (while (not ss)
      (setq ss (ssget '( (0 . "INSERT") ) ) )
    )
  
negative.code: 	)
        )
        (eval lim)
      )
      ;; If current input is bigger than the limit
      (princ (strcat " must be less than " (itoa (eval lim) ) ) )
    )
    (set var tmp)
  