;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	e-mail hfrancis-at-paracadd.com
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
(DEFUN cfrancis-custom ()
;;;         (VLR-REMOVE-ALL)
  (SETQ	princprfx (IF princprfx
		    (STRCAT princprfx "  ")
		    "[DEBUG]  "
		  ) ;_ end of IF
  ) ;_ end of SETQ
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx "Executing cfrancis-custom.lsp "))
      (PRINC)
    ) ;_ end of PROGN
    (PROGN
      (princ "\nExecuting cfrancis-custom.lsp ")
      (princ)
    )
  ) ;_ end of IF
         (GC)
         (SETVAR "cmdecho" 0)
         (setvar "savetime" 20)
         (SETQ c:qsave  NIL
               c:save   NIL
               c:open   NIL
               c:saveas NIL
               c:quit   NIL
         )
         (COMMAND "undefine" "qsave")
         (COMMAND "undefine" "save")
         (COMMAND "undefine" "saveas")
         (COMMAND "undefine" "quit")
         (COMMAND "undefine" "open")
         (LOAD "qsave" "\nFile QSAVE.LSP not loaded! ")
         (LOAD "save" "\nFile SAVE.LSP not loaded! ")
         (LOAD "saveas" "\nFile SAVEAS.LSP not loaded! ")
         (LOAD "open" "\nFile OPEN.LSP not loaded! ")
         (LOAD "quit" "\nFile QUIT.LSP not loaded! ")         
         (LOAD "ded" "\nFile DED.LSP not loaded!")
         (IF (/= (GETVAR "regenmode") 0)
           (SETVAR "regenmode" 0)
         ) ;_ end of IF
         (COMMAND ".UCSICON" "ALL" "ON")
         (IF (OR (>= (READ (GETVAR "ACADVER")) 15.06) (<= (READ (GETVAR "ACADVER")) 14.99)) ;_ end of OR
           (SETVAR "plinetype" 0)
           (PROGN (SETVAR "plinetype" 2)
;;; (princ "\nAutoCAD system variable forced, PLINETYPE=2, to avoid \"Cannot select anything\" BUG in the extremely BUGGY
;;; AutoCAD version
;;; 2000i")
                  (PRINC "\nPLINETYPE FORCED TO 2!")
                  (PRINC)
           ) ;_ end of progn
         ) ;_ end of IF
         (IF (AND (NOT (EQ (STRCASE (GETVAR "dwgname")) "DRAWING.DWG"))
                  (NOT (WCMATCH (STRCASE (GETVAR "dwgname")) "DRAWING#.DWG"))
             ) ;_ end of AND
           (SETENV "MaxHatch" "200000")
         ) ;_ end of IF
;;;(LOAD "uutils" "\nFile UUTILS.LSP not loaded!")
         (IF (>= (ATOF (GETVAR "acadver")) 15.06)
           (PROGN (SETVAR "hidetext" 0)
                  (IF (EQ (GETVAR "loginname") "cfrancis")
                    (PROGN
;;;                           (PRINC "\nSkipped VBASTMT to set text history lines to 1200. ")
;;;                           (PRINC)
                           (IF txtscrnmem
                             nil
                             (LOAD "textscrnmem" "\nFile TEXTSCRNMEM.LSP not loaded! ")
                           ) ;_ end of IF
                           (IF txtscrnmem
                             (textscrnmem 1200)
                           ) ;_ end of IF
                    ) ;_ end of PROGN
                  ) ;_ end of IF
           ) ;_ end of PROGN
           nil
         ) ;_ end of IF
  (IF debug_princs
    (PROGN
      (PRINC (STRCAT "\n" princprfx "Done executing cfrancis-custom.lsp "))
      (PRINC)
    ) ;_ end of PROGN
    (PROGN
      (princ "\nDone executing cfrancis-custom.lsp ")
      (princ)
    )
  ) ;_ 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
;;;  (IF (OR nonapster (MEMBER "NapsterClient-US-3.5.2.3.dat" (DOS_PROCESSES)))
;;;    NIL
;;;    (PROGN
;;;      (STARTAPP "c:/Program Files/Napster/NapsterClient.exe")
;;;    )
;;;  )
  (PRINC)
) ;_ 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! ***|;