anchor.diff:  ;			can be set higher than its limit
   ;		Refactoring program
   ;Sep 24, 2014 : Incr function added
  +;Sep 25, 2014 : Refactoring program
   ;--------------------------------------------------------------
   
   (defun incrementBy (jump)
  
positive.code:       (setq entName (car (entsel "\nSelect the label: ")))
        (cond
  	(entName (setq entType (cdr (assoc 0 (entget entName)))))
  	(t (princ "No objects selected"))
  	; read selected entity's type if present; otherwise repeat
        ); cond
      );while
  
negative.code:   (princ)
  )
  
  (defun Increment (/ term tmpj ss ssl index)
    (ask-int 'jump "Enter how much you would increment by" 1 9001)
  
    (setq term 0)
    (while (not ss)
      (setq ss (ssget '((0 . "TEXT,MTEXT"))))
    ); while
    (setq ssl (sslength ss))
    (setq index 0)
    (while (and (> ssl index) (= term 0))
      (incrementEntityBy jump (ssname ss index))
      (setq index (1+ index))
    ); while
  )
  
  (defun Label(/ funcMod)
    (initget 1 "r i")
    (setq funcMod (getkword "\nWould you like to [R]eplace label, or [I]ncrement label? "))
    (cond
      ((= funcmod "r") (Replace))
      ((= funcmod "i") (Increment))
    )
  )
  