anchor.diff:    (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: ")))
  +    (while (and (/= "TEXT" entType) (/= "MTEXT" entType) )
  +      (setq entName (car (entsel "\nSelect the label: ") ) )
         (cond
  -	(entName (setq entType (cdr (assoc 0 (entget entName)))))
  -	(T (princ "No objects selected"))
  +	(entName (setq entType (cdr (assoc 0 (entget entName) ) ) ) )
  +	(T (princ "No objects selected") )
   	; read selected entity's type if present; otherwise repeat
         ); cond
       );while
       (setq entType 0)
   
       ; replace the chosen label
  -    (setq entInfo (entget entName))
  -    (setq txt (strcat (itoa *pnlCur) "." (itoa *strCur)))
  -    (setq entInfo (subst (cons 1 txt) (assoc 1 entInfo) entInfo))
  +    (setq entInfo (entget entName) )
  +    (setq txt (strcat (itoa *pnlCur) "." (itoa *strCur) ) )
  +    (setq entInfo (subst (cons 1 txt) (assoc 1 entInfo) entInfo) )
       (entmod entInfo)
       (princ txt)
       (incrementBy 1)
  
positive.code: 	(cond
  	  ( (getint
  	      (strcat "\n" msg " <"
  		      (if (eval var) (itoa (eval var)) "1")
  		      ">: "
  	      ); strcat
  	    ); getint
  	  )
  	  ((eval (cond ((eval var)) (1))))
  	); cond
        ); set
      ); mod1
  
negative.code:       (setq term 1)
      ); progn
      (progn
        (setq txt (strcat (itoa pnlNum) "." (itoa strNum) ) )
        (setq entInfo (subst (cons 1 txt) (assoc 1 entInfo) entInfo) )
        (entmod entInfo)
      ); progn
    ); if
  