;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 02-16-2000
;;;
(DEFUN C:OHDP ()
  (SETQ DP_ENTS (SSGET "X" '((8 . "DEFPOINTS"))))
  (IF DP_ENTS
    (PROGN
      (SETQ ELST_LEN (SSLENGTH DP_ENTS)
	    ELST_CNT 0
      )
      (WHILE (< ELST_CNT ELST_LEN)
	(PRINC "\n")
	(PRINC (CDR(ASSOC 0 (ENTGET(SSNAME DP_ENTS ELST_CNT)))))
	(SETQ ELST_CNT (1+ ELST_CNT))
      )
    )
  )
)