anchor.diff:    ); if
   )
   
  -(defun incrementEntityBy (jump inp / index entInfo txt pnlNum strNum)
  -  (setq entInfo (entget inp))
  +(defun incrementEntityBy (jump ent / index entInfo txt pnlNum strNum)
  +  (setq entInfo (entget ent))
     (setq index 1)
     (setq txt (cdr (assoc 1 entInfo))); (pnlNum).(strNum)
   
  
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:   ); 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
    ; terminate if the label is outside of the limit
    (if (> strNum *strLim)
      (progn
        (alert "You have reached the end of the last string.")
        (setq term 1)
      ); progn
      (progn
        (setq txt (strcat (itoa pnlNum) "." (itoa strNum)))
        (setq entInfo (subst (cons 1 txt) (assoc 1 entInfo) entInfo))
        (entmod entInfo)
      ); progn
    ); if
    (princ)
  )
  
  (defun ask-int (var msg mod lim / tmp)
    ;; Asks for an integer value to set into the variable, defaulting to the previous value
    (cond
      ( (= mod 1)
        (set var
  	(cond
  	  ( (getint
  	      (strcat "\n" msg " <"
  		      (if (eval var) (itoa (eval var)) "1")
  		      ">: "
  	      ); strcat
  	    ); getint
  	  )
  	  ((eval (cond ((eval var)) (1))))
  	); cond
        ); set
      ); mod1
      ( (= mod 2)
        (while
  	(>(setq tmp
  	    (cond
  	      ( (getint
  		  (strcat "\n" msg " <"
  			  (if (eval var) (itoa (eval var)) "1")
  			  ">: "
  		  ); strcat
  		); getint
  	      )
  	      ((eval (cond ((eval var)) (1))))
  	      ); cond
  	    ); setq
  	  (eval lim)
  	); if current input is bigger than the limit
  	(princ (strcat " must be less than " (itoa (eval lim))))
  	); while
        (set var tmp)
      ); mod2
    ); cond
  )
  
  (defun Replace(/ term txt tmpsl tmppl tmpsc tmppc entName entType entInfo)
    ; initialize
    (ask-int '*pnlLim "Enter number of panels per string" 1 9001)
    (ask-int '*strLim "Enter number of strings existing" 1 9001)
    (ask-int '*pnlCur "Enter current panel number" 2 *pnlLim)
    (ask-int '*strCur "Enter current string number" 2 *strLim)
  
    (setq term 0) 
    (while (= term 0)
  