anchor.diff:  	  (action_tile "replace" "(saveVars)(done_dialog 3)")
   	  (action_tile "increment" "(saveVars)(done_dialog 4)")
   	  (action_tile "findAll" "(saveVars)(done_dialog 5)")
  +	  (action_tile "check" "(saveVars)(done_dialog 6)")
   
   	  ;; Execution of action tiles
  -          (setq ddiag(start_dialog))
  -
  -          (if (= ddiag 1)
  -            (princ)
  -          )
  -          (if (= ddiag 2)
  -            (princ)
  -          )
  -	  (if (= ddiag 3)
  -	    (Replace)
  -	  )
  -	  (if (= ddiag 4)
  -	    (Increment)
  -	  )
  -	  (if (= ddiag 5)
  -	    (FindAll)
  -	  )
  +          (setq ddiag(start_dialog) )
  +
  +          (if (= ddiag 1) (princ) )
  +          (if (= ddiag 2) (princ) )
  +	  (if (= ddiag 3) (Replace) )
  +	  (if (= ddiag 4) (Increment) )
  +	  (if (= ddiag 5) (FindAll) )
  +	  (if (= ddiag 6) (Check) )
           )
         )
       )
     )
   )
  -
  -;(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
  -
  
positive.code:     (setq strNum (1- strNum) )
    )
    
    (if (> strNum *strLim)
      ; Terminate if the label is outside of the limit
      ; Otherwise, increment the label
      (progn
        (alert "You have reached the end of the last string.")
        (setq term 1)
      )
      (progn
  
negative.code:     (>(setq tmp
  	(cond
  	  ( (getint (strcat "\n" msg " <" (if (eval var) (itoa (eval var) ) "1")
  			    ">: ") ) )
  	  ( (eval (cond ( (eval var) ) (1) ) ) )
  	)
        )
  