(FILECREATED "11-Oct-84 10:46:40" {PHYLUM}<BLUEBONNET>ORIGINAL>LOADBLUEBONNET.;7
 5189   

      changes to:  (VARS LOADBLUEBONNETCOMS LOADBLUEBONNETFNS)

      previous date: " 9-Oct-84 15:01:41" {PHYLUM}<BLUEBONNET>ORIGINAL>LOADBLUEBONNET.;6)


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT LOADBLUEBONNETCOMS)

(RPAQQ LOADBLUEBONNETCOMS
 [(FNS * LOADBLUEBONNETFNS)
	(P (LoadIt))
	(DECLARE: EVAL@COMPILE
		  (GLOBALVARS BluebonnetTrace CommentHeader CommentWffs CommentWindow CopiesFields 
			      CopyJob CopyJobConstraints CopyJobFields CurrentStep Gacha12Bold 
			      HelpUnits Helvetica16Bold IAssume in.Trillium OriginalsFields 
			      PlanGenerators PlanSummary Reading8200Flg SavedJobState StatusWindow 
			      TimesRoman16 TimesRoman16Bold TimesRomanD24 Tonto14 
			      UserInstructionWindow WeAreNow))
	(VARS (BluebonnetTrace)
	      (Reading8200Flg)
	      (HelpWindow)
	      (in.Trillium))
	(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                                                (* edited: "15-Aug-84 15:20")

                                                             (* *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))
	    (T (
MOVD?
 'NILL 'SearchHelp)
	       (
SETQ
 HelpWindow NIL)
	       (
SETQ
 HelpMenu NIL)))
          (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 ← '((YES T)
		       (NO NIL]
	then
 (
LOAD
 'LOADBLUEBONNETHELPGRAPH)
      else
 (
MOVD?
 'NILL 'SearchHelp)
	   HelpWindow←NIL
	   HelpMenu←NIL)
    (CreateFonts
)
    (printout
 T "Bluebonnet Loaded" T])

(StoreSources

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

    (
MAKEFILE
 'PROCESSWFFS)
    (
MAKEFILE
 'COPYJOBDATA)
    (
MAKEFILE
 'DESCRIBEJOB)
    (
MAKEFILE
 'PLANNER)
    (
MAKEFILE
 '8200INTERFACE)
    (
MAKEFILE
 '8200SERVER)
    (
MAKEFILE
 'STARTBLUEBONNET)
    (
MAKEFILE
 'LOADBLUEBONNET)
    (
MAKEFILE
 '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

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

(RPAQQ BluebonnetTrace
 NIL)

(RPAQQ Reading8200Flg
 NIL)

(RPAQQ HelpWindow
 NIL)

(RPAQQ in.Trillium
 NIL)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 \TraceIt)
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1160 4448 (CreateFonts 1170 . 1880) (LoadIt 1882 . 2951) (LoadSources 2953 . 3568) (
StoreSources 3570 . 4014) (\TraceIt 4016 . 4446)))))
STOP