;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
(defun c:chklst ()
  (setq chk_lst nil)
  (while
    (eq "Continue" (setq repeat (ukword 1 "Quit Continue" "Continue or Quit" "Continue")))
    (setq textent (entsel "\nSelect text string: "))
    (setq insent (entsel "\nSelect insert: "))
    (if (and textent insent)
      (progn
        (setq textstr (cdr(assoc 1 (entget(car textent))))
              insscale (cdr(assoc 41 (entget(car insent))))
        )
        (if chk_lst
          (setq chk_lst (append chk_lst (list(list textstr insscale))))
          (setq chk_lst (list(list textstr insscale)))
        )
      )
    )
    (setq textent nil
          insent nil
          textstr nil
          insscale nil
    )
  )
)