(defun c:cor (/ ss n en)
  (if (setq ss (ssget (list (cons 0 "line"))))
    (progn
      (setvar "cmdecho" 0) (command "_.undo" "be")
      (repeat (setq n (sslength ss))
        (setq en (entget (ssname ss (setq n (1- n)))))
        (command "_.text" (cdr (assoc 10 en)) "" "" (cdr (assoc 10 en))
                 "_.text" (cdr (assoc 11 en)) "" "" (cdr (assoc 11 en)))
      ) (command "_.undo" "end")
    )
  ) (princ)
)