;;;This was written to create a batch file to make folders from CST 2004 Masterformat listing.
;;;7/8/2004
(DEFUN C:FIXRAW ( / PRDLN IT ITOUT RDLN)
  (SETQ IT (OPEN "C:\\RAW7-12.TXT" "r"))
  (SETQ ITOUT (OPEN "C:\\FIXEDCSI.BAT" "w"))
  (WHILE (SETQ RDLN (READ-LINE IT))
    (COND
      ((OR (WCMATCH RDLN "N:*")(WCMATCH RDLN "CD *")(WCMATCH RDLN "MD *"))
       (WRITE-LINE RDLN ITOUT))
      ((WCMATCH RDLN "DIVISION*")
       (WRITE-LINE "CD ..\\.." ITOUT)
       (WRITE-LINE (STRCAT "CD \"" RDLN "\"") ITOUT)
       )
      ((WCMATCH RDLN "## ## 00*")
       (IF (WCMATCH PRDLN "DIVISION*")
         NIL
         (WRITE-LINE "CD .." ITOUT)
       )
       (WRITE-LINE (STRCAT "MD \"" (SUBSTR RDLN 4) "\"") ITOUT)
       (WRITE-LINE (STRCAT "CD \"" (SUBSTR RDLN 4) "\"") ITOUT)
       )
      ((WCMATCH RDLN "## ## ##*")
       (WRITE-LINE (STRCAT "MD \"" (SUBSTR RDLN 4) "\"") ITOUT)
       )
    )
    (SETQ PRDLN RDLN)
  )
  (CLOSE IT)
  (CLOSE ITOUT)
  (PRINC)
)