List Routine: To edit multiple single text entities

vmon

(DEFUN C:TEXTSUB ( );/ a b d e d1 b1 y)
(graphscr) (prompt "Select Text line ") (terpri)
(setq a1 (ssget))
(setq n (sslength a1))
(setq index 0) (repeat N
(setq b (entget (ssname a1 index)))
(setq d (assoc 1 b))
(redraw (cdr (assoc -1 b)) 3)
(prompt (cdr d)) (terpri)
(setq e (getstring 1))
(setq d1 (cons (car d) e))
(setq b1 (subst d1 d b))
(IF (/= E "")(entmod b1))
(setq y (getstring "Is this correct - Y ")) (terpri)
(if (= (strcase y) "N") (entmod b))
(setq index (+ index 1))
);end repeat
)

(PRINC)