;;;Collect survey points from *.PRN files which have two digit numbers as description keys
;;;for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
;;;overwrite mode to update point descriptions
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/19/94
;;;>		   EDITED: 01-25-2006
;;;
(DEFUN C:AUTOD (/) ;fil rline tstr ifil ofil filo
               ;(setq oerr *error*)
  (IF ustr
    nil
    (LOAD "ustr" "\nFile USTR.LSP not loaded! ")
  ) ;_ end of if
  (SETQ ifil (ustr 1 "Input filename" "" nil))
  (SETQ filo (ustr 1 "Output filename" "" nil))
  (SETQ fil (OPEN (FINDFILE ifil) "r")) ;(setq *error* (close fil))
  (WHILE (PROGN (SETQ rline (READ-LINE fil))
                (IF rline
                  (IF (>= (STRLEN rline) 79)
                    (SETQ tstr (SUBSTR rline 77 3))
                    (SETQ tstr "no")
                  ) ;if
                ) ;if
         )     ;progn
    (IF (OR (EQ " 01" tstr)
            (EQ " 02" tstr)
            (EQ " 03" tstr)
            (EQ " 04" tstr)
            (EQ " 05" tstr)
            (EQ " 06" tstr)
            (EQ " 07" tstr)
            (EQ " 08" tstr)
            (EQ " 09" tstr)
            (EQ " 10" tstr)
            (EQ " 11" tstr)
            (EQ " 12" tstr)
            (EQ " 13" tstr)
            (EQ " 14" tstr)
            (EQ " 15" tstr)
            (EQ " 16" tstr)
            (EQ " 17" tstr)
            (EQ " 18" tstr)
            (EQ " 19" tstr)
            (EQ " 20" tstr)
            (EQ " 21" tstr)
            (EQ " 22" tstr)
            (EQ " 23" tstr)
            (EQ " 24" tstr)
            (EQ " 25" tstr)
            (EQ " 26" tstr)
            (EQ " 27" tstr)
            (EQ " 28" tstr)
            (EQ " 29" tstr)
            (EQ " 30" tstr)
            (EQ " 31" tstr)
            (EQ " 32" tstr)
            (EQ " 33" tstr)
            (EQ " 34" tstr)
            (EQ " 35" tstr)
            (EQ " 36" tstr)
            (EQ " 37" tstr)
            (EQ " 38" tstr)
            (EQ " 39" tstr)
            (EQ " 40" tstr)
            (EQ " 41" tstr)
            (EQ " 42" tstr)
            (EQ " 43" tstr)
            (EQ " 44" tstr)
            (EQ " 45" tstr)
            (EQ " 46" tstr)
            (EQ " 47" tstr)
            (EQ " 48" tstr)
            (EQ " 49" tstr)
            (EQ " 50" tstr)
            (EQ " 51" tstr)
            (EQ " 52" tstr)
            (EQ " 53" tstr)
            (EQ " 54" tstr)
            (EQ " 55" tstr)
            (EQ " 56" tstr)
            (EQ " 57" tstr)
            (EQ " 58" tstr)
            (EQ " 59" tstr)
            (EQ " 60" tstr)
            (EQ " 61" tstr)
            (EQ " 62" tstr)
            (EQ " 63" tstr)
            (EQ " 64" tstr)
            (EQ " 65" tstr)
            (EQ " 66" tstr)
            (EQ " 67" tstr)
            (EQ " 68" tstr)
            (EQ " 69" tstr)
            (EQ " 70" tstr)
            (EQ " 71" tstr)
            (EQ " 72" tstr)
            (EQ " 73" tstr)
            (EQ " 74" tstr)
            (EQ " 75" tstr)
            (EQ " 76" tstr)
            (EQ " 77" tstr)
            (EQ " 78" tstr)
            (EQ " 79" tstr)
            (EQ " 80" tstr)
            (EQ " 81" tstr)
            (EQ " 82" tstr)
            (EQ " 83" tstr)
            (EQ " 84" tstr)
            (EQ " 85" tstr)
            (EQ " 86" tstr)
            (EQ " 87" tstr)
            (EQ " 88" tstr)
            (EQ " 89" tstr)
            (EQ " 90" tstr)
        )      ;or
      (PROGN (SETQ ofil (OPEN filo "a")) (WRITE-LINE rline ofil) (CLOSE ofil)) ;progn
    )          ;if
  )            ;while
  (CLOSE fil)  ;(setq *error* oerr)
)              ;defun AUTOD
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil nil T)
;*** DO NOT add text below the comment! ***|;