(FILECREATED " 8-Jun-87 16:48:28" {QV}<NOTECARDS>1.3K>NEXT>NOTECARDS.;78 20463
changes to: (FNS NC.MakeLafiteForm NC.SetUpNOTECARDSDIRECTORIES NC.FindFile)
(VARS NOTECARDSCOMS)
previous date: "24-Apr-87 15:07:40" {QV}<NOTECARDS>1.3K>NEXT>NOTECARDS.;77)
(* Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT NOTECARDSCOMS)
(RPAQQ NOTECARDSCOMS ((* * This Release)
(GLOBALVARS NC.ThisDirectory NC.ReleaseIdentifier NOTECARDSNEXTDIRECTORIES
NOTECARDSDIRECTORIES UseMapWithPoliticalBoundaries AFTERLOGOUTFORMS)
(VARS (NC.ReleaseIdentifier "1.3K"))
(* * Set up the NoteCards directories globalvars)
(FNS NC.SetUpNOTECARDSDIRECTORIES)
(INITVARS (NOTECARDSDIRECTORIES (NC.SetUpNOTECARDSDIRECTORIES)))
(* * card types and library packages)
(GLOBALVARS NOTECARDTYPESTUBS NOTECARDTYPES NOTECARDSLIBRARYFILES NOTECARDSLISPUSERSFILES
NC.LOADFLG)
(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))
(INITVARS (NC.LOADFLG (QUOTE SYSLOAD)))
(FNS NC.FindFile NC.FixFileDates)
(* Horrible kludge to fix up file dates for top level file follows)
(* * 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]
(* * code module lists for the convenience of programmers)
(GLOBALVARS NC.CoreFiles NC.Files)
[VARS (NC.CoreFiles (QUOTE (NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE
NCCARDS NCLINKS NCTYPESMECH NCPROGINT
NCCROSSFILELINKS KOTOTEDITPATCHES KOTOSYSTEMPATCHES
POSTRELEASEPATCHES)))
(NC.Files (QUOTE (NOTECARDS 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]
(* * 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 [P (ADVISE (QUOTE WHEREIS)
(QUOTE BEFORE)
NIL
(QUOTE (if (GETPROP (QUOTE NOTECARDS)
(QUOTE FILEDATES))
then
(NC.FixFileDates (QUOTE NOTECARDS))
(UNADVISE (QUOTE WHEREIS]
[P (EVAL (BQUOTE (FILESLOAD ,@ (if NC.LOADFLG then (BQUOTE ((, NC.LOADFLG FROM
NOTECARDS)
,@ NC.CoreFiles))
else NC.CoreFiles]
(P (NC.FixFileDates NC.CoreFiles)))
(DECLARE: EVAL@LOADWHEN (NEQ NC.ThisDirectory NOTECARDSNEXTDIRECTORIES))
(* * 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.")))
(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.")))
(P (SETQ BackgroundMenu))
(FNS NC.SetSystemDate)
(P (NC.SetSystemDate))))
(* * This Release)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.ThisDirectory NC.ReleaseIdentifier NOTECARDSNEXTDIRECTORIES NOTECARDSDIRECTORIES
UseMapWithPoliticalBoundaries AFTERLOGOUTFORMS)
)
(RPAQ NC.ReleaseIdentifier "1.3K")
(* * Set up the NoteCards directories globalvars)
(DEFINEQ
(NC.SetUpNOTECARDSDIRECTORIES
[LAMBDA (BaseDirectory ReleaseIdentifier) (* Randy.Gobbel "14-May-87 12:39")
(* * Set up the NoteCards directories globalvars)
(* * fgh 8/5/86 Now adds NC.ThisDirectory onto the beginning of the directory list retruned.)
(* * rg 4/24/87 adds next>lib> into dir list if notecards was loaded from >next)
(* * rg 5/14/87 now sets NOTECARDSNEXTDIRECTORIES)
(LET (NoteCardsBaseDirectory StrPtr LibNextDirectory)
(* * Get the directory for the file now being loaded)
[COND
((SETQ NoteCardsBaseDirectory BaseDirectory))
(T (SETQ NC.ThisDirectory (PACK* (QUOTE {)
(FILENAMEFIELD (FULLNAME (INPUT))
(QUOTE HOST))
(QUOTE })
(QUOTE <)
(FILENAMEFIELD (FULLNAME (INPUT))
(QUOTE DIRECTORY))
(QUOTE >)))
(* * Find the directory path up to the first subdirectory called NoteCards)
(COND
((SETQ StrPtr (STRPOS "NOTECARDS>" (U-CASE NC.ThisDirectory)
NIL NIL NIL T))
(SETQ NoteCardsBaseDirectory (SUBATOM NC.ThisDirectory 1 (SUB1 StrPtr]
(SETQ NOTECARDSNEXTDIRECTORIES (PACK* NoteCardsBaseDirectory (OR ReleaseIdentifier
NC.ReleaseIdentifier)
">NEXT>"))
(SETQ LibNextDirectory (COND
((STRPOS ">NEXT>" NC.ThisDirectory)
(PACK* NoteCardsBaseDirectory (OR ReleaseIdentifier NC.ReleaseIdentifier)
">NEXT>LIBRARY>"))
(T NIL)))
(* * Create the directory search list based on the NoteCardsBaseDirectory)
(COND
[NoteCardsBaseDirectory (COND
[LibNextDirectory (UNION (LIST NC.ThisDirectory)
(LIST (PACK*
NoteCardsBaseDirectory
(OR
ReleaseIdentifier
NC.ReleaseIdentifier)
">")
LibNextDirectory
(PACK*
NoteCardsBaseDirectory
(OR
ReleaseIdentifier
NC.ReleaseIdentifier)
">" "LIBRARY>")
NoteCardsBaseDirectory
(PACK*
NoteCardsBaseDirectory
"LIBRARY>"]
(T (UNION (LIST NC.ThisDirectory)
(LIST (PACK* NoteCardsBaseDirectory
(OR ReleaseIdentifier
NC.ReleaseIdentifier)
">")
(PACK* NoteCardsBaseDirectory
(OR ReleaseIdentifier
NC.ReleaseIdentifier)
">" "LIBRARY>")
NoteCardsBaseDirectory
(PACK* NoteCardsBaseDirectory "LIBRARY>"]
(T (LIST NC.ThisDirectory])
)
(RPAQ? NOTECARDSDIRECTORIES (NC.SetUpNOTECARDSDIRECTORIES))
(* * card types and library packages)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NOTECARDTYPESTUBS NOTECARDTYPES NOTECARDSLIBRARYFILES NOTECARDSLISPUSERSFILES NC.LOADFLG)
)
(ADDTOVAR NOTECARDTYPESTUBS Sketch Graph Browser Search Document LinkIndex IdeaSketch)
(ADDTOVAR NOTECARDTYPES Hash List Text FileBox)
(ADDTOVAR NOTECARDSLIBRARYFILES NCHACKS)
(* ADDVARS (NOTECARDSLIBRARYFILES NCKEYS))
(ADDTOVAR NOTECARDSLISPUSERSFILES TEDIT-PROCESS-KILLER)
(RPAQ? NC.LOADFLG (QUOTE SYSLOAD))
(DEFINEQ
(NC.FindFile
[LAMBDA (FileName TypeName CheckConnectedDirFlg SourceFlg)
(* Randy.Gobbel "15-May-87 16:06")
(* * 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)
(DECLARE (GLOBALVARS NOTECARDSDIRECTORIES))
(LET ((FilesLoadDirs (if CheckConnectedDirFlg
then (CONS (DIRECTORYNAME T T)
NOTECARDSDIRECTORIES)
else NOTECARDSDIRECTORIES)))
[OR FileName (SETQ FileName (PACK* (QUOTE NC)
(U-CASE TypeName)
(QUOTE CARD]
(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.FixFileDates
[LAMBDA (Files) (* Randy.Gobbel "24-Feb-87 16:02")
(* * rg 10/29/86: Created)
(* * If we loaded out of next dir, do nothing. Otherwise, if the directory in the filedates is the next dir, do a
findfile on the source for the file and stuff that into the filedates.)
(DECLARE: GLOBALVARS NC.ThisDirectory NOTECARDSNEXTDIRECTORIES)
(if (NEQ NC.ThisDirectory NOTECARDSNEXTDIRECTORIES)
then (for file in (MKLIST Files)
do (LET [(rootName (FILENAMEFIELD file (QUOTE NAME]
(if (EQ [PACKFILENAME (QUOTE NAME)
NIL
(QUOTE EXTENSION)
NIL
(QUOTE VERSION)
NIL
(QUOTE BODY)
(CDAR (GETPROP rootName (QUOTE
FILEDATES]
NOTECARDSNEXTDIRECTORIES)
then (PUTPROP rootName (QUOTE FILEDATES)
(LIST (CONS (CAAR (GETPROP rootName
(QUOTE
FILEDATES)))
(NC.FindFile rootName NIL NIL T])
)
(* Horrible kludge to fix up file dates for top level file follows)
(* * This is for link icon formatting until it is part of <LISPUSERS> proper)
(FILESLOAD (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))
(LOAD? (FINDFILE (QUOTE TABLEBROWSER.DCOM)
T NOTECARDSDIRECTORIES)
(QUOTE SYSLOAD))
(LOAD? (FINDFILE (QUOTE FILEBROWSER.DCOM)
T NOTECARDSDIRECTORIES)
(QUOTE SYSLOAD))
)
(* * code module lists for the convenience of programmers)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.CoreFiles NC.Files)
)
(RPAQQ NC.CoreFiles (NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE NCCARDS NCLINKS
NCTYPESMECH NCPROGINT NCCROSSFILELINKS KOTOTEDITPATCHES
KOTOSYSTEMPATCHES POSTRELEASEPATCHES))
(RPAQQ NC.Files (NOTECARDS 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))
(* * global params)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.DeletedLinkImageObject NC.DeletedLinkImageFns NC.InvisibleLinkImageObject
NC.InvisibleLinkImageFns NC.LinkIconImageFns NC.NoDeleteImageFns NC.SystemDate
TEDIT.INPUT.FORMATS WindowMenuCommands NCINITIALGLOBALPARAMS)
)
(RPAQ? NCINITIALGLOBALPARAMS NIL)
(* * Load the NoteCards files)
(DECLARE: DONTEVAL@LOAD DOCOPY
[ADVISE (QUOTE WHEREIS)
(QUOTE BEFORE)
NIL
(QUOTE (if (GETPROP (QUOTE NOTECARDS)
(QUOTE FILEDATES))
then
(NC.FixFileDates (QUOTE NOTECARDS))
(UNADVISE (QUOTE WHEREIS]
[EVAL (BQUOTE (FILESLOAD ,@ (if NC.LOADFLG then (BQUOTE ((, NC.LOADFLG FROM NOTECARDS)
,@ NC.CoreFiles))
else NC.CoreFiles]
(NC.FixFileDates NC.CoreFiles)
)
(DECLARE: EVAL@LOADWHEN (NEQ NC.ThisDirectory NOTECARDSNEXTDIRECTORIES) )
(* * Initialization functions)
(DEFINEQ
(NC.PostGreet
[LAMBDA NIL (* Randy.Gobbel "24-Apr-87 15:06")
(* * called when loading NOTECARDS and after each greet (for NOTECARDS sysout users) Note this means you cannot put
anything in here that should not be called twice!)
(* * kirk 10Jul86 added load of NCPOSTRELEASEPATCHES)
(* * kirk 10Aug86 set quietflg in call on NC.CardTypeLoader)
(* * fgh 8/27/86 Changed call to NC.AddCardTypeStub to NC.CardTypeStubLoader to go along with changes to
AddCardTypeStub)
(* * rg 10/29/86 Added calls to NC.FixFileDates after all LOAD calls)
(* * rg 12/11/86 Changed LOADFROM of source to LOADVARS of coms)
(* * RG 3/20/87 moved load of POSTRELEASEPATCHES after load of default card types)
(* * rg 4/24/87 added load of LISPUSERS packages using NC.LoadFileFromDirectories ; also moved call to
START-TEDIT-KILLER here)
(DECLARE (GLOBALVARS NC.CardTypes NC.CoreFiles NC.LOADFLG NOTECARDTYPES NOTECARDTYPESTUBS
NOTECARDSLIBRARYFILES NOTECARDSLISPUSERSFILES NCINITIALGLOBALPARAMS))
[LET (FullFileName TypeName Type File)
(for TypeName in NOTECARDTYPES unless (AND (SETQ Type (GETHASH TypeName
NC.CardTypes))
(NOT (fetch (NoteCardType StubFlg)
of Type)))
do (NC.CardTypeLoader TypeName NIL T))
(* * in case new patches have been made since the sysout was made or the last greet)
(COND
((SETQ FullFileName (NC.FindFile (QUOTE POSTRELEASEPATCHES)))
(LOAD? FullFileName NC.LOADFLG)
(NC.FixFileDates FullFileName)))
(for TypeName in NOTECARDTYPESTUBS unless (OR (NC.CardTypeRecord TypeName)
(MEMB TypeName NOTECARDTYPES)
(GETHASH TypeName NC.CardTypes))
do (NC.CardTypeStubLoader TypeName))
(* * Load the library packages requested by the user's NOTECARDSLIBRARYFILES parameters)
(for File in NOTECARDSLIBRARYFILES unless (GETPROP File (QUOTE FILEDATES))
do (COND
((SETQ FullFileName (NC.FindFile File))
(LOAD FullFileName NC.LOADFLG)
(NC.FixFileDates FullFileName))
(T (PRINT (CONCAT "NoteCards: Can't find library file: " File "."]
(for File in NOTECARDSLISPUSERSFILES do (NC.LoadFileFromDirectories File (QUOTE
LISPUSERSDIRECTORIES)))
(if (FNTYP (QUOTE START-TEDIT-KILLER))
then (START-TEDIT-KILLER))
(NCP.NoteCardsParameters NCINITIALGLOBALPARAMS)
(if (NEQ NC.LOADFLG (QUOTE SYSLOAD))
then [for file in (CONS (QUOTE NOTECARDS)
NC.CoreFiles)
do (if (NOT (BOUNDP (FILECOMS file)))
then (LOADVARS (FILECOMS file)
(NC.FindFile file]
(NC.FixFileDates NC.CoreFiles])
)
(ADDTOVAR POSTGREETFORMS (NC.PostGreet))
(DECLARE: DONTEVAL@LOAD DOCOPY
(NC.PostGreet)
)
(* * Set up Lafite Bug Report Forms)
(DEFINEQ
(NC.MakeLafiteForm
[LAMBDA NIL (* pmi: " 8-May-87 15:08")
(* * pmi 5/8/87: Changed "To:" field to be choice of GV or NS address for NoteCardsSupport.)
(MAKEXXXSUPPORTFORM (CONCAT "NoteCards " NC.ReleaseIdentifier)
">> NoteCardsSupport.PA, NoteCardsSupport:PA:Xerox <<" NC.SystemDate])
)
(ADDTOVAR LAFITESPECIALFORMS ("NoteCards Report" (FUNCTION NC.MakeLafiteForm)
"Report bug or request new feature for NoteCards.")
)
(SETQ LAFITEFORMSMENU NIL)
(* * INITIALIZE NoteCards)
(DEFINEQ
(NC.Setup
[LAMBDA NIL (* Randy.Gobbel " 5-Nov-86 15:45")
(* * rht 11/17/84: Added definition of NC.InvisibleLinkImageObj.)
(* * rht 4/11/86: Deleted short window menu stuff. Also dumped INTERCALC stuff and prompt window stuff.)
(DECLARE (GLOBALVARS UseMapWithPoliticalBoundaries AFTERLOGOUTFORMS))
(NC.InitializeUID)
(SETQ AFTERLOGOUTFORMS (CONS (QUOTE (NC.InitializeUID))
AFTERLOGOUTFORMS))
(SETQ UseMapWithPoliticalBoundaries T)
(SETQ TEDIT.INPUT.FORMATS NIL)
(NC.MakeMainMenu)
(SETQ NC.LinkIconImageFns (IMAGEFNSCREATE (FUNCTION NC.LinkIconDisplayFn)
(FUNCTION NC.LinkIconImageBoxFn)
(FUNCTION NC.LinkIconPutFn)
(FUNCTION NC.LinkIconGetFn)
(FUNCTION NC.LinkIconCopyFn)
(FUNCTION NC.LinkIconButtonEventInFn)
(FUNCTION NILL)
(FUNCTION NC.LinkIconWhenMovedFn)
(FUNCTION NC.LinkIconWhenInsertedFn)
(FUNCTION NC.LinkIconWhenDeletedFn)
(FUNCTION NC.LinkIconWhenCopiedFn)
(FUNCTION NILL)
(FUNCTION NILL)))
[SETQ NC.NoDeleteImageFns (PROG ((ImageObj (NC.MakeLinkIcon NIL)))
(replace (IMAGEOBJ IMAGEOBJFNS) of ImageObj
with (create IMAGEFNS using (fetch (IMAGEOBJ
IMAGEOBJFNS)
of ImageObj)))
(IMAGEOBJPROP ImageObj (QUOTE WHENDELETEDFN)
(FUNCTION NILL))
(RETURN (fetch (IMAGEOBJ IMAGEOBJFNS) of ImageObj]
(SETQ NC.DeletedLinkImageFns (IMAGEFNSCREATE (FUNCTION NC.DeletedLinkDisplayFn)
(FUNCTION NC.DeletedLinkImageBoxFn)
(FUNCTION NC.DeletedLinkPutFn)
(FUNCTION NC.DeletedLinkGetFn)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)))
(SETQ NC.DeletedLinkImageObject (IMAGEOBJCREATE "DeletedLink" NC.DeletedLinkImageFns))
(SETQ NC.InvisibleLinkImageFns (IMAGEFNSCREATE (FUNCTION NILL)
(FUNCTION NC.InvisibleLinkImageBoxFn)
(FUNCTION NC.InvisibleLinkPutFn)
(FUNCTION NC.InvisibleLinkGetFn)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)))
(SETQ NC.InvisibleLinkImageObject (IMAGEOBJCREATE "InvisibleLink" NC.InvisibleLinkImageFns])
)
(DECLARE: DONTEVAL@LOAD DOCOPY
(NC.Setup)
)
(ADDTOVAR BackgroundMenuCommands (NoteCards (NC.BringUpNoteCardsIcon)
"Bring up the NoteCards control icon."))
(SETQ BackgroundMenu)
(DEFINEQ
(NC.SetSystemDate
[LAMBDA NIL (* rht: "20-Oct-86 16:41")
(* * Set the NC.SystemDate from the stored file dates)
(DECLARE (GLOBALVARS NC.SystemDate NC.Files))
(LET (ThisFileDate)
(SETQ NC.SystemDate "23-Aug-70 13:28:52")
(for File in NC.Files
do [SETQ ThisFileDate (CAAR (GETPROP File (QUOTE FILEDATES]
(if (AND ThisFileDate (GREATERP (IDATE ThisFileDate)
(IDATE NC.SystemDate)))
then (SETQ NC.SystemDate ThisFileDate)
(PUTPROP (QUOTE NC.SystemDate)
(QUOTE NewestFile)
File])
)
(NC.SetSystemDate)
(PUTPROPS NOTECARDS COPYRIGHT ("Xerox Corporation" 1986 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL (4541 7321 (NC.SetUpNOTECARDSDIRECTORIES 4551 . 7319)) (7913 10381 (NC.FindFile 7923 .
9257) (NC.FixFileDates 9259 . 10379)) (12644 15777 (NC.PostGreet 12654 . 15775)) (15916 16303 (
NC.MakeLafiteForm 15926 . 16301)) (16510 19441 (NC.Setup 16520 . 19439)) (19636 20359 (
NC.SetSystemDate 19646 . 20357)))))
STOP