anchor.diff:  	)
         )
         (eval lim)
  -    ); if current input is bigger than the limit
  +    )
  +    ;; If current input is bigger than the limit
       (princ (strcat " must be less than " (itoa (eval lim) ) ) )
     )
     (set var tmp)
  
positive.code:     )
      (setq index (1+ index) )
    )
    (princ (strcat "\nThere are " (itoa count) " \"" blkname
  		 "\" within the selection.") )
    (princ)
  )
  
  (defun Check (/ ss ssl pnlNum strNum index chkTxt lblTxt entName found compl)
    (while (not ss)
      (setq ss (ssget '( (0 . "TEXT,MTEXT") ) ) )
    )
    (setq compl T)
    (setq pnlNum 1)
    (setq strNum 1)
    (while (<= strNum *strLim)
  
negative.code: 
  (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"))
      )
    )
    (princ (setq blkName (cdr (assoc 8 (entget entName) ) ) ) )
  
    ;; Ask for set of blocks to find from
    (while (not ss)
      (setq ss (ssget '( (0 . "INSERT") ) ) )
    )
  