anchor.diff:  ;with the incremental numbering.
   ;--------------------------------------------------------------
   ;Sep 23, 2014 : Initial commitment
  +;		Fixed a bug where current string & panel number
  +;			can be set higher than its limit
   ;--------------------------------------------------------------
   
  -(defun C:Label(/ term txt entname)
  +(defun C:Label(/ term txt temp entName entType)
     (setq *strLim
       (cond
         ( (getint
  -          (strcat "\nEnter Number of Strings Existing <"
  +          (strcat "\nEnter number of strings existing <"
               (cond (*strLim (itoa *strLim)) ("1"))
  -              ; offer current value if present; otherwise 1
  +              ; offer previous value if present; otherwise 1
               ">: "
             ); strcat
           ); getint
  
positive.code:   );*pnlLim
    (setq *strCur
      (cond
        ( (getint
  	  (strcat "\nEnter Current String Number <"
  		  (cond (*strCur (itoa *strCur)) ("1"))
  		  ; offer current value if present; otherwise 1
  		  ">: "
            ); strcat
          ); getint
        ); User-input condition [nil on Enter]
        (*strCur) (1)
      ); cond
    );*strCur
    (setq *pnlCur
      (cond
        ( (getint
            (strcat "\nEnter Current Panel Number <"
              (cond (*pnlCur (itoa *pnlCur)) ("1"))
                ; offer current value if present; otherwise 1
              ">: "
            ); strcat
          ); getint
        ); User-input condition [nil on Enter]
        (*pnlCur) (1)
      ); cond
    );*pnlCur
  
    (setq term 0) 
    (while (= term 0)
      (setq entname (car (entsel "\nSelect Existing Label: ")
  	   );car
      );setq
      (if (= entname nil)
        ()
        (progn
  	(setq obj (entget entname))
  	(setq txt (strcat (itoa *pnlCur) "." (itoa *strCur)))
  	(setq obj (subst (cons 1 txt) (assoc 1 obj) obj))
  	(entmod obj)
  	(princ txt)
  	(if (>= *pnlCur *pnlLim)
  	  (progn
  	    (setq *pnlCur 1)
  	    (setq *strCur (+ *strCur 1))
  	  );progn
  	  (setq *pnlCur (+ *pnlCur 1))
          );if
  	(if (> *strCur *strLim)
  	  (progn
  	    (alert "You have reached the end of the last string.")
  	    (setq term 1)
  	  );progn
  	);if
  	(setq entname nil)
        ); progn
      ); if
    ); while
    (princ "\nEnd of the Program.")
    (princ)
  )
  
negative.code:   (setq *pnlLim
      (cond
        ( (getint
            (strcat "\nEnter number of panels per string <"
              (cond (*pnlLim (itoa *pnlLim)) ("1"))
                ; offer previous value if present; otherwise 1
              ">: "
            ); strcat
          ); getint
  