(FILECREATED "16-Apr-86 10:26:08" {ROSEBOWL}<FEUERMAN>LISP>NCDEMO.;7
 4182   

      changes to:  (VARS NCDEMOCOMS)

      previous date: "16-Dec-85 11:39:26" {ROSEBOWL}<FEUERMAN>LISP>NCDEMO.;6)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT NCDEMOCOMS)

(RPAQQ NCDEMOCOMS
 ((FNS LOGOUT.CONFIRM NCGetDemoNoteFile NCStartDemo NCInitMenu)
		     (ADDVARS (SYSTEMINITVARS (NOTECARDSDIRECTORIES {DSK})
					      (NOTECARDSMAPDIRECTORIES {DSK})
					      (MAPFILESDIRECTORIES {DSK})))
		     (P (NCInitMenu))))
(DEFINEQ

(LOGOUT.CONFIRM

  [LAMBDA (FAST)                                             (* Feuerman " 7-Oct-85 14:04")

    (
PROG
 [(ConfirmationString (
COND

				 ((
EQ
 FAST T)
				   
			    "Really (LOGOUT T) from Interlisp-D (WITHOUT SAVING THIS SYSOUT!!!)?")
				 (T "Really (LOGOUT) from Interlisp-D?"]
          (
RETURN
 (
AND
 (
MOUSECONFIRM
 ConfirmationString)
		       (
RESETLST
 (
RESETSAVE
 (
CURSOR
 WAITINGCURSOR))
				 (
LOGOUT
 FAST])

(NCGetDemoNoteFile

  [LAMBDA NIL                                                (* Feuerman "16-Dec-85 11:34")

    (
AND
 (
MOUSECONFIRM
 
		"Please insert the floppy with the demonstration notefile into the floppy drive."
			   NIL PROMPTWINDOW)
	   (
INFILEP
 (
QUOTE
 {FLOPPY}DEMO.NOTEFILE))
	   (
COPYFILE
 (
QUOTE
 {FLOPPY}DEMO.NOTEFILE)
		       (
QUOTE
 {DSK}DEMO.NOTEFILE])

(NCStartDemo

  [LAMBDA NIL                                                (* Feuerman "16-Dec-85 11:38")

    (
RESETLST
 (
RESETSAVE
 (
CURSOR
 WAITINGCURSOR))
		(
PROG
 NIL
		        [
OR
 (
INFILEP
 (
QUOTE
 {DSK}DEMO.NOTEFILE))
			      (
COND

				((
NOT
 (NCGetDemoNoteFile
))
				  (
RETURN
]
		        (
OR
 (
OPENP
 (
QUOTE
 {DSK}DEMO.NOTEFILE))
			      (
NCP.OpenNoteFile
 (
QUOTE
 {DSK}DEMO.NOTEFILE)
						  T))
		        (
NCP.BringUpCard
 (
QUOTE
 NC00074)
					   (
CONS
 362 304))
		        (
RETURN
])

(NCInitMenu

  [LAMBDA NIL                                                (* Feuerman "16-Dec-85 11:33")

    [
PROG
 [(MENUITEM (for
 Item in
 BackgroundMenuCommands thereis
 (
EQ
 (
CAR
 Item)
									       (
QUOTE
 NoteCards]
	    (
AND
 MENUITEM (
RPLACD
 (
CDDR
 MENUITEM)
				      (
LIST
 (
LIST
 (
QUOTE
 SUBITEMS)
						      (
LIST
 (
QUOTE
 NoteCards)
							      (
QUOTE
 (
NC.MakeMainMenu
))
							      
					    "Brings up the Demonstration NoteFile and Title Card")
						      (
LIST
 (
QUOTE
 NoteCards% Demonstration)
							      (
QUOTE
 (NCStartDemo
))
							      
					    "Brings up the Demonstration NoteFile and Title Card"]
    [
OR
 (for
 Item in
 BackgroundMenuCommands thereis
 (
EQ
 (
CAR
 Item)
								  (
QUOTE
 Quit% Interlisp-D)))
	  (
ADDTOVAR
 BackgroundMenuCommands (Quit% Interlisp-D (LOGOUT.CONFIRM
)
								"Exits Interlisp-D/NoteCards"
								(SUBITEMS (Quit% Interlisp-D
									    (LOGOUT.CONFIRM
)
									    
								    "Exits Interlisp-D/NoteCards")
									  (Safe% Quit
									    (LOGOUT.CONFIRM

									      (
QUOTE
 ?))
									    
					"Updates the virtual memory only if a dirty page exists.")
									  (Fast% Quit (

										   LOGOUT.CONFIRM

											T)
										      
"Exits Interlisp-D/NoteCards WITHOUT saving this state.  You'll need to reload the sysout from scratch after this."
										      ]
    (
OR
 (for
 Item in
 BackgroundMenuCommands thereis
 (
EQ
 (
CAR
 Item)
								  (
QUOTE
 Login/Greet)))
	  (
ADDTOVAR
 BackgroundMenuCommands (Login/Greet (
PROGN
 (
LOGIN
)
								   (
GREET
)
								   (
CLOSEW
))
							  
    "Asks you to Login.  GREET is then called to reset the user-specific aspects of this system.")))
    (
SETQ
 BackgrounMenu)
    (
UNMARKASCHANGED
 (
QUOTE
 BackgrounMenu)
		       (
QUOTE
 VARS])
)

(ADDTOVAR SYSTEMINITVARS
 (NOTECARDSDIRECTORIES {DSK})
			   (NOTECARDSMAPDIRECTORIES {DSK})
			   (MAPFILESDIRECTORIES {DSK}))
(NCInitMenu)
(PUTPROPS NCDEMO COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (554 3960 (LOGOUT.CONFIRM 564 . 1036) (NCGetDemoNoteFile 1038 . 1441) (NCStartDemo 1443
 . 2010) (NCInitMenu 2012 . 3958)))))
STOP