anchor.diff:  	(cond
   	  ( (getint
   	      (strcat "\n" msg " <"
  -		      (if (eval var) (itoa (eval var)) "1")
  +		      (if (eval var) (itoa (eval var) ) "1")
   		      ">: "
   	      ); strcat
   	    ); getint
   	  )
  -	  ((eval (cond ((eval var)) (1))))
  +	  ( (eval (cond ( (eval var) ) (1) ) ) )
   	); cond
         ); set
       ); mod1
  
positive.code: ;		Refactoring program
  ;Sep 24, 2014 : Incr function added
  ;Sep 25, 2014 : Refactoring program
  ;--------------------------------------------------------------
  
  (defun incrementBy (jump)
    (setq *pnlCur (+ *pnlCur jump))
    (while (> *pnlCur *pnlLim)
      (setq *pnlCur (- *pnlCur *pnlLim))
      (setq *strCur (1+ *strCur))
    )
    (if (> *strCur *strLim)
      (progn
  
negative.code: 	    (cond
  	      ( (getint
  		  (strcat "\n" msg " <"
  			  (if (eval var) (itoa (eval var) ) "1")
  			  ">: "
  		  ); strcat
  		); getint
  	      )
  	      ( (eval (cond ( (eval var) ) (1) ) ) )
  	      ); cond
  	    ); setq
  	  (eval lim)
  	); if current input is bigger than the limit
  	(princ (strcat " must be less than " (itoa (eval lim) ) ) )
  	); while
        (set var tmp)
      ); mod2
  