anchor.diff:      (setvar "cmdecho" oldcmdecho)
       (princ)
     )
  -  
  +
     ; SAVE "osmode" and "cmdecho"
     (setq oldosmode (getvar "osmode"))
     (setq oldcmdecho (getvar "cmdecho"))
  -  
  +
     ; CHANGE "osmode" and "cmdecho"
     (setvar "osmode" 512)
     (setvar "cmdecho" 0)
  -  
  +
     (setq
       ss (ssget)
       p1 (getpoint "\nSelect point 1: ")
  
positive.code:     (entmod entList)
      (setq i (+ i 1))
    ); END while
    
    ; RESET to original "osmode" and "cmdecho".
    (setvar "osmode" oldosmode)
    (setvar "cmdecho" oldcmdecho)
    (princ)
    
    ; v0.0 - 2016.03.15 - First issue
    ; Author: David Torralba
    ; Last revision: 2016.03.15
  )
negative.code: ; DO NOT REMOVE THIS LINE. It's a checking.
  (defun C:RT ()
    (defun *error* ( msg )
      (if (not (member msg '("Function cancelled" "quit / exit abort")))
  