anchor.diff:  )
   
   (defun Replace(/ term txt entName entType entInfo)
  -  ; initialize
  -  (ask-int '*pnlLim "Enter number of panels per string" 9001)
  -  (ask-int '*strLim "Enter number of strings existing" 9001)
  -  (ask-int '*pnlCur "Enter current panel number" *pnlLim)
  -  (ask-int '*strCur "Enter current string number" *strLim)
  +  (setq ret T)
  +;  ;; initialize
  +;  (ask-int '*pnlLim "Enter number of panels per string" 9001)
  +;  (ask-int '*strLim "Enter number of strings existing" 9001)
  +;  (ask-int '*pnlCur "Enter current panel number" *pnlLim)
  +;  (ask-int '*strCur "Enter current string number" *strLim)
   
     (setq term 0)
     (while (= term 0)
       
  -    ; ask user for the label to modify
  +    ;; ask user for the label to modify
       (while (and (/= "TEXT" entType) (/= "MTEXT" entType) )
         (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
  +		;; read selected entity's type if present; otherwise repeat
         )
       )
       (setq entType 0)
   
  -    ; replace the chosen label
  +    ;; replace the chosen label
       (setq entInfo (entget entName) )
       (setq txt (strcat (itoa *pnlCur) "." (itoa *strCur) ) )
       (setq entInfo (subst (cons 1 txt) (assoc 1 entInfo) entInfo) )
  
positive.code: )
  
  (defun FindAll (/ entInfo entName entType blkName ss index count)
    (while (/= entType "INSERT")
      (setq entName (car (entsel "\nChoose a block reference: ")))
      (cond
        (entName (setq entType (cdr (assoc 0 (entget entName)))))
        (T (princ "No block reference selected"))
        ; read selected entity's type if present; otherwise repeat
      )
    )
    (princ (setq blkName (cdr (assoc 8 (entget entName)))))
  
negative.code: )
  
  (defun Increment (/ term tmpj ss ssl index)
    (setq ret T)
    (ask-int 'jump "Enter how much you would increment by" 9001)
    (setq term 0)
    (while (not ss)
  