(FILECREATED "18-Jan-88 17:54:32" {QV}<NOTECARDS>1.3K>NCCONFIG.;13 169370 

      changes to:  (FNS NCAddStub.SketchCard NCAddStub.GraphCard NCAddStub.BrowserCard 
			NCAddStub.SearchCard NCAddStub.DocumentCard NCAddStub.LinkIndexCard 
			NCAddStub.IdeaSketchCard)

      previous date: "30-Nov-87 16:46:44" {QV}<NOTECARDS>1.3KNEXT>NCCONFIG.;19)


(* Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT NCCONFIGCOMS)

(RPAQQ NCCONFIGCOMS [(* * NoteCards version control - the stuff kept in this file is all concerned 
			  with getting the user a consistent version of NoteCards. Anything that 
			  depends on getting a particular version of a particular file is indirected 
			  through here. In addition, card type stub functions and pointers to other 
			  autoloadable functions are stored here.)
	(* * WARNING! DO NOT SYSLOAD THIS FILE - THE VALUES OF NC.Files, NC.AutoloadableFns, AND 
	   NC.AutoloadStubFns WILL BE SMASHED!)
	(GLOBALVARS NC.CoreFiles NC.Files NC.NoUpdateFlg NC.InstallFlg NC.ForceLoadFlg 
		    NC.SketchCardIcon NC.GraphCardIcon)
	(E (NC.UpdateConfig))
	(INITVARS (NC.NoUpdateFlg NIL)
		  (NC.InstallFlg NIL)
		  (NC.ForceLoadFlg NIL))
	(DECLARE: DONTEVAL@LOAD
		  [VARS (NC.CoreFiles (QUOTE (NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE 
							  NCLOCALDEVICE NCCARDS NCLINKS NCTYPESMECH 
							  NCPROGINT NCCROSSFILELINKS KOTOTEDITPATCHES 
							  KOTOSYSTEMPATCHES)))
			(NC.Files (QUOTE (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE 
						    NCDATABASE NCLOCALDEVICE NCCOMPACT NCREPAIR 
						    NCCARDS NCLINKS NCTYPESMECH NCPROGINT 
						    NCCROSSFILELINKS NCHASHCARD NCTEXTCARD 
						    NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD 
						    NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD 
						    NCLINKINDEXCARD NCLISTCARD NCCONVERTVERSION2TO3 
						    KOTOSYSTEMPATCHES KOTOTEDITPATCHES 
						    POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH 
						    NCMAPS NCHACKS NCIDEASKETCHCARD]
		  (IFPROP ConfigProps * NC.Files)
		  (CONFIGPROPS * NC.Files)
		  (IFPROP File * NC.AutoloadableFns))
	(FNS * NC.AutoloadStubFns)
	(FILEPKGCOMS CONFIGPROPS)
	(DECLARE: DONTEVAL@LOAD (BITMAPS NC.SketchCardIcon NC.GraphCardIcon))
	(FNS NC.UpdateConfig NC.UpdateSingleFile NC.FixFileDates NC.FindFile 
	     NC.LoadFileFromDirectories NC.LookupAutoloadFnFile NC.StoreAutoloadFnFile 
	     NC.SetStandardConfigProps MAKECONFIGPROPSCOMS)
	(MACROS NC.AutoloadApply NC.AutoloadApply* NAMED-RESETLST NAMED-RESETSAVE NAMED-RESETUNSAVE)
	(FNS NAMED-RESETLST NAMED-RESETSAVE NAMED-RESETRESTORE NAMED-RESETUNSAVE)
	(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA NAMED-RESETSAVE 
										   NAMED-RESETLST 
									      MAKECONFIGPROPSCOMS)
									      (NLAML 
										NAMED-RESETUNSAVE)
									      (LAMA])
(* * NoteCards version control - the stuff kept in this file is all concerned with getting the
 user a consistent version of NoteCards. Anything that depends on getting a particular version 
of a particular file is indirected through here. In addition, card type stub functions and 
pointers to other autoloadable functions are stored here.)

(* * WARNING! DO NOT SYSLOAD THIS FILE - THE VALUES OF NC.Files, NC.AutoloadableFns, AND 
NC.AutoloadStubFns WILL BE SMASHED!)

(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.CoreFiles NC.Files NC.NoUpdateFlg NC.InstallFlg NC.ForceLoadFlg NC.SketchCardIcon 
	    NC.GraphCardIcon)
)

(RPAQ? NC.NoUpdateFlg NIL)

(RPAQ? NC.InstallFlg NIL)

(RPAQ? NC.ForceLoadFlg NIL)
(DECLARE: DONTEVAL@LOAD 

(RPAQQ NC.CoreFiles (NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE NCCARDS NCLINKS 
				   NCTYPESMECH NCPROGINT NCCROSSFILELINKS KOTOTEDITPATCHES 
				   KOTOSYSTEMPATCHES))

(RPAQQ NC.Files (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE 
			     NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCPROGINT 
			     NCCROSSFILELINKS NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD 
			     NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD 
			     NCLISTCARD NCCONVERTVERSION2TO3 KOTOSYSTEMPATCHES KOTOTEDITPATCHES 
			     POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH NCMAPS NCHACKS 
			     NCIDEASKETCHCARD))


(RPAQQ NC.Files (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE 
			     NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCPROGINT 
			     NCCROSSFILELINKS NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD 
			     NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD 
			     NCLISTCARD NCCONVERTVERSION2TO3 KOTOSYSTEMPATCHES KOTOTEDITPATCHES 
			     POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH NCMAPS NCHACKS 
			     NCIDEASKETCHCARD))

(PUTPROPS NOTECARDS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					     [CompiledFile
					       (LAMBDA (File Directory)
						       (FINDFILE (PACKFILENAME (QUOTE BODY)
									       File
									       (QUOTE EXTENSION)
									       COMPILE.EXT)
								 T
								 (OR (EVAL (GETPROP File
										    (QUOTE 
										      Directories)))
								     (LIST Directory]
					     [FileDate (LAMBDA (File)
							       (CAAR (GETPROP File (QUOTE FILEDATES]
					     [InitialFile (LAMBDA (File)
								  (LIST (CONS (FILECOMS File)
									      (QUOTE Compiled]
					     (FileComs (LAMBDA (File)
							       (EVAL (FILECOMS File])

(PUTPROPS NCCONFIG ConfigProps NIL)

(PUTPROPS NCUTILITIES ConfigProps [COPYRIGHT [SourceFile
						 (LAMBDA (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [CompiledFile
						 (LAMBDA (File Directory)
							 (FINDFILE (PACKFILENAME (QUOTE BODY)
										 File
										 (QUOTE EXTENSION)
										 COMPILE.EXT)
								   T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [FileDate (LAMBDA (File)
								 (CAAR (GETPROP File (QUOTE FILEDATES]
					       [InitialFile (LAMBDA (File)
								    (LIST (CONS (FILECOMS File)
										(QUOTE Compiled]
					       (FileComs (LAMBDA (File)
								 (EVAL (FILECOMS File])

(PUTPROPS NCPARAMETERS ConfigProps [COPYRIGHT [SourceFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
						[CompiledFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    (PACKFILENAME (QUOTE BODY)
									  File
									  (QUOTE EXTENSION)
									  COMPILE.EXT)
							    T
							    (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								(LIST Directory]
						[FileDate (LAMBDA (File)
								  (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						[InitialFile (LAMBDA (File)
								     (LIST (CONS (FILECOMS File)
										 (QUOTE Compiled]
						(FileComs (LAMBDA (File)
								  (EVAL (FILECOMS File])

(PUTPROPS NCINTERFACE ConfigProps [COPYRIGHT [SourceFile
						 (LAMBDA (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [CompiledFile
						 (LAMBDA (File Directory)
							 (FINDFILE (PACKFILENAME (QUOTE BODY)
										 File
										 (QUOTE EXTENSION)
										 COMPILE.EXT)
								   T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [FileDate (LAMBDA (File)
								 (CAAR (GETPROP File (QUOTE FILEDATES]
					       [InitialFile (LAMBDA (File)
								    (LIST (CONS (FILECOMS File)
										(QUOTE Compiled]
					       (FileComs (LAMBDA (File)
								 (EVAL (FILECOMS File])

(PUTPROPS NCDATABASE ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      File T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					      [CompiledFile
						(LAMBDA (File Directory)
							(FINDFILE (PACKFILENAME (QUOTE BODY)
										File
										(QUOTE EXTENSION)
										COMPILE.EXT)
								  T
								  (OR (EVAL (GETPROP File
										     (QUOTE 
										      Directories)))
								      (LIST Directory]
					      [FileDate (LAMBDA (File)
								(CAAR (GETPROP File (QUOTE FILEDATES]
					      [InitialFile (LAMBDA (File)
								   (LIST (CONS (FILECOMS File)
									       (QUOTE Compiled]
					      (FileComs (LAMBDA (File)
								(EVAL (FILECOMS File])

(PUTPROPS NCLOCALDEVICE ConfigProps [COPYRIGHT [SourceFile
						   (LAMBDA (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
						 [CompiledFile
						   (LAMBDA (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
						 [FileDate (LAMBDA (File)
								   (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						 [InitialFile (LAMBDA (File)
								      (LIST (CONS (FILECOMS File)
										  (QUOTE Compiled]
						 (FileComs (LAMBDA (File)
								   (EVAL (FILECOMS File])

(PUTPROPS NCCOMPACT ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					     [CompiledFile
					       (LAMBDA (File Directory)
						       (FINDFILE (PACKFILENAME (QUOTE BODY)
									       File
									       (QUOTE EXTENSION)
									       COMPILE.EXT)
								 T
								 (OR (EVAL (GETPROP File
										    (QUOTE 
										      Directories)))
								     (LIST Directory]
					     [FileDate (LAMBDA (File)
							       (CAAR (GETPROP File (QUOTE FILEDATES]
					     [InitialFile (LAMBDA (File)
								  (LIST (CONS (FILECOMS File)
									      (QUOTE Compiled]
					     (FileComs (LAMBDA (File)
							       (EVAL (FILECOMS File])

(PUTPROPS NCREPAIR ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							  (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					    [CompiledFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      (PACKFILENAME (QUOTE BODY)
									    File
									    (QUOTE EXTENSION)
									    COMPILE.EXT)
							      T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					    [FileDate (LAMBDA (File)
							      (CAAR (GETPROP File (QUOTE FILEDATES]
					    [InitialFile (LAMBDA (File)
								 (LIST (CONS (FILECOMS File)
									     (QUOTE Compiled]
					    (FileComs (LAMBDA (File)
							      (EVAL (FILECOMS File])

(PUTPROPS NCCARDS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							 (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					   [CompiledFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					   [FileDate (LAMBDA (File)
							     (CAAR (GETPROP File (QUOTE FILEDATES]
					   [InitialFile (LAMBDA (File)
								(LIST (CONS (FILECOMS File)
									    (QUOTE Compiled]
					   (FileComs (LAMBDA (File)
							     (EVAL (FILECOMS File])

(PUTPROPS NCLINKS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							 (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					   [CompiledFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					   [FileDate (LAMBDA (File)
							     (CAAR (GETPROP File (QUOTE FILEDATES]
					   [InitialFile (LAMBDA (File)
								(LIST (CONS (FILECOMS File)
									    (QUOTE Compiled]
					   (FileComs (LAMBDA (File)
							     (EVAL (FILECOMS File])

(PUTPROPS NCTYPESMECH ConfigProps [COPYRIGHT [SourceFile
						 (LAMBDA (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [CompiledFile
						 (LAMBDA (File Directory)
							 (FINDFILE (PACKFILENAME (QUOTE BODY)
										 File
										 (QUOTE EXTENSION)
										 COMPILE.EXT)
								   T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [FileDate (LAMBDA (File)
								 (CAAR (GETPROP File (QUOTE FILEDATES]
					       [InitialFile (LAMBDA (File)
								    (LIST (CONS (FILECOMS File)
										(QUOTE Compiled]
					       (FileComs (LAMBDA (File)
								 (EVAL (FILECOMS File])

(PUTPROPS NCPROGINT ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					     [CompiledFile
					       (LAMBDA (File Directory)
						       (FINDFILE (PACKFILENAME (QUOTE BODY)
									       File
									       (QUOTE EXTENSION)
									       COMPILE.EXT)
								 T
								 (OR (EVAL (GETPROP File
										    (QUOTE 
										      Directories)))
								     (LIST Directory]
					     [FileDate (LAMBDA (File)
							       (CAAR (GETPROP File (QUOTE FILEDATES]
					     [InitialFile (LAMBDA (File)
								  (LIST (CONS (FILECOMS File)
									      (QUOTE Compiled]
					     (FileComs (LAMBDA (File)
							       (EVAL (FILECOMS File])

(PUTPROPS NCCROSSFILELINKS ConfigProps [COPYRIGHT
					   [SourceFile (LAMBDA
							 (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					   [CompiledFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					   [FileDate (LAMBDA (File)
							     (CAAR (GETPROP File (QUOTE FILEDATES]
					   [InitialFile (LAMBDA (File)
								(LIST (CONS (FILECOMS File)
									    (QUOTE Compiled]
					   (FileComs (LAMBDA (File)
							     (EVAL (FILECOMS File])

(PUTPROPS NCHASHCARD ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      File T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					      [CompiledFile
						(LAMBDA (File Directory)
							(FINDFILE (PACKFILENAME (QUOTE BODY)
										File
										(QUOTE EXTENSION)
										COMPILE.EXT)
								  T
								  (OR (EVAL (GETPROP File
										     (QUOTE 
										      Directories)))
								      (LIST Directory]
					      [FileDate (LAMBDA (File)
								(CAAR (GETPROP File (QUOTE FILEDATES]
					      [InitialFile (LAMBDA (File)
								   (LIST (CONS (FILECOMS File)
									       (QUOTE Compiled]
					      (FileComs (LAMBDA (File)
								(EVAL (FILECOMS File])

(PUTPROPS NCTEXTCARD ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      File T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					      [CompiledFile
						(LAMBDA (File Directory)
							(FINDFILE (PACKFILENAME (QUOTE BODY)
										File
										(QUOTE EXTENSION)
										COMPILE.EXT)
								  T
								  (OR (EVAL (GETPROP File
										     (QUOTE 
										      Directories)))
								      (LIST Directory]
					      [FileDate (LAMBDA (File)
								(CAAR (GETPROP File (QUOTE FILEDATES]
					      [InitialFile (LAMBDA (File)
								   (LIST (CONS (FILECOMS File)
									       (QUOTE Compiled]
					      (FileComs (LAMBDA (File)
								(EVAL (FILECOMS File])

(PUTPROPS NCSKETCHCARD ConfigProps [COPYRIGHT [SourceFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
						[CompiledFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    (PACKFILENAME (QUOTE BODY)
									  File
									  (QUOTE EXTENSION)
									  COMPILE.EXT)
							    T
							    (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								(LIST Directory]
						[FileDate (LAMBDA (File)
								  (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						[InitialFile (LAMBDA (File)
								     (LIST (CONS (FILECOMS File)
										 (QUOTE Compiled]
						(FileComs (LAMBDA (File)
								  (EVAL (FILECOMS File])

(PUTPROPS NCGRAPHCARD ConfigProps [COPYRIGHT [SourceFile
						 (LAMBDA (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [CompiledFile
						 (LAMBDA (File Directory)
							 (FINDFILE (PACKFILENAME (QUOTE BODY)
										 File
										 (QUOTE EXTENSION)
										 COMPILE.EXT)
								   T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					       [FileDate (LAMBDA (File)
								 (CAAR (GETPROP File (QUOTE FILEDATES]
					       [InitialFile (LAMBDA (File)
								    (LIST (CONS (FILECOMS File)
										(QUOTE Compiled]
					       (FileComs (LAMBDA (File)
								 (EVAL (FILECOMS File])

(PUTPROPS NCFILEBOXCARD ConfigProps [COPYRIGHT [SourceFile
						   (LAMBDA (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
						 [CompiledFile
						   (LAMBDA (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
						 [FileDate (LAMBDA (File)
								   (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						 [InitialFile (LAMBDA (File)
								      (LIST (CONS (FILECOMS File)
										  (QUOTE Compiled]
						 (FileComs (LAMBDA (File)
								   (EVAL (FILECOMS File])

(PUTPROPS NCBROWSERCARD ConfigProps [COPYRIGHT [SourceFile
						   (LAMBDA (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
						 [CompiledFile
						   (LAMBDA (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
						 [FileDate (LAMBDA (File)
								   (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						 [InitialFile (LAMBDA (File)
								      (LIST (CONS (FILECOMS File)
										  (QUOTE Compiled]
						 (FileComs (LAMBDA (File)
								   (EVAL (FILECOMS File])

(PUTPROPS NCSEARCHCARD ConfigProps [COPYRIGHT [SourceFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
						[CompiledFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    (PACKFILENAME (QUOTE BODY)
									  File
									  (QUOTE EXTENSION)
									  COMPILE.EXT)
							    T
							    (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								(LIST Directory]
						[FileDate (LAMBDA (File)
								  (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						[InitialFile (LAMBDA (File)
								     (LIST (CONS (FILECOMS File)
										 (QUOTE Compiled]
						(FileComs (LAMBDA (File)
								  (EVAL (FILECOMS File])

(PUTPROPS NCDOCUMENTCARD ConfigProps [COPYRIGHT [SourceFile
						    (LAMBDA (File Directory)
							    (FINDFILE
							      File T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
						  [CompiledFile
						    (LAMBDA (File Directory)
							    (FINDFILE
							      (PACKFILENAME (QUOTE BODY)
									    File
									    (QUOTE EXTENSION)
									    COMPILE.EXT)
							      T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
						  [FileDate (LAMBDA (File)
								    (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						  [InitialFile (LAMBDA (File)
								       (LIST (CONS (FILECOMS File)
										   (QUOTE Compiled]
						  (FileComs (LAMBDA (File)
								    (EVAL (FILECOMS File])

(PUTPROPS NCLINKINDEXCARD ConfigProps [COPYRIGHT [SourceFile
						     (LAMBDA
						       (File Directory)
						       (FINDFILE File T
								 (OR (EVAL (GETPROP File
										    (QUOTE 
										      Directories)))
								     (LIST Directory]
						   [CompiledFile
						     (LAMBDA
						       (File Directory)
						       (FINDFILE (PACKFILENAME (QUOTE BODY)
									       File
									       (QUOTE EXTENSION)
									       COMPILE.EXT)
								 T
								 (OR (EVAL (GETPROP File
										    (QUOTE 
										      Directories)))
								     (LIST Directory]
						   [FileDate (LAMBDA (File)
								     (CAAR (GETPROP File
										    (QUOTE FILEDATES]
						   [InitialFile (LAMBDA (File)
									(LIST (CONS (FILECOMS File)
										    (QUOTE Compiled]
						   (FileComs (LAMBDA (File)
								     (EVAL (FILECOMS File])

(PUTPROPS NCLISTCARD ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      File T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					      [CompiledFile
						(LAMBDA (File Directory)
							(FINDFILE (PACKFILENAME (QUOTE BODY)
										File
										(QUOTE EXTENSION)
										COMPILE.EXT)
								  T
								  (OR (EVAL (GETPROP File
										     (QUOTE 
										      Directories)))
								      (LIST Directory]
					      [FileDate (LAMBDA (File)
								(CAAR (GETPROP File (QUOTE FILEDATES]
					      [InitialFile (LAMBDA (File)
								   (LIST (CONS (FILECOMS File)
									       (QUOTE Compiled]
					      (FileComs (LAMBDA (File)
								(EVAL (FILECOMS File])

(PUTPROPS NCCONVERTVERSION2TO3 ConfigProps [COPYRIGHT
	    [SourceFile (LAMBDA (File Directory)
				(FINDFILE File T (OR (EVAL (GETPROP File (QUOTE Directories)))
						     (LIST Directory]
	    [CompiledFile (LAMBDA (File Directory)
				  (FINDFILE (PACKFILENAME (QUOTE BODY)
							  File
							  (QUOTE EXTENSION)
							  COMPILE.EXT)
					    T
					    (OR (EVAL (GETPROP File (QUOTE Directories)))
						(LIST Directory]
	    [FileDate (LAMBDA (File)
			      (CAAR (GETPROP File (QUOTE FILEDATES]
	    [InitialFile (LAMBDA (File)
				 (LIST (CONS (FILECOMS File)
					     (QUOTE Compiled]
	    (FileComs (LAMBDA (File)
			      (EVAL (FILECOMS File])

(PUTPROPS KOTOSYSTEMPATCHES ConfigProps [COPYRIGHT
					    [SourceFile (LAMBDA
							  (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					    [CompiledFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      (PACKFILENAME (QUOTE BODY)
									    File
									    (QUOTE EXTENSION)
									    COMPILE.EXT)
							      T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					    [FileDate (LAMBDA (File)
							      (CAAR (GETPROP File (QUOTE FILEDATES]
					    [InitialFile (LAMBDA (File)
								 (LIST (CONS (FILECOMS File)
									     (QUOTE Compiled]
					    (FileComs (LAMBDA (File)
							      (EVAL (FILECOMS File])

(PUTPROPS KOTOTEDITPATCHES ConfigProps [COPYRIGHT
					   [SourceFile (LAMBDA
							 (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					   [CompiledFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					   [FileDate (LAMBDA (File)
							     (CAAR (GETPROP File (QUOTE FILEDATES]
					   [InitialFile (LAMBDA (File)
								(LIST (CONS (FILECOMS File)
									    (QUOTE Compiled]
					   (FileComs (LAMBDA (File)
							     (EVAL (FILECOMS File])

(PUTPROPS POSTRELEASEPATCHES ConfigProps NIL)

(PUTPROPS KOTOSKETCHPATCHES ConfigProps [COPYRIGHT
					    [SourceFile (LAMBDA
							  (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					    [CompiledFile (LAMBDA
							    (File Directory)
							    (FINDFILE
							      (PACKFILENAME (QUOTE BODY)
									    File
									    (QUOTE EXTENSION)
									    COMPILE.EXT)
							      T
							      (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								  (LIST Directory]
					    [FileDate (LAMBDA (File)
							      (CAAR (GETPROP File (QUOTE FILEDATES]
					    [InitialFile (LAMBDA (File)
								 (LIST (CONS (FILECOMS File)
									     (QUOTE Compiled]
					    (FileComs (LAMBDA (File)
							      (EVAL (FILECOMS File])

(PUTPROPS GRAPHERPATCH ConfigProps [COPYRIGHT [SourceFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
						[CompiledFile
						  (LAMBDA (File Directory)
							  (FINDFILE
							    (PACKFILENAME (QUOTE BODY)
									  File
									  (QUOTE EXTENSION)
									  COMPILE.EXT)
							    T
							    (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								(LIST Directory]
						[FileDate (LAMBDA (File)
								  (CAAR (GETPROP File (QUOTE 
											FILEDATES]
						[InitialFile (LAMBDA (File)
								     (LIST (CONS (FILECOMS File)
										 (QUOTE Compiled]
						(FileComs (LAMBDA (File)
								  (EVAL (FILECOMS File])

(PUTPROPS NCMAPS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
							(File Directory)
							(FINDFILE File T
								  (OR (EVAL (GETPROP File
										     (QUOTE 
										      Directories)))
								      (LIST Directory]
					  [CompiledFile (LAMBDA
							  (File Directory)
							  (FINDFILE
							    (PACKFILENAME (QUOTE BODY)
									  File
									  (QUOTE EXTENSION)
									  COMPILE.EXT)
							    T
							    (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								(LIST Directory]
					  [FileDate (LAMBDA (File)
							    (CAAR (GETPROP File (QUOTE FILEDATES]
					  [InitialFile (LAMBDA (File)
							       (LIST (CONS (FILECOMS File)
									   (QUOTE Compiled]
					  (FileComs (LAMBDA (File)
							    (EVAL (FILECOMS File])

(PUTPROPS NCHACKS ConfigProps [Directories COPYRIGHT
					     [SourceFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     File T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					     [CompiledFile
					       (LAMBDA (File Directory)
						       (FINDFILE (PACKFILENAME (QUOTE BODY)
									       File
									       (QUOTE EXTENSION)
									       COMPILE.EXT)
								 T
								 (OR (EVAL (GETPROP File
										    (QUOTE 
										      Directories)))
								     (LIST Directory]
					     [FileDate (LAMBDA (File)
							       (CAAR (GETPROP File (QUOTE FILEDATES]
					     [InitialFile (LAMBDA (File)
								  (LIST (CONS (FILECOMS File)
									      (QUOTE Compiled]
					     (FileComs (LAMBDA (File)
							       (EVAL (FILECOMS File])

(PUTPROPS NCIDEASKETCHCARD ConfigProps [COPYRIGHT
					   Directories
					   [SourceFile (LAMBDA
							 (File Directory)
							 (FINDFILE File T
								   (OR (EVAL (GETPROP File
										      (QUOTE 
										      Directories)))
								       (LIST Directory]
					   [CompiledFile (LAMBDA
							   (File Directory)
							   (FINDFILE
							     (PACKFILENAME (QUOTE BODY)
									   File
									   (QUOTE EXTENSION)
									   COMPILE.EXT)
							     T
							     (OR (EVAL (GETPROP File (QUOTE 
										      Directories)))
								 (LIST Directory]
					   [FileDate (LAMBDA (File)
							     (CAAR (GETPROP File (QUOTE FILEDATES]
					   [InitialFile (LAMBDA (File)
								(LIST (CONS (FILECOMS File)
									    (QUOTE Compiled]
					   (FileComs (LAMBDA (File)
							     (EVAL (FILECOMS File])


(RPAQQ NC.Files (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE 
			     NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCPROGINT 
			     NCCROSSFILELINKS NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD 
			     NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD 
			     NCLISTCARD NCCONVERTVERSION2TO3 KOTOSYSTEMPATCHES KOTOTEDITPATCHES 
			     POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH NCMAPS NCHACKS 
			     NCIDEASKETCHCARD))

(PUTPROPS NOTECARDS COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCCONFIG COPYRIGHT ("Xerox Corporation" 1987 1988))

(PUTPROPS NCUTILITIES COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCPARAMETERS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987))

(PUTPROPS NCINTERFACE COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCDATABASE COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCLOCALDEVICE COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCCOMPACT COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS NCREPAIR COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS NCCARDS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCLINKS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCTYPESMECH COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCPROGINT COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))

(PUTPROPS NCCROSSFILELINKS COPYRIGHT ("Xerox Corporation" 1986 1987 1988))

(PUTPROPS NCHASHCARD COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCTEXTCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))

(PUTPROPS NCSKETCHCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS NCGRAPHCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS NCFILEBOXCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS NCBROWSERCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))

(PUTPROPS NCSEARCHCARD COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCDOCUMENTCARD COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCLINKINDEXCARD COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCLISTCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))

(PUTPROPS NCCONVERTVERSION2TO3 COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS KOTOSYSTEMPATCHES COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS KOTOTEDITPATCHES COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS POSTRELEASEPATCHES COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS KOTOSKETCHPATCHES COPYRIGHT ("Xerox Corporation" 1987))

(PUTPROPS GRAPHERPATCH COPYRIGHT ("Xerox Corporation" 1987))

(PUTPROPS NCMAPS COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NCHACKS COPYRIGHT ("Xerox Corporation" 1985 1986 1987))

(PUTPROPS NCIDEASKETCHCARD COPYRIGHT ("Xerox Corporation" 1986 1987))

(PUTPROPS NOTECARDS SourceFile {QV}<NOTECARDS>1.3K>NOTECARDS.;20)

(PUTPROPS NCUTILITIES SourceFile {QV}<NOTECARDS>1.3K>NCUTILITIES.;15)

(PUTPROPS NCPARAMETERS SourceFile {QV}<NOTECARDS>1.3K>NCPARAMETERS.;11)

(PUTPROPS NCINTERFACE SourceFile {QV}<NOTECARDS>1.3K>NCINTERFACE.;13)

(PUTPROPS NCDATABASE SourceFile {QV}<NOTECARDS>1.3K>NCDATABASE.;14)

(PUTPROPS NCLOCALDEVICE SourceFile {QV}<NOTECARDS>1.3K>NCLOCALDEVICE.;9)

(PUTPROPS NCCOMPACT SourceFile {QV}<NOTECARDS>1.3K>NCCOMPACT.;12)

(PUTPROPS NCREPAIR SourceFile {QV}<NOTECARDS>1.3K>NCREPAIR.;14)

(PUTPROPS NCCARDS SourceFile {QV}<NOTECARDS>1.3K>NCCARDS.;14)

(PUTPROPS NCLINKS SourceFile {QV}<NOTECARDS>1.3K>NCLINKS.;13)

(PUTPROPS NCTYPESMECH SourceFile {QV}<NOTECARDS>1.3K>NCTYPESMECH.;13)

(PUTPROPS NCPROGINT SourceFile {QV}<NOTECARDS>1.3K>NCPROGINT.;16)

(PUTPROPS NCCROSSFILELINKS SourceFile {QV}<NOTECARDS>1.3K>NCCROSSFILELINKS.;11)

(PUTPROPS NCHASHCARD SourceFile {QV}<NOTECARDS>1.3K>NCHASHCARD.;7)

(PUTPROPS NCTEXTCARD SourceFile {QV}<NOTECARDS>1.3K>NCTEXTCARD.;11)

(PUTPROPS NCSKETCHCARD SourceFile {QV}<NOTECARDS>1.3K>NCSKETCHCARD.;11)

(PUTPROPS NCGRAPHCARD SourceFile {QV}<NOTECARDS>1.3K>NCGRAPHCARD.;14)

(PUTPROPS NCFILEBOXCARD SourceFile {QV}<NOTECARDS>1.3K>NCFILEBOXCARD.;11)

(PUTPROPS NCBROWSERCARD SourceFile {QV}<NOTECARDS>1.3K>NCBROWSERCARD.;15)

(PUTPROPS NCSEARCHCARD SourceFile {QV}<NOTECARDS>1.3K>NCSEARCHCARD.;7)

(PUTPROPS NCDOCUMENTCARD SourceFile {QV}<NOTECARDS>1.3K>NCDOCUMENTCARD.;12)

(PUTPROPS NCLINKINDEXCARD SourceFile {QV}<NOTECARDS>1.3K>NCLINKINDEXCARD.;8)

(PUTPROPS NCLISTCARD SourceFile {QV}<NOTECARDS>1.3K>NCLISTCARD.;8)

(PUTPROPS NCCONVERTVERSION2TO3 SourceFile {QV}<NOTECARDS>1.3K>NCCONVERTVERSION2TO3.;7)

(PUTPROPS KOTOSYSTEMPATCHES SourceFile {QV}<NOTECARDS>1.3K>KOTOSYSTEMPATCHES.;11)

(PUTPROPS KOTOTEDITPATCHES SourceFile {QV}<NOTECARDS>1.3K>KOTOTEDITPATCHES.;6)

(PUTPROPS KOTOSKETCHPATCHES SourceFile {QV}<NOTECARDS>1.3K>KOTOSKETCHPATCHES.;4)

(PUTPROPS GRAPHERPATCH SourceFile {QV}<NOTECARDS>1.3K>GRAPHERPATCH.;3)

(PUTPROPS NCMAPS SourceFile {QV}<NOTECARDS>1.3K>LIBRARY>NCMAPS.;4)

(PUTPROPS NCHACKS SourceFile {QV}<NOTECARDS>1.3K>LIBRARY>NCHACKS.;6)

(PUTPROPS NCIDEASKETCHCARD SourceFile {QV}<NOTECARDS>1.3K>LIBRARY>NCIDEASKETCHCARD.;6)

(PUTPROPS NOTECARDS CompiledFile {QV}<NOTECARDS>1.3K>NOTECARDS.DCOM;23)

(PUTPROPS NCUTILITIES CompiledFile {QV}<NOTECARDS>1.3K>NCUTILITIES.DCOM;16)

(PUTPROPS NCPARAMETERS CompiledFile {QV}<NOTECARDS>1.3K>NCPARAMETERS.DCOM;12)

(PUTPROPS NCINTERFACE CompiledFile {QV}<NOTECARDS>1.3K>NCINTERFACE.DCOM;12)

(PUTPROPS NCDATABASE CompiledFile {QV}<NOTECARDS>1.3K>NCDATABASE.DCOM;15)

(PUTPROPS NCLOCALDEVICE CompiledFile {QV}<NOTECARDS>1.3K>NCLOCALDEVICE.DCOM;10)

(PUTPROPS NCCOMPACT CompiledFile {QV}<NOTECARDS>1.3K>NCCOMPACT.DCOM;12)

(PUTPROPS NCREPAIR CompiledFile {QV}<NOTECARDS>1.3K>NCREPAIR.DCOM;14)

(PUTPROPS NCCARDS CompiledFile {QV}<NOTECARDS>1.3K>NCCARDS.DCOM;15)

(PUTPROPS NCLINKS CompiledFile {QV}<NOTECARDS>1.3K>NCLINKS.DCOM;14)

(PUTPROPS NCTYPESMECH CompiledFile {QV}<NOTECARDS>1.3K>NCTYPESMECH.DCOM;14)

(PUTPROPS NCPROGINT CompiledFile {QV}<NOTECARDS>1.3K>NCPROGINT.DCOM;16)

(PUTPROPS NCCROSSFILELINKS CompiledFile {QV}<NOTECARDS>1.3K>NCCROSSFILELINKS.DCOM;11)

(PUTPROPS NCHASHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCHASHCARD.DCOM;7)

(PUTPROPS NCTEXTCARD CompiledFile {QV}<NOTECARDS>1.3K>NCTEXTCARD.DCOM;11)

(PUTPROPS NCSKETCHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCSKETCHCARD.DCOM;13)

(PUTPROPS NCGRAPHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCGRAPHCARD.DCOM;14)

(PUTPROPS NCFILEBOXCARD CompiledFile {QV}<NOTECARDS>1.3K>NCFILEBOXCARD.DCOM;12)

(PUTPROPS NCBROWSERCARD CompiledFile {QV}<NOTECARDS>1.3K>NCBROWSERCARD.DCOM;16)

(PUTPROPS NCSEARCHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCSEARCHCARD.DCOM;8)

(PUTPROPS NCDOCUMENTCARD CompiledFile {QV}<NOTECARDS>1.3K>NCDOCUMENTCARD.DCOM;14)

(PUTPROPS NCLINKINDEXCARD CompiledFile {QV}<NOTECARDS>1.3K>NCLINKINDEXCARD.DCOM;9)

(PUTPROPS NCLISTCARD CompiledFile {QV}<NOTECARDS>1.3K>NCLISTCARD.DCOM;8)

(PUTPROPS NCCONVERTVERSION2TO3 CompiledFile {QV}<NOTECARDS>1.3K>NCCONVERTVERSION2TO3.DCOM;6)

(PUTPROPS KOTOSYSTEMPATCHES CompiledFile {QV}<NOTECARDS>1.3K>KOTOSYSTEMPATCHES.DCOM;12)

(PUTPROPS KOTOTEDITPATCHES CompiledFile {QV}<NOTECARDS>1.3K>KOTOTEDITPATCHES.DCOM;8)

(PUTPROPS KOTOSKETCHPATCHES CompiledFile {QV}<NOTECARDS>1.3K>KOTOSKETCHPATCHES.DCOM;5)

(PUTPROPS GRAPHERPATCH CompiledFile {QV}<NOTECARDS>1.3K>GRAPHERPATCH.DCOM;3)

(PUTPROPS NCMAPS CompiledFile {QV}<NOTECARDS>1.3K>LIBRARY>NCMAPS.DCOM;4)

(PUTPROPS NCHACKS CompiledFile {QV}<NOTECARDS>1.3K>LIBRARY>NCHACKS.DCOM;5)

(PUTPROPS NCIDEASKETCHCARD CompiledFile {QV}<NOTECARDS>1.3K>LIBRARY>NCIDEASKETCHCARD.DCOM;6)

(PUTPROPS NOTECARDS FileDate " 4-Sep-87 12:27:40")

(PUTPROPS NCUTILITIES FileDate "18-Jan-88 17:00:46")

(PUTPROPS NCPARAMETERS FileDate "14-Jul-87 17:18:09")

(PUTPROPS NCINTERFACE FileDate "18-Jan-88 17:01:24")

(PUTPROPS NCDATABASE FileDate "18-Jan-88 17:04:05")

(PUTPROPS NCLOCALDEVICE FileDate "30-Nov-87 15:28:28")

(PUTPROPS NCCOMPACT FileDate "30-Nov-87 15:30:26")

(PUTPROPS NCREPAIR FileDate "30-Nov-87 15:31:06")

(PUTPROPS NCCARDS FileDate "18-Jan-88 17:07:02")

(PUTPROPS NCLINKS FileDate "18-Jan-88 17:09:47")

(PUTPROPS NCTYPESMECH FileDate "18-Jan-88 17:11:41")

(PUTPROPS NCPROGINT FileDate "18-Jan-88 17:12:15")

(PUTPROPS NCCROSSFILELINKS FileDate "18-Jan-88 17:14:03")

(PUTPROPS NCHASHCARD FileDate "30-Nov-87 15:56:33")

(PUTPROPS NCTEXTCARD FileDate "18-Jan-88 17:14:42")

(PUTPROPS NCSKETCHCARD FileDate "30-Nov-87 15:58:43")

(PUTPROPS NCGRAPHCARD FileDate "30-Nov-87 15:59:21")

(PUTPROPS NCFILEBOXCARD FileDate "30-Nov-87 16:00:23")

(PUTPROPS NCBROWSERCARD FileDate "18-Jan-88 17:15:25")

(PUTPROPS NCSEARCHCARD FileDate "30-Nov-87 16:24:33")

(PUTPROPS NCDOCUMENTCARD FileDate "30-Nov-87 16:24:58")

(PUTPROPS NCLINKINDEXCARD FileDate "30-Nov-87 16:26:06")

(PUTPROPS NCLISTCARD FileDate "18-Jan-88 17:16:50")

(PUTPROPS NCCONVERTVERSION2TO3 FileDate "30-Nov-87 16:27:11")

(PUTPROPS KOTOSYSTEMPATCHES FileDate "30-Nov-87 16:28:15")

(PUTPROPS KOTOTEDITPATCHES FileDate "31-Aug-87 15:39:25")

(PUTPROPS KOTOSKETCHPATCHES FileDate "31-Aug-87 15:40:36")

(PUTPROPS GRAPHERPATCH FileDate "14-Jul-87 21:06:40")

(PUTPROPS NCMAPS FileDate "14-Jul-87 21:25:44")

(PUTPROPS NCHACKS FileDate "18-Aug-87 15:31:00")

(PUTPROPS NCIDEASKETCHCARD FileDate "14-Jul-87 21:13:31")

(PUTPROPS NOTECARDS InitialFile ((NOTECARDSCOMS . Compiled)))

(PUTPROPS NCUTILITIES InitialFile ((NCUTILITIESCOMS . Compiled)))

(PUTPROPS NCPARAMETERS InitialFile ((NCPARAMETERSCOMS . Compiled)))

(PUTPROPS NCINTERFACE InitialFile ((NCINTERFACECOMS . Compiled)))

(PUTPROPS NCDATABASE InitialFile ((NCDATABASECOMS . Compiled)))

(PUTPROPS NCLOCALDEVICE InitialFile ((NCLOCALDEVICECOMS . Compiled)))

(PUTPROPS NCCOMPACT InitialFile ((NCCOMPACTCOMS . Compiled)))

(PUTPROPS NCREPAIR InitialFile ((NCREPAIRCOMS . Compiled)))

(PUTPROPS NCCARDS InitialFile ((NCCARDSCOMS . Compiled)))

(PUTPROPS NCLINKS InitialFile ((NCLINKSCOMS . Compiled)))

(PUTPROPS NCTYPESMECH InitialFile ((NCTYPESMECHCOMS . Compiled)))

(PUTPROPS NCPROGINT InitialFile ((NCPROGINTCOMS . Compiled)))

(PUTPROPS NCCROSSFILELINKS InitialFile ((NCCROSSFILELINKSCOMS . Compiled)))

(PUTPROPS NCHASHCARD InitialFile ((NCHASHCARDCOMS . Compiled)))

(PUTPROPS NCTEXTCARD InitialFile ((NCTEXTCARDCOMS . Compiled)))

(PUTPROPS NCSKETCHCARD InitialFile ((NCSKETCHCARDCOMS . Compiled)))

(PUTPROPS NCGRAPHCARD InitialFile ((NCGRAPHCARDCOMS . Compiled)))

(PUTPROPS NCFILEBOXCARD InitialFile ((NCFILEBOXCARDCOMS . Compiled)))

(PUTPROPS NCBROWSERCARD InitialFile ((NCBROWSERCARDCOMS . Compiled)))

(PUTPROPS NCSEARCHCARD InitialFile ((NCSEARCHCARDCOMS . Compiled)))

(PUTPROPS NCDOCUMENTCARD InitialFile ((NCDOCUMENTCARDCOMS . Compiled)))

(PUTPROPS NCLINKINDEXCARD InitialFile ((NCLINKINDEXCARDCOMS . Compiled)))

(PUTPROPS NCLISTCARD InitialFile ((NCLISTCARDCOMS . Compiled)))

(PUTPROPS NCCONVERTVERSION2TO3 InitialFile ((NCCONVERTVERSION2TO3COMS . Compiled)))

(PUTPROPS KOTOSYSTEMPATCHES InitialFile ((KOTOSYSTEMPATCHESCOMS . Compiled)))

(PUTPROPS KOTOTEDITPATCHES InitialFile ((KOTOTEDITPATCHESCOMS . Compiled)))

(PUTPROPS KOTOSKETCHPATCHES InitialFile ((KOTOSKETCHPATCHESCOMS . Compiled)))

(PUTPROPS GRAPHERPATCH InitialFile ((GRAPHERPATCHCOMS . Compiled)))

(PUTPROPS NCMAPS InitialFile ((NCMAPSCOMS . Compiled)))

(PUTPROPS NCHACKS InitialFile ((NCHACKSCOMS . Compiled)))

(PUTPROPS NCIDEASKETCHCARD InitialFile ((NCIDEASKETCHCARDCOMS . Compiled)))

(PUTPROPS NOTECARDS FileComs [(* * This Release)
				(GLOBALVARS NC.ThisDirectory NC.ReleaseIdentifier 
					    NOTECARDSNEXTDIRECTORIES NOTECARDSDIRECTORIES 
					    NC.SourceAccessFlg NC.LoadedFiles 
					    UseMapWithPoliticalBoundaries AFTERLOGOUTFORMS)
				(INITVARS (NC.LoadedFiles NIL))
				(VARS (NC.ReleaseIdentifier "1.3K"))
				(* * Set up the NoteCards directories globalvars)
				(FNS NC.SetUpNOTECARDSDIRECTORIES)
				(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.SetUpNOTECARDSDIRECTORIES)))
				(* * card types and library packages)
				(GLOBALVARS NOTECARDTYPESTUBS NOTECARDTYPES NOTECARDSLIBRARYFILES 
					    NOTECARDSLISPUSERSFILES)
				(ADDVARS (NOTECARDTYPESTUBS Sketch Graph Browser Search Document 
							    LinkIndex IdeaSketch))
				(ADDVARS (NOTECARDTYPES Hash List Text FileBox))
				(ADDVARS (NOTECARDSLIBRARYFILES NCHACKS))
				(* ADDVARS (NOTECARDSLIBRARYFILES NCKEYS))
				(ADDVARS (NOTECARDSLISPUSERSFILES TEDIT-PROCESS-KILLER))
				(* * This is for link icon formatting until it is part of <LISPUSERS> 
				   proper)
				(FILES (SYSLOAD FROM NOTECARDS)
				       SCALEBITMAP)
				(* * These are for the NoteFile browser and can go away when 
				   incorporated into the standard release (Lute))
				[DECLARE: EVAL@LOADWHEN (EQ MAKESYSNAME (QUOTE KOTO))
					  (P (LOAD? (FINDFILE (QUOTE TABLEBROWSER.DCOM)
							      T NOTECARDSDIRECTORIES)
						    (QUOTE SYSLOAD))
					     (LOAD? (FINDFILE (QUOTE FILEBROWSER.DCOM)
							      T NOTECARDSDIRECTORIES)
						    (QUOTE SYSLOAD))
					     (if (GETD (QUOTE FB.AddArchiveCommandToMenu))
						 then
						 (FB.AddArchiveCommandToMenu]
				(* * code module lists for the convenience of programmers)
				(GLOBALVARS NC.CoreFiles NC.Files)
				(* * global params)
				(GLOBALVARS NC.DeletedLinkImageObject NC.DeletedLinkImageFns 
					    NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns 
					    NC.LinkIconImageFns NC.NoDeleteImageFns NC.SystemDate 
					    TEDIT.INPUT.FORMATS WindowMenuCommands 
					    NCINITIALGLOBALPARAMS)
				(INITVARS NCINITIALGLOBALPARAMS)
				(* * Load the NoteCards files)
				[DECLARE: DONTEVAL@LOAD DOCOPY (FILES (FROM NOTECARDS NIL)
								      NCCONFIG)
					  [P (ADVISE (QUOTE WHEREIS)
						     (QUOTE BEFORE)
						     NIL
						     (QUOTE (if (GETPROP (QUOTE NOTECARDS)
									 (QUOTE FILEDATES))
								then
								(NC.FixFileDates (QUOTE NOTECARDS))
								(UNADVISE (QUOTE WHEREIS]
					  (P (for File in NC.CoreFiles do (NC.LoadFileFromDirectories
						    File]
				(* * Initialization functions)
				(FNS NC.PostGreet)
				(ADDVARS (POSTGREETFORMS (NC.PostGreet)))
				(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.PostGreet)))
				(* * Set up Lafite Bug Report Forms)
				(FNS NC.MakeLafiteForm)
				(ADDVARS (LAFITESPECIALFORMS ("NoteCards Report"
							       (FUNCTION NC.MakeLafiteForm)
							       
					       "Report bug or request new feature for NoteCards.")))
				(DECLARE: DONTEVAL@LOAD DOCOPY (P (SETQ LAFITEFORMSMENU NIL)))
				(* * INITIALIZE NoteCards)
				(FNS NC.Setup)
				(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.Setup)))
				(ADDVARS (BackgroundMenuCommands (NoteCards (NC.BringUpNoteCardsIcon)
									    
							   "Bring up the NoteCards control icon.")))
				(DECLARE: DONTEVAL@LOAD DOCOPY (P (SETQ BackgroundMenu)))
				(FNS NC.SetSystemDate)
				(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.SetSystemDate])

(PUTPROPS NCUTILITIES FileComs [(* * UTILITIES)
	   (GLOBALVARS WHOLEDISPLAY NC.OffScreenPosition \NC.NoBreakInReportError)
	   [DECLARE: DONTEVAL@LOAD DOCOPY (VARS (\NC.NoBreakInReportError)
						(NC.OffScreenPosition (QUOTE (1500 . 1500]
	   (* * Coercing functions)
	   (FNS NC.CoerceToCard NC.CardFromWindow)
	   (MACROS NC.ActivateCardAndDo)
	   [DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.StoreAutoloadFnFile (FUNCTION 
								    NC.ConvertNoteFileVersion2To3)
								     (QUOTE NCCONVERTVERSION2TO3)
								     (QUOTE NOTECARDSDIRECTORIES]
	   (* * Shorthand window fns)
	   (FNS WW FLASHW)
	   (* * Other stuff)
	   (GLOBALVARS NC.PrintMsgFont)
	   (INITVARS (NC.PrintMsgFont (FONTCREATE (QUOTE HELVETICA)
						  10)))
	   (MACROS NC.WithTopWindowsUnattached)
	   (MACROS ABORT.PROTECT)
	   (FNS GETWREGION TEDIT.LIST.OF.OBJECTS WINDOW.FROM.TEDIT.THING WINDOW.OF.TEXTSTREAM 
		NC.AskUserWithMenu NC.AskYesOrNo NC.YesP FILDIR-EARLIEST FILDIR-VERSION GETMOUSEX 
		GETMOUSEY LOWERLEFT MBUTTON.NEXT.FIELD.AS.TEXT.OR.IMAGEOBJ NC.AskUser 
		NC.ZapAskUserProcess NC.AskUserResetWindow NC.ClearMsg NC.GreyCard NC.IDFromNumber 
		NC.MoveWindowOntoScreen NC.NotDaughterP NC.MarkerMatchesCardP NC.PlaceMarkerP 
		NC.ReportError NC.PrintMsg DFIRSTREMOVE NC.HoldTTYProcess NC.GetShrunkenWin 
		NC.CoerceToNoteFileStream NC.DrawInnerBox NC.UnionListsOfLinks NC.ParseString 
		NC.AppendStringToStream NC.CoerceToInterestedWindow)
	   (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
										 (NLAML)
										 (LAMA NC.PrintMsg])

(PUTPROPS NCPARAMETERS FileComs ((* * Tailoring parameters for the user to set.)
	   [DECLARE: DONTEVAL@LOAD DOCOPY FIRST (P (NC.LoadFileFromDirectories (QUOTE STYLESHEET)
									       (QUOTE 
									     LISPUSERSDIRECTORIES]
	   (GLOBALVARS NC.FixedMenuFlg NC.AdviseWindowMenuFlg NC.ForceSourcesFlg NC.ForceFilingFlg 
		       NC.ForceTitlesFlg NC.MarkersInFileBoxesFlg NC.AlphabetizedFileBoxChildrenFlg 
		       NC.LinkIconAttachBitmapFlg NC.LinkIconShowLinkTypeFlg NC.LinkIconShowTitleFlg 
		       NC.MainMenuPosition NC.ShowNoteFileOnCards NC.IncludeCardObjectInShowInfo 
		       World5File NC.SpecialBrowserSpecsFlg NC.AnnoFlg NC.LinkDashingInBrowser 
		       NC.ArrowHeadsInBrowser NC.EnableBravoToTEditConversionFlg NC.DefaultFont 
		       NC.LinkIconFont NC.NoteFileIndicatorFont NC.MenuFont NC.DefaultCardType 
		       NC.BringUpCardAtOldPosFlg NC.CloseCardsOffScreenFlg NC.NoteCardsParameters 
		       NC.SpecialBrowserMiddleButtonFn NCINITIALGLOBALPARAMS 
		       NC.UseDeletedLinkIconIndicatorsFlg NC.DelTEditProcessAtShrinkFlg 
		       NC.UserSpecifiedTEditProps NC.AskTEditPropsWindowWidth 
		       NC.AskTEditPropsWindowHeight NC.NoteFileMenuLingerFlg 
		       NC.DefaultIndexSizeInEntries NC.MsgDelay NC.LinkIconMultiLineMode 
		       NC.LinkIconMaxWidth)
	   (INITVARS (NC.FixedMenuFlg NIL)
		     (NC.ShortWindowMenuFlg T)
		     (NC.ShowNoteFileOnCards T)
		     (NC.IncludeCardObjectInShowInfo NIL)
		     (NC.ForceSourcesFlg NIL)
		     (NC.ForceFilingFlg T)
		     (NC.ForceTitlesFlg T)
		     (NC.MarkersInFileBoxesFlg T)
		     (NC.AlphabetizedFileBoxChildrenFlg NIL)
		     (NC.LinkIconAttachBitmapFlg T)
		     (NC.LinkIconShowTitleFlg T)
		     (NC.LinkIconShowLinkTypeFlg NIL)
		     (NC.LinkDashingInBrowser NIL)
		     (NC.ArrowHeadsInBrowser (QUOTE None))
		     (NC.MainMenuPosition NIL)
		     (World5File (QUOTE {DSK}WORLD5.MAPDATA))
		     (NC.SpecialBrowserSpecsFlg NIL)
		     (NC.AnnoFlg NIL)
		     (NC.DefaultCardType (QUOTE Text))
		     (NC.CloseCardsOffScreenFlg NIL)
		     (NC.BringUpCardAtOldPosFlg NIL)
		     (NC.EnableBravoToTEditConversionFlg NIL)
		     (NC.DefaultFont (FONTCREATE (QUOTE TimesRoman)
						 12))
		     (NC.LinkIconFont (FONTCREATE (QUOTE HELVETICA)
						  10
						  (QUOTE BOLD)))
		     (NC.NoteFileIndicatorFont (FONTCREATE (QUOTE HELVETICA)
							   10
							   (QUOTE BOLD)))
		     (NC.MenuFont (FONTCREATE (QUOTE HELVETICA)
					      10
					      (QUOTE BOLD)))
		     (NCINITIALGLOBALPARAMS NIL)
		     (NC.UseDeletedLinkIconIndicatorsFlg T)
		     (NC.DelTEditProcessAtShrinkFlg NIL)
		     (NC.UserSpecifiedTEditProps NIL)
		     (NC.AskTEditPropsWindowWidth 425)
		     (NC.AskTEditPropsWindowHeight 70)
		     (NC.NoteFileMenuLingerFlg T)
		     (NC.DefaultIndexSizeInEntries 1000)
		     (NC.MsgDelay 1500)
		     (NC.LinkIconMultiLineMode NIL)
		     (NC.LinkIconMaxWidth SCREENWIDTH))
	   (GLOBALVARS NC.ListOfFontFamilies NC.ListOfFontSizes NC.ListOfFontFaces)
	   [INITVARS (NC.ListOfFontFamilies (QUOTE (TIMESROMAN HELVETICA GACHA CLASSIC MODERN 
							       TERMINAL TITAN CREAM OLDENGLISH)))
		     (NC.ListOfFontSizes (QUOTE (8 9 10 11 12 14 18 24 30 36)))
		     (NC.ListOfFontFaces (QUOTE (STANDARD BOLD ITALIC BOLDITALIC]
	   [DECLARE: DONTEVAL@LOAD DOCOPY (PROPS (NC.NoteCardsParameters DefaultCardType)
						 (NC.NoteCardsParameters 
								    MenuLingersAfterNoteFileClose)
						 (NC.NoteCardsParameters ShowNoteFileOnCards)
						 (NC.NoteCardsParameters NewNoteFileInitialSize)
						 (NC.NoteCardsParameters ForceFiling)
						 (NC.NoteCardsParameters ForceTitles)
						 (NC.NoteCardsParameters CloseCardsOffScreen)
						 (NC.NoteCardsParameters BringUpCardsAtPreviousPos)
						 (NC.NoteCardsParameters MarkersInFileBoxes)
						 (NC.NoteCardsParameters AlphabetizedFileBoxChildren)
						 (NC.NoteCardsParameters DefaultLinkIconAttachBitmap)
						 (NC.NoteCardsParameters DefaultLinkIconShowTitle)
						 (NC.NoteCardsParameters DefaultLinkIconShowLinkType)
						 (NC.NoteCardsParameters UseDeletedLinkIconIndicators)
						 (NC.NoteCardsParameters DelTEditProcessWhenShrinking)
						 (NC.NoteCardsParameters ExtraTEditProps)
						 (NC.NoteCardsParameters EnableBravoToTEditConversion)
						 (NC.NoteCardsParameters IncludeCardObjectInShowInfo)
						 (NC.NoteCardsParameters LinkDashingInBrowsers)
						 (NC.NoteCardsParameters ArrowHeadsInBrowsers)
						 (NC.NoteCardsParameters SpecialBrowserSpecs)
						 (NC.NoteCardsParameters DefaultFont)
						 (NC.NoteCardsParameters LinkIconFont)
						 (NC.NoteCardsParameters MenuFont)
						 (NC.NoteCardsParameters NoteFileIndicatorFont)
						 (NC.NoteCardsParameters LinkIconMultiLineMode)
						 (NC.NoteCardsParameters LinkIconMaxWidthInPixels)
						 (NC.NoteCardsParameters LinkIconBorderWidth)
						 (NC.NoteCardsParameters NewCrossFileLinksMode))
		     (VARS (NC.NoteCardsParameters (PROPNAMES (QUOTE NC.NoteCardsParameters]
	   (* * Parameter Inspector & Editor)
	   (RECORDS GLOBALPARAMETER)
	   (FNS NC.BuildInspector NC.InspectorFetchFn NC.InspectorSelectionFn 
		NC.DefaultCardTypeSelectionFn NC.DefaultCardTypeCheckFn 
		NC.ArrowHeadsInBrowserSelectionFn NC.ArrowHeadsInBrowserCheckFn 
		NC.EnableBravoToTEditConversionFetchFn NC.EnableBravoToTEditConversionSelectionFn 
		NC.DefaultFontFetchFn NC.DefaultFontSelectionFn NC.GetFontFromUser 
		NC.FontFaceShorthand NC.UserSpecifiedTEditPropsSelectionFn 
		NC.UserSpecifiedTEditPropsCheckFn NC.DefaultLinkIconParametersSelectionFn 
		NC.ClearAllLinkIconImageBoxCaches NC.SetNewFileInitialSize NC.MenuFontAfterChangeFn 
		NC.NewCrossFileLinksModeSelectionFn NC.NewCrossFileLinksModeCheckFn)
	   (FNS NC.SetLinkIconMaxWidth NC.SetLinkIconBorderWidth)))

(PUTPROPS NCINTERFACE FileComs ((* * Internal variables)
	   (GLOBALVARS NCP.NoticedNoteFileNames NC.NoticedNoteFilesMenuNewItem 
		       NC.NoticedNoteFilesMenu NC.CachedMenus NC.NoteCardsIconPosition 
		       NC.SelectionInProgress NC.SelectedCards NC.SelectingSourcesMenu 
		       NC.SelectingContentsMenu NC.SelectingSingleCardMenu 
		       NC.SelectingMultipleCardsMenu NC.DeleteSelectingMenu NC.SelectingParentsMenu 
		       NC.SelectingBrowserSourceMenu NC.SelectingFileBoxChildrenMenu 
		       NC.SelectingCardsMenu NC.SelectingCardMenu NC.TEditMenus NC.NoteCardTypeMenu 
		       NC.DatabaseOperationsMenu NC.LinkLabelMenu NC.WindowRightButtonMenu 
		       NC.LogoWindow LOGOW ExecWindow PROCESS.STATUS.WINDOW QUADTREE.HIGHRES 
		       NC.BrowseOrSearchMenu FONTDIRECTORIES NC.DatabaseFileNameSuggestion 
		       NC.UncachingNotCompleted NC.UnspecifiedLinkLabel NC.UCASESystemLinkLabels 
		       NC.MainMenuPosition NC.NoteCardsIconWindow NC.NewCardsIconBitmap 
		       NC.BoxesIconBitmap NC.NoteFileIndicatorFont NC.NoteFileMenuLingerFlg 
		       NC.FileBrowserExpungeMenuItem NC.FileBrowserRecomputeMenuItem 
		       NC.FileBrowserMenuItemsToKeep NC.DefaultNoteFileIconMiddleButtonItems 
		       NC.OpenedNoteFileMenu NC.ClosedNoteFileMenu NC.NoteFileIconOperationsMenuItems 
		       NC.NoteFileIconOpenOperations NC.NoteFileIconCloseOperations 
		       NC.NoteCardTypeMenu NC.DefaultLeftButtonMenuItems NC.LocalInsertLinkMenuItem 
		       NC.GlobalInsertLinkMenuItem NC.DefaultMiddleButtonMenuItems 
		       NC.PromptWindowMonitorLock)
	   (INITVARS (NC.LinkLabelMenu NIL)
		     (NC.LinkDisplayModesMenu NIL)
		     (NC.DatabaseFileNameSuggestion NIL)
		     (NC.TEditMenus NIL)
		     (NC.OpenedNoteFileMenu NIL)
		     (NC.ClosedNoteFileMenu NIL)
		     (NCP.NoticedNoteFileNames NIL)
		     (NC.NoteCardsIconPosition)
		     (NC.PromptWindowMonitorLock (CREATE.MONITORLOCK "PromptWindowMonitorLock"))
		     (NC.FileNameFont (FONTCREATE (QUOTE HELVETICA)
						  10
						  (QUOTE BOLD)))
		     (NC.FullFileNameFont (FONTCREATE (QUOTE HELVETICA)
						      8
						      (QUOTE STANDARD)))
		     (NC.MaxFileNameChars 18))
	   (* * Setup and top level interaction)
	   [DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILE (P (LOAD? (NC.FindFile (QUOTE FILEBROWSER)
										NIL NIL T)
								   (QUOTE PROP]
	   (FNS NoteCards NC.MakeMainMenu NC.LogoutAdvice NC.AttachPromptWindow 
		NC.AttachPromptWindowOffScreen NC.GETPROMPTWINDOW NC.MaxPromptWindowWidth 
		NC.PromptWindowOpenP)
	   (* * Menus of all sorts)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.CachedMenus (QUOTE (NC.NoteCardTypeMenu 
								      NC.LinkIconMiddleButtonMenu 
										   NC.CardOpsMenu 
									       NC.NoteFileOpsMenu 
										  NC.OtherOpsMenu)))
					 (NC.NoticedNoteFilesMenu)
					 (NC.NoticedNoteFilesMenuNewItem)))
	   (FNS NC.AskLinkLabel NC.AskNoteCardType NC.ChooseTopLevelCard NC.RemoveSketchMenuItems 
		NC.SelectionMenusWhenSelectedFn NC.InstallTitleBarButtonEventFn 
		NC.InstallTitleBarLeftMenu NC.InstallCopyButtonEventFn 
		NC.NoteFileTitleLeftWhenSelectedFn NC.MakeNoteFileIconOperationsMenus 
		NC.ResetCachedMenus NC.CreateNoteFileMenuItems NC.GetNoteFileMenu NC.SetNoteFileMenu 
		NC.PrintReadOnlyMsg NC.CopyMenu NC.ReadOnlyTEditSelFn NC.MakeTEditReadOnly 
		NC.MakeTEditReadWrite)
	   (* * Selection Mechanism)
	   (DECLARE: DONTEVAL@LOAD (VARS NC.SelectionInProgress))
	   (FNS NC.SelectNoteCards NC.ZapBinLoopProcess NC.SelectNoteCardsCopyInsertFn 
		NC.CopyButtonEventFn NC.CardImageObjP NC.MakeCardImageObject)
	   (GLOBALVARS NC.CardImageObjFns)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.CardImageObjFns (IMAGEFNSCREATE]
	   (* * Fix up Lisp)
	   (DECLARE: DONTEVAL@LOAD (ADVISE LOGOUT))
	   (* * Stuff for creating and operating the NoteCards session icon.)
	   (GLOBALVARS NC.CardOpsMenu NC.CardOpsItems NC.NoteFileOpsMenu NC.NoteFileOpsItems 
		       NC.OtherOpsMenu NC.OtherOpsItems NC.NoteCardsIconBitmap)
	   (DECLARE: DONTEVAL@LOAD DOCOPY (VARS NC.NoteCardsIconWindow)
		     (BITMAPS NCCURSOR NC.NoteCardsIconBitmap NC.NewCardsIconBitmap 
			      NC.BoxesIconBitmap NC.OldStyleIconBitmap NC.NoteCardsIconMask 
			      NC.NoteCardsIconShrunkenBitmap NC.NoteCardsIconShrunkenMask))
	   (FNS NC.NoteCardsWindowP NC.NoteCardsIconWindowP NC.MakeNoteCardsIcon 
		NC.BringUpNoteCardsIcon NC.NoteCardsIconAfterMoveFn NC.FileBrowserMenu 
		NC.ListOfNoteFilesMenu NC.CheckpointSession NC.CloseSession)
	   (DECLARE: DONTEVAL@LOAD (ADDVARS (NC.NoteFileIconOperationsMenuItems
					      (Open NIL "Opens this NoteFile."
						    (SUBITEMS (Read-only% Open NIL 
							     "Opens this NoteFile for read-only.")))
					      (Checkpoint NIL 
						"Checkpoint this NoteFile, saving changed cards.")
					      (Close NIL "Closes this NoteFile."
						     (SUBITEMS (Close% w/o% confirm NIL 
		     "Close this notefile w/o asking for user confirm before closing open cards.")))
					      (Abort NIL 
					      "Close NF, deleting changes since last checkpoint.")
					      (Compact NIL "Compacts this NoteFile to a new file."
						       (SUBITEMS (Compact% To% New% File NIL 
						      "Compact a NoteFile copying to a new file.")
								 (Compact% In% Place NIL 
						  "Compact a NoteFile w/o copying to a new file.")))
					      (Inspect&Repair NIL 
						 "Inspects and optionally repairs this NoteFile."
							      (SUBITEMS (Read% Substances NIL 
"Inspects and optionally repairs a Notefile, but reads every substance.  This slows it WAY down.")))
					      (Copy NIL "Copies this notefile to a target file.")
					      (Rename NIL "Rename this NoteFile")
					      (Delete NIL "Deletes this NoteFile."))
					    (NC.NoteFileIconOpenOperations Open Checkpoint Close 
									   Abort Close% w/o% confirm)
					    (NC.NoteFileIconCloseOperations Open Compact 
									    Read-only% Open 
									    Inspect&Repair 
									    Read% Substances Copy 
									    Rename Delete 
									   Compact% To% New% File 
									    Compact% In% Place)))
	   (GLOBALVARS NC.InitialNoteFileIconOperationsMenuItems NC.InitialNoteFileIconOpenOperations 
		       NC.InitialNoteFileIconCloseOperations NC.ShowPropListMenu NC.EditPropListMenu)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.InitialNoteFileIconOperationsMenuItems 
							       NC.NoteFileIconOperationsMenuItems)
					 (NC.InitialNoteFileIconOpenOperations 
								    NC.NoteFileIconOpenOperations)
					 (NC.InitialNoteFileIconCloseOperations 
								   NC.NoteFileIconCloseOperations)))
	   [INITVARS (NC.DefaultMiddleButtonMenuItems NIL)
		     (NC.ShowPropListMenu (create MENU ITEMS ← (QUOTE (("Quit" (NC.ClosePropListEditor
										 W
										 (QUOTE NoSave))
									       
								"Quit from pointer list display.")))
						  CENTERFLG ← T MENUFONT ← NC.MenuFont ITEMHEIGHT ←
						  (IPLUS (FONTPROP NC.MenuFont (QUOTE HEIGHT))
							 1)))
		     (NC.EditPropListMenu (create MENU ITEMS ← (QUOTE (("Add New Property"
									 (NC.AddPropToPropList W)
									 
					       "Add a new property to this card's property list.")
								       ("Delete Selected Property"
									 (NC.DelPropFromList W)
									 
				       "Delete selected property from this card's property list.")
								       ("Quit w/o Saving Changes"
									 (NC.ClosePropListEditor
									   W
									   (QUOTE NoSave))
									 
					   "Quit from property list edit. Changes are not saved.")
								       ("Quit - Saving Changes"
									 (NC.ClosePropListEditor
									   W
									   (QUOTE Save))
									 
						  "Quit from property list editor. Save changes.")))
						  CENTERFLG ← T MENUFONT ← NC.MenuFont ITEMHEIGHT ←
						  (IPLUS (FONTPROP NC.MenuFont (QUOTE HEIGHT))
							 1)))
		     [NC.LocalInsertLinkMenuItem (QUOTE (Insert% Link
							  (FUNCTION NC.AddLinkToCard)
							  
		     "Insert a link to another card at the currently selected point in the text."
							  (SUBITEMS (Insert% Link
								      (FUNCTION NC.AddLinkToCard)
								      
		     "Insert a link to another card at the currently selected point in the text.")
								    (Insert% Links
								      (FUNCTION NC.AddLinksToCard)
								      
		       "Insert links to other cards at the currently selected point in the text.")
								    (Add% Global% Link
								      (FUNCTION 
									   NC.AddGlobalLinkToCard)
								      
						    "Add a global link emanating from this card.")
								    (Add% Global% Links
								      (FUNCTION 
									  NC.AddGlobalLinksToCard)
								      
					    "Add multiple global links emanating from this card."]
		     [NC.GlobalInsertLinkMenuItem (QUOTE (Add% Global% Link
							   (FUNCTION NC.AddGlobalLinkToCard)
							   
						    "Add a global link emanating from this card."
							   (SUBITEMS (Add% Global% Link
								       (FUNCTION 
									   NC.AddGlobalLinkToCard)
								       
						    "Add a global link emanating from this card.")
								     (Add% Global% Links
								       (FUNCTION 
									  NC.AddGlobalLinksToCard)
								       
					    "Add multiple global links emanating from this card."]
		     (NC.DefaultLeftButtonMenuItems
		       (BQUOTE ((Edit% Property% List (FUNCTION NC.EditProperties)
						      
					"Brings up an editor for the property list of this card.")
				(Show% Links (FUNCTION NC.ShowLinks)
					     "Brings up a list of the links to and from this card.")
				(Show% Info (FUNCTION NC.ShowInfo)
					    
			     "Brings up a window containing special information about this card."
					    (SUBITEMS (Indicate% NoteFile (FUNCTION 
									    NC.AttachNoteFileName)
									  
							"Shows the name of this card's NoteFile.")))
				(Designate% FileBoxes (FUNCTION NC.AddParents)
						      
						 "File this note card in one or more file boxes."
						      (SUBITEMS (Unfile% from% FileBoxes
								  (FUNCTION NC.UnfileNoteCard)
								  
					   "Remove this card from one or more of its file boxes.")))
				(Assign% Title (FUNCTION NC.AssignTitle)
					       "Assigns a (new) title to this note card.")
				(Title/FileBoxes (FUNCTION [LAMBDA (TextStream)
								   (NC.AssignTitle TextStream)
								   (NC.AddParents TextStream])
						 
					    "Do both assigning of title and filing in fileboxes.")
				, NC.LocalInsertLinkMenuItem
				(Close% and% Save (FUNCTION CLOSEW)
						  
					  "Close this note card after saving it in the NoteFile."
						  (SUBITEMS (Close% and% Save (FUNCTION CLOSEW)
									      
					  "Close this note card after saving it in the NoteFile.")
							    (Close% w/o% Saving
							      (FUNCTION NC.QuitWithoutSaving)
							      
		      "Close this note card without saving any changes made since the last Save.")
							    (Save% in% NoteFile
							      (FUNCTION NC.CardSaveFn)
							      
				       "Save this card in the NoteFile but don't close the card.")
							    (Delete% Card (FUNCTION NC.DeleteNoteCard)
									  
						"Permanently delete this card from the NoteFile."]
	   [DECLARE: DONTEVAL@LOAD
		     (ADDVARS [NC.CardOpsItems (% Close%  (NC.CloseNoteCards NIL 
									   NC.NoteCardsIconWindow)
							  "Delete several note cards."
							  (SUBITEMS (Close% Structure (
NC.CloseStructure NIL NIL NC.NoteCardsIconWindow)
										      
						     "Close note cards belonging to a structure.")))
					       (% Delete%  (NC.DeleteNoteCards NIL T NIL 
									   NC.NoteCardsIconWindow)
							   "Delete several note cards."
							   (SUBITEMS (Delete% Structure (
NC.DeleteStructure NIL NIL NC.NoteCardsIconWindow)
											
						    "Delete note cards belonging to a structure.")))
					       (% Copy%  (NC.CopyCards NIL NIL NIL NIL 
								       NC.NoteCardsIconWindow)
							 "Copy note cards to a filebox"
							 (SUBITEMS (Copy% Structure (NC.CopyStructure
										      NIL NIL NIL 
									   NC.NoteCardsIconWindow)
										    
						      "Copy note cards belonging to a structure.")))
					       (% Move%  (NC.MoveCards NIL NIL NIL NIL 
								       NC.NoteCardsIconWindow)
							 "Move note cards to a filebox"
							 (SUBITEMS (Move% Structure (NC.MoveStructure
										      NIL NIL NIL 
									   NC.NoteCardsIconWindow)
										    
						      "Move note cards belonging to a structure."]
			      (NC.NoteFileOpsItems (% Open%  (NC.DoNoteFileOp (QUOTE Open% NoteFile))
							     "Opens a notefile."
							     (SUBITEMS (Read-only% Open
									 (NC.DoNoteFileOp
									   (QUOTE Read-only% Open))
									 
								 "Open a notefile for read-only.")))
						   (% Checkpoint%  (NC.DoNoteFileOp (QUOTE 
									     Checkpoint% NoteFile))
								   "Checkpoint a NoteFile"
								   (SUBITEMS (Checkpoint% All
									       (NC.CheckpointSession)
									       
							"Checkpoint all currently open NoteFiles")))
						   (% Close%  (NC.DoNoteFileOp (QUOTE Close% NoteFile)
									       )
							      "Close a notefile."
							      (SUBITEMS (Close% w/o% confirm
									  (NC.DoNoteFileOp
									    (QUOTE 
									      Close% w/o% confirm))
									  
			"Close a notefile w/o asking for user confirm before closing open cards.")
									(Close% All (NC.CloseSession)
										    
							     "Close all currently open NoteFiles")
									(Close% All% w/o% confirm
									  (NC.CloseSession NIL T)
									  
		"Close all open notefiles w/o asking for user confirm before closing open cards.")))
						   (% Abort%  (NC.DoNoteFileOp (QUOTE Abort% NoteFile)
									       )
							      
					      "Close NF, deleting changes since last checkpoint."
							      (SUBITEMS (Abort% All (NC.CloseSession
										      T)
										    
							     "Abort all currently open NoteFiles")))
						   (% Compact%  (NC.DoNoteFileOp (QUOTE 
										Compact% NoteFile))
								"Compact a NoteFile."
								(SUBITEMS (Compact% To% New% File
									    (NC.DoNoteFileOp
									      (QUOTE 
										Compact% NoteFile))
									    
						      "Compact a NoteFile copying to a new file.")
									  (Compact% In% Place
									    (NC.DoNoteFileOp
									      (QUOTE 
									       Compact% In% Place))
									    
						  "Compact a NoteFile w/o copying to a new file.")))
						   (% Inspect&Repair% 
						     (NC.DoNoteFileOp (QUOTE Inspect&Repair% NoteFile)
								      )
						     "Do an Inspect & Repair on a NoteFile."
						     (SUBITEMS (Read% Substances (NC.DoNoteFileOp
										   (QUOTE 
										 Read% Substances))
										 
"Inspects and optionally repairs a Notefile, but reads every substance.  This slows it WAY down.")))
						   (% Copy%  (NC.DoNoteFileOp (QUOTE Copy% NoteFile))
							     "Copy a NoteFile.")
						   (% Rename%  (NC.DoNoteFileOp (QUOTE 
										 Rename% NoteFile))
							       "Rename a NoteFile")
						   (% Delete%  (NC.DoNoteFileOp (QUOTE 
										 Delete% NoteFile))
							       "Delete a NoteFile")
						   (% Create%  (NC.DoNoteFileOp (QUOTE 
										 Create% NoteFile))
							       
							  "Create a new NoteFile w/o opening it."
							       (SUBITEMS (% Create% and% Open% 
									   (NC.DoNoteFileOp
									     (QUOTE Create% and% Open)
									     )
									   
							     "Create a new NoteFile and open it.")))
						   (% --------%  NIL "")
						   (% NC% FileBrowser%  (NC.FileBrowserMenu 
									   NC.NoteCardsIconWindow)
									
								   "Bring up a NoteFile browser."))
			      (NC.OtherOpsItems
				(% Edit% Parameters%  (NC.BuildInspector)
						      "Adjust NoteCards profile for this session.")
				(% NF% Indicators% On%  (NC.ShowNoteFiles)
							
				    "Turn on the NoteFile indicator for all currently open cards"
							(SUBITEMS (Indicators% Off (NC.ShowNoteFiles
										     T)
										   
				    "Turn off any NoteFile indicator on each card on the screen.")))
				(% TEdit% Killer% On% 
				  (START-TEDIT-KILLER)
				  "Start the TEDIT-KILLER process."
				  (SUBITEMS (TEdit% Killer% Off (STOP-TEDIT-KILLER)
								"Stop the TEDIT-KILLER process.")
					    (New% Process% Limit (SETQ
								   TEDIT-PROCESS-LIMIT
								   (OR (NUMBERP (RNUMBER
										  (CONCAT 
								      "Old TEdit process limit: "
											  
									      TEDIT-PROCESS-LIMIT)
										  NIL NIL NIL T))
								       TEDIT-PROCESS-LIMIT))
								 
							   "Change value of TEdit process limit.")
					    (New% Wait% Time (SETQ TEDIT-KILLER-WAIT-TIME
								   (OR (NUMBERP (RNUMBER
										  (CONCAT 
								   "Old TEdit killer wait time: "
											  
									   TEDIT-KILLER-WAIT-TIME)
										  NIL NIL NIL T))
								       TEDIT-KILLER-WAIT-TIME))
							     
							"Change value of TEdit killer wait time.")))
				(% Session% Icon% Style%  NIL 
						"Change the style of the NoteCards session icon."
							  (SUBITEMS (% Old% Style% 
								      (NC.ResetNoteCardsIcon
									(QUOTE OldStyle))
								      
						      "Change session icon to Roll-through style")
								    (% New% Style% 
								      (NC.ResetNoteCardsIcon
									(QUOTE NewStyle))
								      
							   "Change session icon to Filebox style"]
	   (GLOBALVARS NC.InitialCardOpsItems NC.InitialNoteFileOpsItems NC.InitialOtherOpsItems)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.InitialCardOpsItems NC.CardOpsItems)
					 (NC.InitialNoteFileOpsItems NC.NoteFileOpsItems)
					 (NC.InitialOtherOpsItems NC.OtherOpsItems)))
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.CardOpsMenu)
					 (NC.OtherOpsMenu)
					 (NC.NoteFileOpsMenu)))
	   (GLOBALVARS NC.NoteCardsIconMenuBitMap NC.OldStyleIconMenuBitmap NC.OldStyleIconBitmap 
		       NC.OldStyleIconMenuBitmap NC.NoteCardsIconMask NC.NoteCardsIconShrunkenBitmap 
		       NC.NoteCardsIconShrunkenMask NC.OtherOpsItems NC.OtherOpsMenu)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.NoteCardsIconMenuBitMap)
					 (NC.OldStyleIconMenuBitmap)))
	   (FNS NC.RedisplayNoteCardsIconWindow NC.NoteCardsIconButtonEventFn NC.DoNoteFileOp 
		NC.NoteCardsIconCursorEventFn NC.NoteCardsIconFn NC.ResetNoteCardsIcon 
		NC.MakeNewStyleNoteCardsIcon NC.MakeOldStyleNoteCardsIcon)
	   (* * Command Menu interface to NC functions)
	   (FNS NC.CloseNoteCards NC.CopyStructure NC.CloseStructure NC.DeleteStructure 
		NC.MoveStructure)
	   (* * NoteFile interface)
	   (FNS NC.NoteFileMenuWindowP NC.SetUpNoteFileInterface NC.ResetNoteFileInterface 
		NC.NoteFileIconButtonEventFn NC.NoteFileOperations NC.NoteFileIconMiddleButtonFn 
		NC.PopUpNoteFileName)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.DefaultNoteFileIconMiddleButtonItems
					   (QUOTE ((Full% File% Name NC.PopUpNoteFileName 
						       "Display full file name of this notefile."]
	   (* * Show NoteFile Indicators)
	   (FNS NC.ShowNoteFiles NC.AttachNoteFileName NC.MakeNoteFileNameIndicator 
		NC.NoteFileIndicatorWinHeight)
	   (* * File Browser)
	   (GLOBALVARS NC.FileBrowserMenuItemsToRemove NC.FileBrowserMenuItemsToAdd 
		       NC.FileBrowserMenuItems NC.FileBrowserPatterns NC.FileBrowserDefaultPatterns)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.FileBrowserMenuItemsToRemove (QUOTE (Hardcopy See Edit 
											   Load 
											  Compile 
											   Copy 
											   Rename 
											  Expunge)))
					 (NC.FileBrowserMenuItemsToKeep (QUOTE (Delete Undelete 
										       Recompute Sort)
									       ))
					 [NC.FileBrowserMenuItemsToAdd
					   (QUOTE ((Open NC.FileBrowserOpen 
							 "Open selected Notefiles."
							 (SUBITEMS (Read-only% Open (
NC.FileBrowserOpen INPUT)
										    
							 "Open selected Notefiles for read-only.")))
						   (Checkpoint NC.FileBrowserCheckpoint 
					 "Checkpoint the selected Notefiles, saving dirty cards.")
						   (Close NC.FileBrowserClose 
							  "Close selected Notefiles.")
						   (Abort NC.FileBrowserAbort 
			       "Aborts the selected Notefiles losing work since last checkpoint.")
						   (Compact NC.FileBrowserCompact 
					      "Compacts selected Notefiles copying to new files."
							    (SUBITEMS (Compact% To% New% File 
									    NC.FileBrowserCompact 
					      "Compacts selected Notefiles copying to new files.")
								      (Compact% In% Place
									(NC.FileBrowserCompact
									  (QUOTE InPlace))
									
					   "Compacts selected Notefiles w/o copyig to new files.")))
						   (Inspect&Repair NC.FileBrowserInspect&Repair 
					    "Inspects and optionally repairs selected Notefiles."
								   (SUBITEMS
								     (Read% Substances
								       (NC.FileBrowserInspect&Repair
									 (QUOTE ReadSubstances))
								       
"Inspects and optionally repairs selected Notefiles, but reads every substance.  This slows things WAY down."
								       )))
						   (Copy FB.COPYCOMMAND 
					"Copies given notefile(s) to target file (or directory).")
						   (Rename FB.RENAMECOMMAND 
					 "Moves given notefile(s) to target file (or directory)."]
					 (NC.FileBrowserExpungeMenuItem (QUOTE (Expunge 
									    NC.FileBrowserExpunge 
			 "Permanently removes from the file system all files marked for deletion")))
					 (NC.FileBrowserRecomputeMenuItem
					   (QUOTE (Recompute FB.UPDATECOMMAND 
				       "Recomputes set of notefiles satisfying selection pattern"
							     (SUBITEMS ("Same Pattern" 
										 FB.UPDATECOMMAND 
					     "Recomputes set of files satisfying current pattern")
								       ("New Pattern" 
							    NC.FileBrowserRecomputeWithNewPattern 
					"Prompts for a new selection pattern and updates browser")
								       ("New Info" FB.NEWINFOCOMMAND 
					   "Change the set of file attributes that are displayed"]
	   (* * Build the menu items for notecards file browser.)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.FileBrowserMenuItems
					   (APPEND NC.FileBrowserMenuItemsToAdd
						   (for MenuItem in FB.MENU.ITEMS when
							(FMEMB (CAR MenuItem)
							       NC.FileBrowserMenuItemsToKeep)
							collect
							(if (EQ (CAR MenuItem)
								(QUOTE Recompute))
							    then NC.FileBrowserRecomputeMenuItem else 
							    MenuItem))
						   (LIST NC.FileBrowserExpungeMenuItem)
						   (for MenuItem in FB.MENU.ITEMS unless
							(OR (FMEMB (CAR MenuItem)
								   NC.FileBrowserMenuItemsToRemove)
							    (FMEMB (CAR MenuItem)
								   NC.FileBrowserMenuItemsToKeep))
							collect MenuItem]
	   [INITVARS (NC.FileBrowserPatterns NIL)
		     (NC.FileBrowserDefaultPatterns (QUOTE ({DSK}*.NOTEFILE;*]
	   (* * Functions called from file browser menu.)
	   (FNS NC.FileBrowserOpen NC.FileBrowserClose NC.FileBrowserCheckpoint NC.FileBrowserAbort 
		NC.FileBrowserCompact NC.FileBrowserInspect&Repair NC.FileBrowserExpunge 
		NC.GetFileBrowserPattern NC.FileBrowserRecomputeWithNewPattern 
		NC.FindFileBrowserWinForPattern)
	   (FNS NC.FlashFileBrowserWin)))

(PUTPROPS NCDATABASE FileComs [(* * Internal variables)
	   (GLOBALVARS NC.LockLock NC.SessionProcessInProgress NC.SessionOperationInProgress 
		       NC.NoteFileBusyList NC.CardBusyList NC.LinksIdentifier NC.ItemIdentifier 
		       NC.TitlesIdentifier NC.PropsIdentifier NC.IdentifierAtoms 
		       NC.DatabaseFileNameSuggestion NC.VersionNumber NC.InitialLinkLabels 
		       NC.DataFormatVersionNumber NC.DateStringLength NC.ClippedIdentifierAtoms 
		       NC.MainMenu NC.OrigReadTable NC.TEditPasswordDividedBy100 
		       NC.NoteFileVersionsList NC.NoteFilesHashArray NC.NoteFilesHashArraySize 
		       NC.UIDCtr NC.LastNoteFileOpened NC.CopyCardsLinksHashArraySize 
		       NC.CopyBrowserHashArraySize NC.IndexFractionToExpandBy)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.VersionNumber 3)
					 (NC.LinksIdentifier (QUOTE ###LINKS#))
					 (NC.ItemIdentifier (QUOTE ###ITEM#))
					 (NC.TitlesIdentifier (QUOTE ###TITLES#))
					 (NC.PropsIdentifier (QUOTE ###PROPS#))
					 (NC.IdentifierAtoms (LIST NC.LinksIdentifier 
								   NC.ItemIdentifier 
								   NC.TitlesIdentifier 
								   NC.PropsIdentifier))
					 (NC.LastNoteFileOpened NIL)
					 (NC.NoticedNoteFileNames NIL)))
	   (INITVARS (NC.LockLock (CREATE.MONITORLOCK "NoteCards Meta-lock"))
		     (NC.SessionProcessInProgress NIL)
		     (NC.SessionOperationInProgress NIL)
		     (NC.NoteFileBusyList NIL)
		     (NC.CardBusyList NIL)
		     (NC.OrigReadTable (COPYREADTABLE (QUOTE ORIG)))
		     (NC.NoteFilesHashArraySize 50)
		     (NC.UIDCtr 0)
		     (NC.CopyCardsLinksHashArraySize 100)
		     (NC.CopyBrowserHashArraySize 100)
		     (NC.IndexFractionToExpandBy .5))
	   (* Vars for date stuff.)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.DataFormatVersionNumber 1)
					 (NC.DateStringLength 18)
					 (NC.ClippedIdentifierAtoms (for Atom in NC.IdentifierAtoms 
									 collect
									 (SUBATOM Atom 1 -3]
	   (* * The Notecard Database)
	   (DECLARE: DONTCOPY (RECORDS MONITORLOCK WORD))
	   (* * Implementing the notefile device vector)
	   (RECORDS NoteFileDevice)
	   (FNS NC.CompactNoteFile NC.RemoteHostP NC.DeviceVectorForHost NC.InspectAndRepairNoteFile 
		NC.InstallDeviceVectorInNoteFile)
	   (GLOBALVARS NC.DeviceVectorsHashArray NC.OpenLocalNoteFilesPublicOrPrivate)
	   (INITVARS (NC.DeviceVectorsHashArray (HASHARRAY 10))
		     (NC.OpenLocalNoteFilesPublicOrPrivate (QUOTE PRIVATE)))
	   (* * Creating a NoteFile)
	   (FNS NC.CreateDatabaseFile NC.CreateNoteFile NC.InitializeSpecialCards 
		NC.InitializeSpecialCard)
	   (* * Opening a NoteFile)
	   (FNS NC.NoteFileOpenP NC.OpenDatabaseFile NC.OpenNoteFile NC.CacheTypesAndTitles 
		NC.AskUserAboutTruncation NC.InstallCriticalUIDsInNoteFile 
		NC.ProcessInspectAndRepairRequest NC.ProcessNoteFileNotFoundError 
		NC.ProcessTruncationRequest NC.ProcessNoteFileNeedsConversionError 
		NC.ProcessNoteFileNeedsTruncationError)
	   (RECORDS NoteFileCriticalUIDs)
	   (GLOBALVARS NC.OpenNoteFileFns NC.CloseNoteFileFns)
	   (INITVARS NC.OpenNoteFileFns NC.CloseNoteFileFns)
	   (* * Open events card)
	   (FNS NC.RunOpenEvents NC.RunCloseEvents)
	   (DECLARE: DONTEVAL@LOAD (ADDVARS (NC.OpenNoteFileFns NC.RunOpenEvents)
					    (NC.CloseNoteFileFns NC.RunCloseEvents)))
	   (* * closing notefiles.)
	   (FNS NC.CloseDatabaseFile NC.CloseNoteFile NC.CloseListOfActiveCards NC.CleanupCardObjects)
	   (GLOBALVARS NC.CloseNoteFileFns)
	   (INITVARS NC.CloseNoteFileFns)
	   (* * Checkpointing)
	   (FNS NC.CheckpointDatabase NC.CheckpointNoteFile NC.SaveDirtyCards)
	   (* * Aborting an open NoteFile)
	   (FNS NC.AbortSession NC.ForceDatabaseClose)
	   (* * Stuff to handle read-only notefiles.)
	   (FNS NC.ReadOnlyNoteFileP NC.CheckForNotReadOnly)
	   (* * Other database operations.)
	   (* see also NCCOMPACT)
	   (FNS NC.DeleteDatabaseFile NC.CopyNoteFile NC.RenameNoteFile NC.RemoveAccessToNoteFile)
	   (* * Functions for getting stuff off the notefile. These manipulate file pointer so run 
	      with monitor lock.)
	   (MACROS NC.DoCardPartFn)
	   (FNS NC.GetNoteCard NC.GetMainCardData NC.GetLinks NC.GetTitle NC.GetPropList NC.GetType 
		NC.GetSpecialCards)
	   (FNS NC.FetchSpecialCards)
	   (* * Functions for putting stuff on the notefile. These manipulate file pointer so run 
	      with monitor lock.)
	   (FNS NC.PutNoteCard NC.PutMainCardData NC.PutLinks NC.PutFromLinks NC.PutRegion 
		NC.PutTitle NC.PutPropList NC.PutNoteFileHeader NC.PutCheckptPtr)
	   (* * Functions for reading things off the notefile. Expect file pointer to already be set.)
	   (FNS NC.ReadCardPartHeader NC.ReadIdentifier NC.ReadRegion NC.ReadListOfLinks NC.ReadUID 
		NC.ReadDate NC.ReadCardType NC.ReadTitle NC.ReadPropList NC.ReadLink)
	   (* * Functions for writing things on the notefile. Expect file pointer to already be set.)
	   (FNS NC.WriteCardPartHeader NC.WriteIdentifier NC.WriteRegion NC.WriteListOfLinks 
		NC.WriteUID NC.WriteDate NC.WriteCardType NC.WriteTitle NC.WritePropList NC.WriteLink)
	   (* * The NoteFile object, Notefiles hash array and accompanying functions.)
	   (RECORDS NoteFile)
	   (FNS NC.NoteFileFromNoteFileUID NC.FetchTopLevelCards NC.StoreNoteFileInHashArray 
		NC.RemoveNoteFile NC.TotalIndexSize NC.NoteFileLocFromIndexNum NC.FetchMonitor 
		NC.SetMonitor NC.SameNoteFileP NC.ListOfNoteFiles NC.NoteFileFromFileName)
	   (FNS NC.RemoveNoteFileFromHashArray NC.RemoveNoteFileName NC.NoticeNoteFile 
		NC.NoticeNoteFileName NC.NoticedNoteFileNamesMenu NC.NoteFileNoticedP)
	   (* * Stuff for dealing with the hash array.)
	   (FNS NC.InstallCardInNoteFile NC.CardFromUID)
	   (FNS NC.MakeHashKey NC.CreateUIDHashArray)
	   (INITVARS (NC.NoteFilesHashArray (NC.CreateUIDHashArray NC.NoteFilesHashArraySize)))
	   (* * Stuff for dealing with CardLocs.)
	   (FNS NC.SetStatus NC.SetMainLoc NC.SetLinksLoc NC.SetTitleLoc NC.SetPropListLoc)
	   (* * The version object.)
	   (RECORDS NoteFileVersion)
	   [DECLARE: DONTEVAL@LOAD
		     (VARS (NC.NoteFileVersionsList (LIST (create NoteFileVersion Version ← 3 
								  NumberOfReservedCards ← 20 
								  NoteFileIndexWidth ← 28 
								  NoteFileHeaderSize ← 30]
	   (FNS NC.FetchCurrentVersionObject)
	   (* * Stuff for copying cards from one notefile to another, or to the same.)
	   (RECORDS IndexLocs)
	   (RECORDS CardPartRecord)
	   (FNS NC.CopyCards NC.MoveCards NC.PutNoteCardToStream NC.GetNoteCardFromStream 
		NC.MakeHashKeyFromCard)
	   (FNS NC.CopyCardPart NC.ExpandIndexInPlace NC.CheckForExpandIndex NC.FindNextCardPart 
		NC.SearchFor### NC.RobustReadItemIdentifier NC.RobustReadDate NC.RobustReadUID 
		NC.RobustReadChar NC.RobustReadByte NC.RobustRead NC.CopyCardPartInPlaceToEOF 
		NC.UpdateIndexLocIfNeeded)
	   (FNS NC.FixUpLinksInCardCopy NC.FixUpBrowserCardCopy NC.BrowserCopyConvertGraphNodeID)
	   (* * Traversal specs, should be in an NCTRAVERSAL module.)
	   (RECORDS TRAVERSALSPECS)
	   (GLOBALVARS NC.TraversalSpecsStylesheet)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.TraversalSpecsStylesheet (CREATE.STYLE
									(QUOTE ITEMS)
									(LIST (create MENU ITEMS ← T))
									(QUOTE SELECTIONS)
									(QUOTE (T))
									(QUOTE ITEM.TITLES)
									(QUOTE (Forward% Links 
										  Backward% Links 
											    Depth))
									(QUOTE ITEM.TITLE.FONT)
									(FONTCOPY MENUFONT
										  (QUOTE WEIGHT)
										  (QUOTE BOLD))
									(QUOTE NEED.NOT.FILL.IN)
									(QUOTE (MULTI MULTI NIL))
									(QUOTE TITLE)
									"Include cards at:"]
	   (FNS NC.AskTraversalSpecs)
	   (* * UIDs)
	   (GLOBALVARS NC.UIDBasis)
	   (INITVARS (NC.UIDBasis NIL))
	   (RECORDS UID)
	   (FNS NC.MakeUID NC.InitializeUID NC.SameUIDP)
	   (FNS NC.UIDPutProp NC.UIDGetProp NC.UIDSetPropList NC.UIDGetPropList NC.UIDAddProp 
		NC.UIDRemProp)
	   (* * This stuff makes it possible for UIDs encountered by PRINT when writing card's 
	      proplists, to be written down in a way that can be read back by READ.)
	   (GLOBALVARS NC.VerticalBarREADTABLE)
	   (FNS NC.BuildVerticalBarREADTABLE)
	   (INITVARS (NC.VerticalBarREADTABLE (NC.BuildVerticalBarREADTABLE)))
	   (FNS NC.ReassembleUID NC.DisassembleUID)
	   [DECLARE: DONTEVAL@LOAD (P (DEFPRINT (QUOTE UID)
						(FUNCTION NC.DisassembleUID]
	   (* * contention lock machinery)
	   (FNS NC.NoteFileProp NC.NoteFileAddProp NC.NoteFileDelProp)
	   (FNS NC.PrintOperationInProgressMsg NC.CardOperationsInProgress NC.OperationInProgress 
		NC.CardCheckOpInProgress NC.NoteFileCheckOpInProgress NC.SessionCheckOpInProgress 
		NC.SessionToNoteFileLock NC.LockListOfCards NC.ResetCardProcessInProgress 
		NC.SwitchNoteFileLock)
	   (MACROS NC.ProtectedCardOperation NC.ProtectedNoteFileOperation 
		   NC.ProtectedSessionOperation NC.IfAllCardsFree)
	   (* * Miscellaneous.)
	   (FNS NC.GetNewCard NC.DatabaseFileName NC.WriteStatus NC.TotalCardsInNoteFile)
	   (MACROS NC.ReadPtr NC.WritePtr NC.ReadStatus)
	   [DECLARE: DONTEVAL@LOAD (ADDVARS (HPRINTMACROS (FONTDESCRIPTOR . WRITE.FONTDESCRIPTOR]
	   (FNS WRITE.FONTDESCRIPTOR READ.FONTINTODESCRIPTOR)
	   [DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.FindNextCardPart)
							      (QUOTE NCREPAIR)
							      (QUOTE NOTECARDSDIRECTORIES]
	   (* * The following aren't called anymore, but are saved for reference purposes.)
	   (MACROS NC.GetPtr NC.PutPtr NC.GetStatus NC.PutStatus)
	   (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
										 (NLAML)
										 (LAMA 
										  NC.NoteFileProp])

(PUTPROPS NCLOCALDEVICE FileComs [(* * Implements Local Single User Device)
	   (* * The LOCALSINGLEUSER device vector.)
	   [COMS (* The basic device vector functions.)
		 (FNS NCLocalDevice.OpenNoteFile NCLocalDevice.CloseNoteFile 
		      NCLocalDevice.CreateNoteFile NCLocalDevice.CompactNoteFile 
		      NCLocalDevice.InspectAndRepairNoteFile NCLocalDevice.BuildHashArray 
		      NCLocalDevice.NoteFileOpenP NCLocalDevice.CheckpointNoteFile 
		      NCLocalDevice.ConvertNoteFileFormat NCLocalDevice.TruncateNoteFile 
		      NCLocalDevice.NewCardUID NCLocalDevice.MarkCardDeleted 
		      NCLocalDevice.GetCardInfo NCLocalDevice.PutCardPart NCLocalDevice.GetCardPart 
		      NCLocalDevice.ObtainWritePermission NCLocalDevice.ReleaseWritePermission 
		      NCLocalDevice.CancelCacheSubscription NCLocalDevice.DeleteNoteFile)
		 (* Install the device vector.)
		 (GLOBALVARS NC.DeviceVectorsHashArray)
		 (DECLARE: DONTEVAL@LOAD (P (PUTHASH (QUOTE LOCALSINGLEUSER)
						     (create NoteFileDevice OpenNoteFileFn ←
							     (FUNCTION NCLocalDevice.OpenNoteFile)
							     CloseNoteFileFn ←
							     (FUNCTION NCLocalDevice.CloseNoteFile)
							     CreateNoteFileFn ←
							     (FUNCTION NCLocalDevice.CreateNoteFile)
							     DeleteNoteFileFn ←
							     (FUNCTION NCLocalDevice.DeleteNoteFile)
							     CompactNoteFileFn ←
							     (FUNCTION NCLocalDevice.CompactNoteFile)
							     RepairNoteFileFn ←
							     (FUNCTION 
							   NCLocalDevice.InspectAndRepairNoteFile)
							     BuildHashArrayFn ←
							     (FUNCTION NCLocalDevice.BuildHashArray)
							     NoteFileOpenPFn ←
							     (FUNCTION NCLocalDevice.NoteFileOpenP)
							     CheckpointNoteFileFn ←
							     (FUNCTION 
								 NCLocalDevice.CheckpointNoteFile)
							     ConvertNoteFileFormatFn ←
							     (FUNCTION 
							      NCLocalDevice.ConvertNoteFileFormat)
							     TruncateNoteFileFn ←
							     (FUNCTION NCLocalDevice.TruncateNoteFile)
							     NewCardUIDFn ← (FUNCTION 
									 NCLocalDevice.NewCardUID)
							     MarkCardDeletedFn ←
							     (FUNCTION NCLocalDevice.MarkCardDeleted)
							     GetCardInfoFn ← (FUNCTION 
									NCLocalDevice.GetCardInfo)
							     PutCardPartFn ← (FUNCTION 
									NCLocalDevice.PutCardPart)
							     GetCardPartFn ← (FUNCTION 
									NCLocalDevice.GetCardPart)
							     ObtainWritePermissionFn ←
							     (FUNCTION 
							      NCLocalDevice.ObtainWritePermission)
							     ReleaseWritePermissionFn ←
							     (FUNCTION 
							     NCLocalDevice.ReleaseWritePermission)
							     CancelCacheSubscriptionFn ←
							     (FUNCTION 
							    NCLocalDevice.CancelCacheSubscription))
						     NC.DeviceVectorsHashArray]
	   (* * Version information for LOCALSINGLEUSER device.)
	   [COMS (GLOBALVARS NCLocalDevice.NoteFileVersionsList 
			     NCLocalDevice.CurrentNoteFileVersionNumber)
		 (FNS NCLocalDevice.CurrentVersion)
		 (DECLARE: DONTEVAL@LOAD
			   (VARS (NCLocalDevice.CurrentNoteFileVersionNumber 3)
				 (NCLocalDevice.NoteFileVersionsList (LIST (create NoteFileVersion 
										   Version ← 3 
									    NumberOfReservedCards ← 
										   20 
									       NoteFileIndexWidth ← 
										   28 
									       NoteFileHeaderSize ← 
										   30]
	   (* * Supporting functions and variables)
	   (COMS (FNS NCLocalDevice.GetNoteFileHeader NCLocalDevice.GetHashArray 
		      NCLocalDevice.GetSpecialCardUIDs NCLocalDevice.PutNoteFileHeader 
		      NCLocalDevice.PutHashArray NCLocalDevice.PutIndexEntry 
		      NCLocalDevice.NoteFileVersionOkayP 
		      NCLocalDevice.CheckForPlausibleNoteFileHeader 
		      NCLocalDevice.NoteFileNeedsTruncationP NCLocalDevice.OpenFailed 
		      NCLocalDevice.ReadIndexEntry NCLocalDevice.SaveInformationPastCheckpoint 
		      NCLocalDevice.PutFromLinks NCLocalDevice.TotalNoteFileIndexSize))
	   (DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengerPhase1)
							      (QUOTE NCREPAIR)
							      (QUOTE NOTECARDSDIRECTORIES))
				      (NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileInPlace)
							      (QUOTE NCCOMPACT)
							      (QUOTE NOTECARDSDIRECTORIES))
				      (NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileToTarget)
							      (QUOTE NCCOMPACT)
							      (QUOTE NOTECARDSDIRECTORIES])

(PUTPROPS NCCOMPACT FileComs ((* File created by KELLEY)
				(* * NoteFile compactor.)
				(RECORDS SortingRecord)
				(FNS NC.GetCardPartLength NC.SortIndexEntries NC.UpdateCardLoc)
				(* * Compact to target)
				(FNS NC.CompactNoteFileToTarget NC.CopySortedCardPart 
				     NC.CopySortedCardParts NC.ComputeNewDatabaseIndexSize)
				(* * Compact in place)
				(FNS NC.CompactNoteFileInPlace NC.CopySortedCardPartInPlace)))

(PUTPROPS NCREPAIR FileComs [(* * Scavenger mechanisms)
	   (GLOBALVARS NC.TitlesIdentifier NC.PropsIdentifier NC.LinksIdentifier NC.ItemIdentifier 
		       NC.CardInspectorAttachedMenuFont NC.IdentifierAtoms NC.LightShade 
		       NC.IndexArrayOffsets NC.ScavengerInteractionWinRegion 
		       NC.ScavengerCriticalOffsets NC.OffScreenPosition NC.CardsPerMenuLimit 
		       NC.ScavengerAttachedMenuFont NC.NumCharsOfTitleToShow)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.IndexArrayOffsets (QUOTE (3 1 2 4)))
					 (NC.ScavengerCriticalOffsets (QUOTE (1 2)))
					 (NC.CardInspectorAttachedMenuFont (FONTCREATE (QUOTE 
											HELVETICA)
										       12
										       (QUOTE BOLD)))
					 (NC.LightShade 4096)
					 (NC.OffScreenPosition (CONS 1500 1500))
					 (NC.ScavengerInteractionWinRegion
					   (CREATEREGION (fetch (POSITION XCOORD)
								of NC.OffScreenPosition)
							 (fetch (POSITION YCOORD)
								of NC.OffScreenPosition)
							 400 250))
					 (NC.CardsPerMenuLimit 200)
					 (NC.ScavengerAttachedMenuFont (FONTCREATE (QUOTE HELVETICA)
										   12
										   (QUOTE BOLD)))
					 (NC.NumCharsOfTitleToShow 10)))
	   (* * Phase 3 scavenger stuff.)
	   (FNS NC.ScavengeDatabaseFile)
	   (* * Top level functions.)
	   (FNS NC.ScavengerPhase1 NC.ScavengerCleanup NC.CheckUnknownCardTypes 
		NC.RepositionWindowIfNeeded NC.MessageWinAttachedMenuWhenSelectedFn 
		NC.MessageWinCloseFn)
	   (* * Functions for getting the scavenger info for all valid card parts and reading things 
	      in the data area robustly.)
	   (FNS NC.GetScavengerInfo NC.RobustReadCardPart NC.CheckForValidSubstance NC.AtEndOfItemP 
		NC.RobustReadString NC.RobustReadList NC.RobustReadLinks NC.RobustReadAtom 
		NC.RobustReadRegion NC.RobustGetSubstance)
	   (* * Functions for accessing scavenger info for a card.)
	   (FNS NC.SetScavengerInfo NC.SetScavengerTitleInfo NC.SetScavengerMainDataInfo 
		NC.SetScavengerLinksInfo NC.SetScavengerPropListInfo NC.FetchScavengerInfo 
		NC.FetchScavengerTitleInfo NC.FetchScavengerMainDataInfo NC.FetchScavengerLinksInfo 
		NC.FetchScavengerPropListInfo NC.FetchTypeFromScavengerInfo 
		NC.FetchTitleFromScavengerInfo)
	   (* * Functions for building bad cards list based on the index array and scavenger array.)
	   (FNS NC.BuildBadCardsList NC.WorthlessCardP NC.CheckIndexLocs NC.CheckIndexLoc 
		NC.CheckForLocBeyondCheckptPtr NC.EncodeCardProblems)
	   (* * Functions for interacting with the user.)
	   (FNS NC.BuildCardInspectorMenu NC.CardInspectorCloseFn NC.CardInspectorRepaintFn 
		NC.CardInspectorMenuWhenSelectedFn NC.CardInspectorAttachedMenuWhenSelectedFn 
		NC.BuildCardPartsInspector NC.CardPartsAttachedMenuWhenSelectedFn 
		NC.BuildTitlesInspectorMenu NC.BuildSubstancesInspectorMenu 
		NC.BuildLinksInspectorMenu NC.BuildPropListsInspectorMenu 
		NC.CardPartsMenusWhenSelectedFn NC.CardTitleVersionInspector 
		NC.CardSubstanceVersionInspector NC.CardLinksVersionInspector 
		NC.CardPropListVersionInspector NC.CloseInspectorWindows)
	   (* * Miscellaneous.)
	   (FNS NC.CheckForBadLinksAndTitlesAndPropLists NC.UndeletableCardP NC.ShaveTitleString 
		NC.SortCardsBySlotNums)
	   (RECORDS ScavengerInfo LINKSDATA TITLEDATA PROPLISTDATA)
	   (* * Possible reasons for bad card parts.)
	   (DECLARE: DONTEVAL@LOAD (P (PUTPROP (QUOTE BADMAINDATA)
					       (QUOTE ReasonString)
					       "improper main card data.")
				      (PUTPROP (QUOTE BADLINKS)
					       (QUOTE ReasonString)
					       "improper links data.")
				      (PUTPROP (QUOTE BADTITLE)
					       (QUOTE ReasonString)
					       "improper title data.")
				      (PUTPROP (QUOTE BADPROPLIST)
					       (QUOTE ReasonString)
					       "improper prop list data.")
				      (PUTPROP (QUOTE MAINDATAPASTCHKPT)
					       (QUOTE ReasonString)
					       "main card data beyond chkpt pointer.")
				      (PUTPROP (QUOTE LINKSPASTCHKPT)
					       (QUOTE ReasonString)
					       "links beyond chkpt pointer.")
				      (PUTPROP (QUOTE TITLEPASTCHKPT)
					       (QUOTE ReasonString)
					       "title beyond chkpt pointer.")
				      (PUTPROP (QUOTE PROPLISTPASTCHKPT)
					       (QUOTE ReasonString)
					       "prop list beyond chkpt pointer.")
				      (PUTPROP (QUOTE UNKNOWNCARDTYPE)
					       (QUOTE ReasonString)
					       "card type definition not loaded.")))
	   (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
										 (NLAML)
										 (LAMA])

(PUTPROPS NCCARDS FileComs ((* * Internal variables)
	   (GLOBALVARS NC.SubBoxMarkerLabel NC.FiledCardMarkerLabel NC.PlaceMarkerDisplayFont 
		       USERNAME NC.SavePropEditMenu TEDIT.SELPENDING NC.SystemLinkLabels 
		       NC.SourceLinkLabel NC.FiledCardLinkLabel NC.CloseCardsOffScreenFlg 
		       NC.BringUpCardAtOldPosFlg NC.DefaultLinkIconAttachedBitMapHeights 
		       NC.SystemCardPropNames NC.UnknownLinkIconAttachedBitMap 
		       NC.UnknownLinkIconAttachedBitMaps)
	   (BITMAPS NC.UnknownLinkIconAttachedBitMap)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.SubBoxMarkerLabel "File Boxes")
					 (NC.FiledCardMarkerLabel "Note Cards")
					 (NC.PlaceMarkerDisplayFont (FONTCREATE (QUOTE HELVETICA)
										12
										(QUOTE ITALIC)))
					 (NC.SystemCardPropNames (QUOTE (Updates]
	   (INITVARS (NC.DefaultLinkIconAttachedBitMapHeights (QUOTE (11 13 15 17 18 19 20 21 23 25)))
		     (NC.UnknownLinkIconAttachedBitMaps NC.UnknownLinkIconAttachedBitMap))
	   (* * The Card Objects)
	   (RECORDS CardObject CardCache Card LinksCache)
	   (FNS NC.CardOrCardHolderFromUID NC.CardP NC.DeleteNoteCard NC.DeleteNoteCardInternal 
		NC.SameCardP)
	   (* * Manipulate Note Card Representations)
	   (FNS NC.FetchStatus NC.SetNewCardFlg NC.FetchNewCardFlg NC.ActivateCard NC.ActiveCardP 
		NC.DeactivateCard NC.FetchFromLinks NC.FetchGlobalLinks NC.FetchLinksDirtyFlg 
		NC.FetchPropList NC.FetchRegion NC.FetchSavedRegion NC.FetchRegionViewed 
		NC.FetchScale NC.FetchSlotNum NC.FetchSubstance NC.FetchTitle NC.FetchToLinks 
		NC.FetchType NC.FetchWindow NC.IDP NC.MarkCardDirty NC.CardDirtyP NC.SetFromLinks 
		NC.SetGlobalLinks NC.SetLinksDirtyFlg NC.SetPropList NC.SetRegion NC.SetSavedRegion 
		NC.SetRegionViewed NC.SetScale NC.SetSubstance NC.SetTitle NC.SetToLinks NC.SetType 
		NC.FetchTitleDirtyFlg NC.SetTitleDirtyFlg NC.FetchPropListDirtyFlg 
		NC.SetPropListDirtyFlg NC.SetSubstanceDirtyFlg NC.FetchSubstanceDirtyFlg 
		NC.TurnOffDirtyFlgs NC.FetchUserDataProp NC.SetUserDataProp NC.SetUserDataPropList 
		NC.MakeTypeIconBitMapSet NC.MakeNewCardWindow)
	   (* * Read subscriptions and write locks on card parts)
	   (FNS NC.ObtainEditPermission NC.CardPartBusy)
	   (MACROS NC.WithWritePermission NC.IfCardPartNotBusy NC.IfMultipleCardPartsNotBusy)
	   (* * Stuff to handle read-only notefiles.)
	   (FNS NC.ReadOnlyCardP NC.CardSomehowDirtyP)
	   (* * Hash Array Handler)
	   (MACROS NC.MapCards)
	   (* * Retrieve Note Card Info)
	   (FNS NC.RetrieveFromLinks NC.RetrieveLinkLabels NC.StoreLinkLabels NC.RetrievePropList 
		NC.RetrieveTitle NC.RetrieveToLinks NC.RetrieveGlobalLinks NC.RetrieveType 
		NC.RetrieveTypeAndTitle NC.LinksCachedP NC.ShowInfo)
	   (* * General note card manipulations)
	   (FNS NC.AddParents NC.SeverExternalLinks NC.AssignTitle NC.DeleteNoteCards 
		NC.CardsToDelete NC.EditNoteCard NC.MakeNoteCard NC.QuitCard NC.CheckFiling 
		NC.CheckTitle NC.ForceFilingForCardTypeP NC.InsureProperFiling NC.QuitWithoutSaving 
		NC.UnfileNoteCard NC.UpdateUpdateList NC.CollectReferences NC.CardSaveFn 
		NC.DetermineDisplayRegion NC.AbortCard NC.CardNeedsFilingP NC.TopLevelCardP 
		NC.MakeDummyRegion NC.ValidCardP NC.TitleBarButtonEventFn 
		NC.InstallTitleBarMiddleMenu)
	   (* * Prop List Editor)
	   (RECORDS PropListItem)
	   (FNS NC.AddPropToPropList NC.CloseAllPropListEditors NC.ClosePropListEditor 
		NC.DelPropFromList NC.EditPropButtonFN NC.EditProperties NC.EditPropList 
		NC.ExtractPropList NC.OpenPropListEditor NC.ProcessEditedPropList 
		NC.PropListEditorOpenP NC.SelectProperty NC.ShowLinks NC.StringIsListP NC.PutProp 
		NC.GetProp NC.RemProp)
	   (* * Unknown ?????????)
	   (FNS NC.FetchBeingDeletedFlg NC.SetBeingDeletedFlg NC.RemoveDELETEMEImageObjsFromCard 
		NC.InsureIntegerDate)
	   (* * Place marker ImageObjects)
	   (FNS NC.PlaceMarkerCopyFn NC.PlaceMarkerDisplayFn NC.PlaceMarkerGetFn 
		NC.PlaceMarkerImageBoxFn NC.PlaceMarkerPutFn NC.MakePlaceMarker)
	   (* * Functions for handling dates.)
	   (FNS NC.FetchTitleDate NC.FetchItemDate NC.FetchPropListDate NC.FetchLinksDate 
		NC.FetchLinkIconAttachedBitMap NC.FetchLinkDisplayMode NC.FetchDefaultWidth 
		NC.FetchDefaultHeight NC.FetchLinkAnchorModesSupported)
	   (FNS NC.SetTitleDate NC.SetItemDate NC.SetPropListDate NC.SetLinksDate)))

(PUTPROPS NCLINKS FileComs ((* * Internal variables)
	   (GLOBALVARS NC.LinkIconSpaceInterLine NC.FileBoxLinkSpacer NC.NoDeleteImageFns 
		       NC.SystemLinkLabels NC.InitialLinkLabels NC.SubBoxLinkLabel 
		       NC.FiledCardLinkLabel NC.BrowserContentsLinkLabel NC.ListContentsLinkLabel 
		       NC.UnspecifiedLinkLabel NC.UCASESystemLinkLabels NC.DocBackPtrLinkLabel 
		       NC.LinkIndexBackPtrLinkLabel NC.LinkIconImageFns NC.LinkIconMiddleButtonMenu 
		       NC.LinkDisplayModesStylesheet NC.LinkIconBorderWidth NC.LinkIconSpaceOuterY 
		       NC.LinkIconSpaceInnerY NC.LinkIconSpaceOuterX NC.LinkIconSpaceInnerX 
		       NC.OrphanID MINIMUM.VISIBLE.SCALE.FACTOR DEFAULT.VISIBLE.SCALE.FACTOR 
		       TEDIT.DEFAULT.FONT)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.SubBoxLinkLabel (QUOTE SubBox))
					 (NC.FiledCardLinkLabel (QUOTE FiledCard))
					 (NC.BrowserContentsLinkLabel (QUOTE BrowserContents))
					 (NC.ListContentsLinkLabel (QUOTE ListContents))
					 (NC.UnspecifiedLinkLabel (QUOTE Unspecified))
					 (NC.DocBackPtrLinkLabel (QUOTE DocBackPtr))
					 (NC.LinkIndexBackPtrLinkLabel (QUOTE LinkIndexBackPtr))
					 (NC.SystemLinkLabels (LIST NC.ListContentsLinkLabel 
								    NC.BrowserContentsLinkLabel 
								    NC.FiledCardLinkLabel 
								    NC.SubBoxLinkLabel 
								    NC.DocBackPtrLinkLabel 
								    NC.LinkIndexBackPtrLinkLabel))
					 (NC.UCASESystemLinkLabels (FOR Label in NC.SystemLinkLabels 
									collect (U-CASE Label)))
					 (NC.InitialLinkLabels (APPEND (QUOTE (Comment See 
										      Unspecified))
								       NC.SystemLinkLabels]
	   (INITVARS (NC.LinkIconSpaceInterLine 0)
		     (NC.LinkIconBorderWidth 1)
		     (NC.LinkIconSpaceOuterY 2)
		     (NC.LinkIconSpaceInnerY 1)
		     (NC.LinkIconSpaceOuterX 2)
		     (NC.LinkIconSpaceInnerX 3)
		     (NC.FileBoxLinkSpacer (CHARACTER 13)))
	   (* * Links mechanism)
	   (RECORDS Link LINKDISPLAYMODE)
	   (FNS NC.GlobalLinkP NC.ChildLinkP NC.ContentsLinkP NC.SubContentsLinkP 
		NC.ReverseLinkLabelP NC.MakeGlobalLink NC.AddFromLink NC.AddLinkToGraphCard 
		NC.AddLinkToSketchCard NC.InsertLinkInSketch NC.InsertLinkInText NC.AddToLink 
		NC.CachedAddToLink NC.DelFromLink NC.CachedDelFromLink NC.DelToLink 
		NC.DelReferencesToCard NC.DelReferencesToCardFromGlobalList NC.DeleteLink 
		NC.DeleteToLink NC.DeleteFromLink NC.DeletedLinkDisplayFn NC.DeletedLinkGetFn 
		NC.DeletedLinkImageBoxFn NC.DeletedLinkPutFn NC.DeletedLinkImageObjP NC.DeleteBadLink 
		NC.ReplaceWithDeletedLinkImageObj NC.CheckForOrphanDelete NC.FileInOrphanBox 
		NC.HookToOrphanCard NC.InsertLinkBeforeMarker NC.LinkLabelP NC.IDAlphOrder 
		NC.MakeLink NC.CachedMakeFilingLink NC.MakeFilingLink NC.MakeFilingLinks 
		NC.RelabelLink NC.SystemLinkLabelP NC.ValidLinkP NC.MakeChildLink NC.EnsureNoCycles 
		NC.SameLinkP NC.SameLinksP NC.AddGlobalLinkToCard NC.AddGlobalLinksToCard 
		NC.ChangeCardTitleFromLinkIcon NC.UncacheLinks NC.TraverseLink 
		NC.CreateLinkIconStrings)
	   (FNS NC.AddLinkToCard NC.AddLinksToCard)
	   (FNS NC.DelReferencesToCardFromShowLinks NC.UpdateLinkImagesInShowLinks 
		NC.FetchShowLinksWindow NC.ChangeLinkLabelInShowLinksWin)
	   (* * New Display Mode format)
	   (FNS NC.CheckDisplayModeFormat NC.InsureLinkDisplayMode NC.MakeNewDisplayMode 
		NC.DisplayModeFromStylesheetSelections NC.StylesheetSelectionsFromDisplayMode)
	   (GLOBALVARS NC.MenuItems/DisplayModeValues)
	   [DECLARE: DONTEVAL@LOAD
		     (VARS (NC.MenuItems/DisplayModeValues (QUOTE (Yes T No NIL Float FLOAT Yes T No 
								       NIL Float FLOAT Yes T No NIL 
								       Float FLOAT]
	   (* * New fns to support No-Link cards/substances)
	   (FNS NC.LinksSupportedP)
	   (* * Link display icons)
	   (FNS NC.FetchLinkIconForLink NC.MakeLinkIcon NC.LinkIconButtonEventInFn 
		NC.LinkIconDisplayFn NC.LinkIconImageBoxFn NC.LinkIconImageObjP NC.LinkIconPutFn 
		NC.LinkIconGetFn NC.LinkIconMiddleButtonFn NC.LinkIconWhenCopiedFn 
		NC.LinkIconWhenDeletedFn NC.LinkIconWhenInsertedFn NC.LinkIconWhenMovedFn 
		NC.FetchLinkFromLinkIcon NC.ChangeLinkDisplayMode NC.UpdateLinkImages 
		NC.LinkIconCopyFn NC.LinkAtCharPos NC.LinkIconLeftButtonFn)
	   (FNS NC.FillInLinkIcon NC.InvisibleLinkImageBoxFn NC.InvisibleLinkPutFn 
		NC.InvisibleLinkGetFn)
	   (* * Pointer icons. These act like links, except that their icon boxes are dashed, and 
	      they're invisible as far as the source or destination cards are concerned. That is, 
	      only the imageobject containing the pointer knows about the connection. Functions exist 
	      for creating pointer icons and converting them into link icons.)
	   (GLOBALVARS NC.PointerIconImageObjFns NC.PointerIconDashingStyle 
		       NC.PointerIconMiddleButtonMenu)
	   [INITVARS (NC.PointerIconImageObjFns (IMAGEFNSCREATE (FUNCTION NC.PointerIconDisplayFn)
								(FUNCTION NC.PointerIconImageBoxFn)
								(FUNCTION NC.PointerIconPutFn)
								(FUNCTION NC.PointerIconGetFn)
								(FUNCTION NC.PointerIconCopyFn)
								(FUNCTION NC.LinkIconButtonEventInFn))
						)
		     (NC.PointerIconDashingStyle (QUOTE (4 2]
	   (RECORDS NCPointer)
	   (* * Functions likely to be useful externally.)
	   (FNS NC.InsertPointerInText NC.ConvertPointerIconToLinkIcon NC.MakePointerIcon 
		NC.MakePointer NC.PointerIconImageObjP NC.FetchPointerFromPointerIcon)
	   (* * Internal functions.)
	   (FNS NC.PointerIconDisplayFn NC.PointerIconImageBoxFn NC.PointerIconPutFn 
		NC.PointerIconGetFn NC.PointerIconCopyFn NC.WritePointer NC.ReadPointer)
	   (FNS NC.PointerIconLeftButtonFn NC.PointerIconMiddleButtonFn NC.TraversePointer 
		NC.ChangePointerDisplayMode NC.RelabelPointer NC.ChangeCardTitleFromPointerIcon)
	   (FNS NC.DeleteBadPointer NC.DrawLinkOrPointerIcon NC.ComputeLinkOrPointerImageBox)
	   (DECLARE: DONTEVAL@LOAD (P (NC.MakePointerIcon)))
	   (* * New stuff for allowing put to work from TEdit.)
	   (GLOBALVARS NC.ExternalPutLinkIconImageFns)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.ExternalPutLinkIconImageFns
					   (IMAGEFNSCREATE (FUNCTION NC.ExternalPutLinkIconDisplayFn)
							   (FUNCTION NC.ExternalPutLinkIconImageBoxFn)
							   (FUNCTION NC.ExternalPutLinkIconPutFn)
							   (FUNCTION NC.ExternalPutLinkIconGetFn)
							   NIL
							   (FUNCTION NILL]
	   (FNS NC.ExternalPutLinkIconDisplayFn NC.ExternalPutLinkIconImageBoxFn 
		NC.ExternalPutLinkIconPutFn NC.ExternalPutLinkIconGetFn 
		NC.CoerceToExternalPutLinkIcon)
	   (* * Stuff to register our image object for intermezzo.)
	   (FNS NC.RegisterPlaceMarkerImageObj)
	   (DECLARE: DONTEVAL@LOAD (P (NC.RegisterPlaceMarkerImageObj)))
	   (* * Stuff for handling link icons in sketches.)
	   (FNS NC.LinkIconSketchElementP NC.DeleteLinkIconSketchElement)
	   (* * Icons representing notecards types.)
	   (GLOBALVARS NC.FileBoxIcon NC.GraphCardIcon NC.SketchCardIcon NC.TextCardIcon 
		       NC.TypelessIcon)
	   (* * DELETEME imageobjs)
	   (GLOBALVARS NC.DELETEMEImageObjDatum NC.RemoveDELETEMEImageObjsFromCardFlg)
	   (INITVARS (NC.DELETEMEImageObjDatum "[[DELETE ME]]")
		     (NC.RemoveDELETEMEImageObjsFromCardFlg NIL))
	   (FNS NC.DELETEMEImageObjP)))

(PUTPROPS NCTYPESMECH FileComs [(* * Internal variables)
	   (GLOBALVARS NC.CardTypes NC.TypesLock)
	   (INITVARS (NC.CardTypes NIL)
		     (NC.TypesLock (CREATE.MONITORLOCK "NoteCards Type Mechanism")))
	   (* * Note Cards Type Mechanism)
	   (RECORDS NoteCardType)
	   (MACROS NC.GetCardTypeField NC.ApplyFn NC.ApplySupersFn)
	   (FNS NC.IsSubTypeOfP NC.CardTypeRecord NC.MakeCardTypesList NC.AddCardType 
		NC.AddCardTypeStub NC.ModifyCardType NC.RecomputeCardType NC.ListOfCardTypes 
		NC.SubTypesOfCardType NC.DeleteCardType NC.InheritFieldsFromSuperType 
		NC.PropagateCardTypeFieldsDownward NC.AutoLoadCardType NC.CardTypeLoader 
		NC.CardTypeStubLoader NC.GetCardTypeFieldOfSuper)
	   (BITMAPS NC.TypelessIcon)
	   (DECLARE: DONTEVAL@LOAD (P (NC.MakeCardTypesList])

(PUTPROPS NCPROGINT FileComs [(* * Notefile creation and access)
	   (FNS NCP.CreateNoteFile NCP.OpenNoteFile NCP.OpenNoteFileP NCP.ListOfOpenNoteFiles 
		NCP.CloseNoteFiles NCP.CheckpointNoteFiles NCP.AbortNoteFiles NCP.CompactNoteFile 
		NCP.CompactNoteFileInPlace NCP.RepairNoteFile NCP.DeleteNoteFile 
		NCP.NoteFileFromFileName NCP.FileNameFromNoteFile NCP.NoteFileMenu 
		NCP.CheckInNoteFile NCP.CheckOutNoteFile NCP.LockFileName NCP.NumCardSlotsRemaining 
		NCP.ExpandNoteFileIndex NCP.NoteFileClosingP NCP.NoteFileAddProp)
	   (* * Creating and accessing NoteCard types and substances.)
	   (FNS NCP.CardTypes NCP.CreateCardType NCP.DeleteCardType NCP.CreateCardTypeStub 
		NCP.ChangeCardTypeFields NCP.CardTypeSuper NCP.CardTypeLinkDisplayMode NCP.CardTypeFn 
		NCP.CardTypeVar NCP.CardTypeP NCP.CardTypeFnP NCP.CardTypeVarP NCP.CardTypeFns 
		NCP.CardTypeVars NCP.CardTypeDisplayedInMenu NCP.IsSubTypeOfP NCP.TextBasedP 
		NCP.SketchBasedP NCP.GraphBasedP NCP.AutoLoadCardType NCP.AddSpecialCard 
		NCP.RemoveSpecialCard NCP.CardsOfTypes)
	   (MACROS NCP.ApplyCardTypeFn NCP.ApplySuperTypeFn)
	   (* * Creating Notecards and fileboxes)
	   (FNS NCP.CreateCard NCP.CreateTextCard NCP.CreateFileBox NCP.CreateBrowserCard 
		NCP.CreateSketchCard NCP.CreateGraphCard NCP.MakeDocument NCP.MakeLinkIndex)
	   (* * Opening, closing, activating, display, etc.)
	   (FNS NCP.OpenCard NCP.CloseCards NCP.DisplayCard NCP.UndisplayCards NCP.CacheCards 
		NCP.UncacheCards NCP.CardCachedP NCP.CardDisplayedP NCP.CardWindow NCP.WindowFromCard 
		NCP.CardFromWindow NCP.CardFromTextStream)
	   (* * Accessing cards and boxes)
	   (FNS NCP.CardType NCP.ValidCardP NCP.CardTitle NCP.FileCards NCP.UnfileCards 
		NCP.CardParents NCP.FileBoxChildren NCP.CardNeighbors NCP.GetLinks NCP.CardPropList 
		NCP.CardProp NCP.CardAddProp NCP.CardDelProp NCP.CardSubstance NCP.CardRegion 
		NCP.CardAddText NCP.ChangeLoc NCP.DeleteCards NCP.FileBoxP NCP.AllCards NCP.AllBoxes 
		NCP.ContentsFileBox NCP.OrphansFileBox NCP.ToBeFiledFileBox NCP.NoteFileFromCard 
		NCP.CardNoteFile NCP.SameCardP NCP.CoerceToCard NCP.DetermineDisplayRegion 
		NCP.LockListOfCards NCP.GetCrossFileLinkDestCard NCP.CardBeingDeletedP NCP.NewCardP)
	   (MACROS NCP.MapCards NCP.MapCardsOfType)
	   (MACROS NCP.WithLockedCards)
	   (* * Collecting, copying, moving, deleting, cards)
	   (FNS NCP.CollectCards NCP.CopyCards NCP.MoveCards)
	   (* * Creating and accessing links)
	   (FNS NCP.CreateLink NCP.LocalGlobalLink NCP.GlobalGlobalLink NCP.GlobalLocalLink 
		NCP.LocalLocalLink NCP.LinkDesc NCP.LinkDisplayMode NCP.LinkType NCP.LinkSource 
		NCP.LinkDestination NCP.DeleteLinks NCP.ValidLinkP NCP.AllLinks NCP.SameLinkP 
		NCP.LinkFromLinkIcon NCP.MakeLinkIcon NCP.MarkCardDirty)
	   (MACROS NCP.MapLinks NCP.MapLinksOfType)
	   (* * Creating and accessing link labels.)
	   (FNS NCP.CreateLinkType NCP.DeleteLinkType NCP.RenameLinkType NCP.LinkTypes 
		NCP.ReverseLinkTypes NCP.UserLinkTypes NCP.ValidLinkTypeP NCP.SystemLinkTypeP)
	   (* * Dealing with card parts dates.)
	   (RECORDS NOTECARDDATES)
	   (FNS NCP.CardDates)
	   (* * Open events card)
	   (FNS NCP.GetOpenEventsCard NCP.GetCloseEventsCard NCP.MarkAsNotNeedingFiling)
	   (* * Functions for adding menu items)
	   (FNS NCP.AddSessionIconMenuItem NCP.RemoveSessionIconMenuItem NCP.RestoreSessionIconMenu 
		NCP.AddNoteFileIconMenuItem NCP.RemoveNoteFileIconMenuItem 
		NCP.RestoreNoteFileIconMenu NC.CreateSessionIconNoteFileMenuItem 
		NCP.AddDefaultNoteFileIconMiddleButtonItems NCP.NoticedNoteFileNamesMenu 
		NCP.AddTitleBarMenuItemsToType NCP.AddTitleBarMenuItemsToWindow 
		NCP.LinkIconAttachedBitMap NCP.SessionIconWindow NCP.BringUpSessionIcon)
	   (* * Miscellaneous)
	   (FNS NCP.TitleSearch NCP.PropSearch NCP.WhichCard NCP.WhichNoteFile NCP.SelectCards 
		NCP.DocumentParameters NCP.NoteCardsParameters NCP.PrintMsg NCP.ClearMsg NCP.AskUser 
		NCP.AskYesOrNo NCP.RegisterCardByName NCP.ListRegisteredCards NCP.LookupCardByName 
		NCP.UnregisterName NCP.DisplayedCards NCP.CardUserDataProp NCP.NoteFileProp 
		NCP.SetUpTitleBar NCP.AddNoteFileIconMiddleButtonItems NCP.NoteFileIconWindow)
	   (DECLARE: DONTEVAL@LOAD (P (MOVD (QUOTE NCP.WhichCard)
					    (QUOTE NCP.WC)
					    T)
				      (MOVD (QUOTE NCP.WhichNoteFile)
					    (QUOTE NCP.WNF)
					    T)))
	   (* * Handy internal functions)
	   (FNS NCP.ReportError NCP.ReportWarning NCP.LinkAnchorDesc NCP.GetTypeRecord 
		NCP.AddLeftButtonTitleBarMenuItems NCP.AddMiddleButtonTitleBarMenuItems 
		NCP.CoerceToLinkDisplayMode NCP.CoerceToInterestedWindow)
	   (* * Global variables.)
	   (GLOBALVARS NCP.ErrorBrkWhenFlg NCP.LinkDisplayModes NCP.TypeFnsAssocLst 
		       NCP.NoteCardTypeFns NCP.NoteCardTypeVars NC.MakeDocParameters NC.CardTypes 
		       NC.SubstanceTypes NC.SystemLinkLabels NC.FiledCardLinkLabel NC.SubBoxLinkLabel 
		       NC.SelectingCardsMenu NC.SelectingCardMenu NC.UCASESystemLinkLabels 
		       NC.SourceLinkLabel NC.NoteCardsParameters)
	   [INITVARS (NCP.ErrorBrkWhenFlg NIL)
		     (NCP.DefaultLinkIconAttachedBitMapSize 17)
		     (NCP.LinkDisplayModes (QUOTE (Icon Title Label Both)))
		     (NCP.NoteCardTypeFns (QUOTE (MakeFn EditFn QuitFn GetFn PutFn CopyFn MarkDirtyFn 
							 DirtyPFn CollectLinksFn DeleteLinksFn 
							 UpdateLinkIconsFn InsertLinkFn 
							 TranslateWindowPositionFn)))
		     (NCP.NoteCardTypeVars (QUOTE (SuperType StubFlg FullDefinitionFile 
							     LinkDisplayMode DefaultWidth 
							     DefaultHeight LinkAnchorModesSupported 
							     DisplayedInMenuFlg 
							     LinkIconAttachedBitMap 
							     LeftButtonMenuItems 
							     MiddleButtonMenuItems]
	   (* * Following is for backward compatibility with 1.2)
	   (DECLARE: DONTEVAL@LOAD (P (MOVD (QUOTE NCP.OpenCard)
					    (QUOTE NCP.BringUpCard)
					    T)
				      (MOVD (QUOTE NCP.CacheCards)
					    (QUOTE NCP.ActivateCards)
					    T)
				      (MOVD (QUOTE NCP.CardCachedP)
					    (QUOTE NCP.ActiveCardP)
					    T)
				      (MOVD (QUOTE NCP.CardTypeFnP)
					    (QUOTE NCP.ValidCardTypeFn)
					    T)
				      (MOVD (QUOTE NCP.CardTypeP)
					    (QUOTE NCP.ValidCardType)
					    T)
				      (MOVD (QUOTE NCP.CardTypeVarP)
					    (QUOTE NCP.ValidCardTypeVar)
					    T)
				      (MOVD (QUOTE NCP.CloseCards)
					    (QUOTE NCP.DeactivateCards)
					    T)
				      (MOVD (QUOTE NCP.ValidCardP)
					    (QUOTE NCP.ValidCard)
					    T)
				      (MOVD (QUOTE NCP.ContentsFileBox)
					    (QUOTE NCP.GetContentsFileBox)
					    T)
				      (MOVD (QUOTE NCP.OrphansFileBox)
					    (QUOTE NCP.GetOrphansFileBox)
					    T)
				      (MOVD (QUOTE NCP.ToBeFiledFileBox)
					    (QUOTE NCP.GetToBeFiledFileBox)
					    T)
				      (MOVD (QUOTE NCP.LinkSource)
					    (QUOTE NCP.GetLinkSource)
					    T)
				      (MOVD (QUOTE NCP.LinkDestination)
					    (QUOTE NCP.GetLinkDestination)
					    T)
				      (MOVD (QUOTE NCP.CreateLinkType)
					    (QUOTE NCP.CreateLinkLabel)
					    T)
				      (MOVD (QUOTE NCP.DeleteLinkType)
					    (QUOTE NCP.DeleteLinkLabel)
					    T)
				      (MOVD (QUOTE NCP.RenameLinkType)
					    (QUOTE NCP.RenameLinkLabel)
					    T)
				      (MOVD (QUOTE NCP.LinkTypes)
					    (QUOTE NCP.GetLinkLabels)
					    T)
				      (MOVD (QUOTE NCP.UserLinkTypes)
					    (QUOTE NCP.GetUserLinkLabels)
					    T)
				      (MOVD (QUOTE NCP.ReverseLinkTypes)
					    (QUOTE NCP.GetReverseLinkLabels)
					    T)
				      (MOVD (QUOTE NCP.ValidLinkTypeP)
					    (QUOTE NCP.ValidLinkLabel)
					    T)
				      (MOVD (QUOTE NCP.ValidLinkP)
					    (QUOTE NCP.ValidLink)
					    T)))
	   (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
		     (ADDVARS (NLAMA)
			      (NLAML)
			      (LAMA NCP.NoteFileProp NCP.CardUserDataProp NCP.PrintMsg NCP.PropSearch 
				    NCP.LinkType NCP.LinkDisplayMode NCP.CardRegion NCP.CardSubstance 
				    NCP.CardProp NCP.CardTitle NCP.CardTypeDisplayedInMenu])

(PUTPROPS NCCROSSFILELINKS FileComs ((* * This file defines a card type called CrossFileLink that 
					  is a stand-in for really being able to link across 
					  notefiles.)
				       (* * A programmer can customize the icon which will appear on 
					  the right side of the link icon for cross-file links. The 
					  main hook is the property "AttachedBitMapFn" which should 
					  be placed on the card type's atom; which in this case is 
					  CrossFileLink. This function is called in the display code 
					  by NC.FetchCrossFileLinkIconAttachedBitMap when a 
					  cross-file link is encountered.)
				       (GLOBALVARS NC.CopyCrossFileLinksMode NC.CrossFileLinkIcon 
						   NC.MakeCrossFileLinkIconStandIn 
						   NC.NewCrossFileLinksMode 
						   NC.AttachedBitMapsHashArray 
						   NC.NoteFileAttachedBitMap 
						   NC.NoteFileAttachedBitMapMask)
				       (INITVARS (NC.NewCrossFileLinksMode (QUOTE ASK))
						 (NC.AttachedBitMapsHashArray))
				       (FNS NC.CrossFileLinkAttachedBitMapFn 
					    NC.FetchNoteFileAttachedBitmap)
				       (BITMAPS NC.CrossFileLinkIcon NC.NoteFileAttachedBitMap 
						NC.NoteFileAttachedBitMapMask)
				       (DECLARE: DONTEVAL@LOAD (VARS (NC.NewCrossFileLinksTwoWayFlg
								       T)
								     (NC.CopyCrossFileLinksMode
								       NIL)))
				       (FNS NC.AskCrossFileLinkMode NC.DeleteCrossFileLinkCard 
					    NC.FetchRemoteCrossFileLinkCard 
					    NC.CheckCrossFileLinkCardTitle NC.CheckCrossFileLinkType 
					    NC.MakeCrossFileLinkIconStandIn 
					    NC.ComputeCrossFileLinkMode 
					    NC.FetchCrossFileLinkIconAttachedBitMap)
				       (FNS NC.GetCrossFileLinkDestCard NC.CreateCrossFileLinkCard 
					    NC.CrossFileLinkCardP NC.OpenCrossFileLinkDestNoteFile)
				       (FNS NC.AddCrossFileLink NC.CrossFileLinkCopyFn 
					    NC.CrossFileLinkMakeFn NC.CrossFileLinkEditFn 
					    NC.CrossFileLinkGetFn NC.CrossFileLinkPutFn)
				       (RECORDS CrossFileLinkSubstance)
				       (DECLARE: DONTEVAL@LOAD (P (NC.AddCrossFileLink)
								  (PUTPROP (QUOTE CrossFileLink)
									   (QUOTE Don'tForceFilingFlg)
									   T)))
				       (FNS NCAddStub.CrossFileLink)))

(PUTPROPS NCHASHCARD FileComs [(* * Stuff for the hash card type. This includes the basic general 
				    hash card and a specialization called Registry card type.)
				 (FNS NCAddStub.HashCard)
				 (GLOBALVARS NC.DefaultHashCardHashArraySize)
				 (INITVARS (NC.DefaultHashCardHashArraySize 100))
				 (FNS NC.AddHashCard NC.HashCardMakeFn NC.HashCardEditFn 
				      NC.HashCardGetFn NC.HashCardPutFn NC.HashCardCopyFn)
				 (DECLARE: DONTEVAL@LOAD (P (NC.AddHashCard)))
				 (* * This is a specialization of Hash card called Registry card. It 
				    maps atoms to UIDs and has tailored Get and Put fns.)
				 (GLOBALVARS NC.RegistrySubstanceEndMarker 
					     NC.DefaultRegistryCardHashArraySize)
				 (INITVARS (NC.DefaultRegistryCardHashArraySize 100)
					   (NC.RegistrySubstanceEndMarker (QUOTE 
									 ##EndRegistrySubstance##)))
				 (FNS NC.AddRegistryCard NC.RegistryCardMakeFn NC.RegistryCardGetFn 
				      NC.RegistryCardPutFn)
				 (FNS NC.RegisterCardByName NC.LookupCardByName NC.UnregisterName)
				 (DECLARE: DONTEVAL@LOAD (P (NC.AddRegistryCard])

(PUTPROPS NCTEXTCARD FileComs ((* * Stuff for the Text card type.)
	   (FILES NCTYPESMECH TEDIT)
	   (FNS NCAddStub.TextCard)
	   (GLOBALVARS TEDIT.DEFAULT.MENU TEDIT.TITLED.ICON.TEMPLATE TEDIT.ICON.FONT 
		       NC.TEditPasswordDividedBy100 NC.DefaultFont NC.DeletedLinkImageObject 
		       NC.CardTypes NC.AnnoFlg NC.UseDeletedLinkIconIndicatorsFlg 
		       NC.DelTEditProcessAtShrinkFlg NC.TextCardIcon NC.UserSpecifiedTEditProps)
	   (* * basic fns)
	   (FNS NC.MakeTEditCard NC.BringUpTEditCard NC.MakeTextCardReadOnly NC.MakeTextCardReadWrite 
		NC.RevertTextCard NC.CollectReferencesInText NC.InstallTextTitleBarMiddleMenu 
		NC.MarkTextDirty NC.ResetTEdit NC.ResetTEditProcess NC.TEditBasedP NC.TEditCloseFn 
		NC.TEditMenuFn NC.TEditQuitFn NC.TextCopySubstance NC.TextDirtyP NC.TextCardShrinkFn 
		NC.PutTextSubstance NC.GetTextSubstance NC.UpdateLinkImagesInText 
		NC.CharPosFromTextObject NC.DelReferencesToCardFromText)
	   (DECLARE: DONTEVAL@LOAD (VARS (TEDIT.DEFAULT.PROPS (CONS (QUOTE SLOWUPDATE)
								    (CONS (QUOTE T)
									  TEDIT.DEFAULT.PROPS)))
					 (NC.TEditPasswordDividedBy100 314)))
	   (* * This stuff supports the "push-copy" method of copying links in NC)
	   (FNS NC.TranslateWindowPositionToTEditPosition NC.InsertLinkInTextWindow)
	   (* * New FNS)
	   (GLOBALVARS NC.ExternalPutLinkIconImageFns)
	   (FNS NC.CardFromTextStream NC.TEditPutFn NC.TEditPutFnAuxiliary NC.TEditGetFn 
		NC.MakeTEditPropsList NC.TEditPropsListQuitFn NC.DelTEditProcesses)
	   (* * prevent TEdit splitwindow facilities)
	   (DECLARE: DONTEVAL@LOAD (ADVISE \TEDIT.SPLITW))
	   (* * Add the Text card type to the card types list.)
	   (FNS NC.AddTextCard NC.ComputeTextCardMiddleButtonMenuItems)
	   (DECLARE: DONTEVAL@LOAD (BITMAPS NC.TextCardIcon))
	   (DECLARE: DONTEVAL@LOAD (P (NC.AddTextCard)))
	   (DECLARE: DONTEVAL@LOAD (ADVISE TEDIT.ADD.MENUITEM TEDIT.REMOVE.MENUITEM))))

(PUTPROPS NCSKETCHCARD FileComs [(* * Definition of the Sketch card type.)
	   [DECLARE: COPY FIRST (P (NC.LoadFileFromDirectories (QUOTE SKETCH)
							       (QUOTE LISPUSERSDIRECTORIES))
				   (NC.LoadFileFromDirectories (QUOTE KOTOSKETCHPATCHES]
	   (FNS NCAddStub.SketchCard)
	   (GLOBALVARS NC.SketchCardIcon NC.SketchTitleBarMenu NC.DeletedLinkImageObject 
		       NC.UseDeletedLinkIconIndicatorsFlg)
	   (DECLARE: DONTEVAL@LOAD (BITMAPS NC.SketchCardIcon))
	   (* * Basic functions)
	   (FNS NC.MakeSketchCard NC.BringUpSketchCard NC.SketchDirtyP NC.SketchTitleBarButtonEventFn 
		NC.SketchCardCloseFn NC.SketchCardShrinkFn NC.SketchCopySubstance NC.MarkSketchDirty 
		NC.CollectReferencesInSketch NC.GetSketchSubstance NC.PutSketchSubstance 
		NC.PutCachedMap NC.GetCachedMap NC.UpdateLinkImagesInSketch 
		NC.DelReferencesToCardFromSketch NC.ExternalizeLinkIconsInSketch 
		NC.MakeExternalSketchCopy NC.SK.COPY.BUTTONEVENTFN)
	   (DECLARE: DONTEVAL@LOAD (ADVISE CREATE.SKETCHW.COMMANDMENU))
	   (* * This stuff supports the "push-copy" method of copying links in NC)
	   (FNS NC.TranslateWindowPositionToSketchPosition)
	   (* * Special stuff for autoloading maps)
	   (FNS NC.FakeMapInputFn NC.FakeMapInsideFn)
	   [DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INPUTFN)
							      (QUOTE NCMAPS)
							      (QUOTE NOTECARDSDIRECTORIES))
				      (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INSIDEFN)
							      (QUOTE NCMAPS)
							      (QUOTE NOTECARDSDIRECTORIES))
				      (NC.StoreAutoloadFnFile (FUNCTION SetCachedBitMap)
							      (QUOTE NCMAPS)
							      (QUOTE NOTECARDSDIRECTORIES))
				      (OR (FMEMB (QUOTE MAP)
						 SKETCH.ELEMENT.TYPE.NAMES)
					  (CREATE.SKETCH.ELEMENT.TYPE (QUOTE MAP)
								      "Map" 
								"Forces autoload of MAP package."
								      NIL NIL NIL NIL
								      (FUNCTION NC.FakeMapInputFn)
								      (FUNCTION NC.FakeMapInsideFn]
	   (* * Add sketch card type to CardType list)
	   (FNS NC.AddSketchCard)
	   (DECLARE: DONTEVAL@LOAD (P (NC.AddSketchCard))
		     (P (if (NULL (GETD (QUOTE VIEWER.SCALE)))
			    then
			    (DEFINEQ (VIEWER.SCALE (LAMBDA (Window)
							   (WINDOWPROP Window (QUOTE SCALE])

(PUTPROPS NCGRAPHCARD FileComs [[DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories
								     (QUOTE GRAPHER)
								     (QUOTE LISPUSERSDIRECTORIES))
								   (NC.LoadFileFromDirectories
								     (QUOTE GRAPHERPATCH))
								   (NC.LoadFileFromDirectories
								     (QUOTE HGRAPH)
								     (QUOTE LISPUSERSDIRECTORIES]
	   (FILES NCTYPESMECH)
	   (FNS NCAddStub.GraphCard)
	   (GLOBALVARS NC.GraphCardIcon NC.ShrunkenGraphIconBM NC.ShrunkenGraphIconMask 
		       NC.ShrunkenGraphIconTemplate NC.UseDeletedLinkIconIndicatorsFlg 
		       TEDIT.ICON.FONT)
	   [DECLARE: DONTEVAL@LOAD (VARS (ScalableLinkParameters (QUOTE (LINEWIDTH]
	   (* * Basic functions.)
	   (FNS NC.MakeGraphCard NC.BringUpGraphCard NC.RelayoutGraphCard NC.CollectReferencesInGraph 
		NC.GraphCardCloseFn NC.GraphCardLeftButtonFn NC.GraphCardMiddleButtonFn 
		NC.GraphCopySubstance NC.MarkGraphDirty NC.GraphDirtyP NC.GraphNodeLinkIconUpdate 
		NC.GetGraphSubstance NC.PutGraphSubstance NC.UpdateLinkImagesInGraph 
		NC.DelReferencesToCardFromGraph NC.GraphChangeLabelFn)
	   (* * Hooks into Grapher for NoteCards applications)
	   (FNS NC.GRAPHERCOPYBUTTONEVENTFN NC.InsideGrapherNodeP NC.GraphAddNodeFn 
		NC.GraphDeleteNodeFn NC.GraphAddLinkFn NC.GraphDeleteLinkFn NC.GraphMoveNodeFn 
		NC.GraphFontChangeFn NC.GraphRemoveNode NC.TrackCursorInGrapherWindow)
	   (* * This stuff supports the "push-copy" method of copying links in NC)
	   (FNS NC.TranslateWindowPositionToGraphPosition NC.InsertLinkInGraph)
	   (* * Stuff for shrinking graphs and browsers.)
	   (DECLARE: DONTEVAL@LOAD (BITMAPS NC.ShrunkenGraphIconBM NC.ShrunkenGraphIconMask 
					    NC.GraphCardIcon))
	   (FNS NC.GraphCardShrinkFn)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.ShrunkenGraphIconTemplate (create TITLEDICON ICON ← 
									   NC.ShrunkenGraphIconBM 
									       MASK ← 
									 NC.ShrunkenGraphIconMask 
									       TITLEREG ←
									       (QUOTE (16 4 64 77]
	   (* * Stuff for making copies of graphs for making imageobj's.)
	   (FNS NC.MakeExternalGraphCopy)
	   (* * Add the Graph card to the cardtypes list.)
	   (FNS NC.AddGraphCard)
	   (DECLARE: DONTEVAL@LOAD (P (NC.AddGraphCard])

(PUTPROPS NCFILEBOXCARD FileComs [[DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories
								       (QUOTE NCTEXTCARD]
				    (FNS NCAddStub.FileBoxCard)
				    (GLOBALVARS NC.FileBoxIcon NC.MarkersInFileBoxesFlg 
						NC.SubBoxMarkerLabel NC.FiledCardMarkerLabel 
						NC.AlphabetizedFileBoxChildrenFlg)
				    (FNS NC.FileBoxP NC.MakeFileBox NC.FileBoxCollectChildren)
				    (FNS NC.AddFileBoxCard)
				    (BITMAPS NC.FileBoxIcon)
				    (DECLARE: DONTEVAL@LOAD (P (NC.AddFileBoxCard])

(PUTPROPS NCBROWSERCARD FileComs [(* * Stuff for the Notecards browser.)
	   [DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories (QUOTE NCGRAPHCARD]
	   (FNS NCAddStub.BrowserCard)
	   (GLOBALVARS NC.SelectingBrowserSourceMenu NC.SpecialBrowserSpecsFlg 
		       NC.BrowserContentsLinkLabel NC.SubBoxLinkLabel NC.FiledCardLinkLabel 
		       NC.SelectingCardMenu NC.DashingStyles NC.GraphFlowerLinkSeparation 
		       NC.LinkDashingInBrowser NC.ArrowHeadsInBrowser NC.BrowserSpecsStylesheet 
		       NC.BrowserFormatOptions NC.*Graph*BrowserFormat NC.GraphEditMenuItems 
		       NC.GraphEditUnfixedMenuItems NC.LinkIconShowTitleFlg 
		       NC.LinkIconShowLinkTypeFlg NC.LinkIconAttachBitmapFlg NC.BrowserHashArraySize 
		       NC.UseDeletedLinkIconIndicatorsFlg)
	   (INITVARS (NC.LinkDashingInBrowser NIL)
		     (NC.ArrowHeadsInBrowser (QUOTE None))
		     (NC.BrowserHashArraySize 2000))
	   [DECLARE: DONTEVAL@LOAD
		     (VARS [NC.DashingStyles (QUOTE (NIL (4 4)
							 (10 4 2 4)
							 (1 4)
							 (4 10)
							 (8 4)
							 (14 4)
							 (10 4 2 4 2 4)
							 (10 4 2 4 2 4 2 4]
			   (NC.GraphFlowerLinkSeparation 8)
			   (NC.BrowserSpecsStylesheet (CREATE.STYLE (QUOTE ITEMS)
								    (LIST (create MENU ITEMS ← T)
									  (create MENU ITEMS ← T)
									  (create MENU ITEMS ← T)
									  (create MENU ITEMS ← T)
									  (create MENU ITEMS ← T))
								    (QUOTE SELECTIONS)
								    (QUOTE (T T T T T))
								    (QUOTE ITEM.TITLES)
								    (QUOTE (Forward% Links 
										  Backward% Links 
											   Depth 
											   Format 
										      Orientation))
								    (QUOTE ITEM.TITLE.FONT)
								    (FONTCOPY MENUFONT (QUOTE WEIGHT)
									      (QUOTE BOLD))
								    (QUOTE NEED.NOT.FILL.IN)
								    (QUOTE (MULTI MULTI NIL NIL NIL))
								    (QUOTE TITLE)
								    "Browser Specs?"))
			   [NC.BrowserFormatOptions (QUOTE ((*GRAPH* *GRAPH* 
						     "Build a directed graph (no virtual nodes).")
							    (LATTICE LATTICE 
			"Build an acyclic directed graph (uses virtual nodes in case of cycles).")
							    (COMPACT COMPACT 
						     "Build a forest using minimal screen space.")
							    (FAST FAST 
					    "Build a forest, sacrificing screen space for speed."]
			   (NC.*Graph*BrowserFormat (QUOTE *GRAPH*))
			   [NC.GraphEditMenuItems (QUOTE ((Create% Card% &% Node 
									   NC.BrowserCreateCardFn 
					    "Create a new card and a corresponding browser node.")
							  (Create% Link% &% Edge 
									   NC.BrowserCreateLinkFn 
					    "Create a new link and a corresponding browser edge."
										 (SUBITEMS
										   (
Create% Global% Link% &% Edge NC.BrowserCreateGlobalLinkFn 
			      "Create a new global link and a corresponding browser edge.")))
							  (Delete% Card% &% Node 
									   NC.BrowserDeleteCardFn 
						  "Delete an existing card and its browser node.")
							  (Delete% Link% &% Edge 
									   NC.BrowserDeleteLinkFn 
						  "Delete an existing link and its browser edge.")
							  (Add% Label NC.BrowserAddLabelFn 
								   "Add a string label to graph.")
							  (Add% Node NC.BrowserAddNodeFn 
				 "Add a node to the browser corresponding to some existing card.")
							  (Add% Edge NC.BrowserAddEdgeFn 
						  "Add an edge to the browser (no link created).")
							  (Remove% Node NC.BrowserRemoveNodeFn 
						       "Remove a browser node (no card deleted).")
							  (Remove% Edge NC.BrowserRemoveEdgeFn 
					     "Remove an edge from the browser (no link deleted).")
							  (Move% Node NC.BrowserMoveNodeFn 
								      "Move a browser node."
								      (SUBITEMS (Move% Single% Node
										  
									     NC.BrowserMoveNodeFn 
									   "Move a browser node.")
										(
Move% Node% &% Subtree NC.BrowserMoveSubtreeFn 
		       "Move a subtree of nodes following the movement of the root.")
										(Move% Region 
								    NC.BrowserMoveNodesInRegionFn 
				    "Move all nodes within a specified region to another region.")))
							  (Label% Smaller NC.BrowserShrinkLabelFn 
							  "Reduce font size for a browser label.")
							  (Label% Larger NC.BrowserGrowLabelFn 
							"Increase font size for a browser label.")
							  ("<-> Shade" EDITTOGGLELABEL 
						       "Inverts label shade for a browser label."]
			   (NC.GraphEditUnfixedMenuItems (APPEND NC.GraphEditMenuItems
								 (QUOTE ((FIX% MENU 
								     NC.BrowserFixGraphEditMenuFn 
						    "Attach this menu to edge of browser window."]
	   (* * BROWSER mechanisms)
	   (FNS NC.MakeBrowserCard NC.BringUpBrowserCard)
	   (FNS NC.GrowLinkLattice NC.UpdateBrowserCard NC.RelayoutBrowserCard 
		NC.LayoutNewBrowserNodes NC.ConnectNodesInBrowser NC.UnconnectNodesInBrowser 
		NC.ExpandBrowserNode NC.AskBrowserSpecs NC.ChangeBrowserSpecs 
		NC.AskSpecialBrowserSpecs NC.BrowserFlipRoots NC.SelectGraphNode 
		NC.DisplayGraphLinksBetween NC.RebuildFromNodesInGraph 
		NC.RemoveDuplicateNodesFromGraph NC.ShowBrowserGraph)
	   (RECORDS SPECIALBROWSERSPECS)
	   (* * Graph editor menu functions.)
	   (FNS NC.GetGraphEditMenu NC.BrowserRightButtonFn NC.GraphEditMenuWhenSelectedFn 
		NC.BrowserCreateCardFn NC.BrowserAddLabelFn NC.BrowserAddNodeFn 
		NC.BrowserCreateLinkFn NC.BrowserCreateGlobalLinkFn NC.BrowserAddLink 
		NC.BrowserAddGlobalLink NC.BrowserAddEdgeFn NC.BrowserDeleteCardFn 
		NC.BrowserRemoveNodeFn NC.BrowserDeleteLinkFn NC.BrowserRemoveEdgeFn 
		NC.BrowserShrinkLabelFn NC.BrowserGrowLabelFn NC.BrowserMoveNodeFn 
		NC.BrowserMoveNodesInRegionFn NC.BrowserMoveSubtreeFn NC.BrowserFixGraphEditMenuFn 
		NC.BrowserCreateCard NC.BrowserCreateLink NC.BrowserDeleteLink NC.BrowserAddNode 
		NC.BrowserAddLabel NC.BrowserAddEdge NC.BrowserRemoveNode NC.DelBrowserContentsLink 
		NC.BrowserRemoveEdge)
	   (* * Grapher hacks for browser)
	   (FNS NC.MakeLinksLegend NC.MakeLinksLegendMenu NC.LinksLegendRepaintFn 
		NC.BrowserDrawLinkFn NC.DrawFlowerLinks NC.DrawFlowerLink NC.LinksLegendReshapeFn 
		NC.DrawArrowHead)
	   (* * for making and manipulating the tiny attached shrunken browser window.)
	   (INITVARS (NC.BrowserOverviewDefaultWidth 75)
		     (NC.BrowserOverviewDefaultHeight 75)
		     (NC.LeastScaleForGraphNodeShrinking .3))
	   (GLOBALVARS NC.BrowserOverviewDefaultWidth NC.BrowserOverviewDefaultHeight 
		       NC.LeastScaleForGraphNodeShrinking NC.BrowserOverviewSpecsStylesheet 
		       NC.DefaultWhereToAttachOverviewWin NC.DefaultBrowserOverviewMode 
		       NC.OverviewWinMode.Compress NC.OverviewWinMode.Expand)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.OverviewWinMode.Compress (QUOTE Compress% Overview% Win))
					 (NC.OverviewWinMode.Expand (QUOTE Expand% Overview))
					 (NC.DefaultBrowserOverviewMode (QUOTE Neither]
	   [INITVARS (NC.DefaultWhereToAttachOverviewWin (QUOTE (LEFT . TOP)))
		     (NC.BrowserOverviewSpecsStylesheet (CREATE.STYLE
							  (QUOTE TITLE)
							  "Choose browser overview specs"
							  (QUOTE ITEM.TITLES)
							  (QUOTE (Edge Position% on% Edge Mode))
							  (QUOTE ITEM.TITLE.FONT)
							  (FONTCOPY MENUFONT (QUOTE WEIGHT)
								    (QUOTE BOLD))
							  (QUOTE ITEMS)
							  (LIST [create MENU ITEMS ←
									(QUOTE ((LEFT LEFT 
								      "Position along left edge.")
										(TOP TOP 
								       "Position along top edge.")
										(RIGHT RIGHT 
								     "Position along right edge.")
										(BOTTOM BOTTOM 
								    "Position along bottom edge."]
								[create MENU ITEMS ←
									(QUOTE ((TOP/RIGHT TOP 
							  "Position at top or right end of edge.")
										(CENTER CENTER 
								    "Position at center of edge.")
										(BOTTOM/LEFT BOTTOM 
							    "Position at bottom or left of edge."]
								(create MENU ITEMS ←
									(QUOTE ((
Compress% Overview% Win Compress% Overview% Win 
			"Compress the overview window to exactly fit the overview contents.")
										(Expand% Overview
										  Expand% Overview 
			      "Expand the overview contents to exactly fill the overview window.")
										(Neither Neither 
			 "Neither expand the overview contents nor compress the overview window."]
	   (FNS NC.MakeBrowserOverviewWin NC.AskBrowserOverviewSpecs)
	   (FNS NC.DRAWBOX NC.ShrinkGraphToWindow NC.ScaleGraphNode NC.ComputeOverviewScale 
		NC.RedrawBrowserOverviewWin NC.DrawWireFrameInOverviewWin NC.CompressOverviewWin 
		NC.ReattachBrowserOverviewWin NC.BrowserScrollFn NC.BrowserReshapeFn 
		NC.BrowserOverviewWinRepaintFn NC.BrowserOverviewWinReshapeFn 
		NC.BrowserOverviewWinMINSIZEFn NC.BrowserOverviewWinButtonEventFn 
		NC.BrowserCardQuitFn)
	   (* * Miscellaneous)
	   (FNS NC.DelReferencesToCardFromBrowser NC.NewBrowserNodeUIDFromOldUID 
		NC.GetBrowserSubstance NC.ComputeBrowserSavedLinkingInfo 
		NC.ComputeBrowserSavedLinkingInfoForNode)
	   (FNS NC.FetchBrowserRootsInfo NC.FetchBrowserLinkLabels NC.FetchBrowserFormat 
		NC.FetchSpecialBrowserSpecs NC.FetchBrowserDepth NC.FetchBrowserSavedLinkingInfo 
		NC.FetchBrowserLinksLegend)
	   (FNS NC.SetBrowserRootsInfo NC.SetBrowserLinkLabels NC.SetBrowserFormat 
		NC.SetSpecialBrowserSpecs NC.SetBrowserDepth NC.SetBrowserSavedLinkingInfo 
		NC.SetBrowserLinksLegend)
	   (FNS NC.ReadBrowserRootsInfo NC.ReadBrowserLinkLabels NC.ReadBrowserFormat 
		NC.ReadSpecialBrowserSpecs NC.ReadBrowserDepth NC.ReadBrowserSavedLinkingInfo 
		NC.ReadBrowserSavedLinkingInfoForNode NC.ReadBrowserLinksLegend)
	   (FNS NC.WriteBrowserRootsInfo NC.WriteBrowserLinkLabels NC.WriteBrowserFormat 
		NC.WriteSpecialBrowserSpecs NC.WriteBrowserDepth NC.WriteBrowserSavedLinkingInfo 
		NC.WriteBrowserSavedLinkingInfoForNode NC.WriteBrowserLinksLegend)
	   (FNS NC.GraphLinkIconUpdateCheck NC.BrowserRepaintFn NC.CoerceToGraphNodeID 
		NC.CoerceToGraphNodeIDOrLabel NC.GetBrowserNodeID NC.MakeBrowserNodeUID 
		NC.GetBrowserHashArray NC.RemoveBrowserNodeHashArrayEntry NC.HashArrayFromBrowserCard 
		NC.CardFromBrowserNodeID NC.SmashGraphNodeIDProps NC.PutBrowserSubstance 
		NC.FetchBrowserRoots NC.SetBrowserRoots)
	   (FNS NC.GraphNodeIDGetProp NC.GraphNodeIDPutProp NC.GraphNodeIDRemProp)
	   (GLOBALVARS NC.ArrowHeadLength NC.ArrowHeadAngle NC.ArrowHeadXVal NC.ArrowHeadYVal)
	   [DECLARE: DONTEVAL@LOAD (VARS (NC.ArrowHeadLength 7)
					 (NC.ArrowHeadAngle 20)
					 (NC.ArrowHeadXVal (TIMES NC.ArrowHeadLength (COS 
										NC.ArrowHeadAngle)))
					 (NC.ArrowHeadYVal (TIMES NC.ArrowHeadLength (SIN 
										NC.ArrowHeadAngle]
	   (* * init)
	   (FNS NC.AddBrowserCard)
	   (DECLARE: DONTEVAL@LOAD (P (NC.AddBrowserCard])

(PUTPROPS NCSEARCHCARD FileComs [(* * Stuff for the Notecards search card.)
				   (DECLARE: DONTEVAL@LOAD (FILES NCTEXTCARD))
				   (FNS NCAddStub.SearchCard)
				   (FNS NC.MakeSearchCard NC.AddSearchCard NC.TitleSearch)
				   (DECLARE: DONTEVAL@LOAD (P (NC.AddSearchCard])

(PUTPROPS NCDOCUMENTCARD FileComs [(* * Stuff for the Document compiler facility.)
	   (DECLARE: DONTEVAL@LOAD (FILES NCTEXTCARD))
	   (FNS NCAddStub.DocumentCard)
	   (GLOBALVARS NC.MakeDocParameters NC.DocBackPtrLinkLabel NC.SubBoxLinkLabel 
		       NC.FiledCardLinkLabel PSA.Database NC.SelectingCardMenu NC.CRString 
		       NC.DocTitleParaLeading)
	   (DECLARE: DONTEVAL@LOAD (VARS [NC.MakeDocParameters (QUOTE ((HeadingsFromFileboxes 
										     NumberedBold 
										   UnnumberedBold 
											     NONE)
								       (TitlesFromNoteCards Bold 
											  NotBold 
											    NONE)
								       (BuildBackLinks ToCardsBoxes 
										       ToCards 
										       ToBoxes NONE)
								       (CopyEmbeddedLinks ALL NONE 
											  Select)
								       (ExpandEmbeddedLinks ALL NONE 
											   Select)
								       (--DONE--]
					 (NC.CRString (CONCAT (CHARACTER 13)))
					 (NC.DocTitleParaLeading 20)))
	   (* * MakeDocument stuff)
	   (FNS NC.MakeDocument NC.DumpCardToDoc NC.DumpFileBoxToDoc NC.DumpNoteCardToDoc 
		NC.FetchToLinksInOrder NC.BuildMakeDocInspector NC.MakeDocInspectorSelectionFn 
		NC.AddCRIfNeeded NC.ChangeParaLeading NC.DumpExportableCardToDoc)
	   [DECLARE: DONTEVAL@LOAD
		     (P (SETPROPLIST (QUOTE NC.MakeDocParameters)
				     (QUOTE (HeadingsFromFileboxes NumberedBold TitlesFromNoteCards 
								   Bold BuildBackLinks NONE 
								   CopyEmbeddedLinks ALL 
								   ExpandEmbeddedLinks NONE --DONE-- 
								   --CANCEL-- VALUE
								   ((HeadingsFromFileboxes 
										     NumberedBold 
										   UnnumberedBold 
											   NONE)
								    (TitlesFromNoteCards Bold NotBold 
											 NONE)
								    (BuildBackpointers ToCardsBoxes 
										       ToCards 
										       ToBoxes NONE)
								    (CopyEmbeddedLinks ALL NONE 
										       Select)
								    (ExpandEmbeddedLinks ALL NONE 
											 Select)
								    (--DONE--]
	   (FNS NC.AddDocumentCard)
	   (DECLARE: DONTEVAL@LOAD (P (NC.AddDocumentCard])

(PUTPROPS NCLINKINDEXCARD FileComs [(* * Link Index stuff)
	   (DECLARE: DONTEVAL@LOAD (FILES NCTEXTCARD))
	   (FNS NCAddStub.LinkIndexCard)
	   (GLOBALVARS NC.LinkIndexExtraMenuItems NC.LinkIndexSpecsStylesheet)
	   [DECLARE: DONTEVAL@LOAD (VARS [NC.LinkIndexExtraMenuItems
					   (QUOTE ((Recompute% Link% Index (FUNCTION 
									    NC.RecomputeLinkIndex)
									   
				      "Recompute this link index throwing away current contents.")
						   (Change% Link% Index% Specs
						     (FUNCTION NC.ChangeLinkIndexSpecs 
							"Change some or all of Link Index specs."]
					 (NC.LinkIndexSpecsStylesheet (CREATE.STYLE
									(QUOTE ITEMS)
									(LIST (create MENU ITEMS ← T)
									      (create MENU ITEMS ← T)
									      (create MENU ITEMS ← T))
									(QUOTE SELECTIONS)
									(QUOTE (T T T))
									(QUOTE ITEM.TITLES)
									(QUOTE (Forward% Links 
										  Backward% Links 
									     Create% Back% Links?))
									(QUOTE ITEM.TITLE.FONT)
									(FONTCOPY MENUFONT
										  (QUOTE WEIGHT)
										  (QUOTE BOLD))
									(QUOTE NEED.NOT.FILL.IN)
									(QUOTE (MULTI MULTI NIL))
									(QUOTE TITLE)
									"Link Index Specs?"]
	   (* * Link Index functions)
	   (FNS NC.MakeLinkIndex NC.BringUpLinkIndexCard NC.ComputeLinkIndex NC.RecomputeLinkIndex 
		NC.AskLinkIndexSpecs NC.ChangeLinkIndexSpecs NC.AppendLinkIndexEntry 
		NC.LinkIndexCompareFn)
	   (FNS NC.AddLinkIndexCard)
	   (DECLARE: DONTEVAL@LOAD (P (NC.AddLinkIndexCard])

(PUTPROPS NCLISTCARD FileComs [(* * The list card -- just a Lisp list stored on the file!)
				 (FNS NCAddStub.ListCard)
				 (FNS NC.AddListCard NC.ListCardCopyFn NC.ListCardCreateFn 
				      NC.ListCardEditFn NC.ListCardGetFn NC.ListCardPutFn 
				      NC.EvaluateListCardSubstance)
				 (DECLARE: DONTEVAL@LOAD (P (NC.AddListCard])

(PUTPROPS NCCONVERTVERSION2TO3 FileComs [(* * The junk in here is for converting a 1.2 style file 
					      into 1.3 style.)
	   (FNS NC.ConvertNoteFileVersion2To3 NC.BuildVersion2HashArray NC.GetAndPutVersion2Card 
		NC.ReadVersion2Title NC.ReadVersion2Links NC.ReadVersion2PropList 
		NC.ReadVersion2MainCardData NC.ReadVersion2LinkLabels NC.ConvertVersion2LinkIcon 
		NC.ReadVersion2CardPartHeader NC.Version3CardFromVersion2ID)
	   (FNS NC.ConvertLinkFormat)
	   (* * Functions to convert version 2 browsers to version 3.0 This is just the 
	      MergeNoteFiles browser code modified.)
	   (FNS NC.ConvertVersion2BrowserCard NC.ConvertVersion2GraphNodeID)
	   (* * Functions and vars basically stolen and renamed from the old 1.2 source.)
	   (GLOBALVARS NC.Version2LinkLabelsIdentifier NC.Version2ItemIdentifier 
		       NC.Version2LinksIdentifier NC.Version2PropsIdentifier 
		       NC.Version2TitlesIdentifier NC.DateStringLength)
	   (DECLARE: DONTEVAL@LOAD (VARS (NC.Version2LinkLabelsIdentifier (QUOTE ###LABELS###))
					 (NC.Version2ItemIdentifier (QUOTE ###ITEM###))
					 (NC.Version2LinksIdentifier (QUOTE ###LINKS###))
					 (NC.Version2PropsIdentifier (QUOTE ###PROPS###))
					 (NC.Version2TitlesIdentifier (QUOTE ###TITLES###))
					 (NC.DateStringLength 18)))
	   (FNS NC.IndexInFileFromID NC.ReadVersion2Ptrs NC.ReadVersion2Region 
		NC.ReadVersion2Identifier NC.ReadVersion2Date)
	   (RECORDS POINTERLIST NOTECARDLINK)
	   (DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengeDatabaseFile)
							      (QUOTE NCREPAIR)
							      (QUOTE NOTECARDSDIRECTORIES])

(PUTPROPS KOTOSYSTEMPATCHES FileComs [(* * to compile SHAPEW must have EXPORTS.ALL loaded)
					(DECLARE: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY
						  (FILES EXPORTS.ALL (LOADFROM)
							 NSPRINT))
					(FNS SHAPEW \NSPRINT.INTERNAL COPY.TEXT.TO.IMAGE)
					(RESOURCES HPRINTHARRAY)
					(MACROS HPRINTSTRING)
					(GLOBALVARS HPFILLSTRING)
					[DECLARE: EVAL@COMPILE DONTCOPY
						  (VARS HPFILLCHAR HPBAKCHAR
							(HPFILLSTRING (PACKC (LIST HPBAKCHAR 
										   HPFILLCHAR]
					(FNS HPRINT HPRINT1 HCOPYALL HCOPYALL1 HPRINTEND HPRINTSP)
					(* * fgh&rht 8/6/86: Insure that correct imageobj HPRINTMACRO 
					   is at front of the HPRINTMACROS list.)
					(FNS WRITE.IMAGEOBJ)
					(DECLARE: DONTEVAL@LOAD (ADDVARS (HPRINTMACROS (IMAGEOBJ . 
										   WRITE.IMAGEOBJ])

(PUTPROPS KOTOTEDITPATCHES FileComs [(FNS \TEDIT.COMMAND.LOOP \TEDIT.FOREIGN.COPY? \TEDIT.SUBST.FN2 
					    TEDIT.GETINPUT BMOBJ.GETFN3 BMOBJ.DISPLAYFN 
					    BMOBJ.BUTTONEVENTINFN)
				       (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (NONE.TTC 0)
										  (CHARDELETE.TTC
										    1)
										  (WORDDELETE.TTC
										    2)
										  (DELETE.TTC 3)
										  (FUNCTIONCALL.TTC
										    4)
										  (REDO.TTC 5)
										  (UNDO.TTC 6)
										  (CMD.TTC 7)
										  (NEXT.TTC 8)
										  (EXPAND.TTC 9)
										  (PUNCT.TTC 20)
										  (TEXT.TTC 21)
										  (WHITESPACE.TTC
										    22)))
				       (DECLARE: DONTEVAL@LOAD (ADVISE (PROCESS.APPLY IN 
									     \TEDIT.BUTTONEVENTFN])

(PUTPROPS KOTOSKETCHPATCHES FileComs ((DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILE
						  (FILES (FROM {CF}<PAPERWORKS>)
							 SKETCHWHENCOPIEDPATCH
							 (LOADFROM FROM {CF}<PAPERWORKS>)
							 SKETCH SKETCHOBJ))
					(FNS MAKE.IMAGE.OBJECT.OF.SKETCH SKETCH.VIEWER.GRID 
					     SKETCH.VIEWER.SCALE SKETCH.REGION.VIEWED)))

(PUTPROPS GRAPHERPATCH FileComs [(* * RG 1/28/87 From Dave Newman's DVNPATCH003 for NoteCards. Adds 
				      MoveRegion and MoveSubtree facilities.)
				   [DECLARE: DONTEVAL@LOAD
					     (P (if (NOT (OR (MEMBER (QUOTE GRAPHER)
								     SYSFILES)
							     (MEMBER (QUOTE GRAPHER)
								     FILELST)))
						    then
						    (ERROR 
				 "GRAPHER is not loaded.  It must be loaded before GRAPHERPATCH."]
				   (FNS EDITMOVEREGION EDITMOVESUBTREE NOT.TRACKCURSOR 
					RECURSIVE.COLLECTDESCENDENTS MOVEDESCENDENTS 
					COLLECT.CHILD.NODES CREATE.NEW.NODEPOSITION 
					GETBOXPOSITION.FROMINITIALREGION INIT/NODES/FOR/LAYOUT 
					NODECREATE)
				   (DECLARE: DONTEVAL@LOAD
					     (P (DREMOVE (SASSOC "Move Node" EDITGRAPHMENUCOMMANDS)
							 EDITGRAPHMENUCOMMANDS)
						[ADDTOVAR EDITGRAPHMENUCOMMANDS
							  (Move% Node (QUOTE MOVENODE)
								      
							      "Moves a single node in the graph."
								      (SUBITEMS (Move% Single% Node
										  (QUOTE MOVENODE)
										  
							      "Moves a single node in the graph.")
										(
Move% Node% and% Subtree (EDITMOVESUBTREE GRAPHWINDOW)
			 "Moves a subtree of nodes relative to the movement of their root.")
										(Move% Region
										  (EDITMOVEREGION
										    GRAPHWINDOW)
										  
			    "Moves a group of nodes within a specified region to another region."]
						(SETQ EDITGRAPHMENU NIL])

(PUTPROPS NCMAPS FileComs [(DECLARE: DONTEVAL@LOAD (FILES (FROM VALUEOF NOTECARDSDIRECTORIES)
							    NCSKETCHCARD))
			     (* * NOTECARDSMAPDIRECTORIES stuff)
			     (GLOBALVARS NOTECARDSMAPDIRECTORIES UseMapWithPoliticalBoundaries)
			     (FNS NC.SetUpNOTECARDSMAPDIRECTORIES)
			     (INITVARS (NOTECARDSMAPDIRECTORIES (NC.SetUpNOTECARDSMAPDIRECTORIES)))
			     (* * Smash any dummy MAP def'n on SKETCH.ELEMENT.TYPE.NAMES before 
				loading NEWMAP)
			     (DECLARE: DONTEVAL@LOAD (P (DREMOVE (QUOTE MAP)
								 SKETCH.ELEMENT.TYPE.NAMES))
				       (FILES (FROM VALUEOF NOTECARDSMAPDIRECTORIES)
					      NEWMAP)
				       (P (NCP.ChangeCardTypeFields (QUOTE Sketch)
								    NIL
								    (BQUOTE ((MiddleButtonMenuItems
									       ,
									       (
SKETCH.COMMANDMENU.ITEMS T T])

(PUTPROPS NCHACKS FileComs ((* * global text search and global text replace.)
			      (FNS NCHACKS.GlobalTextReplace NCHACKS.TextSearch 
				   NCHACKS.GlobalTextReplaceInCard NCHACKS.TextSearchInCard)
			      (* * remove deleted icons from text cards.)
			      (FNS NCHACKS.RemoveDeletedIconsFromTextCards 
				   NCHACKS.RemoveDeletedIconsFromTextCard)
			      (* * sort link icons in text cards.)
			      (FNS NCHACKS.ReorderLinkIconsInTextCards 
				   NCHACKS.ReorderLinkIconsInTextCard)
			      (* * search for card parts with dates in a specified range.)
			      (FNS NCHACKS.DateSearch NCHACKS.DateSearchInCard)
			      (* * search for cards which have been modified/created within given 
				 time periods.)
			      (FNS NCHACKS.CardsModifiedBetweenDates)
			      (* * make a chain linking cards using a given link type.)
			      (FNS NCHACKS.MakeChain)
			      (* * Make link icons invisible in text cards.)
			      (FNS NCHACKS.MakeLinkIconsInvisible 
				   NCHACKS.MakeLinkIconsInvisibleInTextCard 
				   NCHACKS.MakeLinkIconForLinkInvisible 
				   NCHACKS.MakeTEditCharInvisible)))

(PUTPROPS NCIDEASKETCHCARD FileComs [(* * This package makes a card type IdeaSketch implementing 
					  Richard's idea sketch package.)
				       (* * kirk 11Aug86 converted to 1.3k)
				       [DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories
									  (QUOTE NCSKETCHCARD))
									(NC.LoadFileFromDirectories
									  (QUOTE IDEASKETCH)
									  (QUOTE LISPUSERSDIRECTORIES]
				       (FNS NCAddStub.IdeaSketchCard)
				       (FNS NCIDEASKETCH.CreateIdeaSketchCard 
					    NCIDEASKETCH.MakeIdeaSketchCard 
					    NCIDEASKETCH.BringUpIdeaSketchCard)
				       (DECLARE: DONTEVAL@LOAD (P (NCIDEASKETCH.CreateIdeaSketchCard])

(PUTPROPS NCCOMPACT Directories NOTECARDSDIRECTORIES)

(PUTPROPS NCREPAIR Directories NOTECARDSDIRECTORIES)

(PUTPROPS NCCONVERTVERSION2TO3 Directories NOTECARDSDIRECTORIES)

(PUTPROPS NCMAPS Directories NOTECARDSDIRECTORIES)

(PUTPROPS NCHACKS Directories NOTECARDSDIRECTORIES)

(PUTPROPS NCIDEASKETCHCARD Directories NOTECARDSDIRECTORIES)


(RPAQQ NC.AutoloadableFns (NC.ConvertNoteFileVersion2To3 NC.FindNextCardPart NC.ScavengerPhase1 
							   NC.CompactNoteFileInPlace 
							   NC.CompactNoteFileToTarget SK.MAP.INPUTFN 
							   SK.MAP.INSIDEFN SetCachedBitMap 
							   NC.ScavengeDatabaseFile))

(PUTPROPS NC.ConvertNoteFileVersion2To3 File NCCONVERTVERSION2TO3)

(PUTPROPS NC.FindNextCardPart File NCREPAIR)

(PUTPROPS NC.ScavengerPhase1 File NCREPAIR)

(PUTPROPS NC.CompactNoteFileInPlace File NCCOMPACT)

(PUTPROPS NC.CompactNoteFileToTarget File NCCOMPACT)

(PUTPROPS SK.MAP.INPUTFN File NCMAPS)

(PUTPROPS SK.MAP.INSIDEFN File NCMAPS)

(PUTPROPS SetCachedBitMap File NCMAPS)

(PUTPROPS NC.ScavengeDatabaseFile File NCREPAIR)
)

(RPAQQ NC.AutoloadStubFns (NCAddStub.SketchCard NCAddStub.GraphCard NCAddStub.BrowserCard 
						  NCAddStub.SearchCard NCAddStub.DocumentCard 
						  NCAddStub.LinkIndexCard NCAddStub.IdeaSketchCard))
(DEFINEQ

(NCAddStub.SketchCard
  [LAMBDA NIL                                                (* rht: " 7-Nov-86 16:33")

          (* * kirk 18Jun86 Add the Sketch card stub)



          (* * rht 11/7/86: Fixed typo, changing a QUOTE to BQUOTE.)


    (DECLARE (GLOBALVARS NC.SketchCardIcon))
    (NC.AddCardTypeStub (QUOTE Sketch)
			  (QUOTE NoteCard)
			  (QUOTE NCSKETCHCARD)
			  NIL
			  (BQUOTE ((DisplayedInMenuFlg T)
				     (LinkIconAttachedBitMap , NC.SketchCardIcon])

(NCAddStub.GraphCard
  [LAMBDA NIL                                                (* rht: " 7-Nov-86 16:33")

          (* * kirk 18Jun86 Add the Graph card stub)



          (* * rht 11/7/86: Fixed typo, changing a QUOTE to BQUOTE.)


    (DECLARE (GLOBALVARS NC.GraphCardIcon))
    (NC.AddCardTypeStub (QUOTE Graph)
			  (QUOTE NoteCard)
			  (QUOTE NCGRAPHCARD)
			  NIL
			  (BQUOTE ((DisplayedInMenuFlg T)
				     (LinkIconAttachedBitMap , NC.GraphCardIcon])

(NCAddStub.BrowserCard
  [LAMBDA NIL                                                (* rht: " 8-Nov-86 19:21")

          (* * kirk 18Jun86 Add the Browser card stub)



          (* * rht 11/7/86: Now passes down a \\FILLME// field.)


    (NC.AddCardTypeStub (QUOTE Browser)
			  (QUOTE Graph)
			  (QUOTE NCBROWSERCARD)
			  NIL
			  (QUOTE ((DisplayedInMenuFlg T)))
			  (QUOTE (LinkIconAttachedBitMap])

(NCAddStub.SearchCard
  [LAMBDA NIL                                                (* rht: " 8-Nov-86 19:20")

          (* * kirk 18Jun86 Add the Search card stub)



          (* * rht 11/7/86: Now passes down a \\FILLME// field.)


    (NC.AddCardTypeStub (QUOTE Search)
			  (QUOTE Text)
			  (QUOTE NCSEARCHCARD)
			  NIL
			  (QUOTE ((DisplayedInMenuFlg T)))
			  (QUOTE (LinkIconAttachedBitMap])

(NCAddStub.DocumentCard
  [LAMBDA NIL                                                (* rht: " 8-Nov-86 19:21")

          (* * kirk 18Jun86 Add the FileBox card stub)


    (NC.AddCardTypeStub (QUOTE Document)
			  (QUOTE Text)
			  (QUOTE NCDOCUMENTCARD)
			  NIL
			  (QUOTE ((DisplayedInMenuFlg . T)))
			  (QUOTE (LinkIconAttachedBitMap])

(NCAddStub.LinkIndexCard
  [LAMBDA NIL                                                (* rht: " 8-Nov-86 19:20")

          (* * kirk 18Jun86 Add the LinkIndex card stub)



          (* * rht 11/7/86: Now passes down a \\FILLME// field.)


    (NC.AddCardTypeStub (QUOTE LinkIndex)
			  (QUOTE Text)
			  (QUOTE NCLINKINDEXCARD)
			  NIL
			  (QUOTE ((DisplayedInMenuFlg T)))
			  (QUOTE (LinkIconAttachedBitMap])

(NCAddStub.IdeaSketchCard
  [LAMBDA NIL                                                (* rht: " 8-Nov-86 19:19")

          (* * kirk 18Jun86 Add the IDEASKETCH card stub)


    (NC.AddCardTypeStub (QUOTE IdeaSketch)
			  (QUOTE Sketch)
			  (QUOTE NCIDEASKETCHCARD)
			  NIL
			  (QUOTE ((DisplayedInMenuFlg T)))
			  (QUOTE (LinkIconAttachedBitMap])
)
(PUTDEF (QUOTE CONFIGPROPS) (QUOTE FILEPKGCOMS) [QUOTE ((COM MACRO (X (COMS * (MAKECONFIGPROPSCOMS . 
									      X])
(DECLARE: DONTEVAL@LOAD 

(RPAQ NC.SketchCardIcon (READBITMAP))
(21 18
"OOOOOH@@"
"H@@@@H@@"
"HGO@@H@@"
"HH@H@H@@"
"H@@G@H@@"
"HC@@HH@@"
"HDH@DH@@"
"HHD@BH@@"
"I@B@@H@@"
"I@B@@H@@"
"HHDONH@@"
"HDHHBH@@"
"HC@HBH@@"
"H@@HBH@@"
"H@@HBH@@"
"H@@ONH@@"
"H@@@@H@@"
"OOOOOH@@")

(RPAQ NC.GraphCardIcon (READBITMAP))
(21 18
"OOOOOH@@"
"H@@@@H@@"
"H@@@@H@@"
"H@N@@H@@"
"H@J@@H@@"
"HAJ@@H@@"
"HBO@@H@@"
"HD@KHH@@"
"KH@FHH@@"
"JH@BHH@@"
"JH@CHH@@"
"KL@@@H@@"
"HBN@@H@@"
"HAJ@@H@@"
"H@J@@H@@"
"H@N@@H@@"
"H@@@@H@@"
"OOOOOH@@")
)
(DEFINEQ

(NC.UpdateConfig
  [LAMBDA (Directory)                                        (* Randy.Gobbel " 4-Sep-87 12:24")
    (DECLARE (GLOBALVARS NC.ForceLoadFlg NC.InstallFlg NC.Files NC.AutoloadStubFns NC.NoUpdateFlg 
			     NOTECARDTYPESTUBS NOTECARDSDIRECTORIES))
    (if (NOT NC.NoUpdateFlg)
	then (SETQ Directory (OR Directory (DIRECTORYNAME T)))
	       (for File in NC.Files
		  do [if (AND NC.InstallFlg (GETPROP File (QUOTE ConfigProps)))
			   then (LET ((FullName (NC.FindFile File NIL T T)))
				       (if FullName
					   then (if NC.ForceLoadFlg
						      then (LOAD FullName (QUOTE ALLPROP))
						    else (LOAD? FullName (QUOTE ALLPROP]
		       (for Prop in (GETPROP File (QUOTE ConfigProps)) when (LISTP Prop)
			  do (PUTPROP File (CAR Prop)
					  (APPLY* (CADR Prop)
						    File Directory)))
		       (PRINTOUT T File ": " (GETPROP File (QUOTE SourceFile))
				 " "
				 (GETPROP File (QUOTE CompiledFile))
				 " "
				 (GETPROP File (QUOTE FileDate))
				 T))
	       (SETQ NC.AutoloadStubFns (for TypeName in NOTECARDTYPESTUBS bind Fn
					     eachtime (SETQ Fn (PACK* (QUOTE NCAddStub.)
									    TypeName
									    (QUOTE Card)))
					     when (GETD Fn) collect Fn])

(NC.UpdateSingleFile
  [LAMBDA (File)                                             (* Randy.Gobbel " 2-Sep-87 14:07")
    [for Prop in (GETPROP File (QUOTE ConfigProps)) when (LISTP Prop)
       do (PUTPROP File (CAR Prop)
		       (APPLY* (CADR Prop)
				 File
				 (DIRECTORYNAME T T]
    (PRINTOUT T File ": " (GETPROP File (QUOTE SourceFile))
	      " "
	      (GETPROP File (QUOTE CompiledFile))
	      " "
	      (GETPROP File (QUOTE FileDate))
	      T])

(NC.FixFileDates
  [LAMBDA (Files)                                            (* Randy.Gobbel "21-Jul-87 12:37")

          (* * rg 10/29/86: Created)



          (* * rg 6/19/87 now uses config machinery, smashes all necessary info, not just filedates property)



          (* * rg 7/21/87 tweaks for robustness, added NC.SourceAccessFlg)



          (* * if NC.SourceAccessFlg is non-nil, AND all needed info is available, smash props and FILELST to make Interlisp 
	  think the file wasn't SYSLOADed, so we can get to the sources)


    (DECLARE (GLOBALVARS NC.SourceAccessFlg FILELST))
    (if NC.SourceAccessFlg
	then (for file in (MKLIST Files)
		  do (LET ((rootName (FILENAMEFIELD file (QUOTE NAME)))
			     FileDate SourceFile InitialFile FileComs)
			    (AND (SETQ FileDate (GETPROP rootName (QUOTE FileDate)))
				   (SETQ SourceFile (GETPROP rootName (QUOTE SourceFile)))
				   (SETQ InitialFile (GETPROP rootName (QUOTE InitialFile)))
				   (SETQ FileComs (GETPROP rootName (QUOTE FileComs)))
				   (UNINTERRUPTABLY
                                       (PUTPROP rootName (QUOTE FILEDATES)
						  (LIST (CONS FileDate SourceFile)))
				       (PUTPROP rootName (QUOTE FILE)
						  InitialFile)
				       (SET (FILECOMS rootName)
					      FileComs)
				       (pushnew FILELST rootName))])

(NC.FindFile
  [LAMBDA (FileName TypeName CheckConnectedDirFlg SourceFlg Directories)
                                                             (* Randy.Gobbel "20-Jul-87 18:45")

          (* * kirk 6/12/86 find code file to implement a card type)



          (* * kirk 9/21/86 added optional FileName parameter)



          (* * rht&rg&pmi 10/21/86: Removed lots of useless kruft and replaced with other FINDFILE kruft.
	  Added CheckConnectedDirFlg arg.)



          (* * kirk 12/23/86 replaced use of DCOM with COMPILE.EXT)



          (* * RG 5/15/87 now return NIL if final FINDFILE fails)



          (* * rg 6/19/87 try to use filename props if they exist. Don't use props if initial install of this version on a 
	  particular file server.)



          (* * rg 7/20/87 fix glitch in file props scheme)


    (DECLARE (GLOBALVARS NOTECARDSDIRECTORIES))
    (LET [(FilesLoadDirs (if Directories
			     then (EVAL Directories)
			   elseif CheckConnectedDirFlg
			     then (CONS (DIRECTORYNAME T T)
					    NOTECARDSDIRECTORIES)
			   else NOTECARDSDIRECTORIES))
	  (FileProps (GETPROP FileName (if SourceFlg
					     then (QUOTE SourceFile)
					   else (QUOTE CompiledFile]
         [OR FileName (SETQ FileName (PACK* (QUOTE NC)
						  (U-CASE TypeName)
						  (QUOTE CARD]
         (OR (AND (NOT NC.InstallFlg)
		      FileProps
		      (FINDFILE FileProps))
	       (if (AND (NULL (FILENAMEFIELD FileName (QUOTE EXTENSION)))
			    (FINDFILE (PACKFILENAME (QUOTE BODY)
							FileName
							(QUOTE EXTENSION)
							(if SourceFlg
							    then ""
							  else COMPILE.EXT))
					T FilesLoadDirs))
		 else (FINDFILE FileName T FilesLoadDirs])

(NC.LoadFileFromDirectories
  [LAMBDA (FileName Directories QuietFlg)                    (* Randy.Gobbel " 4-Sep-87 12:27")

          (* * Try to load FileName from Directories. The latter can be a list in which case the elements should be directory
	  paths. It can be an atom in which case it should be a DIRECTORIES var. Or it can be NIL in which case it defaults 
	  to the litatom NOTECARDSDIRECTORIES.)



          (* * fgh 6/3/86 Now closes tty window after ts done.)



          (* * rht 10/31/86: Changed "DIRECTORIES" to "Directories")



          (* * rht 4/17/87: Now smashes PAGEFULLFN of tty window so that it'll scroll automatically. Also prints a message to
	  the tty window.)



          (* * rg 7/9/87 now uses NC.FindFile)



          (* * rg 7/21/87 now looks at QuietFlg before doing PRINTOUT. Note: there may still be some instances where files 
	  will not be loaded, even though a message is printed, but it's too difficult to predict for all cases whether LOAD?
	  will actually do a LOAD. Membership in LOADEDFILELST is used as a 99% correct hint)



          (* * rg 9/4/87 now pushes file name onto NC.LoadedFiles for use by NC.PostGreet)


    (DECLARE (GLOBALVARS LOADEDFILELST NC.LoadedFiles))
    (RESETLST [RESETSAVE NIL (if (OPENWP (WFROMDS (TTYDISPLAYSTREAM)
							    T))
				     then (SETQ QuietFlg T)
					    (QUOTE (NILL))
				   else (BQUOTE (CLOSEW , (WFROMDS (TTYDISPLAYSTREAM]
		[RESETSAVE NIL (if QuietFlg
				     then (QUOTE (NILL))
				   else (BQUOTE (WINDOWPROP , (WFROMDS (TTYDISPLAYSTREAM))
								  (QUOTE PAGEFULLFN)
								  ,
								  (WINDOWPROP (WFROMDS (
										 TTYDISPLAYSTREAM))
										(QUOTE PAGEFULLFN)
										(QUOTE NILL]
		(LET [(Window (WFROMDS (TTYDISPLAYSTREAM)))
		      (FullName (NC.FindFile FileName NIL NIL NIL (OR (GETPROP FileName
										     (QUOTE 
										      Directories))
									  Directories]
		     (if (AND FullName (NOT (FMEMB FullName LOADEDFILELST)))
			 then (if (NOT QuietFlg)
				    then (CLEARW Window)
					   (FLASHWINDOW Window)
					   (PRINTOUT Window "Attempting to autoload " FileName T))
				(APPLY* (FUNCTION FILESLOAD)
					  (QUOTE (SYSLOAD))
					  FullName)
				(pushnew NC.LoadedFiles (FILENAMEFIELD FileName (QUOTE NAME)))
				(NC.FixFileDates FileName])

(NC.LookupAutoloadFnFile
  [LAMBDA (AutoloadFn)                                       (* Randy.Gobbel "10-Jul-87 17:17")

          (* * Fetch the fully-qualified filename for loading given function)


    (GETPROP (GETPROP AutoloadFn (QUOTE File))
	       (QUOTE CompiledFile])

(NC.StoreAutoloadFnFile
  [LAMBDA (AutoloadFn FileName Directories)                  (* edited: "26-Aug-87 17:22")

          (* * Store an entry in the autoload table for given AutoloadFn. It consists of FileName and Directories variable or
	  list or NIL.)


    (PUTPROP AutoloadFn (QUOTE File)
	       FileName)
    (PUTPROP FileName (QUOTE Directories)
	       Directories)
    (pushnew NC.AutoloadableFns AutoloadFn])

(NC.SetStandardConfigProps
  [LAMBDA (File)                                             (* Randy.Gobbel "10-Jul-87 20:43")

          (* * rg 7/8/87 add necessary config props for a standard NoteCards component file)


    (PUTPROP File (QUOTE ConfigProps)
	       (UNION (GETPROP File (QUOTE ConfigProps))
			(QUOTE (COPYRIGHT [SourceFile (LAMBDA (File Directory)
							  (FINDFILE
							    File T (OR (EVAL (GETPROP
										   File
										   (QUOTE 
										      Directories)))
									 (LIST Directory]
					    [CompiledFile (LAMBDA (File Directory)
							    (FINDFILE
							      (PACKFILENAME (QUOTE BODY)
									      File
									      (QUOTE EXTENSION)
									      COMPILE.EXT)
							      T
							      (OR (EVAL (GETPROP File
										       (QUOTE
											 Directories))
									    )
								    (LIST Directory]
					    [FileDate (LAMBDA (File)
							(CAAR (GETPROP File (QUOTE FILEDATES]
					    [InitialFile (LAMBDA (File)
							   (LIST (CONS (FILECOMS File)
									   (QUOTE Compiled]
					    (FileComs (LAMBDA (File)
							(EVAL (FILECOMS File])

(MAKECONFIGPROPSCOMS
  [NLAMBDA Files                                             (* Randy.Gobbel "13-Jul-87 14:18")
    (LET [(Props (for File in Files join (for Val in (GETPROP File (QUOTE ConfigProps))
						  collect (if (LISTP Val)
								then (CAR Val)
							      else Val]
         (SETQ Props (INTERSECTION Props Props))
         (for Prop in Props collect (APPEND (LIST (QUOTE IFPROP)
							    Prop)
						    Files])
)
(DECLARE: EVAL@COMPILE 
[DEFMACRO NC.AutoloadApply (Fn Args)
	  (* * Like NC.AutoloadApply* except takes single Args argument rather than spread.)
	  (BQUOTE (if (GETD , Fn)
		      then
		      (APPLY , Fn , Args)
		      else
		      (LET ((FileName (NC.LookupAutoloadFnFile , Fn)))
			   (if FileName then (NC.LoadFileFromDirectories FileName)
			       (if (GETD , Fn)
				   then
				   (APPLY , Fn , Args)
				   else
				   (NC.ReportError "NC.AutoloadApply"
						   (CONCAT "Loaded file " FileName 
							   ", but still no definition of "
							   , Fn)))
			       else
			       (NC.ReportError "NC.AutoloadApply" (CONCAT "No definition of " , Fn 
							   " in table of autoloadable functions."]
[DEFMACRO NC.AutoloadApply* (Fn &REST args)
	  (* * First arg is name of function to apply. Rest are args. The fn name should be in the 
	     global table with an accompanying file to autoload from.)
	  (BQUOTE (if (GETD , Fn)
		      then
		      (APPLY* , Fn ,@ args)
		      else
		      (LET ((FileName (NC.LookupAutoloadFnFile , Fn)))
			   (if FileName then (NC.LoadFileFromDirectories FileName)
			       (if (GETD , Fn)
				   then
				   (APPLY* , Fn ,@ args)
				   else
				   (NC.ReportError "NC.AutoloadApply*"
						   (CONCAT "Loaded file " FileName 
							   ", but still no definition of "
							   , Fn)))
			       else
			       (NC.ReportError "NC.AutoloadApply*" (CONCAT "No definition of " , Fn 
							   " in table of autoloadable functions."]
[PUTPROPS NAMED-RESETLST MACRO ((X . Y)
	   (PROG (RESETY RESETZ (LISPXHIST LISPXHIST))
		 [NAMED-RESETRESTORE (QUOTE X)
				     (SETQ RESETZ (COND ((XNLSETQ (SETQ RESETY (PROGN . Y))
								  INTERNAL)
							 NIL)
							(T (QUOTE ERROR]
		 (RETURN (COND (RESETZ (ERROR!))
			       (T RESETY]
(DEFMACRO NAMED-RESETSAVE (RESETHANDLE &REST FORMS)
	  (BQUOTE (LET (RESETITEM)
		       (SETQ , RESETHANDLE
			     (CONS [SETQ
				     RESETITEM ,
				     (COND
				       [(AND (ATOM (CAR FORMS))
					     (CAR FORMS))
					(SUBPAIR (QUOTE (VAR VAL))
						 (CDR X)
						 (QUOTE (PROG1 [CONS (QUOTE VAR)
								     (CONS (STKSCAN (QUOTE VAR))
									   (EVAL (QUOTE VAR]
							       (SET (QUOTE VAR)
								    VAL]
				       [(CDR FORMS)
					(BQUOTE (LIST , (CADR FORMS)
						      ,
						      (CAR FORMS]
				       (T (BQUOTE (LIST (LIST [QUOTE , (COND ((EQ (CAAR FORMS)
										  (QUOTE SETQ))
									      (CAR (CADDAR FORMS)))
									     (T (CAAR FORMS]
							      ,
							      (CAR FORMS]
				   , RESETHANDLE))
		       RESETITEM)))
[DEFMACRO NAMED-RESETUNSAVE (RESETHANDLE ITEMFORM)
	  (BQUOTE (LET ((ITEMLIST , ITEMFORM))
		       (for ITEM in ITEMLIST do (SET RESETHANDLE (DREMOVE ITEM , RESETHANDLE))
			    (COND ((LISTP (CAR ITEM))
				   [SETQ OLDVALUE (COND ((CDR ITEM)
							 (CADR ITEM))
							(T (CADAR ITEM]
				   (APPLY (CAAR ITEM)
					  (CDAR ITEM)))
				  (T (SET (CAR ITEM)
					  (CDR ITEM]
)
(DEFINEQ

(NAMED-RESETLST
  [NLAMBDA RESETX                                            (* Randy.Gobbel "19-Mar-87 11:06")

          (* NAMED-RESETLST and NAMED-RESETSAVE act just like the generic versions, except that they take a RESETHANDLE 
	  argument. This allows the scope of RESETLSTs to overlap. The RESETHANDLE variable should be bound inside of a LET 
	  or PROG to ensure that different processes do not collide in their use of this facility.)


    (PROG (RESETY RESETZ (LISPXHIST LISPXHIST))
	    (SET (CAR RESETX)
		   NIL)
	    [NAMED-RESETRESTORE (CAR RESETX)
				  (COND
				    ((SETQ RESETY (ERRORSET (CONS (QUOTE PROGN)
									(CDR RESETX))
								(QUOTE INTERNAL)))
				      NIL)
				    (T (QUOTE ERROR]
	    [COND
	      (RESETY (RETURN (CAR RESETY]
	    (ERROR!])

(NAMED-RESETSAVE
  [NLAMBDA RESETX                                            (* Randy.Gobbel "19-Mar-87 19:33")

          (* for use under a NAMED-RESETLST. If RESETX is atmic, like RESETVAR, otherwise like RESETFORM, i.e. performs the 
	  resetting and saving associated with these functions. The restoration aad errorset protectionis done by 
	  NAMED-RESETLST. The item added to RESETHANDLE is returned for possible later use by NAMED-RESETUNSAVE.
	  When used a la RESETFORM, can take a second argument whose value (computed before firt argument) is restoration 
	  form, e.g. (NAMED-RESETSAVE FOO (SETSEPR --) (LIST (QUOTE SETSEPR) (GETSEPR))) (NAMED-RESETSAVE FOO NIL form) means
	  just add value of form to FOO)


    (LET ((RESETHANDLE (CAR RESETX))
	  RESETITEM)
         (SETQ RESETX (CDR RESETX))
         (SET RESETHANDLE (CONS [SETQ RESETITEM (COND
					[(AND (CAR RESETX)
						(ATOM (CAR RESETX)))
					  (PROG1 (CONS (CAR RESETX)
							   (CAR RESETX))
						   (SET (CAR RESETX)
							  (EVAL (CADR RESETX)
								  (QUOTE INTERNAL]
					[(CDR RESETX)

          (* CADR of the entry put on resetvarslst is the value of the saving form. The variable OLDVALUE is bound to this 
	  value during restoration. This makes it more convenient for the estoration to be conditional, e.g. the user can 
	  perform (RESETSAVE (FOO mumble) (QUOTE (AND pred (FIE OLDVALUE)))))


					  (LIST (EVAL (CADR RESETX))
						  (EVAL (CAR RESETX]
					(T (LIST (LIST (COND
							     ((EQ (CAAR RESETX)
								    (QUOTE SETQ))
							       (CAR (CADDAR RESETX)))
							     (T (CAAR RESETX)))
							   (EVAL (CAR RESETX]
				    (EVAL RESETHANDLE)))
     RESETITEM])

(NAMED-RESETRESTORE
  [LAMBDA (RESETHANDLE RESETSTATE)                           (* Randy.Gobbel "18-Mar-87 19:07")

          (* Goes down RESETHANDLE doing restoration until it gets to NIL. RESETSTATE is either NIL, ERROR, or RESET, 
	  depending on whether restoration is at normal (successful) completion of a NAMED-RESETLST, following an error or 
	  control-E, or following a control-D)


    (PROG (RESETZ OLDVALUE (VARSLST (EVAL RESETHANDLE)))
	LP  (COND
	      (VARSLST (SETQ RESETZ (CAR VARSLST))
		       (SETQ VARSLST (CDR VARSLST))
		       [COND
			 ((LISTP (CAR RESETZ))
			   [SETQ OLDVALUE (COND
			       ((CDR RESETZ)

          (* occurs for RESETSAVE's when second aagument is specified. In this case, (CADR RESETZ) is the value of the saving
	  form, i.e. the first argument to RESETSAVE.)


				 (CADR RESETZ))
			       (T (CADAR RESETZ]
			   (APPLY (CAAR RESETZ)
				    (CDAR RESETZ)))
			 (T (SET (CAR RESETZ)
				   (CDR RESETZ]
		       (GO LP)))
	    (SET RESETHANDLE NIL])

(NAMED-RESETUNSAVE
  [NLAMBDA (RESETHANDLE ITEMFORM)                            (* Randy.Gobbel "19-Mar-87 12:04")
    (LET ((ITEMLIST (EVAL ITEMFORM)))
         (for ITEM in ITEMLIST
	    do (SET RESETHANDLE (DREMOVE ITEM (EVAL RESETHANDLE)))
		 (COND
		   ((LISTP (CAR ITEM))
		     [SETQ OLDVALUE (COND
			 ((CDR ITEM)
			   (CADR ITEM))
			 (T (CADAR ITEM]
		     (APPLY (CAAR ITEM)
			      (CDAR ITEM)))
		   (T (SET (CAR ITEM)
			     (CDR ITEM])
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA NAMED-RESETSAVE NAMED-RESETLST MAKECONFIGPROPSCOMS)

(ADDTOVAR NLAML NAMED-RESETUNSAVE)

(ADDTOVAR LAMA )
)
(PUTPROPS NCCONFIG COPYRIGHT ("Xerox Corporation" 1987 1988))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (147492 150650 (NCAddStub.SketchCard 147502 . 148017) (NCAddStub.GraphCard 148019 . 
148528) (NCAddStub.BrowserCard 148530 . 148977) (NCAddStub.SearchCard 148979 . 149421) (
NCAddStub.DocumentCard 149423 . 149802) (NCAddStub.LinkIndexCard 149804 . 150258) (
NCAddStub.IdeaSketchCard 150260 . 150648)) (151288 161726 (NC.UpdateConfig 151298 . 152727) (
NC.UpdateSingleFile 152729 . 153269) (NC.FixFileDates 153271 . 154742) (NC.FindFile 154744 . 156618) (
NC.LoadFileFromDirectories 156620 . 159196) (NC.LookupAutoloadFnFile 159198 . 159504) (
NC.StoreAutoloadFnFile 159506 . 159965) (NC.SetStandardConfigProps 159967 . 161199) (
MAKECONFIGPROPSCOMS 161201 . 161724)) (164660 169087 (NAMED-RESETLST 164670 . 165539) (NAMED-RESETSAVE
 165541 . 167412) (NAMED-RESETRESTORE 167414 . 168538) (NAMED-RESETUNSAVE 168540 . 169085)))))
STOP