(FILECREATED " 4-Sep-87 12:28:01" ("compiled on " {QV}1.3KNEXT>NOTECARDS.;8) "12-Nov-85 14:59:23" recompiled changes: NC.SetUpNOTECARDSDIRECTORIES in "LOOPS/KOTO 20-Jul-87 ..." dated "20-Jul-87 19:10:39") (FILECREATED " 4-Sep-87 12:27:40" {QV}1.3KNEXT>NOTECARDS.;8 17625 changes to: (FNS NC.SetUpNOTECARDSDIRECTORIES) previous date: " 2-Sep-87 14:06:15" {QV}1.3KNEXT>NOTECARDS.;7 ) NC.SetUpNOTECARDSDIRECTORIES D1 (P 2 LibNextDirectory P 1 StrPtr P 0 NoteCardsBaseDirectory I 1 ReleaseIdentifier I 0 BaseDirectory)  0@XµOg g gg g g ¿o` hddi Y›`kIkÙ X€HAµ`o ¿go ¿o` ´HAµ`o ºH²vJ²<`hHAµ`o JHAµ`oo Hdo h °>`hHAµ`o HAµ`oo Hdo h „`h(400Q UNION 370Q PACK* 357Q PACK* 335Q PACK* 310Q UNION 277Q PACK* 266Q PACK* 243Q PACK* 211Q PACK* 171Q STRPOS 156Q RPAQ? 140Q PACK* 120Q SUBATOM 104Q STRPOS 74Q U-CASE 56Q PACK* 47Q FILENAMEFIELD 41Q FULLNAME 36Q INPUT 25Q FILENAMEFIELD 17Q FULLNAME 14Q INPUT) (412Q NOTECARDSDIRECTORIES 404Q NC.ThisDirectory 344Q NC.ReleaseIdentifier 326Q NC.ReleaseIdentifier 315Q NC.ThisDirectory 253Q NC.ReleaseIdentifier 234Q NC.ReleaseIdentifier 223Q NC.ThisDirectory 202Q NC.ReleaseIdentifier 166Q NC.ThisDirectory 147Q NC.SourceAccessFlg 143Q NOTECARDSNEXTDIRECTORIES 131Q NC.ReleaseIdentifier 111Q NC.ThisDirectory 71Q NC.ThisDirectory 61Q NC.ThisDirectory 52Q > 44Q DIRECTORY 33Q < 30Q } 22Q HOST 11Q {) ( 365Q "LIBRARY>" 354Q "LIBRARY>" 350Q ">" 332Q ">" 274Q "LIBRARY>" 263Q "LIBRARY>" 257Q ">" 240Q ">" 206Q "NEXT>LIBRARY>" 163Q "NEXT>" 153Q (EQ NC.ThisDirectory NOTECARDSNEXTDIRECTORIES) 135Q "NEXT>" 66Q "NOTECARDS>") NC.PostGreet D1 (P 7 File P 5 TypeName P 3 File P 2 Type P 1 TypeName P 0 FullFileName) É@` ¿`Lµ.g Xµ`Lµ5`NµI`°{ ¿°à]`Z–JÉ–Mhi ¿L\°¸] ³M` ªMd`¢ ¿L\°­_dg³ XµoOo ¿N^°’ °÷dKg µñg “¿` (306Q NCP.NoteCardsParameters 277Q START-TEDIT-KILLER 273Q \DEFINEDP 260Q NC.LoadFileFromDirectories 242Q NC.LoadFileFromDirectories 231Q PRINT 226Q CONCAT 206Q NC.FindFile 163Q NC.CardTypeStubLoader 150Q MEMB 137Q NC.CardTypeRecord 124Q NC.CardTypeLoader 74Q NC.LoadFileFromDirectories 32Q NC.FindFile 10Q NC.FixFileDates) (303Q NCINITIALGLOBALPARAMS 270Q START-TEDIT-KILLER 255Q LISPUSERSDIRECTORIES 200Q FILEDATES 156Q NC.CardTypes 145Q NOTECARDTYPES 113Q NoteCardType 104Q NC.CardTypes 67Q NOTECARDSLISPUSERSFILES 53Q NOTECARDSLIBRARYFILES 40Q NOTECARDTYPESTUBS 27Q POSTRELEASEPATCHES 14Q NOTECARDTYPES 5 NC.LoadedFiles) ( 223Q "." 215Q "NoteCards: Can't find library file: ") NC.MakeLafiteForm D1 NIL #o` gð”oƒo` (40Q MAKEXXXSUPPORTFORM 14Q LAFITEMODE 11Q CONCAT) (35Q NC.SystemDate 17Q GV 6 NC.ReleaseIdentifier) ( 32Q "NoteCardsSupport:PA:Xerox" 25Q "NoteCardsSupport^.PA" 3 "NoteCards ") NC.Setup D1 (P 0 ImageObj) Îo`ihggggggggggggd h HHɹ`I ¿Hgg ¿HÉgggggdddddddd o` gggggdddddddd o` (310Q IMAGEOBJCREATE 273Q IMAGEFNSCREATE 235Q IMAGEOBJCREATE 220Q IMAGEFNSCREATE 152Q IMAGEOBJPROP 135Q NCREATE2 110Q NC.MakeLinkIcon 101Q IMAGEFNSCREATE 30Q NC.MakeMainMenu 2 NC.InitializeUID) (313Q NC.InvisibleLinkImageObject 305Q NC.InvisibleLinkImageFns 276Q NC.InvisibleLinkImageFns 257Q NILL 254Q NC.InvisibleLinkGetFn 251Q NC.InvisibleLinkPutFn 246Q NC.InvisibleLinkImageBoxFn 243Q NILL 240Q NC.DeletedLinkImageObject 232Q NC.DeletedLinkImageFns 223Q NC.DeletedLinkImageFns 204Q NILL 201Q NC.DeletedLinkGetFn 176Q NC.DeletedLinkPutFn 173Q NC.DeletedLinkImageBoxFn 170Q NC.DeletedLinkDisplayFn 165Q NC.NoDeleteImageFns 160Q IMAGEOBJ 147Q NILL 144Q WHENDELETEDFN 131Q IMAGEFNSTYPE# 123Q IMAGEOBJ 117Q IMAGEOBJ 104Q NC.LinkIconImageFns 74Q NILL 71Q NC.LinkIconWhenCopiedFn 66Q NC.LinkIconWhenDeletedFn 63Q NC.LinkIconWhenInsertedFn 60Q NC.LinkIconWhenMovedFn 55Q NILL 52Q NC.LinkIconButtonEventInFn 47Q NC.LinkIconCopyFn 44Q NC.LinkIconGetFn 41Q NC.LinkIconPutFn 36Q NC.LinkIconImageBoxFn 33Q NC.LinkIconDisplayFn 25Q TEDIT.INPUT.FORMATS 21Q UseMapWithPoliticalBoundaries 15Q AFTERLOGOUTFORMS 11Q AFTERLOGOUTFORMS) ( 302Q "InvisibleLink" 227Q "DeletedLink" 6 (NC.InitializeUID)) NC.SetSystemDate D1 (P 1 File P 0 ThisFileDate) Ro`o °dIgµIgXµ µçh ` ó²ïH¿ggI ¿°Ý(115Q PUTPROP 73Q IDATE 65Q IDATE 23Q LDIFFERENCE) (111Q NewestFile 106Q NC.SystemDate 102Q NC.SystemDate 70Q NC.SystemDate 47Q FileDate 36Q FILEDATES 14Q NC.Files 11Q NC.SystemDate) ( 20Q (NCCONFIG POSTRELEASEPATCHES) 6 "23-Aug-70 13:28:52") (PRETTYCOMPRINT NOTECARDSCOMS) (RPAQQ NOTECARDSCOMS ((* * 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 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))))) (RPAQ? NC.LoadedFiles NIL) (RPAQ NC.ReleaseIdentifier "1.3K") (NC.SetUpNOTECARDSDIRECTORIES) (ADDTOVAR NOTECARDTYPESTUBS Sketch Graph Browser Search Document LinkIndex IdeaSketch) (ADDTOVAR NOTECARDTYPES Hash List Text FileBox) (ADDTOVAR NOTECARDSLIBRARYFILES NCHACKS) (ADDTOVAR NOTECARDSLISPUSERSFILES TEDIT-PROCESS-KILLER) (FILESLOAD (SYSLOAD FROM NOTECARDS) SCALEBITMAP) (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)) (RPAQ? NCINITIALGLOBALPARAMS NIL) (FILESLOAD (FROM NOTECARDS NIL) NCCONFIG) (ADVISE (QUOTE WHEREIS) (QUOTE BEFORE) NIL (QUOTE (if (GETPROP (QUOTE NOTECARDS) (QUOTE FILEDATES)) then (NC.FixFileDates (QUOTE NOTECARDS)) (UNADVISE (QUOTE WHEREIS))))) (for File in NC.CoreFiles do (NC.LoadFileFromDirectories File)) (ADDTOVAR POSTGREETFORMS (NC.PostGreet)) (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 NOTECARDS COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL