;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 08-18-1999
;;;
(defun c:txtlst ( / text_lst)
  (setq ss (ssget "x" '((0 . "TEXT"))))
  (setq sslen (sslength ss))
  (setq count 0)
  (while (< count sslen)
    (setq txt_item (cdr(assoc 1(entget(ssname ss count)))))
    (if text_lst
      (if (member txt_item text_lst) nil
        (setq text_lst (append text_lst (list txt_item)))
      )
      (setq text_lst (list txt_item ))
    )
    (setq count (1+ count))
  )
  (setq text_lst (acad_strlsort text_lst))
  (setq text_out (open (strcat (getvar"dwgprefix")"textlst.txt") "w"))
  (foreach n text_lst (princ (strcat n "\n") text_out))
  (close text_out)
)