(defun xref (/)
(setq xrlst "XREF's: ")
(setq tblk (tblnext "block" t))
  (while
    (setq tbln (tblnext "block"))
      (if (setq xrnm (cdr (assoc 1 tbln)))
        (setq xrlst (strcat xrlst xrnm ", "))
      );if
  );while
    (if (setq xrnm (cdr (assoc 1 tblk)))
      (setq xrlst (strcat xrlst xrnm ", "))
    );if
  (if
    (not
      (eq 8 (strlen xrlst))
    );not
    (progn
      (setq pt (upoint 1 "" "where" nil nil))
      (command ".text" pt "" "" xrlst )
    );progn
  );if
);defun