anchor.diff:  ;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 )
  
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: 
  (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: ") ) )
  