;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-14-98
;;;>		   EDITED: 07-14-2005
;;;
(DEFUN C:UDPIPE ()
  (SETQ pfit_ss (SSGET))
  (IF pfit_ss
    (PROGN
      (SETQ pfit_sslen (SSLENGTH pfit_ss)
	    pfit_cnt 0
      )
      (WHILE (< pfit_cnt pfit_sslen)
	(SETQ part_edef (ENTGET (SSNAME pfit_ss pfit_cnt))
	      part_type (CDR (ASSOC 0 part_edef))
	)
	(IF (EQ part_type "LINE")
	  (SETQ part_dist (DISTANCE (CDR (ASSOC 10 part_edef))(CDR (ASSOC 11 part_edef))))
	)
	(IF (AND(EQ part_type "INSERT")(EQ (STRCASE(CDR (ASSOC 2 part_edef))) "PARA-HDBOX"))
	  (SETQ part_box part_edef)
	)
	(SETQ pfit_cnt (1+ pfit_cnt))
      )
      (IF (AND part_dist part_box)
	(PROGN
	  (SETQ part_box (SUBST (CONS 41 part_dist)(ASSOC 41 part_box)part_box))
	  (ENTMOD part_box)
	)
      )
    )
  )
  (PRINC)
)