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 term 0)
     (while (= term 0)
  +    
       ; ask user for the label to modify
       (while (and (/= "TEXT" entType) (/= "MTEXT" entType) )
         (setq entName (car (entsel "\nSelect the label: ") ) )
  
positive.code: ;  )
  ;)
  
  (defun Menu (/ funcMod )
    (initget 1 "R I F")
    (setq funcMod
      (cond
        (setq kwd
          (getkword
  	  (strcat "\nWhich action would you like to do?"
  		  "\n[R]eplace existing label,"
  		  " [I]ncrement labels,"
  		  " [F]ind identical blocks"
  ;		  " [S]etup string schedule"
  	  )
  	)
        ) (funcMod)
      ); cond
    ); setq
    (cond
      ( (= funcMod "R") (Replace) )
      ( (= funcMod "I") (Increment) )
      ( (= funcMod "F") (FindAll) )
  ;    ( (= funcMod "S") (Setup) )
    )
  )
  
negative.code: ;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
  ;--------------------------------------------------------------
  
  (defun *error* ( errormsg )
  