anchor.diff:    ;; within the selected set
     (setq pnlNum 1)
     (setq strNum 1)
  -  (while (<= strNum *strLim)
  +  (while (and (<= strNum *strTerm) (<= pnlNum *pnlTerm) )
       (setq index 0)
       (setq ssl (sslength ss) )
       (setq chkTxt (strcat (itoa pnlNum) "." (itoa strNum) ) )
  
positive.code: 	  (set_tile "strCur" (cond (*strCur (itoa *strCur) ) (T "1") ) )
  	  (set_tile "pnlLim" (cond (*pnlLim (itoa *pnlLim) ) (T "1") ) )
  	  (set_tile "strLim" (cond (*strLim (itoa *strLim) ) (T "1") ) )
  	
            ;; If an action event occurs, do this function
            (action_tile "cancel" "(done_dialog 1)")
  
negative.code:   (setq term 0)
  
    ;; Ask for a number to increment the label by
    ;;(ask-int 'jump "Enter how much you would increment by" 9001)
  
    ;; Ask for set of labels to modify
    (while (not ss)
  