(FILECREATED "10-MAR-83 16:27:03" {PHYLUM}<FIKES>LISP>LOADBLUEBONNET.;5
 3912   

      changes to:  (VARS LOADBLUEBONNETCOMS)

      previous date: " 7-MAR-83 17:16:04" {PHYLUM}<FIKES>LISP>LOADBLUEBONNET.;4)


(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))))

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

(CreateFonts

  [LAMBDA NIL                                                (* edited: "20-JAN-83 11:48")

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

							     of global variables.)

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

(LoadIt

  [LAMBDA NIL                                                (* edited: " 7-MAR-83 17:13")

    (LOAD? (QUOTE PROCESSWFFS.DCOM))
    (LOAD? (QUOTE COPYJOBDATA.DCOM))
    (LOAD? (QUOTE DESCRIBEJOB.DCOM))
    (LOAD? (QUOTE PLANNER.DCOM))
    (LOAD? (QUOTE 8200INTERFACE.DCOM))
    (LOAD? (QUOTE 8200SERVER.DCOM))
    (LOAD? (QUOTE STARTBLUEBONNET.DCOM))
    (LOAD? (QUOTE MONITOR.DCOM))
    (LOAD? (QUOTE LOADBLUEBONNETHELPGRAPH))
    (CreateFonts
)
    (printout
 T "Bluebonnet Loaded" 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)
(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))
	(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
									      (NLAML)
									      (LAMA \TraceIt])
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 \TraceIt)
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (829 2581 (CreateFonts 839 . 1653) (LoadIt 1655 . 2164) (\TraceIt 2166 . 2579)))))
STOP