(FILECREATED "11-Jul-85 17:53:54" ("compiled on " {PHYLUM}RELEASE1.2I>RHTPATCH001.;3) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "10-Jul-85 14:34:14" {PHYLUM}RELEASE1.2I>RHTPATCH001.;3 54249 changes to: ( VARS RHTPATCH001COMS) (FNS NC.GetLinkLabels NC.PutLinkLabels NC.CopyMainCardData NC.CopyLinks NC.CopyTitle NC.CopyPropList NC.CopyLinkLabels NC.FastCopyNoteCard NC.CompactDatabaseInPlace NC.PutLinks NC.PutTitle NC.PutPropList) previous date: " 9-Jul-85 19:00:15" {PHYLUM}RELEASE1.2I>RHTPATCH001.;1) NC.GetIdentifier D1 (P 1 ClippedIdentifier P 0 ThingRead I 1 Identifier I 0 DatabaseStream F 2 NC.TitlesIdentifier) <@ Akmý HAðªARð˜Hdgð’jHIð´@ ¿@ jØd¥d¡µh(47Q READC 12Q SUBATOM 3 READ) (32Q NOBIND) () NC.PutIdentifier D1 (I 1 Identifier I 0 DatabaseStream) Akmý @ @`lÿå (24Q BOUT 12Q PRINT 6 SUBATOM) (16Q NC.DataFormatVersionNumber) () NC.GetNoteCardA0001 D1 (NAME ERRORSET P 21Q VersionNumber P 20Q Stream P 17Q GlobalLinks P 16Q Region P 15Q ToLinks P 14Q FromLinks P 13Q PropList P 12Q Substance P 11Q Title P 10Q NoteCardType P 7 ActualID P 6 Status P 5 PropsPtr P 4 TitlePtr P 3 LinksPtr P 2 Ptr P 1 PtrList P 0 Index F 23Q ID F 24Q DatabaseStream F 25Q IncludeDeletedCardsFlg F 26Q RESETY F 27Q NC.ItemIdentifier) W(o hi ¿ð@hc*¿W(o _ W& Y¾IºI»I¼I½Ngð¬W*•Ngð£N±ÁO J ¿O W. _"³oW&o ¿kO"óªW&O ¿O _W&ð³ooW&oO ¿O _¿O ¿W&O _¿O _$¿O W&lO$_¿W&O ¿W&O ¿W&O ¿W&O K ¿W&O L ¿W&O M ¿W& ¿W&c,i(417Q NC.ActivateCard 411Q NC.GetPropList 400Q NC.GetTitle 367Q NC.GetLinks 356Q NC.SetSubstance 346Q NC.SetRegion 336Q NC.SetType 307Q NC.GetSubstanceFn 277Q NC.GetRegion 267Q READC 257Q READ 251Q NC.ReportError 246Q CONCAT 214Q READ 206Q NC.SetItemDate 203Q NC.GetDate 166Q NC.ReportError 163Q CONCAT 142Q NC.GetIdentifier 132Q SETFILEPTR 50Q NC.GetPtrsFromIndex 41Q NC.CoerceDatabaseStream 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (116Q DELETED 105Q ACTIVE) ( 241Q " Found ID: " 233Q "ID mismatch while reading item. Expected ID: " 227Q "NC.GetNoteCard" 160Q " Error in Database file -- incorrect item identifier." 152Q "NC.GetNoteCard" 36Q "NC.GetNoteCard" 5 "NC.GetNoteCard") NC.GetNoteCard D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 IncludeDeletedCardsFlg I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetNoteCardA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetNoteCardA0001)) NC.GetLinkLabelsA0001 D1 (NAME ERRORSET F 0 DatabaseStream F 1 Index F 2 NC.LinkLabelsID F 3 VersionNumber F 4 ActualID F 5 NC.LinkLabelsIdentifier F 6 ID F 7 RESETY) yP hi ¿Ro c¿PQ ¿P ¿P c¿PQ ¿PU c¯oVo ¿kSó§P ¿P cRð³ooRoT ¿P ci(163Q READ 156Q NC.ReportError 153Q CONCAT 124Q READ 114Q NC.GetDate 103Q NC.ReportError 100Q CONCAT 61Q NC.GetIdentifier 53Q SETFILEPTR 43Q NC.GetPtrFromIndex 36Q NC.GetStatusFromIndex 31Q NC.SetIndexOffset 21Q NC.IndexFromID 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (117Q NC.LinkLabelsDate) ( 147Q " Found ID: " 142Q "ID mismatch while reading links. Expected ID: " 136Q "NC.GetLinkLabels" 75Q " Error in Database file -- incorrect identifier." 70Q "NC.GetLinkLabels" 16Q "NC.GetLinkLabels") NC.GetLinkLabels D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 VersionNumber P 0 Index I 0 DatabaseStream F 5 LISPXHIST F 6 RESETVARSLST) % U!Vog ‘h‚g\ L“K(40Q ERROR! 33Q RESETRESTORE 21Q NC.GetLinkLabelsA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (NC.GetLinkLabelsA0001)) NC.GetLinksA0001 D1 (NAME ERRORSET P 10Q VersionNumber P 7 Stream P 6 GlobalLinks P 5 ToLinks P 4 FromLinks P 3 ActualID P 2 Status P 1 PtrList P 0 Index F 11Q ID F 12Q LinksPtr F 13Q DatabaseStream F 14Q RESETY F 15Q NC.LinksIdentifier) è Wo hi ¿Wo _¿W³OW YZgð£J±°Ic¿OW ¿OW _³oWo ¿kOóªWO ¿O [Wð³ooWoK ¿O ]†d ¿µøO \†d ¿µøO ^†d ¿µøWM ¿WL ¿WN ¿W ¿Wci(336Q NC.SetLinksDirtyFlg 330Q NC.SetGlobalLinks 321Q NC.SetFromLinks 312Q NC.SetToLinks 277Q NC.CheckDisplayModeFormat 267Q READ 255Q NC.CheckDisplayModeFormat 246Q READ 234Q NC.CheckDisplayModeFormat 225Q READ 217Q NC.ReportError 214Q CONCAT 164Q READ 156Q NC.SetLinksDate 153Q NC.GetDate 136Q NC.ReportError 133Q CONCAT 112Q NC.GetIdentifier 102Q SETFILEPTR 50Q NC.GetPtrsFromIndex 32Q NC.CoerceDatabaseStream 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (56Q ACTIVE) ( 210Q " Found ID: " 202Q "ID mismatch while reading links. Expected ID: " 176Q "NC.GetLinks" 130Q " Error in Database file -- incorrect links identifier." 122Q "NC.GetLinks" 27Q "NC.GetLinks" 5 "NC.GetNoteCard") NC.GetLinks D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 LinksPtr I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetLinksA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetLinksA0001)) NC.GetTitleA0001 D1 (NAME ERRORSET P 5 VersionNumber P 4 Stream P 3 Title P 2 ActualID P 1 Status P 0 PtrList F 6 ID F 7 TitlePtr F 10Q DatabaseStream F 11Q NoReportFlg F 12Q NC.TitlesIdentifier F 13Q RESETY) ¡Wo hi ¿`Wo ¼W³LV XYgð¢I°mHc¿LW ¿LW ]³W’h°OoVo ¿kMó¨VL ¿L ZVð³W’h°#ooVoJ ¿L »VK ¿Kci(230Q NC.SetTitle 222Q READ 215Q NC.ReportError 212Q CONCAT 156Q READ 151Q NC.SetTitleDate 146Q NC.GetDate 134Q NC.ReportError 131Q CONCAT 104Q NC.GetIdentifier 75Q SETFILEPTR 44Q NC.GetPtrsFromIndex 32Q NC.CoerceDatabaseStream 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (52Q ACTIVE) ( 206Q " Found ID: " 201Q "ID mismatch while reading item. Expected ID: " 175Q "NC.GetTitle" 126Q " Error in Database file -- incorrect title identifier." 121Q "NC.GetTitle" 27Q "NC.GetTitle" 5 "NC.GetTitle") NC.GetTitle D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 NoReportFlg I 2 TitlePtr I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetTitleA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetTitleA0001)) NC.GetTypeA0001 D1 (NAME ERRORSET P 5 VersionNumber P 4 Stream P 3 NoteCardType P 2 ActualID P 1 Status P 0 PtrList F 6 ID F 7 Ptr F 10Q DatabaseStream F 11Q NoReportFlg F 12Q NC.ItemIdentifier F 13Q RESETY) —Wo hi ¿`Wo ¼W³LV XYgð¢I°cHc¿LW ¿LW ]³W’h°GoVo ¿kMó¨VL ¿L ZVð³W’h°ooVoJ ¿L ci(220Q READ 213Q NC.ReportError 210Q CONCAT 154Q READ 147Q NC.SetItemDate 144Q NC.GetDate 132Q NC.ReportError 127Q CONCAT 102Q NC.GetIdentifier 73Q SETFILEPTR 44Q NC.GetPtrsFromIndex 32Q NC.CoerceDatabaseStream 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (52Q ACTIVE) ( 204Q " Found ID: " 177Q "ID mismatch while reading item. Expected ID: " 173Q "NC.GetType" 124Q " Error in Database file -- incorrect item identifier." 117Q "NC.GetType" 27Q "NC.GetType" 5 "NC.GetType") NC.GetType D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 Ptr I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetTypeA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetTypeA0001)) NC.GetPropListA0001 D1 (NAME ERRORSET P 5 VersionNumber P 4 Stream P 3 Props P 2 ActualID P 1 Status P 0 PtrList F 6 ID F 7 PropPtr F 10Q DatabaseStream F 11Q NoReportFlg F 12Q NC.PropsIdentifier F 13Q RESETY) ¢Wo hi ¿`Wo ¼W³LV XYgð¢I°nHc¿LW ¿LW ]³W’h°OoVo ¿kMó¨VL ¿L ZVð³W’h°#ooVoJ ¿L »VK ¿Kci(231Q NC.SetPropList 223Q READ 216Q NC.ReportError 213Q CONCAT 157Q READ 152Q NC.SetPropListDate 147Q NC.GetDate 135Q NC.ReportError 132Q CONCAT 105Q NC.GetIdentifier 76Q SETFILEPTR 44Q NC.GetPtrsFromIndex 32Q NC.CoerceDatabaseStream 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (52Q ACTIVE) ( 207Q " Found ID: " 202Q "ID mismatch while reading item. Expected ID: " 176Q "NC.GetPropList" 127Q " Error in Database file -- incorrect prop list identifier." 122Q "NC.GetPropList" 27Q "NC.GetPropList" 5 "NC.GetPropList") NC.GetPropList D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 PropPtr I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetPropListA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetPropListA0001)) NC.PutNoteCardA0001 D1 (NAME ERRORSET P 2 Stream P 1 Index P 0 DataPtr F 4 ID F 5 DatabaseStream F 6 UpdateUpdateListFlg F 7 RESETY F 10Q NC.ItemIdentifier F 11Q UseOldDateFlg) ‹Uo hi ¿@Uo ºV”T ¿Jd X ¿JW ¿JW”T ‚ ¿TJ ¿T J ¿TJ ¿T »TJlK¿To ¹JI ¿Jg ¿JH ¿Tci(202Q NC.PutPtrToIndex 174Q NC.PutStatusToIndex 164Q NC.SetIndexOffset 156Q NC.IndexFromID 135Q NC.PutSubstanceFn 132Q NC.FetchType 125Q NC.PutRegion 117Q PRINT 113Q NC.FetchType 106Q PRINT 100Q NC.PutDate 75Q DATE 71Q NC.FetchItemDate 60Q NC.PutIdentifier 51Q SETFILEPTR 45Q GETEOFPTR 37Q NC.UpdateUpdateList 30Q NC.CoerceDatabaseStream 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) (171Q ACTIVE) ( 153Q "NC.PutNoteCard" 25Q "NC.PutNoteCard" 4 "NC.PutNoteCard") NC.PutNoteCard D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 UseOldDateFlg I 2 UpdateUpdateListFlg I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.PutNoteCardA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.PutNoteCardA0001)) NC.PutLinkLabelsA0001 D1 (NAME ERRORSET F 0 DatabaseStream F 1 Ptr F 2 NC.LinkLabelsID F 3 NC.LinkLabelsIdentifier F 4 RESETY F 5 UseOldDateFlg F 6 LinkLabels) RP hi ¿P c¿PQ ¿PS ¿PU“`‚ ¿RP ¿VP ¿PR ¿Pg ¿PQ ci(114Q NC.PutPtrToIndex 106Q NC.PutStatusToIndex 76Q NC.SetIndexOffset 73Q NC.IndexFromID 65Q PRINT 57Q PRINT 51Q NC.PutDate 46Q DATE 33Q NC.PutIdentifier 25Q SETFILEPTR 15Q GETEOFPTR 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (103Q SPECIAL 42Q NC.LinkLabelsDate) () NC.PutLinkLabels D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 Ptr I 2 UseOldDateFlg I 1 LinkLabels I 0 DatabaseStream F 4 LISPXHIST F 5 RESETVARSLST) &T!Uog ‘h‚g[ ¿K´h(42Q ERROR! 33Q RESETRESTORE 21Q NC.PutLinkLabelsA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (NC.PutLinkLabelsA0001)) NC.PutLinksA0001 D1 (NAME ERRORSET P 2 Index P 1 DataPtr P 0 Stream F 3 ID F 4 DatabaseStream F 5 RESETY F 6 NC.LinksIdentifier F 7 UseOldDateFlg) ¤To hi ¿To !So ºHJ ¿H gð¯oSo ¿Hd Y ¿HV ¿HW”S ‚ ¿SH ¿S H ¿S H ¿S H ¿S ¿HJ ¿H ¿H ¿HI ¿Sc i(233Q NC.PutPtrToIndex 225Q NC.GetPtrFromIndex 220Q NC.GetStatusFromIndex 213Q NC.SetIndexOffset 205Q NC.SetLinksDirtyFlg 200Q PRINT 174Q NC.FetchGlobalLinks 167Q PRINT 163Q NC.FetchFromLinks 156Q PRINT 152Q NC.FetchToLinks 145Q PRINT 137Q NC.PutDate 134Q DATE 130Q NC.FetchLinksDate 117Q NC.PutIdentifier 111Q SETFILEPTR 105Q GETEOFPTR 77Q NC.ReportError 74Q CONCAT 53Q NC.GetStatusFromIndex 46Q NC.SetIndexOffset 40Q NC.IndexFromID 25Q NC.CoerceDatabaseStream 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) (56Q ACTIVE) ( 71Q " is not an active note card." 64Q "NC.PutLinks" 35Q "NC.PutLinks" 22Q "NC.PutLinks" 4 "NC.PutLinks") NC.PutLinks D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 UseOldDateFlg I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.PutLinksA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.PutLinksA0001)) NC.PutTitleA0001 D1 (NAME ERRORSET P 2 Stream P 1 Index P 0 DataPtr F 3 ID F 4 DatabaseStream F 5 NC.TitlesIdentifier F 6 UseOldDateFlg F 7 RESETY) wTo hi ¿0To Zd X ¿JU ¿JV”S ‚ ¿SJ ¿S J ¿So ¹JI ¿J ¿J ¿J ¿JH ¿S ¿Sci(156Q NC.SetTitleDirtyFlg 151Q NC.PutPtrToIndex 143Q NC.GetPtrFromIndex 136Q NC.GetPtrFromIndex 131Q NC.GetStatusFromIndex 124Q NC.SetIndexOffset 116Q NC.IndexFromID 105Q PRINT 101Q NC.FetchTitle 74Q PRINT 66Q NC.PutDate 63Q DATE 57Q NC.FetchTitleDate 47Q NC.PutIdentifier 41Q SETFILEPTR 35Q GETEOFPTR 30Q NC.CoerceDatabaseStream 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) NIL ( 113Q "NC.PutTitle" 25Q "NC.PutTitle" 4 "NC.PutTitle") NC.PutTitle D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 UseOldDateFlg I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.PutTitleA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.PutTitleA0001)) NC.PutPropListA0001 D1 (NAME ERRORSET P 2 Stream P 1 Index P 0 DataPtr F 3 ID F 4 DatabaseStream F 5 NC.PropsIdentifier F 6 UseOldDateFlg F 7 RESETY) |To hi ¿0To Zd X ¿JU ¿JV”S ‚ ¿SJ ¿S J ¿So ¹JI ¿J ¿J ¿J ¿J ¿JH ¿S ¿Sci(163Q NC.SetPropListDirtyFlg 156Q NC.PutPtrToIndex 150Q NC.GetPtrFromIndex 143Q NC.GetPtrFromIndex 136Q NC.GetPtrFromIndex 131Q NC.GetStatusFromIndex 124Q NC.SetIndexOffset 116Q NC.IndexFromID 105Q PRINT 101Q NC.FetchPropList 74Q PRINT 66Q NC.PutDate 63Q DATE 57Q NC.FetchPropListDate 47Q NC.PutIdentifier 41Q SETFILEPTR 35Q GETEOFPTR 30Q NC.CoerceDatabaseStream 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) NIL ( 113Q "NC.PutPropList" 25Q "NC.PutPropList" 4 "NC.PutPropList") NC.PutPropList D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 UseOldDateFlg I 1 DatabaseStream I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.PutPropListA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.PutPropListA0001)) NC.PutMainCardData D1 (P 2 SubstancePtr P 1 EndPtr P 0 MainPtr I 6 UseOldDateFlg I 5 DontUpdateArrayFlg I 4 SubstanceStream I 3 Region I 2 NoteCardType I 1 ID I 0 Stream F 4 NC.ItemIdentifier) º@@ X@T @F”A ‚ A@ B@ A@ @ ZB »AD@lK¿@J @ ¿@ ¿@ @ áá@ á@ ØØYE³@A ¿@ ¿@H ¿@Ao @ dlAð¬dlFð§dlDð¢lSð¿@Hl lÿå ¿@Hl lÿå ¿@Hlÿå @I h(266Q SETFILEPTR 261Q BOUT 250Q BOUT 242Q RSH 232Q BOUT 224Q RSH 170Q SETFILEPTR 165Q NC.IndexInFileFromID 153Q NC.PutPtrToIndex 145Q NC.GetStatusFromIndex 140Q NC.SetIndexOffset 135Q NC.IndexFromID 101Q SETFILEPTR 62Q NC.SubstanceCopyFn 55Q GETFILEPTR 51Q NC.PutRegion 44Q PRINT 37Q PRINT 32Q NC.PutDate 27Q DATE 23Q NC.FetchItemDate 14Q NC.PutIdentifier 6 GETFILEPTR) NIL ( 162Q "NC.PutMainCardData") NC.CopyMainCardData D1 (P 6 Date P 5 VersionNumber P 4 SubstancePtr P 3 EndPtr P 2 Region P 1 NoteCardType P 0 ID I 5 DontUpdateArrayFlg I 4 Index I 3 ToPtr I 2 FromPtr I 1 TempStream I 0 Stream F 10Q NC.ItemIdentifier) ô€D X@B Aj @W ]¢±¤kMó¤@ ¾H@ 𢱑HN ¿@ ¹@ ¿Hd@ Z ¿@ ¼I _¿H@AlO¿@L ¿@ ¿@ ¿@ ¿@ áá@ á@ ØØ»BCÙKBÙýñ²@d ¿Aj ¿@HIJAEi ¿@C ¿Aj ¿@HIJAEi ¿@ oHl o ogihddi  ´E¥H@ ¿H@ C(360Q NC.MarkIndexEntryFreeInFile 352Q NC.MarkIndexEntryFree 341Q NC.YesP 336Q NC.AskUser 316Q CONCAT 307Q CHARACTER 274Q GETFILEPTR 267Q NC.PutMainCardData 253Q SETFILEPTR 245Q SETFILEPTR 237Q NC.PutMainCardData 223Q SETFILEPTR 215Q SETFILEPTR 212Q GETEOFPTR 145Q SETFILEPTR 123Q NC.SubstanceCopyFn 116Q GETFILEPTR 111Q NC.SetRegion 105Q NC.GetRegion 76Q READC 71Q READ 64Q NC.SetItemDate 52Q READ 44Q NC.GetDate 27Q NC.GetIdentifier 21Q SETFILEPTR 14Q SETFILEPTR 6 NC.IDFromNumber) (325Q Yes) ( 322Q "--" 313Q "Want to delete this card? " 301Q "Trouble copying main card data for ") NC.CopyLinks D1 (P 3 VersionNumber P 2 Length P 1 EndPtr P 0 ID I 5 DontUpdateArrayFlg I 4 Index I 3 ToPtr I 2 FromPtr I 1 TempStream I 0 Stream F 4 NC.LinksIdentifier) ž@D X@B Aj @T [¢±OkKó¤@ ¿H@ ð¢±<@ ¿@ ¿@ ¿@ ¿@ ¹@ABI ¿BCÙIBÙZýñ¢±ˆ@d b ¿Aj ¿A@jJ ¿E³@H ¿@ ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@ ¿@ ¿@ ¿@Bl lÿå ¿@Bl lÿå ¿@Blÿå ¿@C ¿Aj ¿A@jJ ¿@ ¹E³@H ¿@ ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@ ¿@ ¿@ ¿@Cl lÿå ¿@Cl lÿå ¿@Clÿå IoHl o ogihddi  ´E¥H@ ¿H@ C(632Q NC.MarkIndexEntryFreeInFile 624Q NC.MarkIndexEntryFree 613Q NC.YesP 610Q NC.AskUser 570Q CONCAT 561Q CHARACTER 545Q BOUT 534Q BOUT 526Q RSH 516Q BOUT 510Q RSH 442Q SETFILEPTR 437Q NC.IndexInFileFromID 425Q NC.PutPtrToIndex 417Q NC.GetPtrFromIndex 412Q NC.GetStatusFromIndex 405Q NC.SetIndexOffset 402Q NC.IndexFromID 371Q GETFILEPTR 364Q COPYBYTES 354Q SETFILEPTR 346Q SETFILEPTR 340Q BOUT 327Q BOUT 321Q RSH 311Q BOUT 303Q RSH 235Q SETFILEPTR 232Q NC.IndexInFileFromID 220Q NC.PutPtrToIndex 212Q NC.GetPtrFromIndex 205Q NC.GetStatusFromIndex 200Q NC.SetIndexOffset 175Q NC.IndexFromID 164Q COPYBYTES 154Q SETFILEPTR 146Q SETFILEPTR 141Q GETEOFPTR 116Q COPYBYTES 106Q GETFILEPTR 101Q READC 74Q READ 67Q READ 62Q READ 51Q READ 43Q NC.GetDate 26Q NC.GetIdentifier 21Q SETFILEPTR 14Q SETFILEPTR 6 NC.IDFromNumber) (577Q Yes) ( 574Q "--" 565Q "Want to delete this card? " 553Q "Trouble copying links for" 434Q "NC.PutMainCardData" 227Q "NC.PutMainCardData") NC.CopyTitle D1 (P 3 VersionNumber P 2 Length P 1 EndPtr P 0 ID I 5 DontUpdateArrayFlg I 4 Index I 3 ToPtr I 2 FromPtr I 1 TempStream I 0 Stream F 4 NC.TitlesIdentifier) °@D X@B Aj @T [¢±akKó¤@ ¿H@ ð¢±N@ ¿@ ¿@ ¹@ABI ¿BCÙIBÙZýñ¢±–@d b ¿Aj ¿A@jJ ¿E³ @H ¿@ ¿@ ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@Bl lÿå ¿@Bl lÿå ¿@Blÿå ¿@C ¿Aj ¿A@jJ ¿@ ¹E³ @H ¿@ ¿@ ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@Cl lÿå ¿@Cl lÿå ¿@Clÿå IoHl o ogihddi  ´E¥H@ ¿H@ C(654Q NC.MarkIndexEntryFreeInFile 646Q NC.MarkIndexEntryFree 635Q NC.YesP 632Q NC.AskUser 612Q CONCAT 603Q CHARACTER 567Q BOUT 556Q BOUT 550Q RSH 540Q BOUT 532Q RSH 453Q SETFILEPTR 450Q NC.IndexInFileFromID 436Q NC.PutPtrToIndex 430Q NC.GetPtrFromIndex 423Q NC.GetPtrFromIndex 416Q NC.GetStatusFromIndex 411Q NC.SetIndexOffset 406Q NC.IndexFromID 375Q GETFILEPTR 370Q COPYBYTES 360Q SETFILEPTR 352Q SETFILEPTR 344Q BOUT 333Q BOUT 325Q RSH 315Q BOUT 307Q RSH 230Q SETFILEPTR 225Q NC.IndexInFileFromID 213Q NC.PutPtrToIndex 205Q NC.GetPtrFromIndex 200Q NC.GetPtrFromIndex 173Q NC.GetStatusFromIndex 166Q NC.SetIndexOffset 163Q NC.IndexFromID 152Q COPYBYTES 142Q SETFILEPTR 134Q SETFILEPTR 127Q GETEOFPTR 104Q COPYBYTES 74Q GETFILEPTR 67Q READC 62Q READ 51Q READ 43Q NC.GetDate 26Q NC.GetIdentifier 21Q SETFILEPTR 14Q SETFILEPTR 6 NC.IDFromNumber) (621Q Yes) ( 616Q "--" 607Q "Want to delete this card? " 575Q "Trouble copying title for" 445Q "NC.CopyTitle" 222Q "NC.CopyTitle") NC.CopyPropList D1 (P 3 VersionNumber P 2 Length P 1 EndPtr P 0 ID I 5 DontUpdateArrayFlg I 4 Index I 3 ToPtr I 2 FromPtr I 1 TempStream I 0 Stream F 4 NC.PropsIdentifier) Ì@D X@B Aj @T [¢±}kKó¤@ ¿H@ ð¢±j@ ¿@ ¿@ ¹@ABI ¿BCÙIBÙZýñ¢±¤@d b ¿Aj ¿A@jJ ¿E³%@H ¿@ ¿@ ¿@ ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@Bl lÿå ¿@Bl lÿå ¿@Blÿå ¿@C ¿Aj ¿A@jJ ¿@ ¹E³%@H ¿@ ¿@ ¿@ ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@ ¿@Cl lÿå ¿@Cl lÿå ¿@Clÿå IoHl o ogihddi  ´E¥H@ ¿H@ C(710Q NC.MarkIndexEntryFreeInFile 702Q NC.MarkIndexEntryFree 671Q NC.YesP 666Q NC.AskUser 646Q CONCAT 637Q CHARACTER 623Q BOUT 612Q BOUT 604Q RSH 574Q BOUT 566Q RSH 476Q SETFILEPTR 473Q NC.IndexInFileFromID 461Q NC.PutPtrToIndex 453Q NC.GetPtrFromIndex 446Q NC.GetPtrFromIndex 441Q NC.GetPtrFromIndex 434Q NC.GetStatusFromIndex 427Q NC.SetIndexOffset 424Q NC.IndexFromID 413Q GETFILEPTR 406Q COPYBYTES 376Q SETFILEPTR 370Q SETFILEPTR 362Q BOUT 351Q BOUT 343Q RSH 333Q BOUT 325Q RSH 235Q SETFILEPTR 232Q NC.IndexInFileFromID 220Q NC.PutPtrToIndex 212Q NC.GetPtrFromIndex 205Q NC.GetPtrFromIndex 200Q NC.GetPtrFromIndex 173Q NC.GetStatusFromIndex 166Q NC.SetIndexOffset 163Q NC.IndexFromID 152Q COPYBYTES 142Q SETFILEPTR 134Q SETFILEPTR 127Q GETEOFPTR 104Q COPYBYTES 74Q GETFILEPTR 67Q READC 62Q READ 51Q READ 43Q NC.GetDate 26Q NC.GetIdentifier 21Q SETFILEPTR 14Q SETFILEPTR 6 NC.IDFromNumber) (655Q Yes) ( 652Q "--" 643Q "Want to delete this card?" 631Q "Trouble copying prop list for" 470Q "NC.CopyPropList" 227Q "NC.CopyPropList") NC.CopyLinkLabels D1 (P 3 VersionNumber P 2 Length P 1 EndPtr P 0 ID I 5 DontUpdateArrayFlg I 4 Index I 3 ToPtr I 2 FromPtr I 1 TempStream I 0 Stream F 4 NC.LinkLabelsIdentifier) v@D X@B Aj @T [¢±'kKó¤@ ¿H@ ð¢±@ ¿@ ¿@ ¹@ABI ¿BCÙIBÙZýñ²y@d b ¿Aj ¿A@jJ ¿E³@H ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@Bl lÿå ¿@Bl lÿå ¿@Blÿå ¿@C ¿Aj ¿A@jJ ¿@ ¹E³@H ¿@ ¿@B ¿@Ho ¿@ dlAð¬dlFð§dlDð¢lSð¿@Cl lÿå ¿@Cl lÿå ¿@Clÿå IoHl o ogihddi  ´E¥H@ ¿H@ C(562Q NC.MarkIndexEntryFreeInFile 554Q NC.MarkIndexEntryFree 543Q NC.YesP 540Q NC.AskUser 520Q CONCAT 511Q CHARACTER 475Q BOUT 464Q BOUT 456Q RSH 446Q BOUT 440Q RSH 403Q SETFILEPTR 400Q NC.IndexInFileFromID 366Q NC.PutPtrToIndex 360Q NC.GetStatusFromIndex 353Q NC.SetIndexOffset 350Q NC.IndexFromID 337Q GETFILEPTR 332Q COPYBYTES 322Q SETFILEPTR 314Q SETFILEPTR 306Q BOUT 275Q BOUT 267Q RSH 257Q BOUT 251Q RSH 214Q SETFILEPTR 211Q NC.IndexInFileFromID 177Q NC.PutPtrToIndex 171Q NC.GetStatusFromIndex 164Q NC.SetIndexOffset 161Q NC.IndexFromID 150Q COPYBYTES 140Q SETFILEPTR 132Q SETFILEPTR 125Q GETEOFPTR 104Q COPYBYTES 74Q GETFILEPTR 67Q READC 62Q READ 51Q READ 43Q NC.GetDate 26Q NC.GetIdentifier 21Q SETFILEPTR 14Q SETFILEPTR 6 NC.IDFromNumber) (527Q Yes) ( 524Q "--" 515Q "Want to delete this card?" 503Q "Trouble copying prop list for" 375Q "NC.CopyLinkLabels" 206Q "NC.CopyLinkLabels") NC.FastCopyNoteCard D1 (P 6 Date P 5 VersionNumber P 4 MainPtr P 3 NoteCardType P 2 Status P 1 DebugFlg P 0 PtrList I 2 ToStream I 1 FromStream I 0 ID F 10Q NC.ItemIdentifier) 4€A@ XdZddgðœ¿BA i ±gð³ @B ¿I¢±o@oJ ±ðAH ¿AW ]¢±¾kMó¤A ¾@A 𢱫Bd \ ¿BW ¿@N ¿B@ ¿@B ¿A »A ¿KB ¿@dA ¿@B ¿K _¿@ABlO¿BH ¿Bg ¿BL ¿@AH ¿@Bi ¿@AH ¿@Bi ¿@AH ¿@Bi °@B ¿I²o@oJ ¿@i @(460Q NC.DeactivateCard 452Q PRINT 447Q CONCAT 426Q NC.MarkIndexEntryFree 417Q NC.PutPropList 410Q NC.GetPropList 374Q NC.PutTitle 365Q NC.GetTitle 352Q NC.PutLinks 343Q NC.GetLinks 331Q NC.PutPtrToIndex 323Q NC.PutStatusToIndex 313Q NC.SetIndexOffset 263Q NC.SubstanceCopyFn 256Q NC.PutRegion 250Q NC.SetRegion 245Q NC.GetRegion 236Q PRINT 230Q READC 223Q READ 216Q PRINT 210Q NC.PutDate 205Q NC.FetchItemDate 177Q NC.SetItemDate 171Q NC.PutIdentifier 162Q SETFILEPTR 156Q GETEOFPTR 144Q READ 136Q NC.GetDate 121Q NC.GetIdentifier 112Q SETFILEPTR 100Q PRINT 75Q CONCAT 52Q NC.MarkIndexEntryFree 34Q NC.PutLinkLabels 30Q NC.GetLinkLabels 7 NC.GetPtrsFromIndex) (320Q ACTIVE 42Q ACTIVE 20Q SPECIAL) ( 443Q " Status: " 436Q "Not copied: " 71Q " Status: " 64Q "Not copied: ") NC.PutDate D1 (I 1 Date I 0 Stream) A@ (4 PRINT) NIL () NC.GetDate D1 (P 0 Date I 0 Stream) &@ Hd˜ `ð‘HoHo h(42Q NC.ReportError 37Q CONCAT 14Q NCHARS 3 READ) (17Q NC.DateStringLength) ( 34Q " is not a proper date." 27Q "NC.GetDate") NC.DeactivateCard D1 (I 1 DeleteTypeAndTitleFlg I 0 ID) @g @g @g @g @g @g @g @g @g @g @g @g @g @g @g @g @g @g @g AŸ@g ¿@g ¿@ (232Q SET 225Q REMPROP 215Q REMPROP 204Q REMPROP 175Q REMPROP 166Q REMPROP 157Q REMPROP 150Q REMPROP 141Q REMPROP 132Q REMPROP 123Q REMPROP 114Q REMPROP 105Q REMPROP 76Q REMPROP 67Q REMPROP 60Q REMPROP 51Q REMPROP 42Q REMPROP 33Q REMPROP 24Q REMPROP 15Q REMPROP 6 REMPROP) (222Q NoteCardType 212Q NoteCardTitle 201Q NoteCardPropListDate 172Q NoteCardTitleDate 163Q NoteCardLinksDate 154Q NoteCardItemDate 145Q VALUE 136Q NoteCardSubstanceDirty 127Q NoteCardPropListDirty 120Q NoteCardTitleDirty 111Q NoteCardNewCard 102Q NoteCardRegionViewed 73Q NoteCardSketchScale 64Q SKETCH 55Q NoteCardLinksDirty 46Q NoteCardGlobalLinks 37Q NoteCardPropList 30Q NoteCardToLinks 21Q NoteCardFromLinks 12Q NoteCardActive 3 NoteCardRegion) () NC.FetchTitleDate D1 (L (0 ID)) @gNIL (3 NoteCardTitleDate) () NC.FetchItemDate D1 (L (0 ID)) @gNIL (3 NoteCardItemDate) () NC.FetchPropListDate D1 (L (0 ID)) @gNIL (3 NoteCardPropListDate) () NC.FetchLinksDate D1 (L (0 ID)) @gNIL (3 NoteCardLinksDate) () NC.SetTitleDate D1 (I 1 Date I 0 ID) @gA (7 PUTPROP) (3 NoteCardTitleDate) () NC.SetItemDate D1 (I 1 Date I 0 ID) @gA (7 PUTPROP) (3 NoteCardItemDate) () NC.SetPropListDate D1 (I 1 Date I 0 ID) @gA (7 PUTPROP) (3 NoteCardPropListDate) () NC.SetLinksDate D1 (I 1 Date I 0 ID) @gA (7 PUTPROP) (3 NoteCardLinksDate) () NC.ForceDatabaseClose D1 (I 0 DatabaseStream F 0 PSA.Database F 1 NC.UncachingNotCompleted) @ hcdcd@ (21Q CLOSEF 3 \UPDATEOF) (15Q NC.LinkLabelsDate) () NC.CompactDatabaseInPlace D1 (P 24Q Result P 23Q Tuple P 22Q CTR P 17Q TempFileName P 16Q i P 14Q SuccessFlg P 13Q NumBytesSaved P 12Q OldLength P 11Q ToPtr P 10Q SortedIndexTuples P 7 FullFileName P 6 TotalCount P 5 ID P 4 NextFreeIndex P 3 NewIndexSize P 2 OldIndexSize P 1 TempStream P 0 Stream I 0 DatabaseName F 25Q PSA.Database F 26Q TtyDisplayStream F 27Q NC.DatabaseFileNameSuggestion) !à W*µ)@®ooi b¿@›@gihi ¸Hd³" ²Öhiol ol hg _H _kgO _ ³LOg YHl H áH ØZH [dJñ–HKI ¿H _KkØl _O ^Ok#O"µ °OkÔ_¿° _&¿O$dO 󢱈¿i_d²6H ¿Hl ¿HOl lÿå ¿HOl lÿå ¿HOlÿå ¿I O²hioOo ¿H O¢±‘OgO ³uhdoOol °ll Ü_jð¬O²-O ²&hiol oO$oNol ¿O&HIO _(d¢±ÿ7_¿O"_"¿O$kÔ_$¿±ÿhiol ¿W, ¿O´6hiOol oOOÕ_oOOëldÖjØol ŽioOo ¿ghgO c.¿(1033Q PACKFILENAME 1016Q NC.PrintMsg 776Q NC.PrintMsg 772Q CHARACTER 730Q CHARACTER 706Q CLOSEW 703Q WFROMDS 675Q NC.PrintMsg 672Q CHARACTER 625Q NC.CopyCardPart 613Q NC.PrintMsg 607Q CHARACTER 563Q CHARACTER 546Q \FZEROP 521Q NC.PrintMsg 515Q CHARACTER 472Q SETFILEINFO 452Q NC.ForceDatabaseClose 445Q NC.PrintMsg 421Q DELFILE 416Q CLOSEF 411Q BOUT 377Q BOUT 371Q RSH 360Q BOUT 352Q RSH 341Q SETFILEPTR 332Q NC.CleanupIndexEntries 251Q LENGTH 242Q LSH 230Q NC.SortIndexEntries 223Q NC.ExpandIndexInPlace 210Q NC.ComputeNewDatabaseIndexSize 175Q SETFILEPTR 165Q OPENSTREAM 153Q FULLNAME 146Q PACK* 130Q FULLNAME 122Q GETFILEINFO 112Q NC.PrintMsg 106Q CHARACTER 75Q CHARACTER 60Q OPENP 47Q NC.OpenDatabaseFile 32Q NC.ClearMsg 24Q NC.DatabaseFileName) (1026Q BODY 1022Q VERSION 465Q LENGTH 162Q BOTH 141Q {CORE}NCTEMPFILE 117Q LENGTH 40Q BOTH) ( 1012Q " aborted." 1004Q "Compact of " 765Q "%%)" 747Q " bytes (" 734Q "Recovered " 723Q " compacted in place." 665Q "Done." 602Q "." 575Q " of " 567Q "Copying piece " 556Q "Compacting NoteFile." 510Q "." 502Q "Couldn't truncate " 441Q " ..." 433Q "Truncating file " 101Q "The NoteFile must be closed before any other NoteFile can be compacted." 70Q "There is an open NoteFile." 20Q " -- " 14Q "Name of NoteFile to be compacted in place:") (PRETTYCOMPRINT RHTPATCH001COMS) (RPAQQ RHTPATCH001COMS ((* * Changes for adding date info to data entries in notefile.) (* * Old functions from NCDATABASE.) (FNS NC.GetIdentifier NC.PutIdentifier) (FNS NC.GetNoteCard NC.GetLinkLabels NC.GetLinks NC.GetTitle NC.GetType NC.GetPropList) (FNS NC.PutNoteCard NC.PutLinkLabels NC.PutLinks NC.PutTitle NC.PutPropList NC.PutMainCardData) (FNS NC.CopyMainCardData NC.CopyLinks NC.CopyTitle NC.CopyPropList NC.CopyLinkLabels NC.FastCopyNoteCard) (* * New stuff for NCDATABASE.) (GLOBALVARS NC.DataFormatVersionNumber NC.DateStringLength NC.LinkLabelsDate NC.ClippedIdentifierAtoms) (VARS (NC.DataFormatVersionNumber 1) (NC.DateStringLength 18) ( NC.LinkLabelsDate NIL) (NC.ClippedIdentifierAtoms (for Atom in NC.IdentifierAtoms collect (SUBATOM Atom 1 -3)))) (FNS NC.PutDate NC.GetDate) (* * Old functions from NCCARDS.) (FNS NC.DeactivateCard) (* * New stuff for NCCARDS.) (FNS NC.FetchTitleDate NC.FetchItemDate NC.FetchPropListDate NC.FetchLinksDate) (FNS NC.SetTitleDate NC.SetItemDate NC.SetPropListDate NC.SetLinksDate) (* * Old functions from NCINTERFACE) (FNS NC.ForceDatabaseClose) (* * Random fixes.) (FNS NC.CompactDatabaseInPlace))) (RPAQQ NC.DataFormatVersionNumber 1) (RPAQQ NC.DateStringLength 18) (RPAQQ NC.LinkLabelsDate NIL) (RPAQ NC.ClippedIdentifierAtoms (for Atom in NC.IdentifierAtoms collect (SUBATOM Atom 1 -3))) (PUTPROPS RHTPATCH001 COPYRIGHT ("Xerox Corporation" 1985)) NIL