;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 07-12-2005
;;;
(DEFUN initandsdichk ()
  (SETQ	princprfx (IF princprfx
		    (STRCAT princprfx "  ")
		    "[DEBUG]  "
		  ) ;_ end of IF
  ) ;_ end of SETQ
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx "Begin execution of INITANDSDICHK function. "))
      (PRINC)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF (AND (EQ (TYPE c:qsave) 'LIST)(EQ (NTH 2 (NTH 1 c:qsave)) "  QSaved................:  "))
    NIL
    (IF (FINDFILE (STRCAT (GETVAR "loginname") "-custom.lsp"))
      (PROGN
        (LOAD (STRCAT (GETVAR "loginname") "-custom") (STRCAT "\nFile " (STRCASE (STRCAT (GETVAR "loginname") "-custom.lsp")) " not loaded! "))
        (EVAL(READ (STRCAT "("(GETVAR "loginname") "-custom)")))
      )
    )
  )
  (IF (AND (GETVAR "SDI") (EQ (GETVAR "SDI") 0))
    (PROGN
;;;      (ALERT
;;;      (PRINC "\nSDI (Single Document Interface) was OFF, SDI is ON now")
;;;      ) ;_ end of ALERT
      (SETVAR "SDI" 1)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF (EQ (GETVAR "LISPINIT") 1)
    (PROGN
;;;             (ALERT "System variable LISPINIT was 1\nIt has been reset to 0")
;;;      (PRINC "\nLISPINIT was reset to 0 ")
      (SETVAR "LISPINIT" 0)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx "End execution of INITANDSDICHK 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