(FILECREATED "22-JUN-82 17:12:38" {PHYLUM}<LISPCORE>DEMO>MAKEDEMO.;3
 5125   

      changes to:  (FNS MAKEDEMO)

      previous date: " 5-JUN-82 18:25:05" {PHYLUM}<LISPCORE>DEMO>MAKEDEMO.;1)


(* Copyright (c) 1982 by Xerox Corporation)

(PRETTYCOMPRINT MAKEDEMOCOMS)

(RPAQQ MAKEDEMOCOMS
 ((FNS MAKEDEMO MAKEJLISPDEMO)
		     (VARS (MSPRINTFLG NIL)
			   (RECLAIMWAIT1 5000)
			   (LOCALIFS (QUOTE PHYLUM))
			   (CLISPIFTRANFLG T)
			   (DWIMWAIT 100)
			   (CLOSEBREAKWINDOWFLG (QUOTE ALL)))
		     (PROP AVOID * FNSTOAVOID)
		     (DECLARE: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (FILES (LOADCOMP)
									  TREEDISPLAY))))
(DEFINEQ

(MAKEDEMO

  [LAMBDA (SYSOUTNAME JFLG)                                  (* rrb "22-JUN-82 16:54")

    (DECLARE
 (GLOBALVARS DIRECTORIES LOCALIFS PARSE FILELST))
    (PROG (FILE LATIC)
          (FONTCREATE (QUOTE GACHA)
		      8
		      (QUOTE BOLD))
          (FONTCREATE (QUOTE GACHA)
		      12
		      (QUOTE BOLD))
          (CNDIR (PACK* (QUOTE {)
			LOCALIFS "}<LISPCORE>DEMO>"))
          (FILESLOAD DEMOS)
          (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
		     BROWSER PRESSBITMAP)                    (* BROWSER loads almost everything.)

          (if
 JFLG
	      then
 [CNDIR (PROG1 (DIRECTORYNAME T T)
				 (CNDIR (QUOTE {PHYLUM}<JLISP>))
				 (FILESLOAD (SYSLOAD)
					    BITMAPFNS JLISP JGP)
				 (JLISPINIT (QUOTE (T]
	    else
 (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
			    TTYIN))
          (FILESLOAD LATTICER TREEDISPLAY)
          (SETQ FILELST (QUOTE (TREEDISPLAY LATTICER)))
          (MASTERSCOPE (QUOTE (ANALYZE ANY ON LATTICER OR
 TREEDISPLAY)))
          (EDITMODE (QUOTE DISPLAY))
          (SETQ PARSE (PARSE MY UNCLE'S WAR STORY WILL BORE YOU TO TEARS))
          (CLEARW (TTYDISPLAYSTREAM))
          [COND
	    ((EQ SYSOUTNAME T)                               (* Don't sysout)

	      )
	    ((LISTP (SETQ FILE (SYSOUT SYSOUTNAME)))
	      [SELECTQ [SETQ LOCALIFS (ASKUSER NIL NIL "What is your local file server? "
					       (QUOTE (PHYLUM INDIGO ROSE CASK LOCALDISK OTHER]
		       (LOCALDISK (SETQ LOCALIFS)
				  (CNDIR (QUOTE {DSK})))
		       (CNDIR (PACK* (QUOTE {)
				     (if
 (EQ LOCALIFS (QUOTE OTHER))
					 then
 (OTHER (PRINT "Type in the name of your local server: " 
							    T)
						     (SETQ LOCALIFS (READ T)))
				       else
 LOCALIFS)
				     (QUOTE }<LISP>DEMO>]
	      (COND
		([NOT (SETQ LATIC (INFILEP (QUOTE LATTICER]
                                                             (* make sure LATTICER is on local file server)

		  (PRIN1 " getting LATTICER from {PHYLUM}<LISP>DEMO>   " T)
		  (SETQ LATIC (COPYFILE (QUOTE {PHYLUM}<LISP>DEMO>LATTICER)
					(QUOTE LATTICER)))
		  (TERPRI T)))                               (* tell LISP about the copy of LATTICER on dsk and open 

							     it for faster access.)

	      (LOADFROM (QUOTE LATTICER))
	      (OPENFILE (QUOTE LATTICER)
			(QUOTE INPUT))
	      (RPLACD (CAR (GETPROP (QUOTE LATTICER)
				    (QUOTE FILEDATES)))
		      LATIC)

          (* This is a kludge to fix up the fact that LOADFROM doesn't seem to change the file to point to the "most recent"

	  version if the compiled file has been already loaded)


                                                             (* set up to know about local file server lispusers 

							     directory)

                                                             (* make DIRECTORIES short to reduce search time.)

	      (COND
		[(AND LOCALIFS (SETQ DIRECTORIES (LIST (PACK* (QUOTE {)
							      LOCALIFS
							      (QUOTE }<LISPUSERS>]
		(T (SETQ DIRECTORIES]
          (RETURN FILE])

(MAKEJLISPDEMO

  [LAMBDA (SYSOUTNAME)                                       (* bvm: "26-APR-82 15:29")

    (MAKEDEMO
 SYSOUTNAME T])
)

(RPAQQ MSPRINTFLG
 NIL)

(RPAQQ RECLAIMWAIT1
 5000)

(RPAQQ LOCALIFS
 PHYLUM)

(RPAQQ CLISPIFTRANFLG
 T)

(RPAQQ DWIMWAIT
 100)

(RPAQQ CLOSEBREAKWINDOWFLG
 ALL)

(RPAQQ FNSTOAVOID
 (CREATE/NODE/IMAGE EDITLATTICEMENU NODEIDTONODE HALF LABEL/IMAGE BOTTOM/LEFT/CORNER 
				     LATTICEAPPLYTOLINK LNODE/DISPLAY/NAME FROMLLINKS TOLLINKS 
				     DELETELLINK GRAPHADDLLINK SQUARE/DISTANCE LATTICE/MAX/TOP 
				     LATTICE/MAX/RIGHT NEAREST/NODE))

(PUTPROPS CREATE/NODE/IMAGE AVOID
 T)

(PUTPROPS EDITLATTICEMENU AVOID
 T)

(PUTPROPS NODEIDTONODE AVOID
 T)

(PUTPROPS HALF AVOID
 T)

(PUTPROPS LABEL/IMAGE AVOID
 T)

(PUTPROPS BOTTOM/LEFT/CORNER AVOID
 T)

(PUTPROPS LATTICEAPPLYTOLINK AVOID
 T)

(PUTPROPS LNODE/DISPLAY/NAME AVOID
 T)

(PUTPROPS FROMLLINKS AVOID
 T)

(PUTPROPS TOLLINKS AVOID
 T)

(PUTPROPS DELETELLINK AVOID
 T)

(PUTPROPS GRAPHADDLLINK AVOID
 T)

(PUTPROPS SQUARE/DISTANCE AVOID
 T)

(PUTPROPS LATTICE/MAX/TOP AVOID
 T)

(PUTPROPS LATTICE/MAX/RIGHT AVOID
 T)

(PUTPROPS NEAREST/NODE AVOID
 T)
(DECLARE: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD 
(FILESLOAD (LOADCOMP)
	   TREEDISPLAY)
)
(DECLARE: DONTCOPY (PUTPROPS MAKEDEMO COPYRIGHT ("Xerox Corporation" 1982)))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (633 3857 (MAKEDEMO 643 . 3710) (MAKEJLISPDEMO 3712 . 3855)))))
STOP