;Collect survey points from *.TXT 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) 61)
        (setq tstr (substr rline 59 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