(FILECREATED " 8-Aug-86 16:24:52" ("compiled on " {ROSEBOWL}LISP>NCSERVER>NCDEVICE.;15) "12-Nov-85 14:59:23" recompiled changes: NC.RemoteHostP NCLocalDevice.CreateNoteFile NCLocalDevice.DeleteNoteFile NC.CardBeingEditedP in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 8-Aug-86 16:23:08" {ROSEBOWL}LISP>NCSERVER>NCDEVICE.;15 83577 changes to: ( VARS NCDEVICECOMS) (FNS NC.RemoteHostP NCLocalDevice.DeleteNoteFile NCLocalDevice.CreateNoteFile NC.CardBeingEditedP) previous date: " 6-Aug-86 12:59:23" {ROSEBOWL}LISP>NCSERVER>NCDEVICE.;13) NC.AskUserAboutTruncation D1 (P 2 PromptWinPos P 1 Menu P 0 Items I 1 PromptWindow I 0 NoteFile) Poo@( oh X`dHdlgl g dKdg dgjdndhdL YA A ZJI  (177Q MENU 165Q CHECK/MENU/IMAGE 155Q WINDOWPOSITION 147Q WINDOWP 75Q FONTCREATE 40Q \APPEND2) (170Q BITMAP 116Q DEFAULTMENUHELDFN 107Q CLRPROMPT 72Q BOLD 65Q HELVETICA 46Q MENUTYPE# 23Q NoteFileDevice 16Q NoteFile) ( 33Q (Inspect% &% Repair (QUOTE Inspect% &% Repair) "Run Inspect&Repair on this NoteFile.") 12Q (Truncate% File (QUOTE Truncate% File) "Truncate the file throwing away changes since last checkpoint.") 6 (Abort (QUOTE Abort) "Abort the Open.")) NC.OpenNoteFileA0003 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 PromptWindow F 3 ReturnValue) Q(QRlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.OpenNoteFileA0005 D1 (NAME ERRORSET F 0 NoteFile) hPo h(20Q NC.ReportError 15Q CONCAT) (4 NoteFile) ( 12Q " is already open for exclusive access. Open failed.") NC.OpenNoteFileA0006 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " failed for unknown reason." 4 "Open of ") NC.OpenNoteFileA0007 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " is bad. Contact a NoteCards wizard." 4 "Header of NoteFile ") NC.OpenNoteFileA0008 D1 (NAME ERRORSET F 0 ReturnValue F 1 FileName) hoPoQ h(20Q NC.ReportError 15Q CONCAT) NIL ( 11Q ") returned by OpenNoteFileFn for NoteFile " 4 "Unknown error code (") NC.OpenNoteFileA0009 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 PromptWindow F 3 ReturnValue) Q(QRlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.OpenNoteFileA0011 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQ i(25Q NC.ReportError 22Q CONCAT) (10Q NoteFile) ( 16Q " because " 4 "Build Hash Array failed for NoteFile ") NC.OpenNoteFile D1 (P 6 Function P 3 CriticalUIDs P 2 ReturnValue P 1 FileName P 0 NoteFile I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFileOrFileName) } G`bP@d`ooihdG YG @`@&ioIol ``dL(XdIHG `M)hIG GhoIol p^dgIHglNgNiM]oi gZJlTJhZHKHA EGoi J`oi hioIl ol JdgHABCDEFGGGG rgHABCDEFGGGG WJdgHABCDEFGGGG 9goi *Jdgoi goi oi JZd` G GhoIol JHK GG3H BHgHh "GH H`M/ioIl ol IHglNg$GHioIl ol M](1163Q NC.PrintMsg 1157Q CHARACTER 1146Q CHARACTER 1077Q NC.PrintMsg 1073Q CHARACTER 1062Q CHARACTER 1026Q NC.SetUpNoteFileInterface 1014Q ADD.PROCESS 772Q NC.GetSpecialCards 757Q NC.InstallCriticalUIDsInNoteFile 750Q NC.PrintMsg 744Q CHARACTER 721Q WINDOWP 677Q NC.OpenNoteFileA0008 666Q NC.OpenNoteFileA0007 647Q NC.OpenNoteFileA0006 625Q NC.OpenNoteFileA0005 606Q NC.ProcessNoteFileNeedsTruncationError 550Q NC.ProcessNoteFileNeedsConversionError 515Q NC.ProcessNoteFileNotFoundError 456Q NC.PrintMsg 452Q CHARACTER 441Q CHARACTER 424Q NC.OpenNoteFileA0011 401Q NC.OpenNoteFileA0009 360Q NC.StoreNoteFileInHashArray 322Q NC.OpenNoteFileA0003 243Q NC.PrintMsg 237Q CHARACTER 210Q WINDOWP 165Q NC.InstallDeviceVectorInNoteFile 126Q NC.PrintMsg 122Q CHARACTER 55Q NC.DatabaseFileName) (1121Q DON'T 1111Q AFTER 1036Q NC.OpenNoteFileFns 1033Q NC.LastNoteFileOpened 1005Q NC.CacheTypesAndTitles 1002Q NoteFile 710Q NoteFileTYPE# 654Q NoteFileHeaderBad 634Q NoteFileOpenFailed 613Q NoteFileAlreadyOpen 557Q NoteFileNeedsTruncation 522Q NoteFileNeedsConversion 466Q NoteFileNotFound 407Q NoteFileTYPE# 347Q NoteFile 326Q NoteFileOpenFailed 275Q DON'T 265Q BEFORE 254Q DON'T 170Q NC.OpenNoteFileFns 154Q NoteFile 140Q NoteFileDeviceTYPE# 134Q NoteFileTYPE# 75Q NoteFileTYPE# 26Q NoteFile 21Q NoteFileTYPE# 5 PROMPTWINDOW) ( 1152Q "Done." 1140Q "Opening NoteFile: " 1066Q "Caching top level FileBoxes ..." 1054Q "Opening NoteFile: " 737Q "." 732Q "Open aborted for NoteFile " 673Q (NC.OpenNoteFileA0008) 662Q (NC.OpenNoteFileA0007) 643Q (NC.OpenNoteFileA0006) 621Q (NC.OpenNoteFileA0005) 445Q "Building hash array ..." 433Q "Opening NoteFile: " 420Q (NC.OpenNoteFileA0011) 375Q (NC.OpenNoteFileA0009) 316Q (NC.OpenNoteFileA0003) 232Q "." 225Q "Open aborted for NoteFile " 115Q " ..." 110Q "Opening NoteFile: " 44Q " -- " 40Q "Name of NoteFile to open:") NC.OwnWriteLockP D1 (I 1 CardPart I 0 Card) @Ag d3j(12Q NC.FetchUserDataProp 7 PACK*) (4 WRITELOCK) () NC.RemoteHostP D1 (P 1 ADDRESS P 0 HOST I 0 PATTERN) '@g Hghg H Yd (44Q NCCLIENT.AREYOUTHERE 36Q LOOKUP.NS.SERVER 30Q \DEFINEDP 6 FILENAMEFIELD) (25Q NCCLIENT.AREYOUTHERE 15Q DSK 3 HOST) () NC.UnSetWriteLock D1 (P 0 OldCount I 1 CardPart I 0 Card) *@Ag @Ag H3j jHkٰ(36Q NC.SetUserDataProp 25Q PACK* 12Q NC.FetchUserDataProp 7 PACK*) (22Q WRITELOCK 4 WRITELOCK) () 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 3 NoteFile F 4 Stream F 5 HashArraySize F 6 QuietFlg F 7 CallingOperationMsg F 10Q OmitFinalNoteFlg F 11Q NoSpecialCardsFlg F 12Q FileName) U3 `c oi cgVhiWoT o S UkIHXV;InZjJ-J 'hiWol oIoUol Tg Td l IkԹVhiWoT o Sk WS Si S ghgW V2Whdol dol ool Sh(425Q NC.PrintMsg 421Q CHARACTER 404Q CHARACTER 370Q NC.PrintMsg 365Q CHARACTER 337Q PACKFILENAME 334Q FULLNAME 317Q NC.ForceDatabaseClose 312Q NC.CheckpointDatabase 304Q NC.InitializeSpecialCards 264Q NC.PrintMsg 254Q FULLNAME 225Q SETFILEPTR 217Q GETFILEPTR 211Q NC.WriteStatus 201Q NC.PrintMsg 175Q CHARACTER 152Q CHARACTER 133Q \FZEROP 100Q BLOCK 67Q NC.PutNoteFileHeader 62Q NC.PrintMsg 52Q FULLNAME 21Q NCLocalDevice.CreateNoteFileA0001A0002) (342Q NC.DatabaseFileNameSuggestion 327Q BODY 323Q VERSION 271Q NoteFile 206Q FREE 30Q CANCELLED 6 NC.DefaultIndexSizeInEntries) ( 414Q " be opened before it is used." 410Q "Note that the NoteFile must still" 377Q " Done!" 360Q " Done!" 260Q ". Please wait... " 250Q "Creating NoteFile " 170Q "." 163Q " out of " 156Q "Processing item " 145Q "Creating NoteFile." 56Q ". Please wait... " 46Q "Creating NoteFile " 15Q (NCLocalDevice.CreateNoteFileA0001A0002)) NCLocalDevice.CreateNoteFile D1 (P 1 NoteFile P 0 Stream I 7 QuietFlg I 6 InterestedWindow I 5 NoSpecialCardsFlg I 4 StartingNextFreeIndex I 3 OmitFinalNoteFlg I 2 CallingOperationMsg I 1 HashArraySize I 0 FileName)  oi Hd g(30Q CLOSEF 25Q DELFILE 22Q FULLNAME 12Q NCLocalDevice.CreateNoteFileA0001) (35Q CANCELLED) ( 6 (NCLocalDevice.CreateNoteFileA0001)) NCLocalDevice.DeleteNoteFile D1 (I 0 FILENAME F 0 InterestedWindow) *@ P i@ol ol h@ (47Q DELFILE 41Q NC.PrintMsg 35Q CHARACTER 24Q CHARACTER 11Q NC.AttachPromptWindow 3 OPENP) NIL ( 30Q "Delete cancelled." 17Q " is an open file.") NC.CreateNoteFile D1 (I 1 PromptWindow I 0 NoteFileName) @hddddA (12Q NC.CreateDatabaseFile) (15Q NoteFile) () NC.InstallDeviceVectorInNoteFile D1 (P 1 Host P 0 NSAddress I 1 PublicOrPrivate I 0 NoteFile) ~ @g Yd Xg H @g7AAgA%`goI o @g@g`(@(` o (173Q NCP.ReportError 117Q NCP.ReportError 107Q STRPOS 41Q NCCLIENT.AREYOUTHERE 34Q \DEFINEDP 23Q LOOKUP.NS.SERVER 16Q FILENAMEFIELD) (161Q NoteFileDeviceTYPE# 153Q NoteFile 143Q NC.DeviceVectorsHashArray 140Q LOCALMULTIUSER 135Q NoteFile 130Q LOCALSINGLEUSER 125Q NoteFile 74Q PRIVATE 71Q NC.OpenLocalNoteFilesPublicOrPrivate 61Q PRIVATE 51Q REMOTEMULTIUSER 46Q NoteFile 31Q NCCLIENT.AREYOUTHERE 13Q HOST 6 NoteFile) ( 170Q "Error in determining device vector for NoteFile" 114Q "NS Host doesn't respond to NoteCards Server Service. May need to restart Courier Listener." 103Q ":") NC.InstallCriticalUIDsInNoteFileA0001 D1 (NAME ERRORSET) ho h(7 NC.ReportError) NIL ( 4 "Mismatch in NoteFile UIDs.") NC.InstallCriticalUIDsInNoteFile D1 (P 0 HashArray I 1 CriticalUIDs I 0 NoteFile) @ @A oi @HA@ `dA@HA@ `dA@HA@ `dA@HA@ `dA@HA@ `dAYI(266Q NC.CardFromUID 220Q NC.CardFromUID 155Q NC.CardFromUID 114Q NC.CardFromUID 55Q NC.CardFromUID 37Q NC.InstallCriticalUIDsInNoteFileA0001 26Q NC.SameUIDP 10Q HARRAYP) (300Q CardObject 273Q CardObjectTYPE# 251Q NoteFile 232Q CardObject 225Q CardObjectTYPE# 204Q NoteFile 166Q CardObject 161Q CardObjectTYPE# 142Q NoteFile 125Q CardObject 120Q CardObjectTYPE# 102Q NoteFile 66Q CardObject 61Q CardObjectTYPE# 44Q NoteFile 17Q NoteFile 3 NoteFile) ( 33Q (NC.InstallCriticalUIDsInNoteFileA0001)) NC.StoreNoteFileInHashArrayA0001 D1 (L (1 UID 0 NF) F 0 NoteFile F 1 HashArray) P@AhQ (24Q PUTHASH) (11Q NoteFile 3 NoteFile) () NC.StoreNoteFileInHashArray D1 (I 1 HashArray I 0 NoteFile) Ag @@A (21Q PUTHASH 6 MAPHASH) (12Q NoteFile 3 NC.StoreNoteFileInHashArrayA0001) () NC.ProcessInspectAndRepairRequestA0001 D1 (NAME ERRORSET F 0 NoteFile) P h(3 NC.RepairNoteFile) NIL () NC.ProcessInspectAndRepairRequestA0002 D1 (NAME ERRORSET F 0 NoteFile) hoP i(20Q NC.ReportError 15Q CONCAT) (10Q NoteFile) ( 4 "NoteFile Inspect&RepairFailed for NoteFile ") NC.ProcessInspectAndRepairRequest D1 (I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFile) , oi @ABCDEFGGGG oi g(46Q NC.ProcessInspectAndRepairRequestA0002 35Q NC.OpenNoteFile 7 NC.ProcessInspectAndRepairRequestA0001) (51Q InspectAndRepairFailed) ( 42Q (NC.ProcessInspectAndRepairRequestA0002) 3 (NC.ProcessInspectAndRepairRequestA0001)) NC.ProcessNoteFileNotFoundErrorA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow F 2 NewFileName) PQ ci(11Q NC.CreateNoteFile) (3 NoteFile) () NC.ProcessNoteFileNotFoundError D1 (P 0 NewFileName I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFile) n G gGio@l Co@ oohGi oi H@H@ABCDEFGGGG (153Q NC.OpenNoteFile 114Q NC.ProcessNoteFileNotFoundErrorA0001 102Q NC.AskYesOrNo 62Q CONCAT 42Q NC.PrintMsg 36Q CHARACTER 4 WINDOWP) (125Q NoteFile 55Q NoteFile 27Q NoteFile 10Q NoteFileNotFound) ( 110Q (NC.ProcessNoteFileNotFoundErrorA0001) 72Q "Y" 66Q " -- " 51Q "Do you want to create " 23Q "Could not find NoteFile ") NC.ProcessTruncationRequestA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 TruncationFn F 2 ReturnValue) PkQchNIL NIL () NC.ProcessTruncationRequestA0002 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQo  i(32Q NC.ReportError 27Q CONCAT) (10Q NoteFile) ( 23Q "." 16Q " because " 4 "NoteFile truncation failed for NoteFile ") NC.ProcessTruncationRequest D1 (P 1 ReturnValue P 0 TruncationFn I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFile) I @($oi `@ABCDEFGGGG Iggoi g(103Q NC.ProcessTruncationRequestA0002 60Q NC.OpenNoteFile 25Q NC.ProcessTruncationRequestA0001) (106Q NoteFileTruncationFailed 72Q NoteFileTruncationAborted 65Q NoteFileTruncationAborted 32Q NoteFileTYPE# 10Q NoteFileDevice 3 NoteFile) ( 77Q (NC.ProcessTruncationRequestA0002) 21Q (NC.ProcessTruncationRequestA0001)) NC.PutFromLinksA0001A0004 D1 (NAME ERRORSET P 3 StartLoc P 2 Stream P 0 \NF F 4 Card F 5 RESETVARSLST F 6 PutSuccessfulLoc F 7 RESETY) gTHd`TH YI(ToTHd`TH YI(TgglIhUc T J T`T J JT T Kc Tci(241Q NC.SetLinksDirtyFlg 234Q NC.WriteListOfLinks 231Q NC.FetchFromLinks 223Q NC.WriteCardPartHeader 217Q NC.SetLinksDate 214Q DATE 203Q GETFILEPTR 174Q NC.CoerceToNoteFileStream 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (210Q NC.LinksIdentifier 152Q BEFORE 147Q FROMLINKS 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (FROMLINKS AFTER)) NC.PutFromLinksA0001 D1 (NAME ERRORSET P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 0 \NF F 5 Card F 6 LISPXHIST F 7 RESETVARSLST F 10Q RESETY) RUHd`UH YI hi V!Wog hg\ LKci(111Q ERROR! 103Q RESETRESTORE 71Q NC.PutFromLinksA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutFromLinksA0001A0004)) NC.PutFromLinks D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@go@ o T!Uog hg[ KJ(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutFromLinksA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutFromLinksA0001) 27Q " is not an active note card." 17Q "NC.PutFromLinks") NC.ProcessNoteFileNeedsConversionErrorA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 ConversionFn F 2 ReturnValue) PkQchNIL NIL () NC.ProcessNoteFileNeedsConversionErrorA0002 D1 (NAME ERRORSET F 0 NoteFile) hoP i(20Q NC.ReportError 15Q CONCAT) (10Q NoteFile) ( 4 "NoteFile format conversion failed for NoteFile ") NC.ProcessNoteFileNeedsConversionError D1 (P 1 ReturnValue P 0 ConversionFn I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFile)   G Gio@ol @(&XJDooohG Roi `@ABCDEFGGGG oi gG Ghol ol g(232Q NC.PrintMsg 226Q CHARACTER 215Q CHARACTER 177Q WINDOWP 166Q NC.ProcessNoteFileNeedsConversionErrorA0002 155Q NC.OpenNoteFile 122Q NC.ProcessNoteFileNeedsConversionErrorA0001 110Q NC.AskYesOrNo 43Q NC.PrintMsg 37Q CHARACTER 7 WINDOWP) (235Q NoteFileNeedsConversion 171Q NoteFileConversionFailed 127Q NoteFileTYPE# 55Q NoteFileDevice 50Q NoteFile 24Q NoteFile) ( 221Q "See a NoteCards wizard." 210Q "No format conversion possible." 162Q (NC.ProcessNoteFileNeedsConversionErrorA0002) 116Q (NC.ProcessNoteFileNeedsConversionErrorA0001) 101Q "Y" 75Q " -- " 71Q "Do you want to convert it to the new format? " 32Q "is an old format file." 20Q "NoteFile ") NC.ProcessNoteFileNeedsTruncationError D1 (P 0 TruncationFn I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFile)  G Gio@ol FS@($XE@G dgXdg@ABCDEFGGGG g6@ABCDEFGGGG G Ghol ol g(230Q NC.PrintMsg 224Q CHARACTER 213Q CHARACTER 175Q WINDOWP 167Q NC.ProcessTruncationRequest 135Q NC.ProcessInspectAndRepairRequest 73Q NC.AskUserAboutTruncation 43Q NC.PrintMsg 37Q CHARACTER 7 WINDOWP) (233Q NoteFileNeedsTruncation 141Q Truncate% File 106Q Inspect% &% Repair 77Q Abort 60Q NoteFileDevice 53Q NoteFile 24Q NoteFile) ( 217Q "See a NoteCards wizard." 206Q "No file truncation possible for this NoteFile." 32Q " has information written since last successful close or checkpoint." 20Q "NoteFile ") NC.CheckpointNoteFileA0001 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 PromptWindow F 3 ReturnValue) Q(QRlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.CheckpointNoteFileA0003 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQo  i(32Q NC.ReportError 27Q CONCAT) (10Q NoteFile) ( 23Q "." 16Q " because " 4 "Checkpoint failed for ") NC.CheckpointNoteFile D1 (P 0 ReturnValue I 1 PromptWindow I 0 NoteFile) ]A Aio@ol @ oi gXH`A Aiol @oi H(131Q NC.CheckpointNoteFileA0003 117Q NC.PrintMsg 114Q CHARACTER 100Q WINDOWP 56Q NC.CheckpointNoteFileA0001 46Q NC.SaveDirtyCards 41Q NC.PrintMsg 35Q CHARACTER 6 WINDOWP) (71Q NoteFileTYPE# 62Q CheckpointFailed 22Q NoteFile) ( 125Q (NC.CheckpointNoteFileA0003) 107Q " Checkpoint done." 52Q (NC.CheckpointNoteFileA0001) 30Q " ..." 16Q "Checkpointing notefile ") NC.ObtainEditPermission D1 (P 3 WRITERELEASEFN P 2 WRITEPERMISSIONFN P 0 \NF I 0 Card) @Hd`@H YI(@Hd`@H YI(@ V@glJK@glJ6@glJ@glJi@glK@glK@glKh@glKh(134Q NC.FetchWindow 105Q NC.NoteFileFromNoteFileUID 32Q NC.NoteFileFromNoteFileUID) (254Q SUBSTANCE 241Q TOLINKS 230Q SUBSTANCE 217Q GLOBALTOLINKS 203Q PROPLIST 170Q GLOBALTOLINKS 155Q TOLINKS 142Q SUBSTANCE 123Q NoteFileDevice 116Q NoteFile 101Q CardObject 71Q NoteFileTYPE# 56Q CardObject 50Q NoteFileDevice 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.SetWriteLock D1 (P 0 OldCount I 1 CardPart I 0 Card) %@Ag @Ag H3k kذ(36Q NC.SetUserDataProp 25Q PACK* 12Q NC.FetchUserDataProp 7 PACK*) (22Q WRITELOCK 4 WRITELOCK) () NC.CardBeingEditedP D1 (P 0 Window I 0 Card) @ @ H H . (33Q PROCESSP 26Q \INSUREWINDOW 20Q WINDOWP 12Q NC.ActiveCardP 3 NC.FetchWindow) NIL () NC.CardPartBusy D1 (I 2 InterestedWindow I 1 Part I 0 Card) o@ oA B` (30Q PRIN1 17Q CONCAT 7 NC.FetchTitle) (25Q PROMPTWINDOW) ( 13Q "%": " 3 "Card part(s) busy for card %"") NCLocalDevice.OpenNoteFileA0001A0002 D1 (NAME ERRORSET F 0 FullName F 1 Stream) Pggo ci(15Q OPENSTREAM) (6 OLD 3 BOTH) ( 12Q ((TYPE BINARY))) NCLocalDevice.OpenNoteFileA0001 D1 (NAME ERRORSET P 3 Stream P 2 CriticalUIDs P 1 EofPtr P 0 FullName F 4 NoteFile) T 1Hg g|oi gnTKTHTH Kgg T T T Tg -TI Tg TI Tg T ZTJh(215Q NCLocalDevice.GetSpecialCardUIDs 210Q NCLocalDevice.OpenFailed 200Q NCLocalDevice.NoteFileNeedsTruncationP 171Q NCLocalDevice.OpenFailed 161Q NCLocalDevice.PlausibleNoteFileHeaderP 152Q NCLocalDevice.OpenFailed 142Q NCLocalDevice.NoteFileVersionOkayP 135Q GETEOFPTR 123Q NCLocalDevice.GetNoteFileHeader 116Q WHENCLOSE 103Q NC.SetMonitor 100Q CREATE.MONITORLOCK 45Q NCLocalDevice.OpenNoteFileA0001A0002 27Q OPENP 10Q INFILEP) (222Q NoteFile 205Q NoteFileNeedsTruncation 166Q NoteFileHeaderBad 147Q NoteFileNeedsConversion 130Q NoteFile 113Q NO 110Q CLOSEALL 67Q NoteFile 57Q NoteFile 51Q NoteFileOpenFailed 33Q NoteFileAlreadyOpen 21Q NoteFileNotFound 3 NoteFile) ( 41Q (NCLocalDevice.OpenNoteFileA0001A0002)) NCLocalDevice.OpenNoteFile D1 (I 1 PromptWindow I 0 NoteFile) oi @ (16Q NCLocalDevice.OpenFailed 7 NCLocalDevice.OpenNoteFileA0001) NIL ( 3 (NCLocalDevice.OpenNoteFileA0001)) NCLocalDevice.BuildHashArrayA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow) PP PQ h(24Q NCLocalDevice.GetHashArray 14Q NC.CreateUIDHashArray) (7 NoteFile 3 NoteFile) () NCLocalDevice.BuildHashArray D1 (I 1 PromptWindow 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.GetNoteFileHeader D1 (P 1 FullFileName P 0 Stream I 0 NoteFile) @@Hj @H lH lH @H lH lH H @H @H lH lH @H lH lH @@ H H @(166Q NC.ReadUID 23Q SETFILEPTR) (162Q NoteFile 136Q NoteFile 112Q NoteFile 101Q NoteFile 53Q NoteFile 27Q NoteFile 11Q NoteFile 3 NoteFile) () NCLocalDevice.NoteFileVersionOkayP D1 (L (0 NoteFile)) @` (14Q EQP) (11Q NCLocalDevice.CurrentNoteFileVersionNumber 3 NoteFile) () NCLocalDevice.PlausibleNoteFileHeaderP 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.CurrentVersion D1 NIL `Hhd`HXNIL (22Q NCLocalDevice.CurrentNoteFileVersionNumber 2 NCLocalDevice.NoteFileVersionsList) () NCLocalDevice.NoteFileNeedsTruncationP D1 (L (1 EofPtr 0 NoteFile)) @ANIL (3 NoteFile) () 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.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.GetHashArrayA0001 D1 (NAME ERRORSET P 5 Card P 4 IndexNum P 2 IndexNumsFreeList P 1 CardTotal P 0 Stream F 6 NoteFile F 7 PromptWindow F 10Q RESETY) V hi VV kHl IkW0Lld k&Wiol oLoIol LK/WWiol ol VJ$VciV ]gLJZMV LkԼz(247Q NC.InstallCardInNoteFile 222Q NCLocalDevice.ReadIndexEntry 176Q NC.PrintMsg 172Q CHARACTER 161Q CHARACTER 133Q BLOCK 127Q NC.PrintMsg 123Q CHARACTER 100Q CHARACTER 60Q IMOD 40Q SETFILEPTR 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (233Q FREE 226Q CardObject 204Q NoteFile 23Q NoteFile 15Q NoteFile) ( 165Q "Done." 154Q "Building hash array." 116Q "." 111Q " of " 104Q "Processing number " 73Q "Building hash array.") NCLocalDevice.GetHashArray D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 PromptWindow I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) 9A hb@ gS!Tog hgZ JI(64Q ERROR! 57Q RESETRESTORE 45Q NCLocalDevice.GetHashArrayA0001 21Q OPENP 3 WINDOWP) (53Q ERROR 42Q INTERNAL 25Q NoteFileNotOpen 14Q NoteFile) ( 37Q (NCLocalDevice.GetHashArrayA0001)) 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 PromptWindow F 1 SaveStream) &l o hddPi gho ch(37Q OPENSTREAM 24Q NC.AskUser 13Q CONCAT 4 CHARACTER) (27Q OUTPUT) ( 34Q ((TYPE BINARY)) 10Q "File to save info in: ") NCLocalDevice.SaveInformationPastCheckpointA0003 D1 (NAME ERRORSET F 0 PromptWindow F 1 NoteFileStream F 2 SaveStream F 3 SaveFile F 4 LastChkptPtr) 2PioSo QRT R Q Phol i(56Q NC.PrintMsg 53Q CHARACTER 37Q CLOSEF 32Q CLOSEF 25Q COPYBYTES 16Q NC.PrintMsg) NIL ( 46Q "Done." 12Q " ..." 5 "Saving extra info to ") NCLocalDevice.SaveInformationPastCheckpoint D1 (P 1 SaveStream P 0 NoteFileStream I 1 PromptWindow I 0 NoteFile F 2 CouldNotOpenNoteFile F 3 CouldNotOpenSaveFile F 4 CopyToSaveFileFailed) 7 oi Roi Soi I I H T@(61Q CLOSEF? 54Q DELFILE 47Q CLOSEF? 42Q NCLocalDevice.SaveInformationPastCheckpointA0003 26Q NCLocalDevice.SaveInformationPastCheckpointA0002 12Q NCLocalDevice.SaveInformationPastCheckpointA0001) NIL ( 36Q (NCLocalDevice.SaveInformationPastCheckpointA0003) 22Q (NCLocalDevice.SaveInformationPastCheckpointA0002) 6 (NCLocalDevice.SaveInformationPastCheckpointA0001)) NCLocalDevice.TruncateNoteFileA0001 D1 (NAME ERRORSET F 0 FullFileName F 1 NoteFile) PgQ h(14Q SETFILEINFO) (7 NoteFile 3 LENGTH) () NCLocalDevice.TruncateNoteFile D1 (P 2 ReturnValue P 1 SaveStream P 0 NoteFileStream I 1 PromptWindow I 0 NoteFile F 3 FullFileName F 4 NoteFileTruncationFailed) 0A hb@ gAsooohAhi %@A Z`AioJol TA7l oSo oohAhi QAAioSo oi AAiol @AAhoSol l gg(306Q NC.PrintMsg 302Q CHARACTER 275Q CHARACTER 250Q NC.PrintMsg 245Q CHARACTER 225Q NCLocalDevice.TruncateNoteFileA0001 214Q NC.PrintMsg 171Q NC.AskYesOrNo 151Q CONCAT 135Q CHARACTER 123Q NC.PrintMsg 117Q CHARACTER 67Q NCLocalDevice.SaveInformationPastCheckpoint 60Q NC.AskYesOrNo 24Q OPENP 6 WINDOWP) (315Q NoteFileTruncationAborted 311Q NoteFileTruncationFailed 74Q NoteFileTYPE# 30Q NoteFileAlreadyOpen 17Q NoteFile) ( 270Q "." 263Q "Couldn't truncate " 240Q "Done." 221Q (NCLocalDevice.TruncateNoteFileA0001) 210Q " ..." 203Q "Truncating file " 161Q "No" 155Q "--" 146Q "? " 141Q "Are you sure you want to truncate " 112Q "." 105Q "Attempt to save information failed because " 50Q "Yes" 44Q "--" 40Q "Want to save info beyond checkpoint to a file? ") NCLocalDevice.ConvertNoteFileFormatA0001 D1 (NAME ERRORSET P 1 FileName P 0 AutoloadFnEntry F 2 FullFileName F 3 NewFileName) mg Rkg$g Hoogo chYH g RkgooIog (151Q CONCAT 114Q \DEFINEDP 105Q NC.LoadFileFromDirectories 60Q NC.ReportError 55Q CONCAT 25Q NC.LookupAutoloadFnFile 5 \DEFINEDP) (146Q NC.ConvertNoteFileVersion2To3 122Q NC.ConvertNoteFileVersion2To3 111Q NC.ConvertNoteFileVersion2To3 100Q AutoloadFnEntry 71Q AutoloadFnEntry 46Q NC.ConvertNoteFileVersion2To3 22Q NC.ConvertNoteFileVersion2To3 13Q NC.ConvertNoteFileVersion2To3 2 NC.ConvertNoteFileVersion2To3) ( 143Q ", but still no definition of " 136Q "Loaded file " 132Q "NC.AutoloadApply*" 52Q " in table of autoloadable functions." 43Q "No definition of " 37Q "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.CancelCacheSubscription D1 (L (1 CardPart 0 Card)) iNIL NIL () NCLocalDevice.GetCardInfoA0002 D1 (NAME ERRORSET P 2 Stream P 0 \NF F 3 Card F 4 NC.ItemIdentifier F 5 RESETY) xSHd`SH YI hi SHd`SH YIJS STJ SJ S c i(161Q NC.FetchType 154Q NC.SetType 151Q NC.ReadCardType 143Q NC.ReadCardPartHeader 134Q SETFILEPTR 104Q NC.NoteFileFromNoteFileUID 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (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) v@Aodddah]d[ddg/@ =W!Wog hg^ NMg@ oK IHhZH&J(141Q SHOULDNT 136Q CONCAT 125Q NC.FetchStatus 107Q ERROR! 101Q RESETRESTORE 67Q NCLocalDevice.GetCardInfoA0002 44Q NC.FetchType) (117Q STATUS 75Q ERROR 64Q INTERNAL 34Q TYPE) ( 132Q "Unknown card aspect: " 61Q (NCLocalDevice.GetCardInfoA0002) 11Q (STATUS LINKS)) 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.PutCardPartA0001 D1 (NAME ERRORSET P 3 GlobalLinks P 2 ToLinks P 0 \NF F 11Q Card F 12Q RESETY) [ WHd`WH YI hi pWHd`WH \LW W`WHd`WH ]M WHd`WH ^N WHd`WH _O WHd`WH _O WgJK WHd`WH YIm ci(525Q SETFILEPTR 505Q NC.NoteFileFromNoteFileUID 447Q NC.PutProp 433Q NC.ReadListOfLinks 413Q NC.NoteFileFromNoteFileUID 354Q NC.ReadListOfLinks 334Q NC.NoteFileFromNoteFileUID 275Q NC.ReadListOfLinks 257Q NC.NoteFileFromNoteFileUID 221Q NC.ReadCardPartHeader 203Q NC.NoteFileFromNoteFileUID 140Q SETFILEPTR 113Q NC.NoteFileFromNoteFileUID 52Q OBTAIN.MONITORLOCK 45Q NC.FetchMonitor 34Q NC.NoteFileFromNoteFileUID) (516Q NoteFile 501Q CardObject 470Q NoteFileTYPE# 455Q CardObject 441Q OldLinks 426Q NoteFile 407Q CardObject 375Q NoteFileTYPE# 362Q CardObject 347Q NoteFile 330Q CardObject 316Q NoteFileTYPE# 303Q CardObject 270Q NoteFile 253Q CardObject 242Q NoteFileTYPE# 227Q CardObject 214Q NoteFile 177Q CardObject 166Q NoteFileTYPE# 153Q CardObject 146Q NC.LinksIdentifier 133Q CardObject 124Q NoteFile 107Q CardObject 76Q NoteFileTYPE# 63Q 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 F 10Q NC.ItemIdentifier) BdgAdg%V!Wog hgZ JIgAgAgAdg/@Kd`@K \Lm g@Kd`@K \L@ @W@Kd`@K \L @Kd`@K \L oA gXUAdg@U g@U Adg@U g@U Adg@U ghoA oB (574Q SHOULDNT 571Q CONCAT 560Q SHOULDNT 555Q CONCAT 535Q NCLocalDevice.PutFromLinks 517Q NC.SetPropListLoc 504Q NC.SetLinksLoc 466Q NC.SetMainLoc 453Q NC.SetTitleLoc 424Q SHOULDNT 421Q CONCAT 410Q NC.ReadCardType 372Q NC.NoteFileFromNoteFileUID 337Q NC.ReadCardPartHeader 321Q NC.NoteFileFromNoteFileUID 263Q SETFILEPTR 237Q NC.NoteFileFromNoteFileUID 173Q SETFILEPTR 153Q NC.NoteFileFromNoteFileUID 62Q ERROR! 55Q RESETRESTORE 43Q NCLocalDevice.PutCardPartA0001) (541Q REGION 525Q FROMLINKS 510Q PROPLIST 474Q LINKS 457Q SUBSTANCE 443Q TITLE 430Q AFTER 403Q NoteFile 366Q CardObject 356Q NoteFileTYPE# 343Q CardObject 332Q NoteFile 315Q CardObject 305Q NoteFileTYPE# 272Q CardObject 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) ( 565Q "Don't understand WhenFlg argument: " 551Q "Bad card part name: " 415Q "Bad card part name: " 35Q (NCLocalDevice.PutCardPartA0001)) NCLocalDevice.ReleaseWritePermission D1 (L (1 CardPartName 0 Card)) iNIL NIL () NCLocalDevice.NewCardUID D1 (P 7 PercentUsed P 6 IndexNum P 5 IndexNumsFreeList P 4 IndexSize P 3 NextIndexNum P 2 NoteFile P 0 \NF I 0 Card) @Hd`@H YIQJ [J\J$]ddMJM$KJKk KLldj_lZ^KL-J ioJol o -J ioJoOol o @N @kkjh@@(344Q NC.MakeUID 315Q NC.NoteFileLocFromIndexNum 304Q NC.PrintMsg 274Q CHARACTER 242Q WFROMMENU 227Q ERROR! 223Q NC.PrintMsg 213Q CHARACTER 167Q WFROMMENU 32Q NC.NoteFileFromNoteFileUID) (341Q CardObject 323Q CardObject 311Q CardObject 253Q NoteFile 235Q NoteFile 200Q NoteFile 162Q NoteFile 134Q FLOATP 130Q FLOATP 116Q NoteFile 104Q NoteFile 65Q NoteFile 56Q NoteFile 47Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 300Q "Please compact the NoteFile soon." 267Q "%% full." 261Q " are " 247Q "Card slots for " 217Q "You must compact the NoteFile now to get more." 206Q " are full." 174Q "Card slots for ") NCLocalDevice.MarkCardDeleted D1 (I 0 Card) @g (6 NC.SetStatus) (3 DELETED) () NCLocalDevice.NoteFileOpenP D1 (I 0 NoteFile) @ @ @(23Q OPENP 10Q STREAMP) (16Q NoteFile 3 NoteFile) () 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.CheckpointNoteFileA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow) PQ PP P i(31Q NCLocalDevice.PutNoteFileHeader 22Q GETEOFPTR 4 NCLocalDevice.PutHashArray) (15Q NoteFile 11Q NoteFile) () NCLocalDevice.CheckpointNoteFile D1 (I 1 PromptWindow I 0 NoteFile) @ goi g@(20Q NCLocalDevice.CheckpointNoteFileA0001 3 NCLocalDevice.NoteFileOpenP) (24Q CheckpointFailed 7 NoteFileNotOpen) ( 14Q (NCLocalDevice.CheckpointNoteFileA0001)) NCLocalDevice.PutHashArrayA0001 D1 (P 0 Card I 1 Key I 0 Value F 2 Num F 3 PromptWindow F 4 CardTotal F 5 AllActiveCardsFlg) _@S7RkcldYjI&I SiooRoTol UHgHjhH (134Q NCLocalDevice.PutIndexEntry 75Q NC.PrintMsg 71Q CHARACTER 36Q \FZEROP 2 BLOCK) (117Q CardObject 111Q ACTIVE 104Q CardObject) ( 64Q "." 57Q " out of " 52Q "Processing item number " 46Q "Putting index array.") NCLocalDevice.PutHashArray D1 (P 1 Num P 0 CardTotal I 2 AllActiveCardsFlg I 1 PromptWindow I 0 NoteFile) I@ kjA hbA%Aiol okoHol @g (106Q MAPHASH 71Q NC.PrintMsg 65Q CHARACTER 42Q CHARACTER 17Q WINDOWP) (103Q NCLocalDevice.PutHashArrayA0001 76Q NoteFile 3 NoteFile) ( 60Q "." 53Q " out of " 46Q "Processing item number " 35Q "Putting index array.") 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.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.PutFromLinks D1 (P 3 FromLinks P 2 STREAM P 0 \NF I 1 StreamLoc I 0 Card F 4 DataLoc) j@Hd`@H YIJA @`J J cJ [JT J@g  JK J@g  @A (147Q NC.SetLinksLoc 142Q NC.WriteListOfLinks 136Q NC.GetProp 126Q NC.WriteListOfLinks 121Q NC.WriteListOfLinks 115Q NC.GetProp 105Q SETFILEPTR 77Q NC.ReadListOfLinks 71Q GETFILEPTR 65Q NC.ReadCardPartHeader 55Q SETFILEPTR 32Q NC.NoteFileFromNoteFileUID) (133Q OldLinks 112Q OldLinks 61Q NC.LinksIdentifier 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () (PRETTYCOMPRINT NCDEVICECOMS) (RPAQQ NCDEVICECOMS ((FNS NC.AskUserAboutTruncation NC.OpenNoteFile NC.OwnWriteLockP NC.RemoteHostP NC.UnSetWriteLock NCLocalDevice.CreateNoteFile NCLocalDevice.DeleteNoteFile NC.CreateNoteFile NC.InstallDeviceVectorInNoteFile NC.InstallCriticalUIDsInNoteFile NC.StoreNoteFileInHashArray NC.ProcessInspectAndRepairRequest NC.ProcessNoteFileNotFoundError NC.ProcessTruncationRequest NC.PutFromLinks NC.ProcessNoteFileNeedsConversionError NC.ProcessNoteFileNeedsTruncationError NC.CheckpointNoteFile NC.ObtainEditPermission NC.SetWriteLock NC.CardBeingEditedP NC.CardPartBusy) ( RECORDS NoteFileCriticalUIDs NoteFileDevice) (* Load in the patches to the existing NoteCards code.) ( FILES NCDEVICEPATCH) (* * Device Vector Initialization.) (GLOBALVARS NC.DeviceVectorsHashArray NC.OpenLocalNoteFilesPublicOrPrivate NCLocalDevice.NoteFileVersionsList NCLocalDevice.CurrentNoteFileVersionNumber) (INITVARS (NC.DeviceVectorsHashArray (HASHARRAY 10))) (P ( PUTHASH (QUOTE LOCALSINGLEUSER) (create NoteFileDevice OpenNoteFileFn _ (FUNCTION NCLocalDevice.OpenNoteFile) CloseNoteFileFn _ (FUNCTION NCLocalDevice.CloseNoteFile) 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)) (* * Stuff for local device notefiles) (FNS NCLocalDevice.OpenNoteFile NCLocalDevice.BuildHashArray NCLocalDevice.GetNoteFileHeader NCLocalDevice.NoteFileVersionOkayP NCLocalDevice.PlausibleNoteFileHeaderP NCLocalDevice.CurrentVersion NCLocalDevice.NoteFileNeedsTruncationP NCLocalDevice.GetSpecialCardUIDs NCLocalDevice.OpenFailed NCLocalDevice.ReadIndexEntry NCLocalDevice.GetHashArray NCLocalDevice.SaveInformationPastCheckpoint NCLocalDevice.TruncateNoteFile NCLocalDevice.ConvertNoteFileFormat NCLocalDevice.CancelCacheSubscription NCLocalDevice.GetCardInfo NCLocalDevice.GetCardPart NCLocalDevice.ObtainWritePermission NCLocalDevice.PutCardPart NCLocalDevice.ReleaseWritePermission NCLocalDevice.NewCardUID NCLocalDevice.MarkCardDeleted) (FNS NCLocalDevice.NoteFileOpenP NCLocalDevice.CloseNoteFile NCLocalDevice.CheckpointNoteFile NCLocalDevice.PutHashArray NCLocalDevice.PutIndexEntry NCLocalDevice.PutNoteFileHeader NCLocalDevice.PutFromLinks) (VARS ( NC.OpenLocalNoteFilesPublicOrPrivate (QUOTE PRIVATE)) (NCLocalDevice.CurrentNoteFileVersionNumber 3) ( NCLocalDevice.NoteFileVersionsList (LIST (create NoteFileVersion Version _ 3 NumberOfReservedCards _ 20 NoteFileIndexWidth _ 28 NoteFileHeaderSize _ 30)))))) (RECORD NoteFileCriticalUIDs (NoteFile TableOfContents Orphans ToBeFiled LinkLabels Registry)) (DATATYPE NoteFileDevice (ListNoteFilesFn CreateNoteFileFn DeleteNoteFileFn OpenNoteFileFn BuildHashArrayFn CloseNoteFileFn NoteFileOpenPFn CheckpointNoteFileFn NewCardUIDFn MarkCardDeletedFn GetCardInfoFn PutCardPartFn GetCardPartFn ObtainWritePermissionFn ReleaseWritePermissionFn CancelCacheSubscriptionFn RepairNoteFileFn CompactNoteFileFn TruncateNoteFileFn ConvertNoteFileFormatFn)) (/DECLAREDATATYPE (QUOTE NoteFileDevice) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((NoteFileDevice 0 POINTER) (NoteFileDevice 2 POINTER) (NoteFileDevice 4 POINTER) (NoteFileDevice 6 POINTER) (NoteFileDevice 8 POINTER) (NoteFileDevice 10 POINTER) ( NoteFileDevice 12 POINTER) (NoteFileDevice 14 POINTER) (NoteFileDevice 16 POINTER) (NoteFileDevice 18 POINTER) (NoteFileDevice 20 POINTER) (NoteFileDevice 22 POINTER) (NoteFileDevice 24 POINTER) ( NoteFileDevice 26 POINTER) (NoteFileDevice 28 POINTER) (NoteFileDevice 30 POINTER) (NoteFileDevice 32 POINTER) (NoteFileDevice 34 POINTER) (NoteFileDevice 36 POINTER) (NoteFileDevice 38 POINTER))) (QUOTE 40)) (FILESLOAD NCDEVICEPATCH) (RPAQ? NC.DeviceVectorsHashArray (HASHARRAY 10)) (PUTHASH (QUOTE LOCALSINGLEUSER) (create NoteFileDevice OpenNoteFileFn _ (FUNCTION NCLocalDevice.OpenNoteFile) CloseNoteFileFn _ (FUNCTION NCLocalDevice.CloseNoteFile) 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 NC.OpenLocalNoteFilesPublicOrPrivate PRIVATE) (RPAQQ NCLocalDevice.CurrentNoteFileVersionNumber 3) (RPAQ NCLocalDevice.NoteFileVersionsList (LIST (create NoteFileVersion Version _ 3 NumberOfReservedCards _ 20 NoteFileIndexWidth _ 28 NoteFileHeaderSize _ 30))) (PUTPROPS NCDEVICE COPYRIGHT ("Xerox Corporation" 1986)) NIL