;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-10-93
;;;>		   EDITED: 07-11-2006
;;;
(DEFUN check_for_doslib ()
  (SETQ	princprfx (IF princprfx
		    (STRCAT princprfx "  ")
		    "[DEBUG]  "
		  ) ;_ end of IF
  ) ;_ end of SETQ
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx "Begin execution of CHECK_FOR_DOSLIB function. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (COND
                                        ;if DOSLib is already loaded, return true
    ((NOT (NULL DOS_ABOUT))
     (SETQ nodoslib nil)
     T
    )
                                        ;if AutoCAD Release 12, 
    ((= (ATOI (SUBSTR (GETVAR "acadver") 1 2)) 12)
     (SETQ nodoslib nil)
     (xload "doslib12")
    )
                                        ;if AutoCAD Release 13, 
    ((= (ATOI (SUBSTR (GETVAR "acadver") 1 2)) 13)
     (SETQ nodoslib nil)
     (xload "doslib13" nil)
    )
                                        ;if AutoCAD Release 14, 
    ((AND (= (ATOI (SUBSTR (GETVAR "acadver") 1 2)) 14)
          (NOT DOS_HELP)
     ) ;_ end of and
     (SETQ nodoslib nil)
     (ARXLOAD "doslib14")
    )
                                        ;if AutoCAD 2000, 
    ((AND (= (ATOF (GETVAR "acadver")) 15)
          (NOT DOS_HELP)
     ) ;_ end of and
     (SETQ nodoslib nil)
     (ARXLOAD "doslib15")
    )
    ((AND (>= (ATOF (GETVAR "acadver")) 16)
          (NOT DOS_HELP)
     ) ;_ end of and
     (SETQ nodoslib nil)
     (ARXLOAD "doslib16")
    )                                        ;default message
    ((AND (>= (ATOF (GETVAR "acadver")) 17)
          (NOT DOS_HELP)
     ) ;_ end of and
     (SETQ nodoslib nil)
     (ARXLOAD "doslib17")
    )                                        ;default message
    (nodoslib
     (PROMPT "\nDOSLIB not found! ")
    )
  ) ;_ end of cond
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx "END execution of CHECK_FOR_DOSLIB function. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (SETQ	princprfx
	 (COND
	   ((AND princprfx (WCMATCH princprfx "`[DEBUG`]   *"))
	    (SUBSTR princprfx 1 (- (STRLEN princprfx) 2))
	   )
	   (T "[DEBUG]  ")
	 ) ;_ end of COND
  ) ;_ end of SETQ
  (princ)
) ;_ end of DEFUN