(FILECREATED "30-Nov-87 15:29:28" ("compiled on " {QV}1.3KNEXT>NCLOCALDEVICE.;6) "12-Nov-85 14:59:23" recompiled changes: NCLocalDevice.OpenNoteFile NCLocalDevice.NewCardUID NCLocalDevice.GetCardInfo NCLocalDevice.PutCardPart NCLocalDevice.GetCardPart NCLocalDevice.GetNoteFileHeader NCLocalDevice.GetHashArray NCLocalDevice.PutNoteFileHeader NCLocalDevice.PutHashArray NCLocalDevice.PutIndexEntry NCLocalDevice.ReadIndexEntry NCLocalDevice.PutFromLinks in "LOOPS/KOTO 9-Sep-87 ..." dated " 9-Sep-87 14:19:57") (FILECREATED "30-Nov-87 15:28:28" {QV}1.3KNEXT>NCLOCALDEVICE.;6 57398 changes to: (FNS NCLocalDevice.OpenNoteFile NCLocalDevice.NewCardUID NCLocalDevice.GetCardInfo NCLocalDevice.PutCardPart NCLocalDevice.GetCardPart NCLocalDevice.GetNoteFileHeader NCLocalDevice.GetHashArray NCLocalDevice.PutNoteFileHeader NCLocalDevice.PutHashArray NCLocalDevice.PutIndexEntry NCLocalDevice.ReadIndexEntry NCLocalDevice.PutFromLinks) previous date: "25-Nov-87 16:21:16" {QV}1.3KNEXT>NCLOCALDEVICE.;5) NCLocalDevice.OpenNoteFileA0001A0002 D1 (NAME ERRORSET F 0 FullName F 1 NoteFile F 2 Stream) PQ(gggo ci(30Q OPENSTREAM) (21Q OLD 16Q BOTH 12Q INPUT 4 NoteFile) ( 25Q ((TYPE BINARY))) NCLocalDevice.OpenNoteFileA0001 D1 (NAME ERRORSET P 4 ReturnVal P 3 Stream P 2 CriticalUIDs P 1 EofPtr P 0 FullName F 5 NoteFile F 6 Don'tCheckForTruncationFlg) U AHg goi gtUKUHUH Kgg U U U Ug 3UI \`UL VUI Ug U ZUJh(224Q NCLocalDevice.GetSpecialCardUIDs 217Q NCLocalDevice.OpenFailed 207Q NCLocalDevice.NoteFileNeedsTruncationP 176Q NCLocalDevice.OpenFailed 162Q NCLocalDevice.CheckForPlausibleNoteFileHeader 153Q NCLocalDevice.OpenFailed 143Q NCLocalDevice.NoteFileVersionOkayP 136Q GETEOFPTR 124Q NCLocalDevice.GetNoteFileHeader 117Q WHENCLOSE 104Q NC.SetMonitor 101Q CREATE.MONITORLOCK 46Q NCLocalDevice.OpenNoteFileA0001A0002 27Q OPENP 10Q INFILEP) (231Q NoteFile 214Q NoteFileNeedsTruncation 167Q NoteFileTYPE# 150Q NoteFileNeedsConversion 131Q NoteFile 114Q NO 111Q CLOSEALL 70Q NoteFile 60Q NoteFile 52Q NoteFileOpenFailed 33Q NoteFileAlreadyOpen 21Q NoteFileNotFound 3 NoteFile) ( 42Q (NCLocalDevice.OpenNoteFileA0001A0002)) NCLocalDevice.OpenNoteFile D1 (I 2 Don'tCheckForTruncationFlg I 1 PromptWindow I 0 NoteFile) oi @ (16Q NCLocalDevice.OpenFailed 7 NCLocalDevice.OpenNoteFileA0001) NIL ( 3 (NCLocalDevice.OpenNoteFileA0001)) NCLocalDevice.CloseNoteFileA0001 D1 (NAME ERRORSET F 0 NoteFile) P i(10Q CLOSEF) (3 NoteFile) () NCLocalDevice.CloseNoteFile D1 (I 1 PromptWindow I 0 NoteFile) @ goi @h@g(20Q NCLocalDevice.CloseNoteFileA0001 3 NCLocalDevice.NoteFileOpenP) (35Q CloseFailed 25Q NoteFile 7 NoteFileNotOpen) ( 14Q (NCLocalDevice.CloseNoteFileA0001)) NCLocalDevice.CreateNoteFileA0001A0002 D1 (NAME ERRORSET F 0 FileName) Pggo h(15Q OPENSTREAM) (6 NEW 3 BOTH) ( 12Q ((TYPE BINARY))) NCLocalDevice.CreateNoteFileA0001 D1 (NAME ERRORSET L (0 NIL) P 1 CTR F 2 NoteFile F 3 Stream F 4 HashArraySize F 5 OperationMsg F 6 QuietFlg F 7 InterestedWindow) oi cgRSRS RTR`RT Rl R TkIHUV8In k-WiUool oIoTol Sg Sd l IkԹRh(252Q SETFILEPTR 244Q GETFILEPTR 236Q NC.WriteStatus 226Q NC.PrintMsg 222Q CHARACTER 177Q CHARACTER 150Q IMOD 130Q BLOCK 117Q NCLocalDevice.PutNoteFileHeader 77Q NCLocalDevice.TotalNoteFileIndexSize 41Q FULLNAME 7 NCLocalDevice.CreateNoteFileA0001A0002) (233Q FREE 106Q NoteFile 73Q NoteFile 63Q NCLocalDevice.CurrentNoteFileVersionNumber 60Q NoteFile 50Q NoteFile 35Q NoteFile 25Q NoteFile 16Q FileWon'tOpen) ( 215Q "." 210Q " out of " 203Q "Processing item " 172Q "Creating NoteFile." 166Q "" 3 (NCLocalDevice.CreateNoteFileA0001A0002)) NCLocalDevice.CreateNoteFile D1 (P 2 Stream P 1 FileName P 0 HashArraySize I 4 QuietFlg I 3 OperationMsg I 2 InterestedWindow I 1 SizeInCards I 0 NoteFile) ,A3 `@oi Jd g(46Q CLOSEF 43Q DELFILE 40Q FULLNAME 30Q NCLocalDevice.CreateNoteFileA0001) (51Q CreateFailed 13Q NoteFile 7 NC.DefaultIndexSizeInEntries) ( 24Q (NCLocalDevice.CreateNoteFileA0001)) NCLocalDevice.CompactNoteFile D1 (P 2 FileName P 1 ToNoteFile P 0 FromFileName I 3 PromptWindow I 2 InPlaceFlg I 1 ToFileName I 0 FromNoteFile) l @ooihdC C `@@XB/ghgH AooihdC C bHBAHg X bH @ CioHo Bjg @HClgg Joogo h g @HClgooJog g @HAClg$g J"oogo YCi I g @HAClgooJog (550Q CONCAT 505Q \DEFINEDP 476Q NC.LoadFileFromDirectories 471Q NC.ClearMsg 460Q NC.ReportError 455Q CONCAT 425Q NC.LookupAutoloadFnFile 377Q \DEFINEDP 367Q CONCAT 325Q \DEFINEDP 316Q NC.LoadFileFromDirectories 310Q NC.ReportError 305Q CONCAT 255Q NC.LookupAutoloadFnFile 227Q \DEFINEDP 215Q NC.PrintMsg 175Q NC.CloseDatabaseFile 170Q OPENP 161Q NC.NoteFileFromFileName 155Q FULLNAME 126Q NC.ClearMsg 122Q NC.DatabaseFileName 73Q PACKFILENAME 70Q FULLNAME 31Q NC.ClearMsg 25Q NC.DatabaseFileName) (545Q NC.CompactNoteFileToTarget 521Q NC.CompactNoteFileToTarget 502Q NC.CompactNoteFileToTarget 446Q NC.CompactNoteFileToTarget 422Q NC.CompactNoteFileToTarget 413Q NC.CompactNoteFileToTarget 374Q NC.CompactNoteFileToTarget 364Q NC.CompactNoteFileInPlace 340Q NC.CompactNoteFileInPlace 322Q NC.CompactNoteFileInPlace 276Q NC.CompactNoteFileInPlace 252Q NC.CompactNoteFileInPlace 242Q NC.CompactNoteFileInPlace 224Q NC.CompactNoteFileInPlace 152Q OLD 76Q NC.DatabaseFileNameSuggestion 64Q BODY 60Q VERSION 45Q NoteFile 37Q NoteFileTYPE#) ( 542Q ", but still no definition of " 535Q "Loaded file " 531Q "NC.AutoloadApply*" 452Q " in table of autoloadable functions." 443Q "No definition of " 437Q "NC.AutoloadApply*" 361Q ", but still no definition of " 354Q "Loaded file " 350Q "NC.AutoloadApply*" 302Q " in table of autoloadable functions." 273Q "No definition of " 267Q "NC.AutoloadApply*" 211Q " ..." 204Q "Compacting " 112Q " -- " 106Q "Name of target of compaction:" 15Q " -- " 11Q "Name of NoteFile to be compacted:") NCLocalDevice.InspectAndRepairNoteFile D1 (P 1 FileName P 0 NoteFile I 2 InterestedWindow I 1 ReadSubstancesFlg I 0 NoteFileOrFileName) @d` Hg @AhdBlg HB g Ioogo  g @AhdBlgooIog (201Q NC.ReportError 176Q CONCAT 135Q \DEFINEDP 127Q NC.LoadFileFromDirectories 123Q NC.ReportError 120Q CONCAT 70Q NC.LookupAutoloadFnFile 57Q NC.CloseNoteFile 50Q NC.NoteFileOpenP 26Q \DEFINEDP 12Q NC.NoteFileFromFileName) (173Q NC.ScavengerPhase1 150Q NC.ScavengerPhase1 132Q NC.ScavengerPhase1 111Q NC.ScavengerPhase1 65Q NC.ScavengerPhase1 42Q NC.ScavengerPhase1 23Q NC.ScavengerPhase1 5 NoteFileTYPE#) ( 170Q ", but still no definition of " 163Q "Loaded file " 157Q "NC.AutoloadApply*" 115Q " in table of autoloadable functions." 106Q "No definition of " 102Q "NC.AutoloadApply*") NCLocalDevice.BuildHashArrayA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 QuietFlg F 2 InterestedWindow F 3 OperationMsg) PP PQRS h(26Q NCLocalDevice.GetHashArray 14Q NC.CreateUIDHashArray) (7 NoteFile 3 NoteFile) () NCLocalDevice.BuildHashArray D1 (I 3 OperationMsg I 2 InterestedWindow I 1 QuietFlg I 0 NoteFile) ?oi 4@ @ @h@ @h@ g(71Q NC.SetMonitor 56Q CLRHASH 35Q CLOSEF? 23Q STREAMP 7 NCLocalDevice.BuildHashArrayA0001) (74Q ErrorOfUnknownOrigin 62Q NoteFile 51Q NoteFile 42Q NoteFile 30Q NoteFile 16Q NoteFile) ( 3 (NCLocalDevice.BuildHashArrayA0001)) NCLocalDevice.NoteFileOpenP D1 (I 0 NoteFile) @ @ @(23Q OPENP 10Q STREAMP) (16Q NoteFile 3 NoteFile) () NCLocalDevice.CheckpointNoteFileA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 InterestedWindow F 2 OperationMsg F 3 QuietFlg) ,PQhRS PP P Pi i(50Q FORCEOUTPUT 35Q NCLocalDevice.PutNoteFileHeader 26Q GETEOFPTR 10Q NCLocalDevice.PutHashArray) (42Q NoteFile 21Q NoteFile 15Q NoteFile) () NCLocalDevice.CheckpointNoteFile D1 (I 3 QuietFlg I 2 OperationMsg I 1 InterestedWindow I 0 NoteFile) @ goi g@(20Q NCLocalDevice.CheckpointNoteFileA0001 3 NCLocalDevice.NoteFileOpenP) (24Q CheckpointFailed 7 NoteFileNotOpen) ( 14Q (NCLocalDevice.CheckpointNoteFileA0001)) NCLocalDevice.ConvertNoteFileFormatA0001 D1 (NAME ERRORSET P 0 FileName F 1 FullFileName F 2 PromptWindow F 3 NewFileName) eg QRlg$g Hoogo ch g QRlgooHog (141Q CONCAT 102Q \DEFINEDP 73Q NC.LoadFileFromDirectories 62Q NC.ReportError 57Q CONCAT 27Q NC.LookupAutoloadFnFile 5 \DEFINEDP) (136Q NC.ConvertNoteFileVersion2To3 112Q NC.ConvertNoteFileVersion2To3 77Q NC.ConvertNoteFileVersion2To3 50Q NC.ConvertNoteFileVersion2To3 24Q NC.ConvertNoteFileVersion2To3 15Q NC.ConvertNoteFileVersion2To3 2 NC.ConvertNoteFileVersion2To3) ( 133Q ", but still no definition of " 126Q "Loaded file " 122Q "NC.AutoloadApply*" 54Q " in table of autoloadable functions." 45Q "No definition of " 41Q "NC.AutoloadApply*") NCLocalDevice.ConvertNoteFileFormat D1 (P 3 NewFileName P 2 FullFileName P 1 Version P 0 Stream I 1 PromptWindow I 0 NoteFile) @@@J gI3lIgIk;A 1AioJoIol ool ol goi @K@@ g(205Q CLOSEF? 161Q NCLocalDevice.ConvertNoteFileFormatA0001 145Q NC.PrintMsg 141Q CHARACTER 130Q CHARACTER 113Q CHARACTER 64Q WINDOWP 31Q OPENP) (210Q NoteFileConversionFailed 200Q NoteFile 167Q NoteFile 150Q NoteFileTooOld 52Q BadVersionNumber 35Q NoteFileAlreadyOpen 20Q NoteFile 11Q NoteFile 3 NoteFile) ( 155Q (NCLocalDevice.ConvertNoteFileFormatA0001) 134Q " Then we convert to version 3." 123Q "by opening in NoteCards release 1.2i." 117Q " It must first be converted to version 2" 106Q ")." 101Q " is too old (version " 74Q "Notefile ") NCLocalDevice.TruncateNoteFileA0001 D1 (NAME ERRORSET F 0 FullFileName F 1 NoteFile) PgQ h(14Q SETFILEINFO) (7 NoteFile 3 LENGTH) () NCLocalDevice.TruncateNoteFile D1 (P 3 ReturnValue P 2 SaveStream P 1 NoteFileStream P 0 FullFileName I 1 PromptWindow I 0 NoteFile) @@"A hbI@A~ooohAhi 0@A [`#AioKol g gA7l oHo oohAhi QAAioHo oi AAiol @AAhoHol l gg(322Q NC.PrintMsg 316Q CHARACTER 311Q CHARACTER 264Q NC.PrintMsg 261Q CHARACTER 241Q NCLocalDevice.TruncateNoteFileA0001 230Q NC.PrintMsg 205Q NC.AskYesOrNo 165Q CONCAT 151Q CHARACTER 133Q OPENP 124Q NC.PrintMsg 120Q CHARACTER 70Q NCLocalDevice.SaveInformationPastCheckpoint 61Q NC.AskYesOrNo 22Q WINDOWP) (331Q NoteFileTruncationAborted 325Q NoteFileTruncationFailed 140Q NoteFileAlreadyOpen 127Q NoteFileTruncationFailed 75Q NoteFileTYPE# 11Q NoteFile 3 NoteFile) ( 304Q "." 277Q "Couldn't truncate " 254Q "Done." 235Q (NCLocalDevice.TruncateNoteFileA0001) 224Q " ..." 217Q "Truncating file " 175Q "No" 171Q "--" 162Q "? " 155Q "Are you sure you want to truncate " 113Q "." 106Q "Attempt to save information failed because " 51Q "Yes" 45Q "--" 41Q "Want to save info beyond checkpoint to a file? ") NCLocalDevice.NewCardUID D1 (P 7 NumUsed P 6 PercentUsed P 5 IndexNum P 4 IndexNumsFreeList P 3 NextIndexNum P 2 NoteFile P 0 \NF I 0 Card) @Hd`@H YIQJ J [J$\ddLJL$KJKk @M @kkjh@`@@(174Q NC.MakeUID 131Q NC.NoteFileLocFromIndexNum 47Q NC.CheckForExpandIndex 32Q NC.NoteFileFromNoteFileUID) (171Q CardObject 163Q UIDTYPE# 155Q CardObject 137Q CardObject 125Q CardObject 113Q NoteFile 101Q NoteFile 62Q NoteFile 53Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NCLocalDevice.MarkCardDeleted D1 (I 0 Card) @g (6 NC.SetStatus) (3 DELETED) () NCLocalDevice.GetCardInfoA0002 D1 (NAME ERRORSET P 2 Stream P 0 \NF F 3 Card F 4 RESETY) zSHd`SH YI hi SHd`SH YIJS S`J SJ S ci(163Q NC.FetchType 156Q NC.SetType 153Q NC.ReadCardType 145Q NC.ReadCardPartHeader 134Q SETFILEPTR 104Q NC.NoteFileFromNoteFileUID 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (141Q NC.ItemIdentifier 127Q CardObject 115Q NoteFile 100Q CardObject 70Q NoteFileTYPE# 55Q CardObject 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NCLocalDevice.GetCardInfo D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 Aspect I 1 Aspects I 0 Card F 7 LISPXHIST F 10Q RESETVARSLST) |@Aodjdghcd[ddg)W!Wog hg^ NM#g@ Kg@ oK IHhZH&J(147Q SHOULDNT 144Q CONCAT 133Q NC.RetrieveTitle 117Q NC.FetchStatus 101Q ERROR! 73Q RESETRESTORE 61Q NCLocalDevice.GetCardInfoA0002) (125Q TITLE 111Q STATUS 67Q ERROR 56Q INTERNAL 34Q TYPE) ( 140Q "Unknown card aspect: " 53Q (NCLocalDevice.GetCardInfoA0002) 11Q (STATUS TYPE)) NCLocalDevice.PutCardPartA0001 D1 (NAME ERRORSET P 3 GlobalLinks P 2 ToLinks P 0 \NF F 11Q Card F 12Q RESETY) d WHd`WH YI hi pW WHd`WH \LW W`WHd`WH ]M WHd`WH ^N WHd`WH _O WHd`WH _O WgJK WHd`WH YIm ci(536Q SETFILEPTR 516Q NC.NoteFileFromNoteFileUID 460Q NC.PutProp 444Q NC.ReadListOfLinks 424Q NC.NoteFileFromNoteFileUID 365Q NC.ReadListOfLinks 345Q NC.NoteFileFromNoteFileUID 306Q NC.ReadListOfLinks 270Q NC.NoteFileFromNoteFileUID 232Q NC.ReadCardPartHeader 214Q NC.NoteFileFromNoteFileUID 151Q SETFILEPTR 124Q NC.NoteFileFromNoteFileUID 63Q NC.FetchNewCardFlg 52Q OBTAIN.MONITORLOCK 45Q NC.FetchMonitor 34Q NC.NoteFileFromNoteFileUID) (527Q NoteFile 512Q CardObject 501Q NoteFileTYPE# 466Q CardObject 452Q OldLinks 437Q NoteFile 420Q CardObject 406Q NoteFileTYPE# 373Q CardObject 360Q NoteFile 341Q CardObject 327Q NoteFileTYPE# 314Q CardObject 301Q NoteFile 264Q CardObject 253Q NoteFileTYPE# 240Q CardObject 225Q NoteFile 210Q CardObject 177Q NoteFileTYPE# 164Q CardObject 157Q NC.LinksIdentifier 144Q CardObject 135Q NoteFile 120Q CardObject 107Q NoteFileTYPE# 74Q CardObject 30Q CardObject 17Q NoteFileTYPE# 4 CardObject) () NCLocalDevice.PutCardPart D1 (P 3 \NF P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 WhenFlg I 1 CardPartName I 0 Card F 5 PutSuccessfulLoc F 6 LISPXHIST F 7 RESETVARSLST) BdgAdg%V!Wog hgZ JIgAgAgAdg/@Kd`@K \Lm g@Kd`@K \L@ @`@Kd`@K \L @Kd`@K \L oA gXUAdg@U g@U Adg@U g@U Adg@U ghoA oB (575Q SHOULDNT 572Q CONCAT 561Q SHOULDNT 556Q CONCAT 536Q NCLocalDevice.PutFromLinks 520Q NC.SetPropListLoc 505Q NC.SetLinksLoc 467Q NC.SetMainLoc 454Q NC.SetTitleLoc 425Q SHOULDNT 422Q CONCAT 411Q NC.ReadCardType 373Q NC.NoteFileFromNoteFileUID 340Q NC.ReadCardPartHeader 322Q NC.NoteFileFromNoteFileUID 263Q SETFILEPTR 237Q NC.NoteFileFromNoteFileUID 173Q SETFILEPTR 153Q NC.NoteFileFromNoteFileUID 62Q ERROR! 55Q RESETRESTORE 43Q NCLocalDevice.PutCardPartA0001) (542Q REGION 526Q FROMLINKS 511Q PROPLIST 475Q LINKS 460Q SUBSTANCE 444Q TITLE 431Q AFTER 404Q NoteFile 367Q CardObject 357Q NoteFileTYPE# 344Q CardObject 333Q NoteFile 316Q CardObject 306Q NoteFileTYPE# 273Q CardObject 267Q NC.ItemIdentifier 256Q CardObject 250Q NoteFile 233Q CardObject 223Q NoteFileTYPE# 210Q CardObject 177Q REGION 164Q NoteFile 147Q CardObject 137Q NoteFileTYPE# 124Q CardObject 114Q PROPLIST 105Q LINKS 77Q SUBSTANCE 70Q TITLE 51Q ERROR 40Q INTERNAL 17Q FROMLINKS 4 BEFORE) ( 566Q "Don't understand WhenFlg argument: " 552Q "Bad card part name: " 416Q "Bad card part name: " 35Q (NCLocalDevice.PutCardPartA0001)) NCLocalDevice.GetCardPart D1 (P 0 \NF I 2 WhenFlg I 1 CardPartName I 0 Card) Bg}@Hd`@H YIAdg@Dg@ 7Adg@ 'g@ Ag@oA (201Q SETFILEPTR 176Q SHOULDNT 173Q CONCAT 41Q NC.NoteFileFromNoteFileUID) (160Q CardObject 152Q PROPLIST 142Q CardObject 134Q LINKS 125Q CardObject 116Q TYPE 105Q CardObject 77Q SUBSTANCE 70Q CardObject 61Q TITLE 52Q NoteFile 35Q CardObject 25Q NoteFileTYPE# 12Q CardObject 3 BEFORE) ( 167Q "Unrecognized card part: ") NCLocalDevice.ObtainWritePermission D1 (L (1 CardPartName 0 Card)) iNIL NIL () NCLocalDevice.ReleaseWritePermission D1 (L (1 CardPartName 0 Card)) iNIL NIL () NCLocalDevice.CancelCacheSubscription D1 (L (1 CardPart 0 Card)) iNIL NIL () NCLocalDevice.DeleteNoteFile D1 (I 0 FILENAME) '@ hi@ol ol h@ (44Q DELFILE 36Q NC.PrintMsg 32Q CHARACTER 21Q CHARACTER 3 OPENP) NIL ( 25Q "Delete cancelled." 14Q " is an open file.") NCLocalDevice.CurrentVersion D1 NIL `Hhd`HXNIL (22Q NCLocalDevice.CurrentNoteFileVersionNumber 2 NCLocalDevice.NoteFileVersionsList) () NCLocalDevice.GetNoteFileHeader D1 (P 0 Stream I 0 NoteFile) {@Hj @H lH lH @H lH lH H @H @H lH lH @H lH lH @@ H H @(160Q NC.ReadUID 15Q SETFILEPTR) (154Q NoteFile 130Q NoteFile 104Q NoteFile 73Q NoteFile 45Q NoteFile 21Q NoteFile 3 NoteFile) () NCLocalDevice.GetHashArrayA0001 D1 (NAME ERRORSET P 5 Card P 4 IndexNum P 2 IndexNumsFreeList P 1 CardTotal P 0 Stream F 6 NoteFile F 7 QuietFlg F 10Q InterestedWindow F 11Q OperationMsg F 12Q RESETY) V hi VV kHl IkW8Lld k.WiWool oLoIol LK7W$WiWool ol VJ$VciV ]gLJZMV LkԼj(267Q NC.InstallCardInNoteFile 242Q NCLocalDevice.ReadIndexEntry 216Q NC.PrintMsg 212Q CHARACTER 201Q CHARACTER 143Q BLOCK 137Q NC.PrintMsg 133Q CHARACTER 110Q CHARACTER 60Q IMOD 40Q SETFILEPTR 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (253Q FREE 246Q CardObject 224Q NoteFile 23Q NoteFile 15Q NoteFile) ( 205Q "Done." 174Q "Building index array." 170Q "" 126Q "." 121Q " of " 114Q "Processing number " 103Q "Building index array." 77Q "") NCLocalDevice.GetHashArray D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OperationMsg I 2 InterestedWindow I 1 QuietFlg I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) 0@ gS!Tog hgZ JI(53Q ERROR! 46Q RESETRESTORE 34Q NCLocalDevice.GetHashArrayA0001 10Q OPENP) (42Q ERROR 31Q INTERNAL 14Q NoteFileNotOpen 3 NoteFile) ( 26Q (NCLocalDevice.GetHashArrayA0001)) NCLocalDevice.GetSpecialCardUIDs D1 (P 4 FilePtr P 3 Index P 1 CriticalUIDs P 0 Stream I 0 NoteFile) @hdddddhlklKJgHL KdkIH FlIH 8KdlIH &lIH KlIH KkԻLlԼI(173Q SHOULDN'T 166Q NC.ReadUID 144Q NC.ReadUID 124Q NC.ReadUID 102Q NC.ReadUID 64Q NC.ReadUID 47Q SETFILEPTR) (3 NoteFile) () NCLocalDevice.PutNoteFileHeaderA0001 D1 (NAME ERRORSET F 0 Stream F 1 NoteFile F 2 NextIndexNum F 3 HashArraySize F 4 NextLinkNum F 5 CheckptPtr F 6 Version F 7 RESETY F 10Q UID) Q hi P Pj PRl l!PRl l!PRl!PSl l!PSl l!PSl!Pl!PVl!PTl l!PTl l!PTl!PUl l!PUl l!PUl!QW Pl!Qo ci(266Q NC.ReportError 247Q NC.WriteUID 225Q RSH 211Q RSH 166Q RSH 152Q RSH 113Q RSH 77Q RSH 54Q RSH 40Q RSH 30Q SETFILEPTR 15Q OPENP 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) NIL ( 263Q "NC.PutNoteFileHeader: Stream not open!!!") NCLocalDevice.PutNoteFileHeader D1 (P 12Q RESETZ P 11Q RESETY P 10Q LISPXHIST P 7 Version P 6 CheckptPtr P 5 NextLinkNum P 4 HashArraySize P 3 NextIndexNum P 2 UID P 1 FullFileName P 0 Stream I 0 NoteFile F 13Q LISPXHIST F 14Q RESETVARSLST) [ @@@@ @@ @@W! Wog hg_ OO(125Q ERROR! 117Q RESETRESTORE 104Q NCLocalDevice.PutNoteFileHeaderA0001) (112Q ERROR 101Q INTERNAL 55Q NoteFile 47Q NoteFile 41Q NoteFile 33Q NoteFile 25Q NoteFile 17Q NoteFile 11Q NoteFile 3 NoteFile) ( 76Q (NCLocalDevice.PutNoteFileHeaderA0001)) NCLocalDevice.PutHashArrayA0001 D1 (P 0 Card I 1 Key I 0 Value F 2 Num F 3 AllCardsFlg F 4 QuietFlg F 5 InterestedWindow F 6 OperationMsg F 7 CardTotal) x@TDRkcldYjI3I -UiVool oRoWol SHgHgSHjH h(163Q NCLocalDevice.PutIndexEntry 112Q NC.PrintMsg 106Q CHARACTER 62Q CHARACTER 36Q \FZEROP 2 BLOCK) (151Q CardObject 140Q FREE 135Q CardObject 127Q ACTIVE 122Q CardObject) ( 101Q "." 73Q " out of " 66Q "Processing item number " 55Q "Putting index array." 51Q "") NCLocalDevice.PutHashArray D1 (P 1 Num P 0 CardTotal I 4 QuietFlg I 3 OperationMsg I 2 AllCardsFlg I 1 InterestedWindow I 0 NoteFile) [A@ b@ G@ kjD,AiCool okoHol @g (130Q MAPHASH 113Q NC.PrintMsg 107Q CHARACTER 64Q CHARACTER 21Q HARRAYP 5 NC.CoerceToInterestedWindow) (125Q NCLocalDevice.PutHashArrayA0001 120Q NoteFile 27Q NoteFile 14Q NoteFile) ( 102Q "." 75Q " out of " 70Q "Processing item number " 57Q "Putting index array." 53Q "") NCLocalDevice.PutIndexEntryA0003 D1 (NAME ERRORSET P 0 Stream F 1 Card F 2 NoteFile F 3 RESETY) R hi RHQ HQ RQ HQ l l!HQ l l!HQ l!HQ l l!HQ l l!HQ l!HQl l!HQl l!HQl!HQl l!HQl l!HQl!Qjjdhci(332Q RSH 311Q RSH 254Q RSH 233Q RSH 176Q RSH 155Q RSH 120Q RSH 77Q RSH 62Q NC.WriteUID 47Q NC.WriteStatus 34Q SETFILEPTR 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (357Q CardObject 344Q CardObject 323Q CardObject 302Q CardObject 266Q CardObject 245Q CardObject 224Q CardObject 210Q CardObject 167Q CardObject 146Q CardObject 132Q CardObject 111Q CardObject 70Q CardObject 55Q CardObject 42Q CardObject 27Q CardObject 15Q NoteFile) () NCLocalDevice.PutIndexEntry D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 NoteFile P 0 \NF I 0 Card F 6 LISPXHIST F 7 RESETVARSLST) G@Hd`@H YIV!Wog hg] ML(102Q ERROR! 75Q RESETRESTORE 63Q NCLocalDevice.PutIndexEntryA0003 32Q NC.NoteFileFromNoteFileUID) (71Q ERROR 60Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 55Q (NCLocalDevice.PutIndexEntryA0003)) NCLocalDevice.NoteFileVersionOkayP D1 (L (0 NoteFile)) @` (14Q EQP) (11Q NCLocalDevice.CurrentNoteFileVersionNumber 3 NoteFile) () NCLocalDevice.CheckForPlausibleNoteFileHeader D1 (L (1 EOFPtr 0 NoteFile)) R@ @@@ HjlHAgIjlIAgJjJAgjKg@NIL (115Q BadNextLinkNum 105Q BadCheckptPtr 71Q BadHashArraySize 51Q BadNextIndexNum 25Q NoteFile 17Q NoteFile 11Q NoteFile 3 NoteFile) () NCLocalDevice.NoteFileNeedsTruncationP D1 (L (1 EofPtr 0 NoteFile)) @ANIL (3 NoteFile) () NCLocalDevice.OpenFailed D1 (I 1 ErrorType I 0 NoteFile) '@ @ @h@ Ag(36Q NC.SetMonitor 22Q CLOSEF? 10Q STREAMP) (44Q NoteFileOpenFailed 27Q NoteFile 15Q NoteFile 3 NoteFile) () NCLocalDevice.ReadIndexEntry D1 (P 0 Stream I 0 NoteFile) @`YdH IH dlAgdlFgdlDglSgI@ IH lH lH IH lH lH IH lH lH IH lH lH IjI@(121Q NC.ReadUID 25Q GETFILEPTR) (265Q CardObject 254Q CardObject 227Q CardObject 202Q CardObject 155Q CardObject 130Q CardObject 115Q CardObject 106Q SPECIAL 75Q DELETED 62Q FREE 47Q ACTIVE 34Q CardObject 21Q CardObject 13Q CardObjectTYPE# 3 NoteFile) () NCLocalDevice.SaveInformationPastCheckpointA0001 D1 (NAME ERRORSET F 0 FullFileName F 1 NoteFileStream) Pggo ch(15Q OPENSTREAM) (6 OLD 3 INPUT) ( 12Q ((TYPE BINARY))) NCLocalDevice.SaveInformationPastCheckpointA0002 D1 (NAME ERRORSET F 0 SaveFile F 1 SaveStream) Pdgho ch(15Q OPENSTREAM) (5 OUTPUT) ( 12Q ((TYPE BINARY))) NCLocalDevice.SaveInformationPastCheckpointA0003 D1 (NAME ERRORSET F 0 PromptWindow F 1 NoteFileStream F 2 SaveStream F 3 SaveFile F 4 NoteFile) 7PioSo QRT R Q Phol i(63Q NC.PrintMsg 60Q CHARACTER 44Q CLOSEF 37Q CLOSEF 32Q COPYBYTES 16Q NC.PrintMsg) (25Q NoteFile) ( 53Q "Done." 12Q " ..." 5 "Saving extra info to ") NCLocalDevice.SaveInformationPastCheckpoint D1 (P 3 SaveFile P 2 SaveStream P 1 NoteFileStream P 0 FullFileName I 1 PromptWindow I 0 NoteFile) Z@1oi gl o hddAi [oi goi J J I g@(122Q CLOSEF? 115Q DELFILE 110Q CLOSEF? 102Q NCLocalDevice.SaveInformationPastCheckpointA0003 64Q NCLocalDevice.SaveInformationPastCheckpointA0002 53Q NC.AskUser 42Q CONCAT 33Q CHARACTER 20Q NCLocalDevice.SaveInformationPastCheckpointA0001) (125Q CopyToSaveFileFailed 71Q CouldNotOpenSaveFile 25Q CouldNotOpenNoteFile 3 NoteFile) ( 76Q (NCLocalDevice.SaveInformationPastCheckpointA0003) 60Q (NCLocalDevice.SaveInformationPastCheckpointA0002) 37Q "File to save info in: " 14Q (NCLocalDevice.SaveInformationPastCheckpointA0001)) NCLocalDevice.PutFromLinks D1 (P 5 DataLoc P 4 EndLoc P 3 FromLinks P 2 STREAM P 0 \NF I 1 StreamLoc I 0 Card) @Hd`@H YI1JA @`J J ]J [JM J@g  JK J@g  J \JA JLAl l!JLAl l!JLAl!JL @A (231Q NC.SetLinksLoc 224Q SETFILEPTR 202Q RSH 164Q RSH 153Q SETFILEPTR 145Q GETFILEPTR 141Q NC.WriteListOfLinks 135Q NC.GetProp 125Q NC.WriteListOfLinks 120Q NC.WriteListOfLinks 114Q NC.GetProp 104Q SETFILEPTR 76Q NC.ReadListOfLinks 71Q GETFILEPTR 65Q NC.ReadCardPartHeader 55Q SETFILEPTR 32Q NC.NoteFileFromNoteFileUID) (132Q OldLinks 111Q OldLinks 61Q NC.LinksIdentifier 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NCLocalDevice.TotalNoteFileIndexSize D1 (L (0 HashArraySize)) @llNIL NIL () (PRETTYCOMPRINT NCLOCALDEVICECOMS) (RPAQQ NCLOCALDEVICECOMS ((* * Implements Local Single User Device) (* * The LOCALSINGLEUSER device vector.) (COMS (* The basic device vector functions.) (FNS NCLocalDevice.OpenNoteFile NCLocalDevice.CloseNoteFile NCLocalDevice.CreateNoteFile NCLocalDevice.CompactNoteFile NCLocalDevice.InspectAndRepairNoteFile NCLocalDevice.BuildHashArray NCLocalDevice.NoteFileOpenP NCLocalDevice.CheckpointNoteFile NCLocalDevice.ConvertNoteFileFormat NCLocalDevice.TruncateNoteFile NCLocalDevice.NewCardUID NCLocalDevice.MarkCardDeleted NCLocalDevice.GetCardInfo NCLocalDevice.PutCardPart NCLocalDevice.GetCardPart NCLocalDevice.ObtainWritePermission NCLocalDevice.ReleaseWritePermission NCLocalDevice.CancelCacheSubscription NCLocalDevice.DeleteNoteFile) (* Install the device vector.) (GLOBALVARS NC.DeviceVectorsHashArray) ( DECLARE: DONTEVAL@LOAD (P (PUTHASH (QUOTE LOCALSINGLEUSER) (create NoteFileDevice OpenNoteFileFn _ ( FUNCTION NCLocalDevice.OpenNoteFile) CloseNoteFileFn _ (FUNCTION NCLocalDevice.CloseNoteFile) CreateNoteFileFn _ (FUNCTION NCLocalDevice.CreateNoteFile) DeleteNoteFileFn _ (FUNCTION NCLocalDevice.DeleteNoteFile) CompactNoteFileFn _ (FUNCTION NCLocalDevice.CompactNoteFile) RepairNoteFileFn _ (FUNCTION NCLocalDevice.InspectAndRepairNoteFile) BuildHashArrayFn _ (FUNCTION NCLocalDevice.BuildHashArray) NoteFileOpenPFn _ (FUNCTION NCLocalDevice.NoteFileOpenP) CheckpointNoteFileFn _ (FUNCTION NCLocalDevice.CheckpointNoteFile) ConvertNoteFileFormatFn _ (FUNCTION NCLocalDevice.ConvertNoteFileFormat) TruncateNoteFileFn _ (FUNCTION NCLocalDevice.TruncateNoteFile) NewCardUIDFn _ (FUNCTION NCLocalDevice.NewCardUID) MarkCardDeletedFn _ (FUNCTION NCLocalDevice.MarkCardDeleted) GetCardInfoFn _ (FUNCTION NCLocalDevice.GetCardInfo) PutCardPartFn _ ( FUNCTION NCLocalDevice.PutCardPart) GetCardPartFn _ (FUNCTION NCLocalDevice.GetCardPart) ObtainWritePermissionFn _ (FUNCTION NCLocalDevice.ObtainWritePermission) ReleaseWritePermissionFn _ ( FUNCTION NCLocalDevice.ReleaseWritePermission) CancelCacheSubscriptionFn _ (FUNCTION NCLocalDevice.CancelCacheSubscription)) NC.DeviceVectorsHashArray)))) (* * Version information for LOCALSINGLEUSER device.) (COMS (GLOBALVARS NCLocalDevice.NoteFileVersionsList NCLocalDevice.CurrentNoteFileVersionNumber) (FNS NCLocalDevice.CurrentVersion) (DECLARE: DONTEVAL@LOAD (VARS (NCLocalDevice.CurrentNoteFileVersionNumber 3) (NCLocalDevice.NoteFileVersionsList (LIST ( create NoteFileVersion Version _ 3 NumberOfReservedCards _ 20 NoteFileIndexWidth _ 28 NoteFileHeaderSize _ 30)))))) (* * Supporting functions and variables) (COMS (FNS NCLocalDevice.GetNoteFileHeader NCLocalDevice.GetHashArray NCLocalDevice.GetSpecialCardUIDs NCLocalDevice.PutNoteFileHeader NCLocalDevice.PutHashArray NCLocalDevice.PutIndexEntry NCLocalDevice.NoteFileVersionOkayP NCLocalDevice.CheckForPlausibleNoteFileHeader NCLocalDevice.NoteFileNeedsTruncationP NCLocalDevice.OpenFailed NCLocalDevice.ReadIndexEntry NCLocalDevice.SaveInformationPastCheckpoint NCLocalDevice.PutFromLinks NCLocalDevice.TotalNoteFileIndexSize)) (DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengerPhase1) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileInPlace) (QUOTE NCCOMPACT) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile ( FUNCTION NC.CompactNoteFileToTarget) (QUOTE NCCOMPACT) (QUOTE NOTECARDSDIRECTORIES)))))) (PUTHASH (QUOTE LOCALSINGLEUSER) (create NoteFileDevice OpenNoteFileFn _ (FUNCTION NCLocalDevice.OpenNoteFile) CloseNoteFileFn _ (FUNCTION NCLocalDevice.CloseNoteFile) CreateNoteFileFn _ (FUNCTION NCLocalDevice.CreateNoteFile) DeleteNoteFileFn _ (FUNCTION NCLocalDevice.DeleteNoteFile) CompactNoteFileFn _ (FUNCTION NCLocalDevice.CompactNoteFile) RepairNoteFileFn _ (FUNCTION NCLocalDevice.InspectAndRepairNoteFile) BuildHashArrayFn _ (FUNCTION NCLocalDevice.BuildHashArray) NoteFileOpenPFn _ (FUNCTION NCLocalDevice.NoteFileOpenP) CheckpointNoteFileFn _ (FUNCTION NCLocalDevice.CheckpointNoteFile) ConvertNoteFileFormatFn _ (FUNCTION NCLocalDevice.ConvertNoteFileFormat) TruncateNoteFileFn _ (FUNCTION NCLocalDevice.TruncateNoteFile) NewCardUIDFn _ (FUNCTION NCLocalDevice.NewCardUID) MarkCardDeletedFn _ (FUNCTION NCLocalDevice.MarkCardDeleted) GetCardInfoFn _ (FUNCTION NCLocalDevice.GetCardInfo) PutCardPartFn _ ( FUNCTION NCLocalDevice.PutCardPart) GetCardPartFn _ (FUNCTION NCLocalDevice.GetCardPart) ObtainWritePermissionFn _ (FUNCTION NCLocalDevice.ObtainWritePermission) ReleaseWritePermissionFn _ ( FUNCTION NCLocalDevice.ReleaseWritePermission) CancelCacheSubscriptionFn _ (FUNCTION NCLocalDevice.CancelCacheSubscription)) NC.DeviceVectorsHashArray) (RPAQQ NCLocalDevice.CurrentNoteFileVersionNumber 3) (RPAQ NCLocalDevice.NoteFileVersionsList (LIST (create NoteFileVersion Version _ 3 NumberOfReservedCards _ 20 NoteFileIndexWidth _ 28 NoteFileHeaderSize _ 30))) (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengerPhase1) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileInPlace) (QUOTE NCCOMPACT) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileToTarget) (QUOTE NCCOMPACT) (QUOTE NOTECARDSDIRECTORIES)) (PUTPROPS NCLOCALDEVICE COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL