(defun c:bnw (/ bc n dt)
  (if (setq bc (ssget (list (cons 0 "insert"))))
    (progn
      (setvar "cmdecho" 0) (command "_.undo" "be")
      (repeat (setq n (sslength bc))
        (setq n (1- n) dt (entget (ssname bc n)))
        (entmake (list (cons 0 "text") (assoc 10 dt)
          (cons 11 (cdr (assoc 10 dt))) (cons 1 (cdr (assoc 2 dt)))
          (cons 40 (getvar "textsize")) (cons 72 1) (cons 73 2))
        )
      )
      (command "_.undo" "e")
    )
  ) (princ)
)