(FILECREATED "21-AUG-83 16:25:23" {INDIGO}<LOOPS>DEMO>AAAI.;1
 1742   

      changes to:  (VARS AAAICOMS)
		   (FNS AAAI))


(PRETTYCOMPRINT AAAICOMS)

(RPAQQ AAAICOMS
 ((FNS AAAI)))
(DEFINEQ

(AAAI

  [LAMBDA NIL                                                (* sm: "21-AUG-83 16:24")


          (* * Initialize LoopsDemo for Lisp/Loops course -- offered at Leesburg.)


                                                             (* Try to force different fonts to be loaded for 

							     isolated version)

    (ForceLoadFonts)
    (LOAD (QUOTE {INDIGO}<LOOPS>DEMO>LOOPSDEMO)
	  (QUOTE PROP))
    (SETQ LeesburgFlg T)
    (CHANGENAME (QUOTE \SET.TTYINBOLDFONT)
		(QUOTE FONTCOPY)
		(QUOTE EVQ))
    (SETQ LOOPSCOURSEDIR (QUOTE {FS:}<LOOPSCOURSE>))
    (SETQ LISPUSERSDIRECTORIES NIL)
    (SETQ FONTDIRECTORIES NIL)
    (SETQ FILELST NIL)
    (SETQ NS.DEFAULT.PRINTER (QUOTE LISPPRINT))
    (SETQ USERNAME (QUOTE NotLoggedIn))
    (PRINTERMODE (QUOTE INTERPRESS))

          (* * Temporarily reset DIRECTORIES to get files needed for Leesburg course.)



    [SETQ DIRECTORIES (CONS NIL (CONS (QUOTE {INDIGO}<LOOPS>COURSE>)
				      (CDR DIRECTORIES]

          (* * Load exercises for the Lisp part of the course.)




          (* * Prop-load sources needed for the LOOPS part of the course.)


                                                             (* (for FILE in (QUOTE (GAUGES TRUCKINP TRUCKINV 

							     TRUCKINDB LOOPSDEMO)) do (LOAD FILE 

							     (QUOTE PROP))))

    (SETQ DEMOFLGSETUP T)
    (SETQ FILELST (QUOTE (GAUGES TRUCKINP TRUCKINV TRUCKINDB TRUCKINR LOOPSDEMO)))
    (SETQ DIRECTORIES (LIST NIL (QUOTE {FS:}<LOOPS>)))
    (SetUpDemo])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (190 1720 (AAAI 200 . 1718)))))
STOP