;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-30-2001
;;;
(defun c:fixtndat ()
  (setq fname (findfile "tnote.dat"))
  (setq opn_fn (open fname "r"))
  (setq rdln_lst (list (read (read-line opn_fn))))
  (while
    (setq rd_line (read (read-line opn_fn)))
    (princ rd_line)
    (setq rdln_lst (append rdln_lst (list rd_line)))
  )
  (close opn_fn)
  (foreach n rdln_lst
    (if (eq (length n) 3)
      (setq new_n (append n (list 35)))
    )
    (if new_lst
      (setq new_lst (append new_lst (list new_n)))
      (setq new_lst (list new_n))
    )
  )
)