anchor.diff:    ); 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 <"
  
positive.code: ;		Fixed a bug where current string & panel number
  ;			can be set higher than its limit
  ;		Refactoring program
  ;--------------------------------------------------------------
  
  (defun incrementBy (jump)
  
negative.code:   (princ "\nEnd of the program.")
    (princ)
  )
  
  (defun C:Incr (/ tmpj ss ssl index)
    (setq tmpj
  	 (getint
  	   (strcat "\nEnter how much you would increment by: <"
  		   (cond (jump (itoa jump)) ("1"))
  		   ; offer previous value if present; otherwise 1
  		   ">: "
  	   ); strcat
  	 ); getint
    ); setq
    (setq jump
  	 (cond (tmpj) (jump) (1))
    ); setq
    (while (not ss)
      (setq ss (ssget '((0 . "TEXT,MTEXT"))))
    ); while
    (setq ssl (sslength ss))
    (setq index 0)
    (while (> ssl index)
      (incrementEntityBy jump (ssname ss index))
      (setq index (1+ index))
    )
  )
  
  