anchor.diff:  )
   
   (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)
  
positive.code:   (princ)
  )
  
  ;(defun Setup()
  ;  (ask-int '*pnlLim "Enter number of panels per string" 9001)
  ;  (ask-int '*strLim "Enter number of strings existing" 9001)
  ;  (ask-int '*inv1StrMax "Enter number of strings for inverter #1" 9001)
  ;  (setq *inv1StrMin 1)
  ;  (ask-int '*inv2Str "Enter number of strings for inverter #2" 9001)
  ;  (setq *inv2StrMin (1+ *inv1StrMax)
  ;	*inv2StrMax (+ *inv1StrMax *inv2Str)
  ;  )
  ;  (ask-int '*inv3Str "Enter number of strings for inverter #3" 9001)
  ;  (setq *inv3StrMin (1+ *inv2StrMax)
  ;	*inv3StrMax (+ *inv2StrMax *inv3Str)
  ;  )
  ;)
  
  (defun Label (/ mod done)
    (prompt
      (strcat "\nWhich action would you like to do?"
        "\n[R]eplace existing label,"
        " [I]ncrement labels,"
        " [F]ind identical blocks"
        " [S]etup string schedule: "
      ); strcat
    ); prompt
    (while (and (not done) (setq mod (grread T 12 0)))
      (cond
        ((or (equal opt '(2 82)) (equal mod '(2 114))); typed R or r
          (setq done T); [stops (while) loop to end this routine with calling of chosen routine]
          (Replace)
        ); R condition
        ((or (equal opt '(2 73)) (equal mod '(2 105))); typed I or i
          (setq done T)
          (Increment)
        ); I condition
        ((or (equal opt '(2 70)) (equal mod '(2 102))); typed F or f
          (setq done T)
          (FindAll)
        ); F condition
  ;      ((or (equal opt '(2 83)) (equal mod '(2 115))); typed S or s
  ;        (setq done T)
  ;        (Setup)
  ;      ); S condition
      ); cond
    ); while
  ); defun
  
  
negative.code: )
  
  (defun FindAll (/ entInfo entName entType blkName ss index count)
    (setq ret T)
    (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)))))
  