(FILECREATED "10-Jul-86 23:34:19" ("compiled on " {QV}1.3K>NCCORE.;16) "12-Nov-85 14:59:23" recompiled changes: NC.PostGreet NC.MakeLafiteForm NC.Setup in "LOOPS/KOTO 20-Jun-86 ..." dated "20-Jun-86 16:39:53") (FILECREATED "10-Jul-86 23:33:11" {QV}1.3K>NCCORE.;16 13208 changes to: (FNS NC.PostGreet NC.MakeLafiteForm NC.Setup) (VARS NCCORECOMS) previous date: " 7-Jul-86 10:59:38" {QV}1.3K>NCCORE.;15) NC.SetUpNOTECARDSDIRECTORIES D1 (P 2 StrPtr P 1 NoteCardsBaseDirectory P 0 ThisDirectory I 1 ReleaseIdentifier I 0 BaseDirectory) ƒ0@YµKg g gg g g ¸oH hddi Z™HkJkÙ Y€I²1IAµ`o IAµ`oo Ido hHh(167Q PACK* 156Q PACK* 134Q PACK* 111Q SUBATOM 77Q STRPOS 67Q U-CASE 56Q PACK* 47Q FILENAMEFIELD 41Q FULLNAME 36Q INPUT 25Q FILENAMEFIELD 17Q FULLNAME 14Q INPUT) (143Q NC.ReleaseIdentifier 125Q NC.ReleaseIdentifier 52Q > 44Q DIRECTORY 33Q < 30Q } 22Q HOST 11Q {) ( 164Q "LIBRARY>" 153Q "LIBRARY>" 147Q ">" 131Q ">" 63Q "NOTECARDS>") NC.PostGreet D1 (P 7 File P 5 TypeName P 3 File P 2 Type P 1 TypeName P 0 FullFileName) ¨@`Lµ!`Lµ5`NµC` ] ³M` ªMd`¢ ¿L\°Á]`Z–JÉ”M ¿L\°³_dg³-g i` µ Oi` XµoOo ¿N^°ƒ` °ô(244Q LOAD 230Q PRINT 225Q CONCAT 205Q FINDFILE 172Q FINDFILE 163Q PACK* 135Q NC.CardTypeLoader 104Q NC.AddCardTypeStub 71Q MEMB 60Q NC.CardTypeRecord 52Q NCP.NoteCardsParameters) (241Q NC.LOADFLG 202Q NOTECARDSDIRECTORIES 167Q NOTECARDSDIRECTORIES 160Q .dcom 152Q FILEDATES 126Q NoteCardType 117Q NC.CardTypes 77Q NC.CardTypes 66Q NOTECARDTYPES 47Q NCINITIALGLOBALPARAMS 33Q NOTECARDSLIBRARYFILES 20Q NOTECARDTYPES 5 NOTECARDTYPESTUBS) ( 222Q "." 214Q "NoteCards: Can't find library file: ") NC.MakeLafiteForm D1 NIL o` o` (23Q MAKEXXXSUPPORTFORM 11Q CONCAT) (20Q NC.SystemDate 6 NC.ReleaseIdentifier) ( 15Q "NoteCardsSupport.pa" 3 "NoteCards ") NC.Setup D1 (P 0 ImageObj F 2 AFTERLOGOUTFORMS F 3 UseMapWithPoliticalBoundaries) ÊoRcichggggggggggggd h HHɹ`I ¿Hgg ¿HÉgggggdddddddd o` gggggdddddddd o` (304Q IMAGEOBJCREATE 267Q IMAGEFNSCREATE 231Q IMAGEOBJCREATE 214Q IMAGEFNSCREATE 146Q IMAGEOBJPROP 131Q NCREATE2 104Q NC.MakeLinkIcon 75Q IMAGEFNSCREATE 24Q NC.MakeMainMenu 2 NC.InitializeUID) (307Q NC.InvisibleLinkImageObject 301Q NC.InvisibleLinkImageFns 272Q NC.InvisibleLinkImageFns 253Q NILL 250Q NC.InvisibleLinkGetFn 245Q NC.InvisibleLinkPutFn 242Q NC.InvisibleLinkImageBoxFn 237Q NILL 234Q NC.DeletedLinkImageObject 226Q NC.DeletedLinkImageFns 217Q NC.DeletedLinkImageFns 200Q NILL 175Q NC.DeletedLinkGetFn 172Q NC.DeletedLinkPutFn 167Q NC.DeletedLinkImageBoxFn 164Q NC.DeletedLinkDisplayFn 161Q NC.NoDeleteImageFns 154Q IMAGEOBJ 143Q NILL 140Q WHENDELETEDFN 125Q IMAGEFNSTYPE# 117Q IMAGEOBJ 113Q IMAGEOBJ 100Q NC.LinkIconImageFns 70Q NILL 65Q NC.LinkIconWhenCopiedFn 62Q NC.LinkIconWhenDeletedFn 57Q NC.LinkIconWhenInsertedFn 54Q NC.LinkIconWhenMovedFn 51Q NILL 46Q NC.LinkIconButtonEventInFn 43Q NC.LinkIconCopyFn 40Q NC.LinkIconGetFn 35Q NC.LinkIconPutFn 32Q NC.LinkIconImageBoxFn 27Q NC.LinkIconDisplayFn 21Q TEDIT.INPUT.FORMATS) ( 276Q "InvisibleLink" 223Q "DeletedLink" 6 (NC.InitializeUID)) NC.SetSystemDate D1 (P 1 File P 0 ThisFileDate) ? og`°(dYgX ` óŸH¿ggI ¿µÙh(66Q PUTPROP 45Q IDATE 37Q IDATE) (62Q NewestFile 57Q NC.SystemDate 53Q NC.SystemDate 42Q NC.SystemDate 30Q FILEDATES 17Q NC.Files 14Q NOTECARDS 11Q NC.SystemDate) ( 6 "23-Aug-70 13:28:52") (PRETTYCOMPRINT NCCORECOMS) (RPAQQ NCCORECOMS ((* * This Release) (GLOBALVARS NC.ReleaseIdentifier) (VARS (NC.ReleaseIdentifier "1.3k")) (* * Set up the NoteCards directories globalvars) (GLOBALVARS NOTECARDSDIRECTORIES) (FNS NC.SetUpNOTECARDSDIRECTORIES) (INITVARS (NOTECARDSDIRECTORIES (NC.SetUpNOTECARDSDIRECTORIES))) (* * card types and library packages) (GLOBALVARS NOTECARDTYPESTUBS NOTECARDTYPES NOTECARDSLIBRARYFILES NC.LOADFLG) (ADDVARS (NOTECARDTYPESTUBS Sketch Graph Browser Search Document LinkIndex IdeaSketch)) ( ADDVARS (NOTECARDTYPES Hash List Text FileBox)) (ADDVARS (NOTECARDSLIBRARYFILES (NCKEYS NCHACKS))) ( INITVARS (NC.LOADFLG (QUOTE SYSLOAD))) (* * Load the supporting files for Notecards) (FILES (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD) STYLESHEET) (* * These are for the NoteFile browser and can go away when incorporated into the standard release (Lute)) (P (LOAD? (FINDFILE (QUOTE TABLEBROWSER.DCOM) T NOTECARDSDIRECTORIES) (QUOTE SYSLOAD)) (LOAD? (FINDFILE (QUOTE FILEBROWSER.DCOM) T NOTECARDSDIRECTORIES) (QUOTE SYSLOAD))) (* * Load the NoteCards files) (DECLARE: EVAL@LOADWHEN NC.LOADFLG (FILES (SYSLOAD FROM VALUEOF NOTECARDSDIRECTORIES) NCPARAMETERS NCINTERFACE NCDATABASE NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCUTILITIES NCPROGINT KOTOTEDITPATCHES KOTOSYSTEMPATCHES)) (DECLARE: EVAL@LOADWHEN (NOT NC.LOADFLG) (FILES (FROM VALUEOF NOTECARDSDIRECTORIES ) NCPARAMETERS NCINTERFACE NCDATABASE NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCUTILITIES NCPROGINT KOTOTEDITPATCHES KOTOSYSTEMPATCHES)) (* * list of major source code files as a convenience to programmers) (GLOBALVARS NC.Files) (VARS (NC.Files (QUOTE (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCUTILITIES NCANNO NCGESTURES NCLOGO NCPROGINT NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD NCLISTCARD NCCONVERTVERSION2TO3)))) (* * global params) (GLOBALVARS NC.DeletedLinkImageObject NC.DeletedLinkImageFns NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns NC.LinkIconImageFns NC.NoDeleteImageFns NC.SystemDate TEDIT.INPUT.FORMATS WindowMenuCommands NCINITIALGLOBALPARAMS) (INITVARS NCINITIALGLOBALPARAMS) (* * Initialization functions) (FNS NC.PostGreet) (ADDVARS (POSTGREETFORMS (NC.PostGreet))) (P (if (NULL (STKPOS (QUOTE GREET))) then ( 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) (P (NC.Setup)) (ADDVARS (BackgroundMenuCommands (NoteCards ( NC.BringUpNoteCardsIcon) "Bring up the NoteCards control icon."))) (P (SETQ BackgroundMenu)) (FNS NC.SetSystemDate) (P (NC.SetSystemDate)))) (RPAQ NC.ReleaseIdentifier "1.3k") (RPAQ? NOTECARDSDIRECTORIES (NC.SetUpNOTECARDSDIRECTORIES)) (ADDTOVAR NOTECARDTYPESTUBS Sketch Graph Browser Search Document LinkIndex IdeaSketch) (ADDTOVAR NOTECARDTYPES Hash List Text FileBox) (ADDTOVAR NOTECARDSLIBRARYFILES (NCKEYS NCHACKS)) (RPAQ? NC.LOADFLG (QUOTE SYSLOAD)) (FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD) STYLESHEET) (LOAD? (FINDFILE (QUOTE TABLEBROWSER.DCOM) T NOTECARDSDIRECTORIES) (QUOTE SYSLOAD)) (LOAD? (FINDFILE (QUOTE FILEBROWSER.DCOM) T NOTECARDSDIRECTORIES) (QUOTE SYSLOAD)) (FILESLOAD (SYSLOAD FROM VALUEOF NOTECARDSDIRECTORIES) NCPARAMETERS NCINTERFACE NCDATABASE NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCUTILITIES NCPROGINT KOTOTEDITPATCHES KOTOSYSTEMPATCHES) (FILESLOAD (FROM VALUEOF NOTECARDSDIRECTORIES) NCPARAMETERS NCINTERFACE NCDATABASE NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCUTILITIES NCPROGINT KOTOTEDITPATCHES KOTOSYSTEMPATCHES) (RPAQQ NC.Files (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCUTILITIES NCANNO NCGESTURES NCLOGO NCPROGINT NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD NCLISTCARD NCCONVERTVERSION2TO3)) (RPAQ? NCINITIALGLOBALPARAMS NIL) (ADDTOVAR POSTGREETFORMS (NC.PostGreet)) (if (NULL (STKPOS (QUOTE GREET))) then (NC.PostGreet)) (ADDTOVAR LAFITESPECIALFORMS ("NoteCards Report" (FUNCTION NC.MakeLafiteForm) "Report bug or request new feature for NoteCards.")) (SETQ LAFITEFORMSMENU NIL) (NC.Setup) (ADDTOVAR BackgroundMenuCommands (NoteCards (NC.BringUpNoteCardsIcon) "Bring up the NoteCards control icon.")) (SETQ BackgroundMenu) (NC.SetSystemDate) (PUTPROPS NCCORE COPYRIGHT ("Xerox Corporation" 1986)) NIL