;;;(subroutine) Place text at points.
(defun pttxt (source prfix istart istop / count thite ptindx)
  (if
    (and istart istop)
    (progn
      (setq ptindx (- istop istart)
            thite (/(getvar"dimscale")50)
            count 0)
      (while (not(eq count ptindx))
        (if
          (and
            (eval(read(strcat prfix (itoa istart))))
            (strcat source prfix (itoa istart))
          )
          (entmake
            (list
              (cons 0 "TEXT")
              (cons 10 (eval(read(strcat prfix (itoa istart)))))
              (cons 40 (getvar"textsize"))
              (cons 1 (strcat source prfix (itoa istart)))
            )
          )
        );if
;        (command ".text" (eval(read(strcat prfix (itoa istart)))) "" "0" (strcat source prfix (itoa istart)))
        (setq istart (1+ istart)
              ptindx (1- ptindx))
      )
    );progn
      (if
        (and
          (eval(read prfix))
          (strcat source prfix)
        )
        (entmake
          (list
            (cons 0 "TEXT")
            (cons 10 (eval(read prfix)))
            (cons 40 (getvar"textsize"))
            (cons 1 (strcat source prfix))
          )
        )
      );if
;    (command ".text" (eval(read prfix)) "" "0" (strcat source prfix))
  );if
  (setq istart nil istop nil)
  (princ)
)