;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-12-2006
;;;>		   EDITED: 12-27-2005
;;;
(defun c:fixsubs ()
  (PRINC "\n")
  (foreach n '("Plots")
    (setq tif_lst (dos_dir (strcat "H:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\2?-*.tif")))
    (PRINC "\010\010\010\010\010\010\010")
    (PRINC (STRCASE n))
    (PRINC)
    (foreach o tif_lst
      (IF
        (dos_rename (strcat "H:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" o) (strcat "H:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" (SUBSTR o 4)))
        (PROGN
          (PRINC (strcat "\nH:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" (SUBSTR o 4)))
          (PRINC)
        )
        (PROGN
          (PRINC (strcat "\nH:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" o " NOT RENAMED! "))
          (PRINC)
        )
      )
    )
  )
  (princ)
)