anchor.diff:      ( (= funcMod "R") (Replace) )
       ( (= funcMod "I") (Increment) )
       ( (= funcMod "F") (FindAll) )
  -  )
  -)
  -
  +;    ( (= funcMod "S") (Setup) )
  +  )
  +)
  
positive.code:       (entName (setq entType (cdr (assoc 0 (entget entName)))))
        (T (princ "No block reference selected"))
        ; read selected entity's type if present; otherwise repeat
      ); cond
    );while
    (princ (setq blkName (cdr (assoc 8 (entget entName)))))
    (while (not ss)
      (setq ss (ssget '((0 . "INSERT"))))
    )
  
    (setq index 0)
    (setq count 0)
    ;count the number of same block reference
    (while (< index (sslength ss))
      (if (= (cdr (assoc 8 (entget (ssname ss index)))) blkName)
        (setq count (1+ count))
      )
      (setq index (1+ index))    
    )
    (princ (strcat "\nThere are " (itoa count) " \"" blkname "\" within the selection."))
    (princ)
  )
  
  (defun C:Label (/ funcMod)
    (initget 1 "R I F")
    (setq funcMod
      (cond
        (setq kwd
          (getkword
  	  (strcat "\nWhich action would you like to do?"
  		  " \n[R]eplace existing label,"
  		  " [I]ncrement labels,"
  		  " [F]ind identical blocks"
  	  ); strcat
  	); getkword
        ) (funcMod)
      ); cond
    ); setq
  
negative.code:     (entmod entInfo)
      (princ txt)
      (incrementBy 1)
    )
    (princ "\nEnd of the program.")
    (princ)
  )
  
  (defun Increment (/ term tmpj ss ssl index)
    (ask-int 'jump "Enter how much you would increment by" 9001)
    (setq term 0)
    (while (not ss)
      (setq ss (ssget '( (0 . "TEXT,MTEXT") ) ) )
    )
    (setq ssl (sslength ss) )
    (setq index 0)
    (while (and (> ssl index) (= term 0) )
      (incrementEntityBy jump (ssname ss index) )
      (setq index (1+ index) )
    )
  )
  
  (defun FindAll (/ entInfo entName entType blkName ss index count)
  