;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-1-98
;;;>		   EDITED: 08-18-1999
;;;
(DEFUN C:LTOPL ()
  (SETQ liness (SSGET '((0 . "LINE"))))
  (IF liness
    (PROGN
      (SETQ linesslen (SSLENGTH liness)
	    sscount  0
      ) ;_ end of setq
      (WHILE (< sscount linesslen)
	(SETQ currline (SSNAME liness sscount))
	(COMMAND ".pedit" currline "y" "")
	(SETQ sscount (1+ sscount))
      ) ;_ end of while
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;