anchor.diff:  ;Nov 04, 2014 : Initial GUI added for menu
   ;		Fixed a bug where Increment could produce
   ;			label with panel number 0
  +;Dec 03, 2014 : Check function added
  +;		User can now type individual commands
  +;			separately in the command line
   ;--------------------------------------------------------------
   
   (defun *error* ( errormsg )
     (if (not (member errormsg '("Function cancelled" "quit / exit abort" "Cancel") ) )
       (princ (strcat "\nError: " errormsg) )
  -    (if ret (Label))
  +    (if ret (Label) )
     )
     (princ)
   )
   
   (defun saveVars(/ pnlCur strCur pnlLim strLim)
     ;; Save the input from the dialog box
  -  (setq pnlCur (atoi (get_tile "pnlCur")))
  -  (setq strCur (atoi (get_tile "strCur")))
  -  (setq pnlLim (atoi (get_tile "pnlLim")))
  -  (setq strLim (atoi (get_tile "strLim")))
  +  (setq pnlCur (atoi (get_tile "pnlCur") ) )
  +  (setq strCur (atoi (get_tile "strCur") ) )
  +  (setq pnlLim (atoi (get_tile "pnlLim") ) )
  +  (setq strLim (atoi (get_tile "strLim") ) )
     (setq *pnlCur pnlCur)
     (setq *strCur strCur)
     (setq *pnlLim pnlLim)
  
positive.code: 	  (action_tile "replace" "(saveVars)(done_dialog 3)")
  	  (action_tile "increment" "(saveVars)(done_dialog 4)")
  	  (action_tile "findAll" "(saveVars)(done_dialog 5)")
  
  	  ;; 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)
  	  )
          )
        )
      )
    )
  )
  
  ;(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:     (>(setq tmp
  	(cond
  	  ( (getint (strcat "\n" msg " <" (if (eval var) (itoa (eval var) ) "1")
  			    ">: ") ) )
  	  ( (eval (cond ( (eval var) ) (1) ) ) )
  	)
        )
  