anchor.diff:      (setq ss (ssget '((0 . "INSERT"))))
     )
     
  -  ; Count the number of same block reference
  +  ;; Count the number of same block reference
     (setq index 0)
     (setq count 0)
     (while (< index (sslength ss))
  
positive.code:   (setq index 1)
    (setq txt (cdr (assoc 1 entInfo) ) ); (pnlNum).(strNum)
  
    ; Assign pnlNum and strNum using txt
    (while (or (/= (substr txt index 1) ".") (> index 10))
      (setq index (1+ index) )
    )
    (setq pnlNum (atoi (substr txt 1 (1- index) ) ) )
    (setq strNum (atoi (substr txt (1+ index) ) ) )
    
    ; Step up / down
    (setq pnlNum (+ pnlNum jump) )
    (while (> pnlNum *pnlLim)
      (setq pnlNum (- pnlNum *pnlLim) )
      (setq strNum (1+ strNum) )
    )
    (while (< pnlNum 0)
      (setq pnlNum (+ pnlNum *pnlLim) )
      (setq strNum (1- strNum) )
    )
  
negative.code: ;Sep 26, 2014 : FindAll function added
  ;		Initial menu created
  ;Oct 30, 2014 : General cleanup
  ;		Fixed a bug where Increment would not work
  ;			properly if negative number is given
  ;Oct 31, 2014 : Improvement on accessing functions
  ;Nov 04, 2014 : Initial GUI added for menu
  ;		Fixed a bug where Increment could produce
  ;			label with panel number 0
  ;--------------------------------------------------------------
  
  (defun *error* ( errormsg )
    (if (not (member errormsg '("Function cancelled" "quit / exit abort" "Cancel") ) )
      (princ (strcat "\nError: " errormsg) )
      (if ret (Label))
    )
    (princ)
  )
  
  (defun saveVars(/ pnlCur strCur pnlLim strLim)
    ;; Save the input from the dialog box
    (setq pnlCur (atoi (get_tile "pnlCur")))
    (setq strCur (atoi (get_tile "strCur")))
    (setq pnlLim (atoi (get_tile "pnlLim")))
    (setq strLim (atoi (get_tile "strLim")))
    (setq *pnlCur pnlCur)
    (setq *strCur strCur)
    (setq *pnlLim pnlLim)
    (setq *strLim strLim)
  )
  
  ;;NOTE: incrementEntityBy terminates AFTER changing the entity,
  ;;      whereas incrementBy only assigns values to *pnlCur and *strCur.
  (defun incrementBy (jump)
    (setq *pnlCur (+ *pnlCur jump) )
  
    ;; Step up / down
    (while (> *pnlCur *pnlLim)
      (setq *pnlCur (- *pnlCur *pnlLim) )
      (setq *strCur (1+ *strCur) )
    )
    (while (<= *pnlCur 0)
      (setq *pnlCur (+ *pnlCur *pnlLim) )
      (setq *strCur (1- *strCur) )
    )
  
    ;; Terminates if the label is outside of the limit
    (if (> *strCur *strLim)
      (progn
        (alert "You have reached the end of the last string.")
  