anchor.diff:  ;		Refactoring program
   ;Sep 24, 2014 : Incr function added
   ;Sep 25, 2014 : Refactoring program
  +;Sep 26, 2014 : FindAll function added
  +;		Initial menu created
   ;--------------------------------------------------------------
  -
   (defun incrementBy (jump)
  -  (setq *pnlCur (+ *pnlCur jump))
  +  (setq *pnlCur (+ *pnlCur jump) )
     (while (> *pnlCur *pnlLim)
  -    (setq *pnlCur (- *pnlCur *pnlLim))
  -    (setq *strCur (1+ *strCur))
  +    (setq *pnlCur (- *pnlCur *pnlLim) )
  +    (setq *strCur (1+ *strCur) )
     )
     (if (> *strCur *strLim)
       (progn
  
positive.code: )
  
  (defun incrementEntityBy (jump ent / index entInfo txt pnlNum strNum)
    (setq entInfo (entget ent))
    (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
    ; terminate if the label is outside of the limit
    (if (> strNum *strLim)
  
negative.code:       (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
  