;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://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
;
;       Copyright: 1/19/94
;
(defun C:AUTOD ( / );fil rline tstr ifil ofil filo
;(setq oerr *error*)
(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