;;;Reads DWG_EDIT.LOG and writes parts to FILE1.LOG
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 07-23-2004
;;;
(defun c:flog (/ s2)
  (setq f1 (open (getfiled "Drawing Edit Log File" "DWG_EDIT" "LOG" 4) "r"))
  (setq f2 (open "file1.log" "w"))
  (while
    (if s2
      (setq s1 s2)
      (setq s1 (read-line f1))
    );if
      (setq s2 (read-line f1))
      (while
        (and s2
          (not
            (or
              (eq (substr s2 1 1) "Q")
              (eq (substr s2 1 1) "H")
              (eq (substr s2 1 1) "S")
            )
          )
        )
        (setq s1 (strcat s1 (substr s2 2 8)(substr s2 28)))
        (setq s2 (read-line f1))
      );while
      (write-line s1 f2)
  );while
  (close f1)
  (close f2)
)