(FILECREATED " 8-Jun-87 16:53:16" ("compiled on " {QV}1.3K>NEXT>NOTECARDS.;78) "12-Nov-85 14:59:23" recompiled changes: NC.SetUpNOTECARDSDIRECTORIES NC.FindFile NC.MakeLafiteForm in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 8-Jun-87 16:48:28" {QV}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}1.3K>NEXT>NOTECARDS.;77) 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 o` ´HAµ`o ZH²ud²;`hHAµ`o JHAµ`oo Hdo h `hHAµ`o HAµ`oo Hdo h `h(363Q UNION 353Q PACK* 342Q PACK* 320Q PACK* 274Q UNION 263Q PACK* 252Q PACK* 227Q PACK* 175Q PACK* 155Q STRPOS 140Q PACK* 120Q SUBATOM 104Q STRPOS 74Q U-CASE 56Q PACK* 47Q FILENAMEFIELD 41Q FULLNAME 36Q INPUT 25Q FILENAMEFIELD 17Q FULLNAME 14Q INPUT) (367Q NC.ThisDirectory 327Q NC.ReleaseIdentifier 311Q NC.ReleaseIdentifier 300Q NC.ThisDirectory 237Q NC.ReleaseIdentifier 220Q NC.ReleaseIdentifier 207Q NC.ThisDirectory 166Q NC.ReleaseIdentifier 152Q NC.ThisDirectory 143Q NOTECARDSNEXTDIRECTORIES 131Q NC.ReleaseIdentifier 111Q NC.ThisDirectory 71Q NC.ThisDirectory 61Q NC.ThisDirectory 52Q > 44Q DIRECTORY 33Q < 30Q } 22Q HOST 11Q {) ( 350Q "LIBRARY>" 337Q "LIBRARY>" 333Q ">" 315Q ">" 260Q "LIBRARY>" 247Q "LIBRARY>" 243Q ">" 224Q ">" 172Q ">NEXT>LIBRARY>" 147Q ">NEXT>" 135Q ">NEXT>" 66Q "NOTECARDS>") NC.FindFile D1 (P 0 FilesLoadDirs I 3 SourceFlg I 2 CheckConnectedDirFlg I 1 TypeName I 0 FileName F 1 COMPILE.EXT) MB™id `‚`@µgA g bg ³g@gC”o€Q iH µ@iH (112Q FINDFILE 102Q FINDFILE 75Q PACKFILENAME 51Q FILENAMEFIELD 41Q PACK* 33Q U-CASE 6 DIRECTORYNAME) (62Q EXTENSION 56Q BODY 46Q EXTENSION 36Q CARD 27Q NC 16Q NOTECARDSDIRECTORIES 11Q NOTECARDSDIRECTORIES) ( 70Q "") NC.FixFileDates D1 (P 1 rootName P 0 file I 0 Files) mo ``ð³\@d³Td²Qh°MdHg ghghghgIg `ð²IgIgIhdi h ¿µ´h(142Q PUTPROP 134Q NC.FindFile 104Q PACKFILENAME 47Q FILENAMEFIELD 6 DECLARE:) (122Q FILEDATES 116Q FILEDATES 107Q NOTECARDSNEXTDIRECTORIES 75Q FILEDATES 71Q BODY 65Q VERSION 61Q EXTENSION 55Q NAME 44Q NAME 14Q NOTECARDSNEXTDIRECTORIES 11Q NC.ThisDirectory) ( 3 (GLOBALVARS NC.ThisDirectory NOTECARDSNEXTDIRECTORIES)) NC.PostGreet D1 (P 10Q file P 7 File P 5 TypeName P 3 File P 2 Type P 1 TypeName P 0 FullFileName)  @`Lµ7g Xµ`Lµ>`NµR`±Œ` ¿H ¿°×]`Z–JÉ–Mhi ¿L\°¯] ³M` ªMd`¢ ¿L\°¤_dg³ XµoOo ¿N^°‰` ¿H °ïdKg µñg “¿` `gð³3g`° dO ­O O ¿µá` h(411Q NC.FixFileDates 375Q LOADVARS 372Q NC.FindFile 365Q FILECOMS 357Q BOUNDP 354Q FILECOMS 320Q NCP.NoteCardsParameters 311Q START-TEDIT-KILLER 305Q FNTYP 272Q NC.LoadFileFromDirectories 254Q NC.FixFileDates 247Q LOAD 233Q PRINT 230Q CONCAT 210Q NC.FindFile 165Q NC.CardTypeStubLoader 152Q MEMB 141Q NC.CardTypeRecord 126Q NC.CardTypeLoader 76Q NC.FixFileDates 71Q LOAD? 23Q NC.FindFile) (406Q NC.CoreFiles 337Q NC.CoreFiles 334Q NOTECARDS 326Q SYSLOAD 323Q NC.LOADFLG 315Q NCINITIALGLOBALPARAMS 302Q START-TEDIT-KILLER 267Q LISPUSERSDIRECTORIES 244Q NC.LOADFLG 202Q FILEDATES 160Q NC.CardTypes 147Q NOTECARDTYPES 115Q NoteCardType 106Q NC.CardTypes 66Q NC.LOADFLG 60Q NOTECARDSLISPUSERSFILES 44Q NOTECARDSLIBRARYFILES 31Q NOTECARDTYPESTUBS 20Q POSTRELEASEPATCHES 5 NOTECARDTYPES) ( 225Q "." 217Q "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, NoteCardsSupport:PA:Xerox <<" 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) ? o`ŒdYgXµµòh ` ó²ðH¿ggI ¿°Þ(72Q PUTPROP 50Q IDATE 42Q IDATE) (66Q NewestFile 63Q NC.SystemDate 57Q NC.SystemDate 45Q NC.SystemDate 23Q FILEDATES 14Q NC.Files 11Q NC.SystemDate) ( 6 "23-Aug-70 13:28:52") (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 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)))) (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 NCHACKS) (ADDTOVAR NOTECARDSLISPUSERSFILES TEDIT-PROCESS-KILLER) (RPAQ? NC.LOADFLG (QUOTE SYSLOAD)) (FILESLOAD (SYSLOAD FROM NOTECARDS) SCALEBITMAP) (LOAD? (FINDFILE (QUOTE TABLEBROWSER.DCOM) T NOTECARDSDIRECTORIES) (QUOTE SYSLOAD)) (LOAD? (FINDFILE (QUOTE FILEBROWSER.DCOM) T NOTECARDSDIRECTORIES) (QUOTE SYSLOAD)) (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)) (RPAQ? NCINITIALGLOBALPARAMS NIL) (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) (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