(DEFUN c:mkstddir ()
  (IF ukword
    nil
    (LOAD "ukword" "\nFile UKWORD.LSP not loaded! ")
  ) ;_ end of IF
  (SETQ newdir (GETVAR "dwgprefix"))
  (SETQ cursubdirs (DOS_SUBDIR newdir))
  (SETQ cursubnote (MAPCAR '(lambda (x) (STRCAT x "\n")) cursubdirs))
  (SETQ this_note (EVAL (CONS 'STRCAT cursubnote)))
  (ALERT (STRCAT "Current Subdirectories:\n\n" this_note))
  (SETQ dirtomake
         (ukword
           1
           "GENeral Civil Structural Architectural PID ENvironmental Telemetry ELectrical Mechanical Plumbing Fire Landscape GIS IMages EQuipment Other Z 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 NONE"
           "Enter Discipline designator [GEN C S A PID EN T EL M P F L GIS IM EQ Other Z NONE]"
           "NONE"
         ) ;_ end of ukword
  ) ;_ end of SETQ
  (COND
    ((AND (OR (EQ dirtomake "GENeral") (EQ dirtomake "01"))
          (NOT (DOS_DIRP (STRCAT new_dir "01 General")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "01 General")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Civil") (EQ dirtomake "02"))
          (NOT (DOS_DIRP (STRCAT new_dir "02 Civil")))
     ) ;_ end of AND
     (DOS_MKDIR (STRCAT new_dir "02 Civil"))
    )
    ((AND (OR (EQ dirtomake "Structural") (EQ dirtomake "03"))
          (NOT (DOS_DIRP (STRCAT new_dir "03 Structural")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "03 Structural")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Architectural") (EQ dirtomake "04"))
          (NOT (DOS_DIRP (STRCAT new_dir "04 Architectural")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "04 Architectural")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "PID") (EQ dirtomake "05")) (NOT (DOS_DIRP (STRCAT new_dir "05 p&Id"))))
     (DOS_MKDIR (STRCAT new_dir "05 p&Id"))
    )
    ((AND (OR (EQ dirtomake "ENvironmental") (EQ dirtomake "06"))
          (NOT (DOS_DIRP (STRCAT new_dir "06 ENvironmental")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "06 ENvironmental")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Telemetry") (EQ dirtomake "07"))
          (NOT (DOS_DIRP (STRCAT new_dir "07 Telemetry")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "07 Telemetry")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "ELectrical") (EQ dirtomake "08"))
          (NOT (DOS_DIRP (STRCAT new_dir "08 Electrical")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "08 Electrical")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Mechanical") (EQ dirtomake "09"))
          (NOT (DOS_DIRP (STRCAT new_dir "09 Mechanical")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "09 Mechanical")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Plumbing") (EQ dirtomake "10"))
          (NOT (DOS_DIRP (STRCAT new_dir "10 Plumbing")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "10 Plumbing")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Fire") (EQ dirtomake "11"))
          (NOT (DOS_DIRP (STRCAT new_dir "11 Fire")))
     ) ;_ end of AND
     (DOS_MKDIR (STRCAT new_dir "11 Fire"))
    )
    ((AND (OR (EQ dirtomake "Landscape") (EQ dirtomake "12"))
          (NOT (DOS_DIRP (STRCAT new_dir "12 Landscape")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "12 Landscape")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "GIS") (EQ dirtomake "13")) (NOT (DOS_DIRP (STRCAT new_dir "13 GIS"))))
     (DOS_MKDIR (STRCAT new_dir "13 GIS"))
    )
    ((AND (OR (EQ dirtomake "IMages") (EQ dirtomake "14"))
          (NOT (DOS_DIRP (STRCAT new_dir "14 IMaGes")))
     ) ;_ end of AND
     (DOS_MKDIR (STRCAT new_dir "14 IMaGes"))
    )
    ((AND (OR (EQ dirtomake "EQuipment") (EQ dirtomake "15"))
          (NOT (DOS_DIRP (STRCAT new_dir "15 eQuipment consultants")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir
               "15 eQuipment consultants"
       ) ;_ end of STRCAT
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Other") (EQ dirtomake "16"))
          (NOT (DOS_DIRP (STRCAT new_dir "16 Other consultants")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir "16 Other consultants")
     ) ;_ end of DOS_MKDIR
    )
    ((AND (OR (EQ dirtomake "Z") (EQ dirtomake "17"))
          (NOT (DOS_DIRP (STRCAT new_dir "17 Z contractor shop drawings")))
     ) ;_ end of AND
     (DOS_MKDIR
       (STRCAT new_dir
               "17 Z contractor shop drawings"
       ) ;_ end of STRCAT
     ) ;_ end of DOS_MKDIR
    )
  ) ;_ end of COND
) ;_ end of defun
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 100 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;