(FILECREATED "28-Jan-84 21:29:55" {PHYLUM}<BLUEBONNET>DMRUSSELL>LOADBLUEBONNET.;3
 4869   

      changes to:  (VARS LOADBLUEBONNETCOMS LOADBLUEBONNETFNS)
		   (FNS CreateFonts LoadIt)

      previous date: "20-SEP-83 22:13:04" {PHYLUM}<BLUEBONNET>DMRUSSELL>LOADBLUEBONNET.;1)


(PRETTYCOMPRINT LOADBLUEBONNETCOMS)

(RPAQQ LOADBLUEBONNETCOMS
 [(FNS * LOADBLUEBONNETFNS)
	(P (LoadIt))
	(DECLARE: EVAL@COMPILE
		  (GLOBALVARS BluebonnetTrace CommentHeader CommentWffs CommentWindow CopiesFields 
			      CopyJob CopyJobConstraints CopyJobFields Gacha12Bold HelpUnits 
			      Helvetica16Bold IAssume OriginalsFields PlanGenerators Reading8200Flg 
			      SavedJobState StatusWindow TimesRoman16 TimesRoman16Bold TimesRomanD24 
			      Tonto14 UserInstructionWindow WeAreNow))
	(VARS (BluebonnetTrace)
	      (Reading8200Flg)
	      (HelpWindow))
	(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
									      (NLAML)
									      (LAMA \TraceIt])

(RPAQQ LOADBLUEBONNETFNS
 (CreateFonts LoadIt LoadSources StoreSources \TraceIt))
(DEFINEQ

(CreateFonts

  [LAMBDA NIL                                                (* JG "28-Jan-84 21:11")

                                                             (* Create a standard set of fonts and make it the value 

							     of global variables.)

    (printout
 T T "Creating fonts.  ")
    (SETQ Helvetica16Bold (FONTCREATE 'HELVETICA 16 'BOLD))
    (SETQ TimesRoman16 (FONTCREATE 'TIMESROMAN 16))
    (SETQ TimesRoman16Bold (FONTCREATE 'TIMESROMAN 16 'BOLD))
    (SETQ Tonto14 (FONTCREATE 'TONTO 14))
    (SETQ Gacha12Bold (FONTCREATE 'GACHA 12 'BOLD))
    (SETQ TimesRomanD24 (FONTCREATE 'TIMESROMAND 24))
    (printout
 T "Done." T])

(LoadIt

  [LAMBDA NIL                                                (* JG "28-Jan-84 21:07")

                                                             (* *JG (QUOTE NIL) required instead of NIL 

							     (arg to MENU) in CAROL release)

    (PROG NIL
          [COND
	    ([MENU (create
 MENU
			   CENTERFLG ← T
			   TITLE ← "Do you want to load the sources?"
			   ITEMS ← '((YES T)
			    (NO 'NIL]
	      (RETURN (LoadSources
]                          (* else, load the DCOMs)

          (FILESLOAD PROCESSWFFS COPYJOBDATA DESCRIBEJOB PLANNER 8200INTERFACE 8200SERVER 
		     STARTBLUEBONNET MONITOR)
          [COND
	    ([MENU (create
 MENU
			   CENTERFLG ← T
			   TITLE ← "Do you really want to load the Help system too?"
			   ITEMS ← '((YES T)
			    (NO 'NIL]
	      (LOAD? 'LOADBLUEBONNETHELPGRAPH]
          (CreateFonts
)
          (printout
 T "Bluebonnet Loaded" T])

(LoadSources

  [LAMBDA NIL                                                (* edited: " 1-SEP-83 14:47")

    (FILESLOAD (SOURCE)
	       PROCESSWFFS COPYJOBDATA DESCRIBEJOB PLANNER 8200INTERFACE 8200SERVER STARTBLUEBONNET 
	       MONITOR)
    (if
 [MENU (create
 MENU
		      CENTERFLG ← T
		      TITLE ← "Do you really want to load the Help system too?"
		      ITEMS ←(QUOTE ((YES T)
				      (NO NIL]
	then
 (LOAD (QUOTE LOADBLUEBONNETHELPGRAPH))
      else
 (MOVD? (QUOTE NILL)
		  (QUOTE SearchHelp))
	   HelpWindow←NIL
	   HelpMenu←NIL)
    (CreateFonts
)
    (printout
 T "Bluebonnet Loaded" T])

(StoreSources

  [LAMBDA NIL                                                (* edited: "14-JUN-83 10:53")

    (MAKEFILE (QUOTE PROCESSWFFS))
    (MAKEFILE (QUOTE COPYJOBDATA))
    (MAKEFILE (QUOTE DESCRIBEJOB))
    (MAKEFILE (QUOTE PLANNER))
    (MAKEFILE (QUOTE 8200INTERFACE))
    (MAKEFILE (QUOTE 8200SERVER))
    (MAKEFILE (QUOTE STARTBLUEBONNET))
    (MAKEFILE (QUOTE LOADBLUEBONNET))
    (MAKEFILE (QUOTE MONITOR))
    (printout
 T "Bluebonnet Stored" T])

(\TraceIt

  [LAMBDA args                                               (* ref: "10-DEC-82 13:39")


          (* Conditionally print a trace message. If the first argument is non-NIL then print each of the other arguments in

	  sequence followed by a CR on the primary output file.)



    (if
 (ARG args 1)
	then
 (for
 i from
 2 to
 args do
 (PRIN1 (ARG args i)))
	     (TERPRI])
)
(LoadIt)
(DECLARE: EVAL@COMPILE 
(DECLARE: DOEVAL@COMPILE DONTCOPY

(ADDTOVAR GLOBALVARS BluebonnetTrace CommentHeader CommentWffs CommentWindow CopiesFields CopyJob 
	  CopyJobConstraints CopyJobFields Gacha12Bold HelpUnits Helvetica16Bold IAssume 
	  OriginalsFields PlanGenerators Reading8200Flg SavedJobState StatusWindow TimesRoman16 
	  TimesRoman16Bold TimesRomanD24 Tonto14 UserInstructionWindow WeAreNow)
)
)

(RPAQQ BluebonnetTrace
 NIL)

(RPAQQ Reading8200Flg
 NIL)

(RPAQQ HelpWindow
 NIL)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 \TraceIt)
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1074 4196 (CreateFonts 1084 . 1747) (LoadIt 1749 . 2674) (LoadSources 2676 . 3306) (
StoreSources 3308 . 3779) (\TraceIt 3781 . 4194)))))
STOP