anchor.diff:  ;		Fixed a bug where current string & panel number
   ;			can be set higher than its limit
   ;		Refactoring program
  +;Sep 24, 2014 : Incr function added
   ;--------------------------------------------------------------
   
   (defun incrementBy (jump)
  
positive.code:   (princ "\nEnd of the program.")
    (princ)
  )
  
negative.code:   ); if
  )
  
  (defun incrementEntityBy (jump inp / index entInfo txt pnlNum strNum)
    (setq entInfo (entget inp))
    (setq index 1)
    (setq txt (cdr (assoc 1 entInfo))); (pnlNum).(strNum)
  
    ; separate pnlNum and strNum from txt
    (while (/= (substr txt index 1) ".")
      (setq index (1+ index))
    ); while
    (setq pnlNum (atoi (substr txt 1 (1- index))))
    (setq strNum (atoi (substr txt (1+ index))))
  
    ; increment the label
    (setq pnlNum (+ pnlNum jump))
    (while (> pnlNum *pnlLim)
      (setq pnlNum (- pnlNum *pnlLim))
      (setq strNum (1+ strNum))
    ); while
    (setq txt (strcat (itoa pnlNum) "." (itoa strNum)))
    (setq entInfo (subst (cons 1 txt) (assoc 1 entInfo) entInfo))
    (entmod entInfo)
    (princ)
    ;(if (> strNum *strLim)
    ;TODO: alert when it reaches above the limit
    ;); if
  )
  
  ; currently working on it
  ;(defun ask-int (var msg mod / vval tmp)
  ;  ;; Asks for an integer value to set into the variable, defaulting to the previous value
  ;  (cond
  ;    ( (= mod 1)
  ;      (setq vval (getint (strcat "\n" msg " <"
  ;				(cond (var (itoa var)) ("1"))
  ;				; offer previous value if present; otherwise 1
  ;				">: "
  ;			 ); strcat
  ;		 ); getint
  ;      ); setq
  ;      (setq var
  ;	     (cond (vval) (var) (1))
  ;      ); setq
  ;    ); mod1
  ;    ( (= mod 2)
  ;      (while
  ;	(> (setq vval (getint (strcat "\n" msg " <"
  ;				      (cond (var (itoa var)) ("1"))
  ;				      ; offer previous value if present; otherwise 1
  ;				      ">: "
  ;				); strcat
  ;		      ); getint
  ;	   ); setq
  ;	lim
  ;	); if current panel number is bigger than the limit
  ;	(princ (strcat " must be less than " (itoa lim)))
  ;      ); while
  ;     (setq var
  ;	 (cond (vval) (var) (1))
  ;  ); setq
  ;    ); mod2
  ;  ); cond
  ;)
  
  (defun C:Label(/ term txt tmpsl tmppl tmpsc tmppc entName entType entInfo)
    ; initialize
  ;  (ask-int (eval *pnlLim) "Enter number of panels per string" 1)
  ;  (ask-int '*strLim "Enter number of strings existing" 1)
  ;  (ask-int *pnlCur "Enter current panel number" 2)
  ;  (ask-int *strCur "Enter current string number" 2)
    (setq tmppl
  	 (getint
  	   (strcat "\nEnter number of panels per string <"
  