(FILECREATED "11-Jun-87 16:43:19" ("compiled on " {QV}1.3K>NEXT>NCDATABASE.;155) "12-Nov-85 14:59:23" recompiled changes: NC.PutMainCardData NC.SearchFor### NC.RobustReadItemIdentifier NC.RobustReadDate NC.RobustReadUID NC.RobustReadChar NC.RobustReadByte NC.RobustRead in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED "11-Jun-87 16:41:30" {QV}1.3K>NEXT>NCDATABASE.;155 286086 changes to: (VARS NCDATABASECOMS) (FNS NC.SearchFor### NC.RobustReadItemIdentifier NC.RobustReadDate NC.RobustReadUID NC.RobustReadChar NC.RobustReadByte NC.RobustRead NC.PutMainCardData) previous date: " 8-Jun-87 17:14:31" {QV}1.3K>NEXT>NCDATABASE.;154) NC.CompactNoteFile D1 (P 7 NewMenu P 6 MenuWindowRegion P 5 Menu P 4 ReturnValue P 3 FullFromFileName P 2 FromFileName P 1 FromNoteFile P 0 MsgWindow I 3 InterestedWindow I 2 InPlaceFlg I 1 ToFileName I 0 FromNoteFileOrName) 3 C@d`MYZ [WIK Y HI I qHiol ol ` Hi hooihdH ZdJ H XiJol ol ` Hi hK Kg g "_KABHlO\QBi`dI`IKg]MM LNNH _lM$l  Hiol ` Hi L(457Q NC.ClearMsg 451Q DISMISS 442Q NC.PrintMsg 437Q CHARACTER 422Q RELMOVEW 416Q MINUS 371Q NC.SetUpNoteFileInterface 353Q \INSUREWINDOW 350Q WFROMMENU 260Q NC.DeviceVectorForHost 252Q FILENAMEFIELD 243Q NC.NoticeNoteFile 235Q NC.ClearMsg 227Q DISMISS 220Q NC.PrintMsg 214Q CHARACTER 203Q CHARACTER 167Q NC.CoerceToInterestedWindow 162Q NC.RemoveAccessToNoteFile 151Q NC.DatabaseFileName 125Q NC.ClearMsg 117Q DISMISS 110Q NC.PrintMsg 104Q CHARACTER 73Q CHARACTER 56Q NC.NoteFileOpenP 51Q NC.CoerceToInterestedWindow 37Q NC.NoteFileFromFileName 26Q FULLNAME) (446Q NC.MsgDelay 406Q FONTDESCRIPTOR 401Q MENU 340Q Menu 330Q NoteFile 322Q NoteFileTYPE# 313Q NC.NoteFileMenuLingerFlg 263Q NoteFileDevice 255Q PRIVATE 247Q HOST 224Q NC.MsgDelay 114Q NC.MsgDelay 20Q NoteFile 11Q NoteFileTYPE#) ( 432Q "Compact cancelled." 207Q "Compact cancelled." 176Q " does not exist." 141Q " -- " 135Q "Name of NoteFile to be compacted:" 77Q "Compact cancelled." 66Q "Can't compact an open notefile.") NC.RemoteHostP D1 (P 1 ADDRESS P 0 HOST I 1 HOSTNAME I 0 PATTERN) LA @g Hgh6Hkl g Hl 3 hHghg H Yd (111Q NCCLIENT.AREYOUTHERE 103Q LOOKUP.NS.SERVER 75Q \DEFINEDP 50Q SUBATOM 34Q SUBATOM 11Q FILENAMEFIELD) (72Q NCCLIENT.AREYOUTHERE 62Q CORE 37Q DSK 20Q DSK 6 HOST) () NC.DeviceVectorForHost D1 (I 1 PublicOrPrivate I 0 Host) Eh@ g`AAgA%`go@ ho g`g`(62Q NC.ReportError 51Q STRPOS 4 NC.RemoteHostP) (101Q NC.DeviceVectorsHashArray 76Q LOCALMULTIUSER 71Q NC.DeviceVectorsHashArray 66Q LOCALSINGLEUSER 36Q PRIVATE 33Q NC.OpenLocalNoteFilesPublicOrPrivate 23Q PRIVATE 13Q NC.DeviceVectorsHashArray 10Q REMOTEMULTIUSER) ( 57Q "NS Host doesn't respond to NoteCards Server Service. May need to restart Courier Listener." 45Q ":") NC.InspectAndRepairNoteFile D1 (P 3 FullFileName P 2 FileName P 1 NoteFile P 0 MsgWindow I 2 InterestedWindow I 1 ReadSubstancesFlg I 0 NoteFileOrFileName) BA@d`LYZ [VIK YHI K qHiol ol ` Hi hooihdH ZdJ H XiJol ol ` Hi hK Kg g  IAHlL(257Q NC.DeviceVectorForHost 251Q FILENAMEFIELD 242Q NC.NoticeNoteFile 234Q NC.ClearMsg 226Q DISMISS 217Q NC.PrintMsg 213Q CHARACTER 202Q CHARACTER 166Q NC.CoerceToInterestedWindow 161Q NC.RemoveAccessToNoteFile 150Q NC.DatabaseFileName 124Q NC.ClearMsg 116Q DISMISS 107Q NC.PrintMsg 103Q CHARACTER 72Q CHARACTER 55Q NC.NoteFileOpenP 50Q NC.CoerceToInterestedWindow 37Q NC.NoteFileFromFileName 26Q FULLNAME) (262Q NoteFileDevice 254Q PRIVATE 246Q HOST 223Q NC.MsgDelay 113Q NC.MsgDelay 20Q NoteFile 11Q NoteFileTYPE#) ( 206Q "Inspect & Repair cancelled." 175Q " does not exist." 140Q " -- " 134Q "Name of NoteFile to be inspected and repaired:" 76Q "Inspect & Repair cancelled." 65Q "Can't inspect and repair an open notefile.") NC.InstallDeviceVectorInNoteFile D1 (P 0 Host I 1 PublicOrPrivate I 0 NoteFile) 1@g X@HA *@*` o (56Q NCP.ReportError 30Q NC.DeviceVectorForHost 16Q FILENAMEFIELD) (44Q NoteFileDeviceTYPE# 36Q NoteFile 23Q NoteFile 13Q HOST 6 NoteFile) ( 53Q "Error in determining device vector for NoteFile") NC.CreateDatabaseFile D1 (I 14Q MenuPosition I 13Q Don'tCreateInterfaceFlg I 12Q ReadOnlyFlg I 11Q OpenFlg I 10Q PublicOrPrivate I 7 QuietFlg I 6 InterestedWindow I 5 NoSpecialCardsFlg I 4 StartingNextFreeIndex I 3 OmitFinalNoteFlg I 2 CallingOperationMsg I 1 HashArraySize I 0 FileName)  @AEFBGGGGGG (24Q NC.CreateNoteFile) NIL () NC.CreateNoteFileA0003 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 SizeInCards F 3 QuietFlg F 4 InterestedWindow F 5 OperationMsg) Q*QRTUSlHhNIL (10Q NoteFileDevice 3 NoteFile) () NC.CreateNoteFileA0005 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 SizeInCards F 3 QuietFlg F 4 InterestedWindow F 5 OperationMsg) Q* QRTUSlHhNIL (10Q NoteFileDevice 3 NoteFile) () NC.CreateNoteFile D1 (P 3 ReturnValue P 2 NoteFileFullName P 1 NoteFileName P 0 NoteFile I 12Q MenuPosition I 11Q Don'tCreateInterfaceFlg I 10Q ReadOnlyFlg I 7 OpenFlg I 6 PublicOrPrivate I 5 QuietFlg I 4 OperationMsg I 3 InterestedWindow I 2 Don'tCreateSpecialCards I 1 SizeInCards I 0 NoteFileOrFileName) d @d`ooidhC Ydgg ZeCioJol ghgJ g oJo oohCi )Chol ` Ci gIg @`@J ``dL*XdHg HJHh(Hl HF ECiDooJo oi [`2BHk H HEiCD oi [`EChol Ci HddMHdNH_dOH*_dO*dh(dh&dh$dh"dh dhdhdhdhdhdhdhdjdj djdj djdhhGGHGC H GHhihddGhCFGEG ghgH HooK KooKo K(1140Q NC.ReportError 1135Q CONCAT 1113Q NC.ReportError 1110Q CONCAT 1067Q PACKFILENAME 1046Q NC.OpenNoteFile 1015Q NC.NoticeNoteFile 1010Q NC.SetUpNoteFileInterface 541Q NC.ClearMsg 533Q NC.PrintMsg 530Q CHARACTER 477Q NC.CreateNoteFileA0005 466Q NC.CheckpointNoteFile 454Q NC.InitializeSpecialCards 423Q NC.CreateNoteFileA0003 412Q NC.PrintMsg 361Q NC.InstallDeviceVectorInNoteFile 352Q NC.CreateUIDHashArray 321Q CREATE.MONITORLOCK 305Q NC.MakeUID 255Q NC.NoteFileFromFileName 236Q FULLNAME 223Q NC.ClearMsg 215Q DISMISS 206Q NC.PrintMsg 203Q CHARACTER 166Q NC.AskYesOrNo 147Q CONCAT 132Q FULLNAME 124Q PACKFILENAME 110Q NC.PrintMsg 104Q CHARACTER 61Q FULLNAME 43Q NC.DatabaseFileName) (1072Q NC.DatabaseFileNameSuggestion 1062Q NoteFile 1056Q BODY 1052Q VERSION 621Q NoteFile 602Q NoteFile 566Q NoteFile 556Q NoteFile 547Q NoteFile 505Q NoteFileTYPE# 444Q NoteFile 431Q NoteFileTYPE# 345Q NoteFile 336Q NoteFile 327Q NoteFile 316Q Creating% NoteFile 313Q NoteFile 302Q NoteFile 266Q NoteFileDeviceTYPE# 262Q NoteFileTYPE# 244Q NoteFileTYPE# 233Q NEW 226Q CreateCancelled 212Q NC.MsgDelay 127Q NEW 120Q BODY 114Q VERSION 56Q OLD 52Q CreateCancelled 15Q NoteFile 10Q NoteFileTYPE#) ( 1132Q " error." 1125Q "Could not create NoteFile due to " 1121Q "NC.CreateNoteFile" 1104Q "Could not close notefile after it was created because: " 1100Q "NC.CreateNoteFile" 523Q "Done!" 473Q (NC.CreateNoteFileA0005) 417Q (NC.CreateNoteFileA0003) 406Q ". Please wait... " 401Q "Creating NoteFile " 375Q "" 176Q "Create cancelled." 157Q "N" 153Q " -- " 144Q " (next available version)?" 137Q "Do you want to create " 77Q " already exists." 72Q "NoteFile " 33Q " -- " 27Q "What is the name of the file to be created?") NC.InitializeSpecialCards D1 (I 0 NoteFile) [@g@o @g@o @g@o @g@o` @g@o @(125Q NC.InitializeSpecialCard 104Q NC.InitializeSpecialCard 60Q NC.InitializeSpecialCard 37Q NC.InitializeSpecialCard 16Q NC.InitializeSpecialCard) (115Q Registry 112Q NoteFile 101Q NC.InitialLinkLabels 71Q List 66Q NoteFile 50Q FileBox 45Q NoteFile 27Q FileBox 24Q NoteFile 6 FileBox 3 NoteFile) ( 122Q "Registry" 76Q "Link Labels" 55Q "To Be Filed" 34Q "Orphans" 13Q "Table of Contents") NC.InitializeSpecialCard D1 (P 0 Card I 3 TypeSpecificArgs I 2 Title I 1 NoteFile I 0 CardType) $@ABiC H H H H Hi H(40Q NC.DeactivateCard 33Q NC.PutLinks 27Q NC.PutPropList 23Q NC.PutTitle 17Q NC.PutMainCardData 10Q NC.MakeNoteCard) NIL () NC.NoteFileOpenP D1 (P 0 NoteFile I 0 NoteFileOrFileName) /@d` @ H`H* HkI(20Q NC.NoteFileFromFileName 12Q INFILEP) (44Q NoteFileDevice 37Q NoteFile 30Q NoteFileTYPE# 5 NoteFileTYPE#) () NC.OpenDatabaseFile D1 (I 12Q InterestedWindow I 11Q Don'tGetSpecialCardsFlg I 10Q Don'tCreateInterfaceFlg I 7 Don'tTruncateFlg I 6 Don'tCreateArrayFlg I 5 Convertw/oConfirmFlg I 4 Don'tCreateFlg I 3 QuietFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 Access I 0 NoteFileOrFileName)  @BDEFGGGGhdCAgi (33Q NC.OpenNoteFile) (23Q INPUT) () NC.OpenNoteFileA0003A0004 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 Don'tCheckForTruncationFlg F 4 ReturnValue) Q*QRSlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.OpenNoteFileA0003A0006 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.OpenNoteFileA0003A0007 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " failed for unknown reason." 4 "Open of ") NC.OpenNoteFileA0003A0008 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQo  h(32Q NC.ReportError 27Q CONCAT) (10Q NoteFile) ( 23Q ". Contact a NoteCards wizard." 16Q " is bad: " 4 "Header of NoteFile ") NC.OpenNoteFileA0003A0009 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.OpenNoteFileA0003A0010 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 QuietFlg F 3 InterestedWindow F 4 ReturnValue) .Q*QRSoQl lHci(42Q CONCAT 37Q CHARACTER) (30Q NoteFile 10Q NoteFileDevice 3 NoteFile) ( 24Q "Opening NoteFile ") NC.OpenNoteFileA0003A0012 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.OpenNoteFileA0003 D1 (NAME ERRORSET P 3 NF P 2 Function P 0 OpInProgress F 4 NoteFile F 5 InterestedWindow F 6 ReturnValue F 7 FileName F 10Q QuietFlg F 11Q RESETVARSLST F 12Q PublicOrPrivate F 13Q ReadOnlyFlg F 14Q CriticalUIDs F 15Q Don'tCacheTypesAndTitlesFlg F 16Q Don'tCreateArrayFlg F 17Q Don'tCreateInterfaceFlg F 20Q Don'tGetSpecialCardsFlg F 21Q MenuPosition F 22Q Don'tCheckForTruncationFlg F 23Q Don'tCreateFlg F 24Q ConvertNoConfirmFlg F 25Q Can'tTruncateFlg F 26Q RESETY) ` T HfgTgTg hTgo hWcgTgTg hTg` hWco``hWc` HHgTW TW(WUioWol `I7hYU UhoWol ` Ui h]ZdgWTgUlJgJiIYoi gc VloVchc W`[rTKaK Y` `ioWl oKol o TUi hVdg0T U c TWW&W(WW*WW UWW"WWW$ dg$TWW&W(WW*WW UWW"WWW$ dg#TWW&W(WW*WW UWW"WWW$ Wdgoi Fdgoi 5dgdgdgdgdgoi oi Vc d`ɿU %UhoWol ` Ui VTWT W=WUioWl ol oi V`oi hKTW W TWUoTl WTgTh "WTW"U Tc `f`IWTgUlJg+W#UioWl ol Ui TIYU T oH gc,i(1662Q NC.PrintOperationInProgressMsg 1652Q NC.CoerceToInterestedWindow 1644Q OPENWP 1627Q NC.ClearMsg 1621Q NC.PrintMsg 1615Q CHARACTER 1604Q CHARACTER 1504Q NC.SetUpNoteFileInterface 1467Q ADD.PROCESS 1444Q NC.GetSpecialCards 1441Q CONCAT 1436Q CHARACTER 1406Q NC.InstallCriticalUIDsInNoteFile 1374Q NC.OpenNoteFileA0003A0012 1354Q NC.OpenNoteFileA0003A0010 1343Q NC.PrintMsg 1337Q CHARACTER 1326Q CHARACTER 1300Q NC.NoticeNoteFile 1254Q NC.ClearMsg 1246Q DISMISS 1237Q NC.PrintMsg 1233Q CHARACTER 1210Q WINDOWP 1164Q NC.OpenNoteFileA0003A0009 1152Q NC.OpenNoteFileA0003A0008 1077Q NC.OpenNoteFileA0003A0007 1056Q NC.OpenNoteFileA0003A0006 1035Q NC.ProcessNoteFileNeedsTruncationError 764Q NC.ProcessNoteFileNeedsConversionError 713Q NC.ProcessNoteFileNotFoundError 652Q NC.CoerceToInterestedWindow 645Q NC.RemoveAccessToNoteFile 623Q NC.CloseNoteFile 614Q NC.PrintMsg 604Q CHARACTER 561Q CHARACTER 541Q FLASHW 527Q NC.NoteFileOpenP 435Q NC.OpenNoteFileA0003A0004 352Q NC.ClearMsg 344Q DISMISS 335Q NC.PrintMsg 331Q CHARACTER 302Q WINDOWP 257Q NC.PrintMsg 253Q CHARACTER 214Q NC.InstallDeviceVectorInNoteFile 172Q RELEASE.MONITORLOCK 124Q NC.NoteFileProp 105Q NC.NoteFileProp 56Q NC.NoteFileProp 36Q NC.NoteFileProp 12Q NC.NoteFileCheckOpInProgress 5 OBTAIN.MONITORLOCK) (1666Q DON'T 1557Q DON'T 1546Q AFTER 1525Q NC.OpenNoteFileFns 1517Q NoteFileTYPE# 1511Q NC.LastNoteFileOpened 1460Q NC.CacheTypesAndTitles 1455Q NoteFile 1427Q NoteFile 1362Q NoteFileTYPE# 1266Q NoteFile 1243Q NC.MsgDelay 1176Q NoteFileTYPE# 1137Q BadNextLinkNum 1131Q BadCheckptPtr 1123Q BadHashArraySize 1114Q BadNextIndexNum 1105Q NoteFileHeaderBad 1064Q NoteFileOpenFailed 1043Q NoteFileAlreadyOpen 773Q NoteFileNeedsTruncation 722Q NoteFileNeedsConversion 635Q NoteFileNotFound 571Q NoteFile 545Q PROMPTWINDOW 536Q PROMPTWINDOW 514Q NoteFile 506Q NoteFile 474Q NC.NoteFilesHashArray 441Q NoteFileOpenFailed 410Q DON'T 377Q BEFORE 365Q DON'T 341Q NC.MsgDelay 263Q NC.OpenNoteFileFns 221Q NoteFile 201Q US 167Q NC.LockLock 153Q NC.NoteFileBusyList 147Q NC.NoteFileBusyList 144Q \RUNNING.PROCESS 121Q \RUNNING.PROCESS 116Q ProcessInProgress 102Q ProcessInProgress 76Q ProcessInProgress 72Q NC.NoteFileProp 47Q OperationInProgress 33Q OperationInProgress 27Q OperationInProgress 23Q NC.NoteFileProp 2 NC.LockLock) ( 1656Q "Open NoteFile" 1610Q "Done." 1575Q "Opening NoteFile: " 1423Q "Opening NoteFile: " 1370Q (NC.OpenNoteFileA0003A0012) 1350Q (NC.OpenNoteFileA0003A0010) 1332Q "Building index array ..." 1317Q "Opening NoteFile: " 1226Q "." 1220Q "Open canceled for NoteFile " 1160Q (NC.OpenNoteFileA0003A0009) 1146Q (NC.OpenNoteFileA0003A0008) 1073Q (NC.OpenNoteFileA0003A0007) 1052Q (NC.OpenNoteFileA0003A0006) 610Q "and has the same UID." 577Q " is already open " 565Q "because " 552Q "Couldn't open " 431Q (NC.OpenNoteFileA0003A0004) 324Q "." 316Q "Open canceled for NoteFile " 246Q " ..." 240Q "Opening NoteFile: " 141Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 53Q "Open NoteFile") NC.OpenNoteFile D1 (P 14Q RESETZ P 13Q RESETY P 12Q LISPXHIST P 10Q CriticalUIDs P 7 ReturnValue P 6 NoteFileMenu P 5 NewVersion P 4 OldVersion P 3 NewerFileName P 2 FileName P 1 NoteFile P 0 TempInterestedWindow I 15Q Don'tCheckForTruncationFlg I 14Q ReadOnlyFlg I 13Q QuietFlg I 12Q MenuPosition I 11Q PublicOrPrivate I 10Q InterestedWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Can'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 ConvertNoConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFileOrFileName F 15Q LISPXHIST F 16Q RESETVARSLST) ` G@  @d`ooihdH Zdgg g?J 9GiJol oJo oohGi Gi hJ FJ GH Hi hJg \ghgJ [g ] @`R@fLHioJol oKo oohHi KZ bJ ^@N J ``_dO*YdJGI bW! Wog hg_ OO(532Q ERROR! 524Q RESETRESTORE 511Q NC.OpenNoteFileA0003 465Q NC.CoerceToInterestedWindow 423Q NC.NoteFileFromFileName 414Q NC.SetNoteFileMenu 404Q NC.GetNoteFileMenu 375Q NC.NoteFileFromFileName 366Q NC.AskYesOrNo 347Q CONCAT 332Q NC.PrintMsg 326Q CHARACTER 264Q FILENAMEFIELD 255Q FULLNAME 252Q PACKFILENAME 234Q FILENAMEFIELD 223Q NC.ClearMsg 215Q NC.SetUpNoteFileInterface 207Q NC.NoteFileFromFileName 177Q NC.NoteFileOpenP 171Q NC.ClearMsg 162Q NC.AskYesOrNo 142Q CONCAT 125Q NC.PrintMsg 121Q CHARACTER 102Q NC.NoteFileNoticedP 70Q U-CASE 65Q FILENAMEFIELD 53Q NC.DatabaseFileName 7 NC.CoerceToInterestedWindow) (517Q ERROR 506Q INTERNAL 453Q NoteFile 434Q NoteFileDeviceTYPE# 430Q NoteFileTYPE# 274Q NoteFileTYPE# 261Q VERSION 246Q BODY 242Q VERSION 231Q VERSION 73Q NOTEFILE 62Q EXTENSION 25Q NoteFile 20Q NoteFileTYPE#) ( 503Q (NC.OpenNoteFileA0003) 357Q "No" 353Q " -- " 344Q " instead?" 337Q "Open " 321Q " exists." 314Q "A higher version of " 152Q "No" 146Q " -- " 137Q " as a NoteFile?" 132Q "Are you sure you want to open " 114Q " does not have a .NOTEFILE extension." 43Q " -- " 37Q "Name of NoteFile to open:") NC.CacheTypesAndTitlesA0001 D1 (P 0 Card I 1 Key I 0 Value) @H (12Q NC.RetrieveTypeAndTitle 2 BLOCK) NIL () NC.CacheTypesAndTitles D1 (I 0 NoteFile) @g (13Q MAPHASH) (10Q NC.CacheTypesAndTitlesA0001 3 NoteFile) () NC.AskUserAboutTruncation D1 (P 2 PromptWinPos P 1 Menu P 0 Items I 1 PromptWindow I 0 NoteFile) @oo@* oh X`dHdld`di dg dgjdndhdK d `kY` A ZJI  (221Q MENU 207Q CHECK/MENU/IMAGE 177Q WINDOWPOSITION 171Q WINDOWP 40Q \APPEND2) (212Q BITMAP 166Q PROMPTWINDOW 154Q FONTDESCRIPTOR 151Q NC.MenuFont 141Q MENU 111Q DEFAULTMENUHELDFN 102Q CLRPROMPT 66Q NC.MenuFont 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 (Cancel (QUOTE Cancel) "Cancel the Open.")) 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.ProcessInspectAndRepairRequestA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow) PhQ h(5 NC.InspectAndRepairNoteFile) 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 16Q Don'tCheckForTruncationFlg I 15Q ReadOnlyFlg I 14Q QuietFlg I 13Q MenuPosition I 12Q Don'tCheckOperationsInProgressFlg I 11Q PublicOrPrivate I 10Q PromptWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Can'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 Convertw/oConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFile) oi hoi g(23Q NC.ProcessInspectAndRepairRequestA0002 7 NC.ProcessInspectAndRepairRequestA0001) (26Q InspectAndRepairFailed) ( 17Q (NC.ProcessInspectAndRepairRequestA0002) 3 (NC.ProcessInspectAndRepairRequestA0001)) NC.ProcessNoteFileNotFoundErrorA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 InterestedWindow F 2 NewFileName) PhdQol ch(23Q NC.CreateNoteFile 17Q CONCAT 14Q CHARACTER) NIL ( 7 "Opening NoteFile") NC.ProcessNoteFileNotFoundError D1 (P 0 NewFileName I 15Q Don'tCheckForTruncationFlg I 14Q ReadOnlyFlg I 13Q QuietFlg I 12Q MenuPosition I 11Q PublicOrPrivate I 10Q InterestedWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Can'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 Convertw/oConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFile) hGgGio@l Bo@ oohGi oi @ABCDEFGGGGGGG (145Q NC.OpenNoteFile 111Q NC.ProcessNoteFileNotFoundErrorA0001 77Q NC.AskYesOrNo 57Q CONCAT 37Q NC.PrintMsg 33Q CHARACTER) (52Q NoteFile 24Q NoteFile 5 NoteFileNotFound) ( 105Q (NC.ProcessNoteFileNotFoundErrorA0001) 67Q "Y" 63Q " -- " 46Q "Do you want to create " 20Q "Could not find NoteFile ") NC.ProcessTruncationRequestA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow F 2 TruncationFn F 3 ReturnValue) PQlRchNIL 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 14Q ReadOnlyFlg I 13Q QuietFlg I 12Q MenuPosition I 11Q PublicOrPrivate I 10Q PromptWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Don'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 Convertw/oConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFile) M @*$oi `@ABCDEFGGGGGG Iggoi g(107Q NC.ProcessTruncationRequestA0002 64Q NC.OpenNoteFile 25Q NC.ProcessTruncationRequestA0001) (112Q NoteFileTruncationFailed 76Q NoteFileTruncationAborted 71Q NoteFileTruncationAborted 32Q NoteFileTYPE# 10Q NoteFileDevice 3 NoteFile) ( 103Q (NC.ProcessTruncationRequestA0002) 21Q (NC.ProcessTruncationRequestA0001)) NC.ProcessNoteFileNeedsConversionErrorA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow F 2 ConversionFn F 3 ReturnValue) PQlRchNIL 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 15Q Don'tCheckForTruncationFlg I 14Q ReadOnlyFlg I 13Q QuietFlg I 12Q MenuPosition I 11Q PublicOrPrivate I 10Q PromptWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Can'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 Convertw/oConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFile)  G Gio@ol @*&XPCooohG Xoi `@ABCDEFGGGGGGG oi gG Ghol ol g(240Q NC.PrintMsg 234Q CHARACTER 223Q CHARACTER 205Q WINDOWP 174Q NC.ProcessNoteFileNeedsConversionErrorA0002 163Q NC.OpenNoteFile 122Q NC.ProcessNoteFileNeedsConversionErrorA0001 110Q NC.AskYesOrNo 43Q NC.PrintMsg 37Q CHARACTER 7 WINDOWP) (243Q NoteFileNeedsConversion 177Q NoteFileConversionFailed 127Q NoteFileTYPE# 55Q NoteFileDevice 50Q NoteFile 24Q NoteFile) ( 227Q "See a NoteCards wizard." 216Q "No format conversion possible." 170Q (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 15Q Don'tCheckForTruncationFlg I 14Q ReadOnlyFlg I 13Q QuietFlg I 12Q MenuPosition I 11Q PublicOrPrivate I 10Q PromptWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Can'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 Convertw/oConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFile) G Gio@ol Eb@*$XT@G dggdg@ABCDEFGGGGGGG g@ABCDEFGGGGGGG G Ghol ol g(247Q NC.PrintMsg 243Q CHARACTER 232Q CHARACTER 214Q WINDOWP 206Q NC.ProcessTruncationRequest 146Q NC.ProcessInspectAndRepairRequest 73Q NC.AskUserAboutTruncation 43Q NC.PrintMsg 37Q CHARACTER 7 WINDOWP) (252Q NoteFileNeedsTruncation 152Q Truncate% File 111Q Inspect% &% Repair 104Q CancelOpen 77Q Cancel 60Q NoteFileDevice 53Q NoteFile 24Q NoteFile) ( 236Q "See a NoteCards wizard." 225Q "No file truncation possible for this NoteFile." 32Q " has information written since last successful close or checkpoint." 20Q "NoteFile ") NC.RunOpenEvents D1 (P 0 OpenEventsCard I 3 InterestedWindow I 2 When I 1 NoteFile I 0 FileName) :Bg3A`@ bgA H H H HoC (67Q NC.EvaluateListCardSubstance 55Q NCP.CacheCards 50Q NCP.ActiveCardP 42Q NCP.ValidCardP 33Q NCP.LookupCardByName 21Q NC.NoteFileFromFileName) (27Q OpenEventsCard 13Q NoteFileTYPE# 3 AFTER) ( 63Q "Evaluating the Open Events card") NC.RunCloseEvents D1 (P 0 CloseEventsCard I 2 When I 1 NoteFile I 0 FileName) /Bg(A`@ bgA H Ho (54Q NC.EvaluateListCardSubstance 42Q NCP.ValidCardP 33Q NCP.LookupCardByName 21Q NC.NoteFileFromFileName) (27Q CloseEventsCard 13Q NoteFileTYPE# 3 AFTER) ( 51Q "Evaluating the Close Events card") NC.CloseDatabaseFile D1 (I 1 InterestedWindow I 0 NoteFile) @ (3 NC.CloseNoteFile) NIL () NC.CloseNoteFileA0001A0002 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) P ci(3 NC.NoteFileOpenP) NIL () NC.CloseNoteFileA0001A0003 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQl o  i(32Q NC.ReportError 27Q CONCAT 17Q CHARACTER) NIL ( 23Q "OK to continue Close. ^ to abort Close." 11Q "failed because " 4 "OpenP test on ") NC.CloseNoteFileA0001A0006 D1 (P 0 PredicateResult I 1 Key I 0 Value F 1 CollectionList) @kg@Qc@(5 BLOCK) (12Q NC.ActiveCardP) () NC.CloseNoteFileA0001A0007 D1 (NAME ERRORSET L (0 NIL) P 4 Card F 5 RESETVARSLST F 6 InterestedWindow F 7 QuietFlg F 10Q ActiveCards F 11Q RESETY F 12Q NoteFile) xgd g Uc gd g Uc gd g Uc WVW W AHIVW ci\ LJ KhZHXK&(141Q NC.ActiveCardP 130Q NC.CloseListOfActiveCards 111Q NC.FetchSpecialCards 103Q NC.CloseListOfActiveCards 65Q SETTOPVAL 56Q GETTOPVAL 41Q SETTOPVAL 32Q GETTOPVAL 15Q SETTOPVAL 6 GETTOPVAL) (62Q NC.ForceTitlesFlg 52Q NC.ForceTitlesFlg 36Q NC.ForceFilingFlg 26Q NC.ForceFilingFlg 12Q NC.ForceSourcesFlg 2 NC.ForceSourcesFlg) () NC.CloseNoteFileA0001A0008 D1 (NAME ERRORSET F 0 NoteFile F 1 QuietFlg F 2 ReturnValue F 3 InterestedWindow F 4 OperationMsg) PQiST ch(10Q NC.CheckpointNoteFile) NIL () NC.CloseNoteFileA0001A0009 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) "hoPoQol o  i(36Q NC.ReportError 33Q CONCAT 23Q CHARACTER) NIL ( 27Q "OK to continue Close. ^ to abort Close." 16Q "." 11Q " failed because " 4 "Checkpoint of NoteFile ") NC.CloseNoteFileA0001A0010 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 ReturnValue) Q* QRlHchNIL (10Q NoteFileDevice 3 NoteFile) () NC.CloseNoteFileA0001A0012 D1 (NAME ERRORSET F 0 FullFileName) hoPol o  i(31Q NC.ReportError 26Q CONCAT 16Q CHARACTER) NIL ( 22Q "OK to continue Close. ^ to abort Close." 11Q " is not open." 4 "NoteFile") NC.CloseNoteFileA0001A0013 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQol  i(32Q NC.ReportError 27Q CONCAT 23Q CHARACTER) NIL ( 16Q "." 11Q " failed because " 4 "Close of NoteFile ") NC.CloseNoteFileA0001 D1 (NAME ERRORSET P 25Q Function P 23Q RESETZ P 22Q RESETY P 21Q LISPXHIST P 20Q CollectionList P 17Q Function P 15Q \NF P 14Q Card P 13Q Window P 11Q ReturnValue P 10Q ActiveCards P 7 CardTotal P 6 OperationMsg P 5 FullFileName P 0 OpInProgress F 26Q NoteFile F 27Q InterestedWindow F 30Q RESETVARSLST F 31Q QuietFlg F 32Q RESETY F 33Q AutoConfirmFlg F 34Q LISPXHIST) ?` W, AHlgW,gW,g hW,go hW0c0gW,gW,g hW,g` hW0c0o``hW0c0` HHgW. W, c.W, W,W. W,o2 oi g_O$W.iol ` W.i h&O`oi OgW.ohhW0c0W," W2W.iNool W,i ghW. W2W6! O2hoMol o oghW. qhx_h_O Og Og _:W,O Od`OO YI OuiqO_e`O h/h_dgW,glOgOiO_W2W.iNool W,g O _IW2W.io W8!W0og hg_& O&W2%W.hol W2W.iol oi g_O`oi Ooi g_O`&Ogoi Ooi O`O(_*W,glO*gW, W2W.iMo gW,h W,dhW,dJdMW,dKW,*dL*dh(dh&dh$dh"dh dhdhdhdhdhdhdhdjdj djdj djhW,"O(_(#W. W, oH gc4i(2064Q NC.PrintOperationInProgressMsg 2054Q NC.CoerceToInterestedWindow 2045Q OPENWP 1602Q ADD.PROCESS 1561Q NC.PrintMsg 1542Q NC.ResetNoteFileInterface 1462Q NC.CloseNoteFileA0001A0013 1443Q NC.CloseNoteFileA0001A0012 1403Q NC.CloseNoteFileA0001A0010 1365Q NC.CloseNoteFileA0001A0009 1335Q NC.CloseNoteFileA0001A0008 1324Q NC.PrintMsg 1321Q CHARACTER 1301Q NC.PrintMsg 1276Q CHARACTER 1254Q ERROR! 1245Q RESETRESTORE 1232Q NC.CloseNoteFileA0001A0007 1210Q NC.PrintMsg 1163Q MAPHASH 1142Q NC.PrintMsg 1136Q CHARACTER 766Q NC.SameNoteFileP 755Q NC.NoteFileFromNoteFileUID 707Q NC.CardFromWindow 704Q GETWINDOWUSERPROP 672Q WINDOWP 667Q GETWINDOWUSERPROP 655Q NC.CardFromWindow 632Q NC.AskYesOrNo 614Q CONCAT 604Q CHARACTER 550Q OPENWINDOWS 530Q NC.ClearMsg 512Q NC.CardOperationsInProgress 503Q NC.PrintMsg 477Q CHARACTER 447Q DEL.PROCESS 402Q NC.CloseNoteFileA0001A0003 355Q NC.ClearMsg 346Q DISMISS 337Q NC.PrintMsg 334Q CHARACTER 305Q NC.CloseNoteFileA0001A0002 256Q ALLOW.BUTTON.EVENTS 250Q NC.AbortSession 240Q NC.ReadOnlyNoteFileP 230Q NC.CoerceToInterestedWindow 222Q OPENWP 201Q RELEASE.MONITORLOCK 133Q NC.NoteFileProp 113Q NC.NoteFileProp 62Q NC.NoteFileProp 41Q NC.NoteFileProp 13Q NC.NoteFileCheckOpInProgress 5 OBTAIN.MONITORLOCK) (2070Q DON'T 1661Q NoteFile 1644Q NoteFile 1622Q NoteFile 1611Q NoteFile 1572Q NoteFile 1565Q NC.CleanupCardObjects 1527Q DON'T 1516Q AFTER 1473Q NC.CloseNoteFileFns 1431Q NoteFileNotOpen 1421Q NoteFileTYPE# 1410Q CloseFailed 1353Q NoteFileTYPE# 1342Q CheckpointFailed 1240Q ERROR 1227Q INTERNAL 1160Q NC.CloseNoteFileA0001A0006 1153Q NoteFile 1067Q DON'T 1056Q BEFORE 1045Q DON'T 1016Q NC.CloseNoteFileFns 750Q CardObject 736Q NoteFileTYPE# 722Q CardObject 701Q ICONFOR 664Q ICONFOR 623Q Yes 515Q ABORT 442Q NoteFile 413Q NC.ClearMsg 370Q NoteFileTYPE# 343Q NC.MsgDelay 311Q OpenPFailed 264Q NoteFile 210Q US 176Q NC.LockLock 162Q NC.NoteFileBusyList 156Q NC.NoteFileBusyList 153Q \RUNNING.PROCESS 130Q \RUNNING.PROCESS 125Q ProcessInProgress 110Q ProcessInProgress 103Q ProcessInProgress 76Q NC.NoteFileProp 53Q OperationInProgress 36Q OperationInProgress 31Q OperationInProgress 24Q NC.NoteFileProp 2 NC.LockLock) ( 2060Q "Close NoteFile" 1556Q " closed." 1456Q (NC.CloseNoteFileA0001A0013) 1437Q (NC.CloseNoteFileA0001A0012) 1377Q (NC.CloseNoteFileA0001A0010) 1361Q (NC.CloseNoteFileA0001A0009) 1331Q (NC.CloseNoteFileA0001A0008) 1314Q "Closing Notefile ... " 1271Q "Done." 1224Q (NC.CloseNoteFileA0001A0007) 1205Q "Closing and saving active cards ... " 1131Q "Checking for active cards ..." 1125Q "" 620Q " -- " 610Q "Want to close and save them? " 577Q "." 572Q "There are still cards on the screen from this NoteFile " 472Q "Checking for card operations in progress ..." 466Q "" 421Q (T) 376Q (NC.CloseNoteFileA0001A0003) 327Q "Can't close a closed notefile." 301Q (NC.CloseNoteFileA0001A0002) 272Q "" 150Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 57Q "Close NoteFile") NC.CloseNoteFile D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 AutoConfirmFlg I 2 QuietFlg I 1 InterestedWindow I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CloseNoteFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CloseNoteFileA0001)) NC.CloseListOfActiveCards D1 (P 12Q Process P 11Q \NF P 10Q \NF P 7 CardPart P 2 Window P 1 Card I 2 QuietFlg I 1 InterestedWindow I 0 ActiveCards) @aHhodIOd`IO [K*IOlLFI Od`IO ]M*IOlNEBAho yIihihdB I ZHXR . OO +BAioOoI o  b(363Q BLOCK 354Q BLOCK 350Q NC.PrintMsg 345Q CONCAT 335Q NC.FetchTitle 305Q PROCESS.FINISHEDP 270Q \INSUREWINDOW 254Q NC.FetchWindow 247Q NC.QuitCard 222Q NC.PrintMsg 154Q NC.NoteFileFromNoteFileUID 64Q NC.NoteFileFromNoteFileUID) (172Q NoteFileDevice 165Q NoteFile 147Q CardObject 137Q NoteFileTYPE# 123Q CardObject 102Q NoteFileDevice 75Q NoteFile 57Q CardObject 47Q NoteFileTYPE# 33Q CardObject) ( 341Q "..." 331Q " on card " 323Q "Waiting to obtain write permission for the " 217Q "done." 17Q (SUBSTANCE TOLINKS GLOBALTOLINKS PROPLIST)) NC.CleanupCardObjectsA0001 D1 (L (1 Key 0 Card)) @h@hhNIL (12Q CardObject 3 CardObject) () NC.CleanupCardObjects D1 (I 0 HashArray) @ @g (14Q MAPHASH 3 HARRAYP) (11Q NC.CleanupCardObjectsA0001) () NC.CheckpointDatabase D1 (I 4 OperationMsg I 3 InterestedWindow I 2 Don'tSaveDirtyCardsFlg I 1 QuietFlg I 0 NoteFile) @ABCD (10Q NC.CheckpointNoteFile) NIL () NC.CheckpointNoteFileA0001A0002 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) P ci(3 NC.NoteFileOpenP) NIL () NC.CheckpointNoteFileA0001A0003 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQl o  i(32Q NC.ReportError 27Q CONCAT 17Q CHARACTER) NIL ( 23Q "OK to continue Checkpoint. ^ to abort Checkpoint." 11Q "failed because " 4 "OpenP test on ") NC.CheckpointNoteFileA0001A0004 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 ReturnValue F 4 OperationMsg F 5 QuietFlg) Q*QRTUlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.CheckpointNoteFileA0001A0006 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQo  i(25Q NC.ReportError 22Q CONCAT) NIL ( 16Q "." 11Q " because " 4 "Checkpoint failed for ") NC.CheckpointNoteFileA0001 D1 (NAME ERRORSET P 2 ReturnValue P 1 FullFileName P 0 OpInProgress F 3 NoteFile F 4 InterestedWindow F 5 RESETVARSLST F 6 OperationMsg F 7 QuietFlg F 10Q RESETY F 11Q Don'tSaveDirtyCardsFlg) ` S HcgSgSg hSgo hUc gSgSg hSg` hUc o``hUc ` HHgT S cSoi gZJ"Tiol ` Ti hJ`oi VooIl c STo zW-gTohhUc WToIol WSTVW oi gZJ`WTiVool Soi JT S oH gci(613Q NC.PrintOperationInProgressMsg 603Q NC.CoerceToInterestedWindow 575Q OPENWP 564Q NC.CheckpointNoteFileA0001A0006 551Q NC.PrintMsg 545Q CHARACTER 501Q NC.CheckpointNoteFileA0001A0004 470Q NC.SaveDirtyCards 454Q NC.PrintMsg 450Q CHARACTER 374Q NC.CheckForNotReadOnly 360Q CONCAT 355Q CHARACTER 330Q NC.CheckpointNoteFileA0001A0003 304Q NC.ClearMsg 276Q DISMISS 267Q NC.PrintMsg 264Q CHARACTER 240Q NC.CheckpointNoteFileA0001A0002 214Q NC.CoerceToInterestedWindow 207Q OPENWP 167Q RELEASE.MONITORLOCK 123Q NC.NoteFileProp 104Q NC.NoteFileProp 56Q NC.NoteFileProp 36Q NC.NoteFileProp 12Q NC.NoteFileCheckOpInProgress 5 OBTAIN.MONITORLOCK) (617Q DON'T 514Q NoteFileTYPE# 505Q CheckpointFailed 405Q NC.ClearMsg 316Q NoteFileTYPE# 273Q NC.MsgDelay 244Q OpenPFailed 223Q NoteFile 176Q US 164Q NC.LockLock 151Q NC.NoteFileBusyList 145Q NC.NoteFileBusyList 142Q \RUNNING.PROCESS 120Q \RUNNING.PROCESS 115Q ProcessInProgress 101Q ProcessInProgress 75Q ProcessInProgress 71Q NC.NoteFileProp 47Q OperationInProgress 33Q OperationInProgress 27Q OperationInProgress 23Q NC.NoteFileProp 2 NC.LockLock) ( 607Q "Checkpoint NoteFile" 560Q (NC.CheckpointNoteFileA0001A0006) 540Q " Checkpoint done." 534Q "" 475Q (NC.CheckpointNoteFileA0001A0004) 443Q " ..." 436Q "Checkpointing notefile " 412Q (T) 371Q "Can't checkpoint " 347Q "Checkpointing " 343Q "" 324Q (NC.CheckpointNoteFileA0001A0003) 257Q "Can't checkpoint a closed notefile." 234Q (NC.CheckpointNoteFileA0001A0002) 137Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 53Q "Checkpoint NoteFile") NC.CheckpointNoteFile D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 OperationMsg I 3 InterestedWindow I 2 Don'tSaveDirtyCardsFlg I 1 QuietFlg I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CheckpointNoteFileA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CheckpointNoteFileA0001)) NC.SaveDirtyCardsA0001 D1 (P 0 Card I 1 Key I 0 Value F 1 ActiveCards F 2 ShrunkenCardWins) "@H HQcH H Rc(33Q NC.FetchWindow 25Q NC.GetShrunkenWin 12Q NC.ActiveCardP 2 BLOCK) NIL () NC.SaveDirtyCardsA0002 D1 (NAME ERRORSET L (0 NIL) P 1 Card F 2 RESETVARSLST F 3 ActiveCards F 4 OperationMsg F 5 RESETY F 6 QuietFlg) Jgd g Rcgd g RcSHhc iIVhT HX(102Q NC.CardSaveFn 72Q BLOCK 41Q SETTOPVAL 32Q GETTOPVAL 15Q SETTOPVAL 6 GETTOPVAL) (36Q NC.ForceTitlesFlg 26Q NC.ForceTitlesFlg 12Q NC.ForceSourcesFlg 2 NC.ForceSourcesFlg) () NC.SaveDirtyCards D1 (P 6 Win P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 ActiveCards P 0 ShrunkenCardWins I 3 QuietFlg I 2 OperationMsg I 1 InterestedWindow I 0 NoteFile F 7 LISPXHIST F 10Q RESETVARSLST) M @g W!Wog hg\ LHMhN M](105Q SHRINKW 100Q BLOCK 57Q ERROR! 51Q RESETRESTORE 37Q NC.SaveDirtyCardsA0002 16Q MAPHASH) (45Q ERROR 34Q INTERNAL 13Q NC.SaveDirtyCardsA0001 6 NoteFile) ( 31Q (NC.SaveDirtyCardsA0002)) NC.AbortSessionA0001A0002 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) P ci(3 NC.NoteFileOpenP) NIL () NC.AbortSessionA0001A0003 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQl o  i(32Q NC.ReportError 27Q CONCAT 17Q CHARACTER) NIL ( 23Q "OK to continue Abort. ^ to abort Abort." 11Q "failed because " 4 "OpenP test on ") NC.AbortSessionA0001A0004 D1 (P 3 Process P 1 Win P 0 Card I 1 Key I 0 Value F 4 CardNumber F 5 QuietFlg F 6 InterestedWindow F 7 CardTotal) v@!TkcU9dldZjJ,J &Viol oToWol H H YHU Id .KI  (161Q BLOCK 154Q PROCESS.FINISHEDP 150Q CLOSEW 133Q \INSUREWINDOW 125Q NC.AbortCard 117Q NC.FetchWindow 111Q NC.ActiveCardP 104Q NC.PrintMsg 100Q CHARACTER 54Q CHARACTER 37Q \FZEROP 2 BLOCK) NIL ( 73Q "." 65Q " out of " 60Q "Processing item number " 47Q "Quitting from active cards ... ") NC.AbortSessionA0001 D1 (NAME ERRORSET P 11Q CardTotal P 10Q CardNumber P 7 ReturnValue P 6 NewBytes P 5 CardTotal P 4 EndPtr P 3 LastChkptPtr P 2 FullFileName P 1 Stream P 0 OpInProgress F 12Q NoteFile F 13Q RESETVARSLST F 14Q InterestedWindow F 15Q RESETY F 16Q Don'tConfirmFlg F 17Q QuietFlg)  ` W HlgWgWg hWgo hWcgWgWg hWg` hWco``hWc` HHgWWWCoi g_OWiol ` O`oi OW" I \K^j:NN 0W,ol oNoJ ooiWhi ajW Wg LK7WWioJo IgK WhoJol W W Wi hW W oH gci(664Q NC.PrintOperationInProgressMsg 654Q NC.CoerceToInterestedWindow 645Q OPENWP 633Q NC.ClearMsg 624Q NC.ForceDatabaseClose 616Q NC.ResetNoteFileInterface 610Q NC.PrintMsg 604Q CHARACTER 561Q SETFILEINFO 550Q NC.PrintMsg 516Q MAPHASH 464Q NC.AskYesOrNo 443Q CONCAT 425Q CHARACTER 406Q \FZEROP 366Q GETEOFPTR 361Q DEL.PROCESS 341Q NC.AbortSessionA0001A0003 316Q DISMISS 307Q NC.PrintMsg 304Q CHARACTER 255Q NC.AbortSessionA0001A0002 201Q RELEASE.MONITORLOCK 133Q NC.NoteFileProp 113Q NC.NoteFileProp 62Q NC.NoteFileProp 41Q NC.NoteFileProp 13Q NC.NoteFileCheckOpInProgress 5 OBTAIN.MONITORLOCK) (670Q DON'T 555Q LENGTH 513Q NC.AbortSessionA0001A0004 506Q NoteFile 474Q NoteFile 354Q NoteFile 327Q NoteFileTYPE# 313Q NC.MsgDelay 261Q OpenPFailed 240Q NoteFile 231Q NoteFile 222Q NoteFile 210Q US 176Q NC.LockLock 162Q NC.NoteFileBusyList 156Q NC.NoteFileBusyList 153Q \RUNNING.PROCESS 130Q \RUNNING.PROCESS 125Q ProcessInProgress 110Q ProcessInProgress 103Q ProcessInProgress 76Q NC.NoteFileProp 53Q OperationInProgress 36Q OperationInProgress 31Q OperationInProgress 24Q NC.NoteFileProp 2 NC.LockLock) ( 660Q "Abort Session" 577Q "." 572Q "Couldn't truncate " 544Q " ..." 537Q "Truncating file " 453Q "Yes" 447Q "--" 436Q " bytes) of " 431Q "the last checkpoint (" 420Q "Do you wish to lose all changes since" 335Q (NC.AbortSessionA0001A0003) 277Q "Can't abort a closed notefile." 251Q (NC.AbortSessionA0001A0002) 150Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 57Q "Abort Session") NC.AbortSession D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 QuietFlg I 2 Don'tConfirmFlg I 1 InterestedWindow I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) +A@ bS!Tog hgZ JI(46Q ERROR! 41Q RESETRESTORE 27Q NC.AbortSessionA0001 5 NC.CoerceToInterestedWindow) (35Q ERROR 24Q INTERNAL) ( 21Q (NC.AbortSessionA0001)) NC.ForceDatabaseClose D1 (I 1 Don'tMenuFlg I 0 NoteFile) @ g@h @h@dHdI@HdI@HdI@*HdI*dh(dh&dh$dh"dh dhdhdhdhdhdhdhdjdj djdj djdhhA@ @(307Q NC.RemoveNoteFile 27Q ADD.PROCESS 10Q CLOSEF?) (126Q NoteFile 106Q NoteFile 66Q NoteFile 55Q NoteFile 43Q NoteFile 33Q NoteFile 17Q NoteFile 13Q NC.CleanupCardObjects 3 NoteFile) () NC.ReadOnlyNoteFileP D1 (L (0 NoteFile)) @(NIL (3 NoteFile) () NC.CheckForNotReadOnly D1 (I 2 OperationMsg I 1 InterestedWindow I 0 CardOrNoteFile) DA @ b@ @ @d`% AiBol n Ai h@(76Q NC.ClearMsg 71Q DISMISS 63Q NC.PrintMsg 57Q CHARACTER 41Q NC.ReadOnlyNoteFileP 24Q NC.ReadOnlyCardP 17Q NC.CardP 10Q NC.CoerceToInterestedWindow 3 OPENWP) (33Q NoteFileTYPE#) ( 52Q "a notefile open for read-only.") NC.DeleteDatabaseFile D1 (P 2 FullFileName P 1 MsgWindow P 0 FileName I 3 QuietFlg I 2 Don'tConfirmFlg I 1 InterestedWindow I 0 FileNameOrNoteFile) @d`A@ "HooihdI Xdg H H Zd6H I Y iHol ol ` Ii h Iiol ` Ii hBTol Jol ooiI Ih 'C"I iJol ` Ii hCI ioJl n BGol Jol ooiI Ih CI iJol hJ gg`JkKZd-I iHol ol ` Ii h hIi J(652Q NC.ClearMsg 641Q NC.RemoveAccessToNoteFile 634Q NC.ClearMsg 626Q DISMISS 617Q NC.PrintMsg 613Q CHARACTER 602Q CHARACTER 567Q NC.AttachPromptWindow 530Q NC.RemoteHostP 522Q NC.PrintMsg 516Q CHARACTER 503Q NC.AttachPromptWindow 472Q NC.AskYesOrNo 463Q NC.AttachPromptWindow 446Q CONCAT 442Q CHARACTER 430Q CHARACTER 414Q DISMISS 405Q NC.PrintMsg 401Q CHARACTER 366Q NC.AttachPromptWindow 355Q NC.ClearMsg 347Q DISMISS 340Q NC.PrintMsg 334Q CHARACTER 321Q NC.AttachPromptWindow 310Q NC.AskYesOrNo 301Q NC.AttachPromptWindow 264Q CONCAT 260Q CHARACTER 246Q CHARACTER 230Q NC.ClearMsg 222Q DISMISS 213Q NC.PrintMsg 210Q CHARACTER 173Q NC.NoteFileOpenP 166Q NC.ClearMsg 160Q DISMISS 151Q NC.PrintMsg 145Q CHARACTER 134Q CHARACTER 121Q NC.AttachPromptWindow 115Q NC.CoerceToInterestedWindow 110Q NC.RemoveAccessToNoteFile 77Q FILDIR-EARLIEST 72Q FULLNAME 65Q FILENAMEFIELD 51Q NC.DatabaseFileName 23Q NC.CoerceToInterestedWindow) (645Q NC.DatabaseFileNameSuggestion 623Q NC.MsgDelay 547Q NoteFileDevice 543Q NC.DeviceVectorsHashArray 540Q LOCALSINGLEUSER 534Q REMOTEMULTIUSER 344Q NC.MsgDelay 217Q NC.MsgDelay 155Q NC.MsgDelay 62Q VERSION 12Q NoteFile 5 NoteFileTYPE#) ( 606Q "Delete cancelled." 575Q " could not be deleted." 511Q " not deleted." 456Q "No" 452Q " -- " 435Q "?" 423Q "Are you still sure you want to delete " 373Q "Deleting" 327Q " not deleted." 274Q "No" 270Q " -- " 253Q "?" 241Q "Are you sure you want to delete " 203Q "Can't delete an open notefile." 140Q "Delete cancelled." 127Q " does not exist." 41Q " -- " 35Q "Name of Notefile to be deleted:") NC.CopyNoteFile D1 (P 4 FromNoteFile P 3 FullFromFileName P 2 FromFileName P 1 Result P 0 MsgWindow I 2 InterestedWindow I 1 ToFileName I 0 FromNoteFileOrName) EBA@d`M\Z [WLK \ HL L qHiol ol ` Hi hooihdH ZdJ H XiJol ol ` Hi hK AooihdH bK^AXHioKoAo KA YHiKoIol I ghgI ` Hi KHio@l ol ` Hi ](477Q NC.ClearMsg 471Q DISMISS 462Q NC.PrintMsg 456Q CHARACTER 445Q CHARACTER 423Q NC.ClearMsg 415Q DISMISS 403Q PACKFILENAME 367Q NC.NoticeNoteFileName 362Q NC.PrintMsg 356Q CHARACTER 332Q COPYFILE 324Q NC.PrintMsg 266Q NC.DatabaseFileName 243Q NC.NoticeNoteFile 235Q NC.ClearMsg 227Q DISMISS 220Q NC.PrintMsg 214Q CHARACTER 203Q CHARACTER 167Q NC.CoerceToInterestedWindow 162Q NC.RemoveAccessToNoteFile 151Q NC.DatabaseFileName 125Q NC.ClearMsg 117Q DISMISS 110Q NC.PrintMsg 104Q CHARACTER 73Q CHARACTER 56Q NC.NoteFileOpenP 51Q NC.CoerceToInterestedWindow 37Q NC.NoteFileFromFileName 26Q FULLNAME) (466Q NC.MsgDelay 412Q NC.MsgDelay 406Q NC.DatabaseFileNameSuggestion 377Q BODY 373Q VERSION 224Q NC.MsgDelay 114Q NC.MsgDelay 20Q NoteFile 11Q NoteFileTYPE#) ( 451Q "Copy cancelled." 437Q "Can't open file for copy: " 351Q "." 344Q " copied to " 320Q " ..." 313Q " to " 306Q "Copying " 256Q " -- " 252Q "Name of target of copy:" 207Q "Copy cancelled." 176Q " does not exist." 141Q " -- " 135Q "Name of NoteFile to be copied:" 77Q "Copy cancelled." 66Q "Can't copy an open notefile.") NC.RenameNoteFile D1 (P 4 FullFromFileName P 3 FromFileName P 2 NoteFile P 1 Result P 0 MsgWindow I 2 InterestedWindow I 1 ToFileName I 0 FromNoteFileOrName) qBA@d`MZ[ \WJL Z HJ J qHiol ol ` Hi hooihdH [dK H XiKol ol ` Hi hAooihdH bLAHioLoAo LA YHiLoIol J#JIIJJ J L I ghgI ` Hi `L[Hio@l ol ` Hi 1(553Q NC.ClearMsg 545Q DISMISS 536Q NC.PrintMsg 532Q CHARACTER 521Q CHARACTER 474Q NC.ClearMsg 466Q DISMISS 454Q PACKFILENAME 440Q NC.NoticeNoteFileName 433Q NC.RemoveNoteFileName 426Q NC.SetUpNoteFileInterface 421Q WFROMMENU 362Q NC.PrintMsg 356Q CHARACTER 332Q RENAMEFILE 324Q NC.PrintMsg 262Q NC.DatabaseFileName 235Q NC.ClearMsg 227Q DISMISS 220Q NC.PrintMsg 214Q CHARACTER 203Q CHARACTER 167Q NC.CoerceToInterestedWindow 162Q NC.RemoveAccessToNoteFile 151Q NC.DatabaseFileName 125Q NC.ClearMsg 117Q DISMISS 110Q NC.PrintMsg 104Q CHARACTER 73Q CHARACTER 56Q NC.NoteFileOpenP 51Q NC.CoerceToInterestedWindow 37Q NC.NoteFileFromFileName 26Q FULLNAME) (542Q NC.MsgDelay 463Q NC.MsgDelay 457Q NC.DatabaseFileNameSuggestion 450Q BODY 444Q VERSION 414Q NoteFile 405Q NoteFile 372Q NoteFile 224Q NC.MsgDelay 114Q NC.MsgDelay 20Q NoteFile 11Q NoteFileTYPE#) ( 525Q "Rename cancelled." 513Q "Can't open file for rename: " 351Q "." 344Q " renamed to " 320Q " ..." 313Q " to " 306Q "Renaming " 252Q " -- " 246Q "New name for the NoteFile:" 207Q "Rename cancelled." 176Q " does not exist." 141Q " -- " 135Q "Name of NoteFile to be renamed:" 77Q "Rename cancelled." 66Q "Can't rename an open notefile.") NC.RemoveAccessToNoteFile D1 (P 2 Menu P 1 NoteFileName P 0 NoteFileObject I 0 NoteFileOrFileNameOrUID) /@ !H@YgZd d hHI(32Q CLOSEW 27Q WFROMMENU 3 NC.RemoveNoteFile) (46Q NoteFile 37Q NoteFile 16Q Menu) () NC.GetNoteCardA0001 D1 (NAME ERRORSET P 0 \NF F 2 Card F 3 RESETY) IRHd`RH YI hi R R R R R Rci(101Q NC.ActivateCard 74Q NC.GetPropList 67Q NC.GetTitle 62Q NC.GetLinks 55Q NC.GetMainCardData 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.GetNoteCard D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) .@g"S!Tog hgZ JI(51Q ERROR! 44Q RESETRESTORE 32Q NC.GetNoteCardA0001) (40Q ERROR 27Q INTERNAL 10Q ACTIVE 3 CardObject) ( 24Q (NC.GetNoteCardA0001)) NC.GetMainCardDataA0001A0004 D1 (NAME ERRORSET P 11Q FieldValue P 10Q CardTypeRecord P 7 CardTypeName P 6 NoteCardType P 4 SubstanceVersion P 3 Length P 2 Stream P 0 \NF F 12Q Card F 13Q RESETVARSLST F 14Q OverrideStream F 15Q RESETY) { gWHd`WH YI*WoWHd`WH YI*WgglIhWcW W 1Wd`JW WJ WJ J lJ lJ ԻJ jؼWdW N! Od _O_dgYOOd O _doO O_dg"oogoOo  OgOg OWKJLlM Wci(561Q NC.SetSubstance 536Q NC.GetCardTypeFieldOfSuper 516Q NC.ReportError 513Q CONCAT 440Q NC.ReportError 435Q CONCAT 420Q NC.CardTypeRecord 411Q NC.CardTypeLoader 346Q NC.CardTypeRecord 325Q NC.GetType 261Q NC.SetRegion 256Q NC.ReadRegion 247Q NC.SetType 244Q NC.ReadCardType 235Q NC.SetItemDate 232Q NC.ReadCardPartHeader 213Q NC.CoerceToNoteFileStream 204Q STREAMP 125Q NC.NoteFileFromNoteFileUID 37Q NC.NoteFileFromNoteFileUID) (533Q GetFn 524Q \\FILLME// 475Q GetFn 456Q \\EMPTY// 446Q NoteCardType 404Q NoteCardType 367Q \\EMPTY// 357Q NoteCardType 314Q CardObject 224Q NC.ItemIdentifier 160Q BEFORE 155Q SUBSTANCE 143Q NoteFileDevice 136Q NoteFile 121Q CardObject 110Q NoteFileTYPE# 75Q CardObject 55Q NoteFileDevice 50Q NoteFile 33Q CardObject 22Q NoteFileTYPE# 7 CardObject 2 APPLY*) ( 507Q " still \\EMPTY// after autoloading." 501Q " of card type " 472Q "Field name " 466Q "NC.GetCardTypeField" 430Q "Cannot find full definition of card type: " 65Q (SUBSTANCE AFTER)) NC.GetMainCardDataA0001 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.GetMainCardDataA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.GetMainCardDataA0001A0004)) NC.GetMainCardData D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OverrideStream I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) 6@g*@ #S!Tog hgZ JIh(57Q ERROR! 52Q RESETRESTORE 40Q NC.GetMainCardDataA0001 17Q NC.FetchNewCardFlg) (46Q ERROR 35Q INTERNAL 10Q ACTIVE 3 CardObject) ( 32Q (NC.GetMainCardDataA0001)) NC.GetLinksA0001A0004 D1 (NAME ERRORSET P 2 Stream P 0 \NF F 3 Card F 4 RESETVARSLST F 5 OverrideStream F 6 RESETY) gSHd`SH YI*SoSHd`SH YI*SgglIhTcU S Sd`JU SJ SJ SJ S Sc i(262Q NC.SetLinksDirtyFlg 255Q NC.SetGlobalLinks 252Q NC.ReadListOfLinks 244Q NC.SetFromLinks 241Q NC.ReadListOfLinks 233Q NC.SetToLinks 230Q NC.ReadListOfLinks 222Q NC.SetLinksDate 217Q NC.ReadCardPartHeader 202Q NC.CoerceToNoteFileStream 174Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (212Q NC.LinksIdentifier 152Q BEFORE 147Q LINKS 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (LINKS AFTER)) NC.GetLinksA0001 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.GetLinksA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.GetLinksA0001A0004)) NC.GetLinks D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OverrideStream I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) 6@g*@ #S!Tog hgZ JIh(57Q ERROR! 52Q RESETRESTORE 40Q NC.GetLinksA0001 17Q NC.FetchNewCardFlg) (46Q ERROR 35Q INTERNAL 10Q ACTIVE 3 CardObject) ( 32Q (NC.GetLinksA0001)) NC.GetTitleA0001A0004 D1 (NAME ERRORSET P 3 Title P 2 Stream P 0 \NF F 4 Card F 5 RESETVARSLST F 6 OverrideStream F 7 RESETY) gTHd`TH YI*ToTHd`TH YI*TgglIhUc V T Td`JV TJ [ Kci(234Q NC.SetTitle 230Q NC.ReadTitle 222Q NC.SetTitleDate 217Q NC.ReadCardPartHeader 202Q NC.CoerceToNoteFileStream 174Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (212Q NC.TitlesIdentifier 152Q BEFORE 147Q TITLE 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (TITLE AFTER)) NC.GetTitleA0001 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.GetTitleA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.GetTitleA0001A0004)) NC.GetTitle D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OverrideStream I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) D@g8@d@jh#S!Tog hgZ JIh(75Q ERROR! 70Q RESETRESTORE 56Q NC.GetTitleA0001) (64Q ERROR 53Q INTERNAL 26Q CardCache 17Q CardObject 10Q ACTIVE 3 CardObject) ( 50Q (NC.GetTitleA0001)) NC.GetPropListA0001A0004 D1 (NAME ERRORSET P 3 Props P 2 Stream P 0 \NF F 4 Card F 5 RESETVARSLST F 6 OverrideStream F 7 RESETY) gTHd`TH YI*ToTHd`TH YI*TgglIhUc V T Td`JV TJ [ Kci(234Q NC.SetPropList 230Q NC.ReadPropList 222Q NC.SetPropListDate 217Q NC.ReadCardPartHeader 202Q NC.CoerceToNoteFileStream 174Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (212Q NC.PropsIdentifier 152Q BEFORE 147Q PROPLIST 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (PROPLIST AFTER)) NC.GetPropListA0001 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.GetPropListA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.GetPropListA0001A0004)) NC.GetPropList D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OverrideStream I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) 6@g*@ #S!Tog hgZ JIh(57Q ERROR! 52Q RESETRESTORE 40Q NC.GetPropListA0001 17Q NC.FetchNewCardFlg) (46Q ERROR 35Q INTERNAL 10Q ACTIVE 3 CardObject) ( 32Q (NC.GetPropListA0001)) NC.GetTypeA0001 D1 (NAME ERRORSET P 2 CardType P 0 \NF F 5 Card F 6 RESETY) UHd`UH YI hi U g]Ud@jhH0UgUHd`UH [K*UglLZ Jhc i(211Q NC.SetType 151Q NC.NoteFileFromNoteFileUID 55Q NC.FetchStatus 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (176Q TYPE 167Q NoteFileDevice 162Q NoteFile 145Q CardObject 135Q NoteFileTYPE# 122Q CardObject 116Q TYPE 76Q CardCache 67Q CardObject 60Q ACTIVE 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.GetType D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetTypeA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetTypeA0001)) NC.GetSpecialCards D1 (I 3 OperationMsg I 2 InterestedWindow I 1 QuiteFlg I 0 NoteFile) =ABiCol @@@@@h (72Q NCP.ActivateCards 22Q NC.PrintMsg 16Q CHARACTER) (57Q NoteFile 51Q NoteFile 43Q NoteFile 35Q NoteFile 27Q NoteFile) ( 11Q "Loading top level cards ...") NC.FetchSpecialCards D1 (L (0 NoteFile)) &@@@@@hNIL (33Q NoteFile 25Q NoteFile 17Q NoteFile 11Q NoteFile 3 NoteFile) () NC.PutNoteCardA0001 D1 (NAME ERRORSET P 0 \NF F 2 Card F 3 UseOldDateFlg F 4 UpdateUpdateListFlg F 5 RESETY) GRHd`RH YI hi RTS RS RS RS c i(101Q NC.PutPropList 73Q NC.PutTitle 65Q NC.PutLinks 57Q NC.PutMainCardData 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.PutNoteCard D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 UseOldDateFlg I 1 UpdateUpdateListFlg I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.PutNoteCardA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.PutNoteCardA0001)) NC.PutMainCardDataA0001A0004 D1 (NAME ERRORSET P 17Q \Links P 16Q \Cache P 15Q FieldValue P 14Q CardTypeRecord P 13Q CardTypeName P 12Q NoteCardType P 7 SubstanceVersion P 6 StartSubstanceLoc P 5 CardType P 4 EndLoc P 3 StartDataLoc P 2 Stream P 0 \NF F 20Q Card F 21Q RESETVARSLST F 22Q OverrideStream F 23Q RESETY F 24Q UpdateUpdateListFlg F 25Q UseOldDateFlg F 26Q PutSuccessfulLoc) ogW Hd`W H YI*W oW Hd`W H YI*W gglIhW"c"W$ W q W(W J W `W*W W  J JW ] W J J Jj!Jj!Jj!Jj!W W  O! Od _O_dgYOOd O _doO O_dg"oogoOo  OgOg O_W JlO_J JN JLNll l!JLNll l!JLNll!Oj_JOl!JK JLKl l!JLKl l!JLKl!JL W gW d:W W `_OO_O`dhW$hhKc,W c&i(1003Q SETFILEPTR 760Q RSH 742Q RSH 730Q SETFILEPTR 662Q RSH 641Q RSH 624Q SETFILEPTR 616Q GETFILEPTR 566Q NC.GetCardTypeFieldOfSuper 546Q NC.ReportError 543Q CONCAT 470Q NC.ReportError 465Q CONCAT 450Q NC.CardTypeRecord 441Q NC.CardTypeLoader 376Q NC.CardTypeRecord 354Q NC.GetType 315Q GETFILEPTR 310Q NC.WriteRegion 301Q NC.WriteCardType 275Q NC.RetrieveType 266Q NC.WriteCardPartHeader 262Q NC.SetItemDate 257Q DATE 251Q NC.FetchItemDate 233Q GETFILEPTR 226Q NC.UpdateUpdateList 213Q NC.CoerceToNoteFileStream 204Q STREAMP 125Q NC.NoteFileFromNoteFileUID 37Q NC.NoteFileFromNoteFileUID) (1137Q LinksCache 1116Q LinksCacheTYPE# 1113Q CardCache 1100Q CardCache 1060Q CardCacheTYPE# 1055Q CardObject 1044Q CardObject 1033Q CardCache 1024Q CardObject 1014Q ACTIVE 1011Q CardObject 563Q PutFn 554Q \\FILLME// 525Q PutFn 506Q \\EMPTY// 476Q NoteCardType 434Q NoteCardType 417Q \\EMPTY// 407Q NoteCardType 343Q CardObject 241Q NC.ItemIdentifier 160Q BEFORE 155Q SUBSTANCE 143Q NoteFileDevice 136Q NoteFile 121Q CardObject 110Q NoteFileTYPE# 75Q CardObject 55Q NoteFileDevice 50Q NoteFile 33Q CardObject 22Q NoteFileTYPE# 7 CardObject 2 APPLY*) ( 537Q " still \\EMPTY// after autoloading." 531Q " of card type " 522Q "Field name " 516Q "NC.GetCardTypeField" 460Q "Cannot find full definition of card type: " 65Q (SUBSTANCE AFTER)) NC.PutMainCardDataA0001 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.PutMainCardDataA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutMainCardDataA0001A0004)) NC.PutMainCardData D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 3 OverrideStream I 2 UseOldDateFlg I 1 UpdateUpdateListFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) %T!Uog hg[ KJ(40Q ERROR! 33Q RESETRESTORE 21Q NC.PutMainCardDataA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (NC.PutMainCardDataA0001)) NC.PutLinksA0001A0004 D1 (NAME ERRORSET P 4 EndLoc P 3 StartLoc P 2 Stream P 0 \NF F 5 Card F 6 RESETVARSLST F 7 OverrideStream F 10Q RESETY F 11Q UseOldDateFlg F 12Q PutSuccessfulLoc)  gUHd`UH YI*UoUHd`UH YI*UgglIhVc W U !J U`WU U J JU JU JU J JK JLKl l!JLKl l!JLKl!JL U WhKcUci(370Q NC.SetLinksDirtyFlg 363Q SETFILEPTR 340Q RSH 322Q RSH 310Q SETFILEPTR 302Q GETFILEPTR 275Q NC.WriteListOfLinks 272Q NC.FetchGlobalLinks 264Q NC.WriteListOfLinks 261Q NC.FetchFromLinks 253Q NC.WriteListOfLinks 250Q NC.FetchToLinks 242Q NC.WriteCardPartHeader 236Q NC.SetLinksDate 233Q DATE 226Q NC.FetchLinksDate 212Q GETFILEPTR 203Q NC.CoerceToNoteFileStream 175Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (217Q NC.LinksIdentifier 152Q BEFORE 147Q LINKS 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (LINKS AFTER)) NC.PutLinksA0001 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.PutLinksA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutLinksA0001A0004)) NC.PutLinks D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 2 OverrideStream I 1 UseOldDateFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@go@ o T!Uog hg[ KJ(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutLinksA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutLinksA0001) 27Q " is not an active note card." 17Q "NC.PutLinks") 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) B@ go@ o T!Uog hg[ KJ(75Q ERROR! 70Q RESETRESTORE 56Q NC.PutFromLinksA0001 33Q NC.ReportError 30Q CONCAT 21Q NC.FetchTitle 3 NC.FetchStatus) (64Q ERROR 53Q INTERNAL 6 ACTIVE) ( 50Q (NC.PutFromLinksA0001) 25Q " is not an active note card." 15Q "NC.PutFromLinks") NC.PutRegionA0001A0004 D1 (NAME ERRORSET P 0 \NF F 2 Card F 3 RESETVARSLST F 4 PutSuccessfulLoc F 5 RESETY) gRHd`RH YI*RoRHd`RH YI*RgglIhScRgoR o Rd icRc i(237Q NC.WriteRegion 234Q NC.CoerceToNoteFileStream 226Q NC.ReportError 223Q CONCAT 214Q NC.FetchTitle 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (201Q ACTIVE 174Q CardObject 152Q BEFORE 147Q REGION 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 220Q " is not an active note card." 210Q "NC.PutRegion" 62Q (REGION AFTER)) NC.PutRegionA0001 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.PutRegionA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutRegionA0001A0004)) NC.PutRegion D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) %T!Uog hg[ KJ(40Q ERROR! 33Q RESETRESTORE 21Q NC.PutRegionA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (NC.PutRegionA0001)) NC.PutTitleA0001A0004 D1 (NAME ERRORSET P 4 EndLoc P 3 StartLoc P 2 Stream P 0 \NF F 5 Card F 6 RESETVARSLST F 7 OverrideStream F 10Q RESETY F 11Q UseOldDateFlg F 12Q PutSuccessfulLoc) gUHd`UH YI*UoUHd`UH YI*UgglIhVc W U !J U`WU U J JU J JK JLKl l!JLKl l!JLKl!JL U WhKcUci(346Q NC.SetTitleDirtyFlg 341Q SETFILEPTR 316Q RSH 300Q RSH 266Q SETFILEPTR 260Q GETFILEPTR 253Q NC.WriteTitle 250Q NC.FetchTitle 242Q NC.WriteCardPartHeader 236Q NC.SetTitleDate 233Q DATE 226Q NC.FetchTitleDate 212Q GETFILEPTR 203Q NC.CoerceToNoteFileStream 175Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (217Q NC.TitlesIdentifier 152Q BEFORE 147Q TITLE 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (TITLE AFTER)) NC.PutTitleA0001 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.PutTitleA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutTitleA0001A0004)) NC.PutTitle D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 2 OverrideStream I 1 UseOldDateFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@go@ o T!Uog hg[ KJ(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutTitleA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutTitleA0001) 27Q " is not an active note card." 17Q "NC.PutTitle") NC.PutPropListA0001A0004 D1 (NAME ERRORSET P 4 EndLoc P 3 StartLoc P 2 Stream P 0 \NF F 5 Card F 6 RESETVARSLST F 7 OverrideStream F 10Q RESETY F 11Q UseOldDateFlg F 12Q PutSuccessfulLoc) gUHd`UH YI*UoUHd`UH YI*UgglIhVc W U !J U`WU U J JU J JK JLKl l!JLKl l!JLKl!JL U WhKcUci(346Q NC.SetPropListDirtyFlg 341Q SETFILEPTR 316Q RSH 300Q RSH 266Q SETFILEPTR 260Q GETFILEPTR 253Q NC.WritePropList 250Q NC.FetchPropList 242Q NC.WriteCardPartHeader 236Q NC.SetPropListDate 233Q DATE 226Q NC.FetchPropListDate 212Q GETFILEPTR 203Q NC.CoerceToNoteFileStream 175Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (217Q NC.PropsIdentifier 152Q BEFORE 147Q PROPLIST 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (PROPLIST AFTER)) NC.PutPropListA0001 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.PutPropListA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutPropListA0001A0004)) NC.PutPropList D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 2 OverrideStream I 1 UseOldDateFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@go@ o T!Uog hg[ KJ(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutPropListA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutPropListA0001) 27Q " is not an active note card." 17Q "NC.PutPropList") NC.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!!!") NC.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 NC.PutNoteFileHeaderA0001) (112Q ERROR 101Q INTERNAL 55Q NoteFile 47Q NoteFile 41Q NoteFile 33Q NoteFile 25Q NoteFile 17Q NoteFile 11Q NoteFile 3 NoteFile) ( 76Q (NC.PutNoteFileHeaderA0001)) NC.PutCheckptPtrA0001 D1 (NAME ERRORSET P 0 Stream F 1 Ptr F 2 NoteFile F 3 RESETY) HR hi RHl HQl l!HQl l!HQl!RQQci(54Q RSH 40Q RSH 30Q SETFILEPTR 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (74Q NoteFile 15Q NoteFile) () NC.PutCheckptPtr D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 Ptr I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.PutCheckptPtrA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.PutCheckptPtrA0001)) NC.ReadCardPartHeader D1 (P 3 CardUID P 2 ActualID P 1 Date P 0 VersionNumber I 3 Don'tCheckForIDMismatchFlg I 2 Stream I 1 Identifier I 0 Card) kB @ b@B B B BA Xo@ oo kHB B ZC#d@[ ooKoJ I(147Q NC.ReportError 144Q CONCAT 121Q NC.SameUIDP 102Q NC.ReadUID 75Q NC.ReadDate 64Q NC.ReportError 61Q CONCAT 46Q NC.FetchTitle 33Q NC.ReadIdentifier 10Q NC.CoerceToNoteFileStream 3 STREAMP) (113Q CardObject) ( 140Q " Found ID: " 133Q "ID mismatch while reading item. Expected ID: " 127Q "NC.ReadCardPartHeader" 56Q " -- incorrect identifier." 52Q " Error while reading NoteFile" 42Q "NC.ReadCardPartHeader") NC.ReadIdentifier D1 (P 0 Stream I 1 Identifier I 0 NoteFileOrStream) @ H` A H H 3h(15Q READ 3 NC.CoerceToNoteFileStream) (12Q NC.OrigReadTable) () NC.ReadRegion D1 (P 0 Stream I 0 NoteFileOrStream) ,@ H lH H lH H lH H lH (51Q CREATEREGION 3 NC.CoerceToNoteFileStream) NIL () NC.ReadListOfLinks D1 (P 4 Link P 0 Stream I 0 NoteFileOrStream) 0@ @H \IH` H J KhZK&(31Q READ 15Q NC.ReadLink 3 NC.CoerceToNoteFileStream) (26Q NC.OrigReadTable) () NC.ReadUID D1 (P 0 Stream I 0 NoteFileOrStream) Y@ q`H dIH dJH dKH dLH dMH dNH _dOH (112Q BIN16 100Q BIN16 66Q BIN16 54Q BIN16 42Q BIN16 30Q BIN16 16Q BIN16 3 NC.CoerceToNoteFileStream) (11Q UIDTYPE#) () NC.ReadDate D1 (P 1 Date P 0 Stream I 0 NoteFileOrStream) @ H` YH Id `I(26Q NCHARS 15Q READ 3 NC.CoerceToNoteFileStream) (31Q NC.DateStringLength 12Q NC.OrigReadTable) () NC.ReadCardType D1 (P 0 Stream I 0 NoteFileOrStream) @ H` H (15Q READ 3 NC.CoerceToNoteFileStream) (12Q NC.OrigReadTable) () NC.ReadTitle D1 (I 0 NoteFileOrStream) @ ` (11Q READ 3 NC.CoerceToNoteFileStream) (6 NC.OrigReadTable) () NC.ReadPropList D1 (I 0 NoteFileOrStream) @ ` (11Q READ 3 NC.CoerceToNoteFileStream) (6 NC.OrigReadTable) () NC.ReadLink D1 (P 0 FirstChar I 0 Stream) @ aHjHd hHk]`@ dI@ @ dJ@ @ dK@` dL@` dM@` dN @ Hl @ @d k @` (216Q READ 207Q SETFILEPTR 202Q GETFILEPTR 174Q NC.ReadLink 151Q READ 134Q READ 117Q READ 102Q NC.CardOrCardHolderFromUID 77Q NC.ReadUID 73Q NC.ReadUID 61Q NC.CardOrCardHolderFromUID 56Q NC.ReadUID 52Q NC.ReadUID 40Q NC.ReadUID 20Q \FZEROP) (213Q NC.OrigReadTable 146Q NC.OrigReadTable 131Q NC.OrigReadTable 114Q NC.OrigReadTable 33Q LinkTYPE#) () NC.WriteCardPartHeader D1 (I 3 Stream I 2 Date I 1 Identifier I 0 Card) -C @ bCj!Cj!Cj!CA CB C@ (52Q NC.WriteUID 40Q NC.WriteDate 33Q NC.WriteIdentifier 10Q NC.CoerceToNoteFileStream 3 STREAMP) (45Q CardObject) () NC.WriteIdentifier D1 (P 0 Stream I 1 Identifier I 0 NoteFileOrStream) @ AH` H`l!(16Q PRINT 3 NC.CoerceToNoteFileStream) (22Q NC.DataFormatVersionNumber 13Q NC.OrigReadTable) () NC.WriteRegion D1 (P 1 Region P 0 Window I 1 Stream I 0 Card) A @ b0@ X@ HH  @ @ Z J J J J Y@ @I AIl l!AIl!AIl l!AIl!AIl l!AIl!AIl l!AIl!(254Q RSH 223Q RSH 174Q RSH 147Q RSH 136Q NC.SetRegion 130Q NC.ActiveCardP 123Q MAKEWITHINREGION 107Q COPYALL 77Q COPYALL 70Q COPYALL 62Q COPYALL 55Q NC.MakeDummyRegion 47Q NC.FetchRegion 37Q \INSUREWINDOW 27Q NC.FetchSavedRegion 22Q NC.FetchWindow 10Q NC.CoerceToNoteFileStream 3 STREAMP) NIL () NC.WriteListOfLinks D1 (P 2 Link P 0 Stream I 1 Links I 0 NoteFileOrStream) 2@ AIHj!gH` Zd`H IY(52Q NC.WriteLink 34Q PRINT 3 NC.CoerceToNoteFileStream) (44Q LinkTYPE# 31Q NC.OrigReadTable 25Q EndLinks) () NC.WriteUID D1 (P 0 Stream I 1 UID I 0 NoteFileOrStream) Q@ A`>HA 5HA ,HA #HA HA HA HA Hl !(111Q BOUT16 101Q BOUT16 71Q BOUT16 60Q BOUT16 47Q BOUT16 36Q BOUT16 25Q BOUT16 3 NC.CoerceToNoteFileStream) (13Q UIDTYPE#) () NC.WriteDate D1 (I 1 Date I 0 NoteFileOrStream) A@ ` (12Q PRINT 4 NC.CoerceToNoteFileStream) (7 NC.OrigReadTable) () NC.WriteCardType D1 (I 1 CardType I 0 NoteFileOrStream) A@ ` (12Q PRINT 4 NC.CoerceToNoteFileStream) (7 NC.OrigReadTable) () NC.WriteTitle D1 (I 1 Title I 0 NoteFileOrStream) A@ ` (12Q PRINT 4 NC.CoerceToNoteFileStream) (7 NC.OrigReadTable) () NC.WritePropList D1 (I 1 PropList I 0 NoteFileOrStream) A@ ` (12Q PRINT 4 NC.CoerceToNoteFileStream) (7 NC.OrigReadTable) () NC.WriteLink D1 (P 4 \NF P 1 DestinationCard P 0 SourceCard I 1 Stream I 0 Link) @@"Ak!A@ AH AHLd`HL ZJ AI AILd`IL [K @A` @A` @ A` (252Q PRINT 235Q PRINT 220Q PRINT 203Q NC.WriteUID 165Q NC.NoteFileFromNoteFileUID 131Q NC.WriteUID 117Q NC.WriteUID 101Q NC.NoteFileFromNoteFileUID 45Q NC.WriteUID 33Q NC.WriteUID) (247Q NC.OrigReadTable 241Q Link 232Q NC.OrigReadTable 224Q Link 215Q NC.OrigReadTable 207Q Link 176Q NoteFile 161Q CardObject 151Q NoteFileTYPE# 136Q CardObject 124Q CardObject 112Q NoteFile 75Q CardObject 65Q NoteFileTYPE# 52Q CardObject 40Q CardObject 26Q Link 11Q Link 3 Link) () NC.NoteFileFromNoteFileUID D1 (L (0 NoteFileUID)) @`NIL (3 NC.NoteFilesHashArray) () NC.FetchTopLevelCards D1 (L (0 NoteFile)) @@@hNIL (17Q NoteFile 11Q NoteFile 3 NoteFile) () NC.StoreNoteFileInHashArrayA0001 D1 (L (1 UID 0 NF) F 0 NoteFile) P@ Ah` (26Q PUTHASH) (23Q NC.NoteFilesHashArray 11Q NoteFile 3 NoteFile) () NC.StoreNoteFileInHashArray D1 (P 0 NoteFile I 0 NoteFileOrFileName) )@d` H`g HH` (46Q PUTHASH 31Q MAPHASH 12Q NC.NoteFileFromFileName) (43Q NC.NoteFilesHashArray 35Q NoteFile 26Q NC.StoreNoteFileInHashArrayA0001 23Q NC.NoteFilesHashArray 5 NoteFileTYPE#) () NC.RemoveNoteFile D1 (P 1 NoteFileName P 0 NoteFile I 0 NoteFileOrFileNameOrUID) A @d`X`@`X@ @H IH (74Q NC.RemoveNoteFileFromHashArray 66Q NC.RemoveNoteFileName 50Q NC.NoteFileFromFileName) (41Q NoteFile 34Q NC.NoteFilesHashArray 26Q UIDTYPE# 16Q NoteFile 10Q NoteFileTYPE#) () NC.TotalIndexSize D1 (L (0 HashArraySize)) @llNIL NIL () NC.NoteFileLocFromIndexNum D1 (L (0 IndexNum)) @kllNIL NIL () NC.FetchMonitor D1 (P 0 MonitorLock I 0 NoteFile) (@H`Hoo@ (45Q NC.ReportError 42Q CONCAT) (35Q NoteFile 15Q MONITORLOCKTYPE# 3 NoteFile) ( 31Q "No monitorlock on NoteFile -- " 25Q "NC.FetchMonitor") NC.SetMonitor D1 (L (1 MonitorLock 0 NoteFile)) @AANIL (3 NoteFile) () NC.SameNoteFileP D1 (L (1 NF2 0 NF1)) @ANIL NIL () NC.ListOfNoteFilesA0001 D1 (L (1 Key 0 Value) F 0 NoteFiles) @`@PcNIL (4 NoteFileTYPE#) () NC.ListOfNoteFiles D1 (P 0 NoteFiles) `g H(13Q MAPHASH) (10Q NC.ListOfNoteFilesA0001 5 NC.NoteFilesHashArray) () NC.NoteFileFromFileName D1 (P 11Q NoteFile P 7 Stream P 6 NoteFiles P 0 FullFileName I 0 FileName) h @ @AIJN O(hNHMMK Lh[IYL&__ O OO_(132Q OPENP 124Q STREAMP 14Q NC.ListOfNoteFiles 3 FULLNAME) (115Q NoteFile 57Q NoteFile) () NC.RemoveNoteFileFromHashArray D1 (L (0 NoteFile)) @@ Hdh` (25Q PUTHASH) (22Q NC.NoteFilesHashArray 3 NoteFile) () NC.RemoveNoteFileName D1 (P 0 FullFileName I 0 NoteFileOrFileName) %@d` @X` d(35Q DREMOVE 23Q FULLNAME) (42Q NC.NoticedNoteFileNames 32Q NC.NoticedNoteFileNames 15Q NoteFile 10Q NoteFileTYPE#) () NC.NoticeNoteFile D1 (I 0 NoteFileOrFileName) @ @ (7 NC.StoreNoteFileInHashArray 3 NC.NoticeNoteFileName) NIL () NC.NoticeNoteFileName D1 (P 0 FullFileName I 0 NoteFileOrFileName) J@d` H'`H`i H`i HgH @` d(102Q DREMOVE 72Q NC.CreateMenuBitmaps 53Q MERGEINSERT 42Q MERGEINSERT 20Q FULLNAME) (107Q NC.NoticedNoteFileNames 77Q NC.NoticedNoteFileNames 63Q MenuBitmap 56Q NC.NoticedNoteFileNames 47Q NC.NoticedNoteFileNames 36Q NC.NoticedNoteFileNames 31Q NC.NoticedNoteFileNames 12Q NoteFile 5 NoteFileTYPE#) () NC.NoticedNoteFileNamesMenu D1 (P 14Q RootName P 13Q Stream P 12Q NoteFile P 11Q NoteFileName P 2 Result P 1 Items P 0 Menu I 3 Operation I 2 InterestedWindow I 1 ShowOnlyOpenNFsFlg I 0 IncludeNewNoteFileFlg) 7 P`q M&N@oh YdAlBhoj_ _AdgO AO 7O OgOggOhoO h_OOh_M]O&_Bhol hi kIogT`dICodKd`dg dgjdndhdL d I k Zddg"oCkm l oidhB (464Q NC.DatabaseFileName 450Q CONCAT 445Q CHARACTER 440Q SUBSTRING 413Q MENU 404Q BITMAPHEIGHT 247Q LENGTH 240Q NC.PrintMsg 235Q CHARACTER 163Q CONCAT 125Q NC.NoteFileOpenP 116Q NC.NoteFileOpenP 106Q NC.NoteFileOpenP 66Q NC.NoteFileFromFileName 35Q \APPEND2 32Q \APPEND2) (421Q NEW 371Q MENU 341Q DEFAULTMENUHELDFN 332Q CLRPROMPT 323Q NC.FileNameFont 274Q MENUTYPE# 267Q NEW 145Q QUOTE 141Q MenuBitmap 133Q OpenMenuBitmap 76Q CLOSED 5 NC.NoticedNoteFileNames) ( 454Q " -- " 431Q "Name of NoteFile to " 311Q "NoteFiles" 262Q (QUOTE NEW) 230Q "No NoteFiles." 156Q "Selects NoteFile " 56Q "No open NoteFiles." 25Q ("-- Other NoteFile --" (QUOTE NEW) "Select some other notefile - you'll be prompted for the name.")) NC.NoteFileNoticedP D1 (P 1 NoteFile P 0 FullFileName I 0 NoteFileOrFileName) 1 @d`Y XI H`  Y(54Q NC.NoteFileFromFileName 50Q MEMBER 37Q MEMBER 34Q NC.ListOfNoteFiles 25Q FULLNAME) (45Q NC.NoticedNoteFileNames 16Q NoteFile 10Q NoteFileTYPE#) () NC.InstallCardInNoteFile D1 (P 0 OtherCard I 1 NoteFile I 0 Card) *@A Ho @@A @(46Q PUTHASH 25Q SHOULDNT 11Q NC.CardFromUID) (41Q NoteFile 32Q CardObject 3 CardObject) ( 22Q "Two cards in notefile with same UID. Please notify the nearest NoteCards guru.") NC.CardFromUID D1 (L (1 NoteFile 0 UID)) @ANIL (4 NoteFile) () NC.MakeHashKey D1 (I 0 UID) ,@d`o @@@@@@(16Q ERROR) (5 UIDTYPE#) ( 13Q "Not a UID") NC.CreateUIDHashArray D1 (I 1 OverFlow I 0 MinKeys) @Agg (12Q HASHARRAY) (7 NC.SameUIDP 4 NC.MakeHashKey) () NC.SetStatus D1 (L (1 Status 0 Card)) @kkjh@AANIL (21Q CardObject 3 CardObject) () NC.SetMainLoc D1 (L (1 MainLoc 0 Card)) @kkjh@A ANIL (21Q CardObject 3 CardObject) () NC.SetLinksLoc D1 (L (1 LinksLoc 0 Card)) @kkjh@A ANIL (21Q CardObject 3 CardObject) () NC.SetTitleLoc D1 (L (1 TitleLoc 0 Card)) @kkjh@AANIL (21Q CardObject 3 CardObject) () NC.SetPropListLoc D1 (L (1 PropListLoc 0 Card)) @kkjh@AANIL (21Q CardObject 3 CardObject) () NC.FetchCurrentVersionObject D1 NIL `Hhd`HXNIL (22Q NC.VersionNumber 2 NC.NoteFileVersionsList) () NC.CopyCardsA0001A0008 D1 (NAME ERRORSET L (0 NIL) P 6 IndexLocs P 5 HadStatusNILFlg P 4 WasActiveFlg P 3 NewCard P 2 Card P 1 i F 10Q RESETVARSLST F 11Q NewCardsAndLocsOnStream F 12Q Cards F 13Q RESETY F 14Q CardHashArray F 15Q QuietFlg F 16Q InterestedWindow F 17Q NumCards F 20Q TempStream F 21Q DestNoteFile)  ohhWcWkbHhciW?Ild _jO.O 'Wiol oIoWol J \J Jh]JgJhiW MJhLJ W" JKW KNWcHIkԹX(252Q PUTHASH 242Q NC.GetNewCard 234Q NC.DeactivateCard 213Q NC.PutNoteCardToStream 156Q NC.GetNoteCard 150Q NC.ActiveCardP 143Q NC.PrintMsg 137Q CHARACTER 113Q CHARACTER 75Q \FZEROP 55Q REMAINDER 42Q BLOCK) (222Q CardObject 200Q ACTIVE 175Q CardObject 163Q CardObject) ( 132Q "..." 124Q " out of " 117Q "Processing item " 106Q "Copying cards: creating empty copies." 3 (PROGN (if RESETSTATE then (for CardAndLoc in NewCardsAndLocsOnStream do (NC.DeleteNoteCardInternal (CAR CardAndLoc) T InterestedWindow)) (NC.ClearMsg InterestedWindow T)))) NC.CopyCardsA0001 D1 (NAME ERRORSET P 41Q IndexLocs P 40Q NewCard P 37Q RootCard P 32Q NewCardAndLocsOnStream P 31Q i P 27Q RESETZ P 26Q RESETY P 25Q LISPXHIST P 24Q \NF P 23Q \NF P 22Q Card P 20Q \NF P 17Q NewCardsAndLocsOnStream P 16Q NewLinkLabels P 15Q CurrentLinkLabels P 14Q LinksHashArray P 13Q CardHashArray P 12Q TempStream P 11Q BoxToFileIn P 10Q DestNoteFile P 7 SourceNoteFile P 6 NumCards P 0 A0055 F 42Q Cards F 43Q DestNoteFileOrFileBox F 44Q RootCards F 45Q QuietFlg F 46Q InterestedWindow F 47Q RESETY F 50Q LISPXHIST F 51Q RESETVARSLST) "WDo QHY#iWDd&d`ho cDIghWDdhcD WDO d`WDO ZJ_`O oOo WDO"Cioo WFih`hoi cFdg`FWF__|_$O&d`O$O& [KO hO"_"WF .WF_O(d`OO( \L_ooWF O`O oOo WHddhcHWD oo WHWDcHgg _O _h _`hgg _Nhgg _WJ&WLiol okoNol h_WP!WRog hg_. O.Oj WJ&WLiol okoNol OkO0fWJ%WLioWH oO ol hOWHAO6O8i O_OOO WJWLi h_4WJ=O2ld ]jM-M 'WLiol oO2oNol O4O4!O@g O@OOB O@OOOO O@ g O@O O@ O0_0O2k_2_>O>O_" 43Q "Do you want to terminate these operations?" 32Q "There are cards with operations in progress.") NC.CardOperationsInProgress D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 AskAndTerminateFlg I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CardOperationsInProgressA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CardOperationsInProgressA0001)) NC.OperationInProgress D1 (P 0 \NF I 0 Card) i@g @g U@Hd`@H YIg )@Hd`@H YIg (146Q NC.NoteFileProp 132Q NC.NoteFileFromNoteFileUID 75Q PROCESSP 72Q NC.NoteFileProp 56Q NC.NoteFileFromNoteFileUID 21Q NC.FetchUserDataProp 11Q PROCESSP 6 NC.FetchUserDataProp) (143Q OperationInProgress 126Q CardObject 116Q NoteFileTYPE# 103Q CardObject 67Q ProcessInProgress 52Q CardObject 42Q NoteFileTYPE# 27Q CardObject 16Q OperationInProgress 3 ProcessInProgress) () NC.CardCheckOpInProgress D1 (P 3 \NF P 0 ProcInProgress I 0 Card) 0`X H``g@Kd`@K YIg X 1H`@Kd`@K ZJg @g X H`@g (217Q NC.FetchUserDataProp 177Q PROCESSP 173Q NC.FetchUserDataProp 163Q NC.NoteFileProp 147Q NC.NoteFileFromNoteFileUID 103Q PROCESSP 77Q NC.NoteFileProp 63Q NC.NoteFileFromNoteFileUID 11Q PROCESSP) (214Q OperationInProgress 205Q \RUNNING.PROCESS 170Q ProcessInProgress 160Q OperationInProgress 143Q CardObject 133Q NoteFileTYPE# 120Q CardObject 111Q \RUNNING.PROCESS 74Q ProcessInProgress 57Q CardObject 47Q NoteFileTYPE# 34Q CardObject 27Q US 23Q NC.SessionOperationInProgress 16Q \RUNNING.PROCESS 5 NC.SessionProcessInProgress) () NC.NoteFileCheckOpInProgress D1 (P 0 ProcInProgress I 0 NoteFile) ] ` ```h@g X H`@g @g Yi@g o`hI(107Q NC.NoteFileProp 71Q NC.NoteFileProp 61Q NC.NoteFileProp 42Q PROCESSP 36Q NC.NoteFileProp 10Q PROCESSP) (122Q \RUNNING.PROCESS 104Q CardProcessInProgressList 66Q CardProcessInProgressList 56Q OperationInProgress 47Q \RUNNING.PROCESS 33Q ProcessInProgress 24Q NC.SessionOperationInProgress 17Q \RUNNING.PROCESS 14Q NC.SessionProcessInProgress 5 NC.SessionProcessInProgress) ( 115Q "Card Operations") NC.SessionCheckOpInProgress D1 NIL d` ```g`Hih`hHX`o`Hi`o`hHX(5 PROCESSP) (130Q \RUNNING.PROCESS 115Q NC.CardBusyList 77Q NC.CardBusyList 66Q NC.NoteFileBusyList 51Q \RUNNING.PROCESS 31Q NC.NoteFileBusyList 25Q US 21Q NC.SessionOperationInProgress 14Q \RUNNING.PROCESS 11Q NC.SessionProcessInProgress 2 NC.SessionProcessInProgress) ( 123Q "Card Operations" 73Q "NoteFile Operations") NC.SessionToNoteFileLock D1 (I 1 Operation I 0 NoteFile F 0 RESETVARSLST) ``oo ` g@g@g h@gA hPcg@g@g h@g` hPco``hPcg g ` (206Q RELEASE.MONITORLOCK 200Q SETTOPVAL 172Q SETTOPVAL 130Q NC.NoteFileProp 111Q NC.NoteFileProp 64Q NC.NoteFileProp 47Q NC.NoteFileProp 31Q OBTAIN.MONITORLOCK 22Q NC.ReportError) (203Q NC.LockLock 175Q NC.SessionOperationInProgress 167Q NC.SessionProcessInProgress 155Q NC.NoteFileBusyList 151Q NC.NoteFileBusyList 146Q \RUNNING.PROCESS 125Q \RUNNING.PROCESS 122Q ProcessInProgress 106Q ProcessInProgress 102Q ProcessInProgress 76Q NC.NoteFileProp 60Q OperationInProgress 44Q OperationInProgress 40Q OperationInProgress 34Q NC.NoteFileProp 26Q NC.LockLock 5 \RUNNING.PROCESS 2 NC.SessionProcessInProgress) ( 143Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 17Q "Attempted to release session lock when not held by this process" 13Q "NC.SessionToNoteFileLock") NC.LockListOfCardsA0001 D1 (NAME ERRORSET L (0 NIL) P 40Q \NF P 37Q \NF P 36Q \NF P 35Q RESETITEM P 34Q RESETITEM P 33Q RESETITEM P 32Q \NF P 31Q \NF P 30Q \NF P 27Q RESETITEM P 26Q \NF P 25Q \NF P 24Q RESETITEM P 23Q Status P 22Q Card P 17Q LockStatusList P 16Q \NF P 15Q Card P 3 Cards F 41Q CardListResetVar F 42Q FileLevelFlg F 43Q Operation F 44Q CardIdentifiers F 45Q RESETY F 46Q NoteFile) !`hi 0WHd IHhZH&J 0KHd WD,OOd`OO \L O IHhZH&JOK"O"_$O  OcJi_&3WD%gO$O*d`O$O* ]MgWLg hO$O,d`O$O, ^NgWF hWBcBgO$O0d`O$O0 _OgO$O2d`O$O2 _Og hO$O4d`O$O4 _Og` hWBcBo``gO$gO$g hO$g` hWBcBgO$gO$g hO$gWF hWBcBgO$Od`O$O> _Og`O$ O@d`O$O@ _Og  hWBcBo``hWBcBO"_"O _ (1262Q NC.NoteFileProp 1256Q NC.NoteFileProp 1240Q NC.NoteFileFromNoteFileUID 1162Q NC.NoteFileFromNoteFileUID 1107Q NC.NoteFileFromNoteFileUID 1030Q NC.SetUserDataProp 1011Q NC.FetchUserDataProp 755Q NC.SetUserDataProp 735Q NC.FetchUserDataProp 660Q NC.NoteFileProp 637Q NC.NoteFileFromNoteFileUID 572Q NC.NoteFileProp 554Q NC.NoteFileFromNoteFileUID 501Q NC.NoteFileFromNoteFileUID 422Q NC.NoteFileProp 404Q NC.NoteFileFromNoteFileUID 337Q NC.NoteFileProp 316Q NC.NoteFileFromNoteFileUID 147Q NC.CardCheckOpInProgress 141Q NC.NoteFileCheckOpInProgress 130Q NC.NoteFileFromNoteFileUID 24Q NC.CoerceToCard 7 OBTAIN.MONITORLOCK) (1311Q NC.CardBusyList 1305Q NC.CardBusyList 1302Q \RUNNING.PROCESS 1253Q CardProcessInProgressList 1233Q CardObject 1221Q NoteFileTYPE# 1205Q CardObject 1200Q \RUNNING.PROCESS 1175Q CardProcessInProgressList 1155Q CardObject 1143Q NoteFileTYPE# 1127Q CardObject 1102Q CardObject 1070Q NoteFileTYPE# 1054Q CardObject 1047Q NC.ResetCardProcessInProgress 1023Q OperationInProgress 1006Q OperationInProgress 1001Q OperationInProgress 774Q NC.SetUserDataProp 752Q \RUNNING.PROCESS 747Q ProcessInProgress 732Q ProcessInProgress 725Q ProcessInProgress 720Q NC.SetUserDataProp 707Q NC.NoteFileBusyList 703Q NC.NoteFileBusyList 700Q \RUNNING.PROCESS 655Q \RUNNING.PROCESS 652Q ProcessInProgress 632Q CardObject 620Q NoteFileTYPE# 604Q CardObject 567Q ProcessInProgress 547Q CardObject 535Q NoteFileTYPE# 521Q CardObject 514Q ProcessInProgress 474Q CardObject 462Q NoteFileTYPE# 446Q CardObject 441Q NC.NoteFileProp 415Q OperationInProgress 377Q CardObject 365Q NoteFileTYPE# 351Q CardObject 334Q OperationInProgress 327Q OperationInProgress 311Q CardObject 277Q NoteFileTYPE# 263Q CardObject 256Q NC.NoteFileProp 123Q CardObject 111Q NoteFileTYPE# 75Q CardObject 2 NC.LockLock) ( 1277Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 675Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList))) NC.LockListOfCards D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FileLevelFlg I 1 Operation I 0 CardIdentifiers F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.LockListOfCardsA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.LockListOfCardsA0001)) NC.ResetCardProcessInProgress D1 (I 0 NoteFile) @g`@g (23Q NC.NoteFileProp 20Q DREMOVE 15Q NC.NoteFileProp) (12Q CardProcessInProgressList 6 \RUNNING.PROCESS 3 CardProcessInProgressList) () NC.GetNewCard D1 (P 5 \NF P 2 ReturnValue P 1 Card I 2 OverrideUID I 1 Type I 0 NoteFile) f`Xd@HB1IMd`IM [K*IAlLZ`I@ gJ I(142Q NC.ReportError 132Q NC.InstallCardInNoteFile 66Q NC.NoteFileFromNoteFileUID) (136Q NC.GetNewCard 123Q CardObjectTYPE# 104Q NoteFileDevice 77Q NoteFile 62Q CardObject 52Q NoteFileTYPE# 37Q CardObject 23Q CardObject 13Q CardObject 5 CardObjectTYPE#) () NC.DatabaseFileName D1 (I 5 InterestedWindow I 4 Name I 3 NoSuggestFlg I 2 ClearFirstFlg I 1 Prompt I 0 Msg) DD@ACh`BE  b*gDgg bghgD DD D(75Q PACKFILENAME 72Q FULLNAME 63Q NC.RemoteHostP 46Q PACKFILENAME 25Q MKATOM 22Q NC.AskUser) (100Q NC.DatabaseFileNameSuggestion 57Q BODY 53Q VERSION 43Q NOTEFILE 40Q EXTENSION 34Q BODY 14Q NC.DatabaseFileNameSuggestion) () NC.WriteStatus D1 (I 1 Status I 0 Stream) @Akd !(11Q CHCON1 6 SUBATOM) NIL () NC.TotalCardsInNoteFile D1 (I 0 NoteFile) @ @ k@$ (26Q LENGTH 3 NC.NoteFileOpenP) (21Q NoteFile 11Q NoteFile) () WRITE.FONTDESCRIPTOR D1 (I 1 OUTFILE I 0 FONTDESCRIPTOR) uoA oA @g A kA @g A kA @g A kA @g A kA @g A oA A i(161Q TERPRI 154Q PRIN1 143Q PRIN1 137Q FONTPROP 127Q SPACES 121Q PRIN1 115Q FONTPROP 105Q SPACES 77Q PRIN1 73Q FONTPROP 63Q SPACES 55Q PRIN1 51Q FONTPROP 41Q SPACES 33Q PRIN1 27Q FONTPROP 17Q PRIN1 7 PRIN1) (134Q DEVICE 112Q ROTATION 70Q FACE 46Q SIZE 24Q FAMILY) ( 150Q ")" 13Q "(" 3 (READ.FONTINTODESCRIPTOR)) READ.FONTINTODESCRIPTOR D1 (I 0 FILE) @ kg(3 READ) (7 FONTCREATE) () (PRETTYCOMPRINT NCDATABASECOMS) (RPAQQ NCDATABASECOMS ((* * Internal variables) (GLOBALVARS NC.LockLock NC.SessionProcessInProgress NC.SessionOperationInProgress NC.NoteFileBusyList NC.CardBusyList NC.LinksIdentifier NC.ItemIdentifier NC.TitlesIdentifier NC.PropsIdentifier NC.IdentifierAtoms NC.DatabaseFileNameSuggestion NC.VersionNumber NC.InitialLinkLabels NC.DataFormatVersionNumber NC.DateStringLength NC.ClippedIdentifierAtoms NC.MainMenu NC.OrigReadTable NC.TEditPasswordDividedBy100 NC.NoteFileVersionsList NC.NoteFilesHashArray NC.NoteFilesHashArraySize NC.UIDCtr NC.LastNoteFileOpened NC.CopyCardsLinksHashArraySize NC.CopyBrowserHashArraySize NC.IndexFractionToExpandBy) (VARS (NC.VersionNumber 3) (NC.LinksIdentifier (QUOTE %###LINKS#)) ( NC.ItemIdentifier (QUOTE %###ITEM#)) (NC.TitlesIdentifier (QUOTE %###TITLES#)) (NC.PropsIdentifier ( QUOTE %###PROPS#)) (NC.IdentifierAtoms (LIST NC.LinksIdentifier NC.ItemIdentifier NC.TitlesIdentifier NC.PropsIdentifier)) (NC.LastNoteFileOpened NIL) (NC.NoticedNoteFileNames NIL)) (INITVARS (NC.LockLock (CREATE.MONITORLOCK "NoteCards Meta-lock")) (NC.SessionProcessInProgress NIL) ( NC.SessionOperationInProgress NIL) (NC.NoteFileBusyList NIL) (NC.CardBusyList NIL) (NC.OrigReadTable ( COPYREADTABLE (QUOTE ORIG))) (NC.NoteFilesHashArraySize 50) (NC.UIDCtr 0) ( NC.CopyCardsLinksHashArraySize 100) (NC.CopyBrowserHashArraySize 100) (NC.IndexFractionToExpandBy .5)) (* Vars for date stuff.) (VARS (NC.DataFormatVersionNumber 1) (NC.DateStringLength 18) ( NC.ClippedIdentifierAtoms (for Atom in NC.IdentifierAtoms collect (SUBATOM Atom 1 -3)))) (* * The Notecard Database) (DECLARE: DONTCOPY (RECORDS MONITORLOCK WORD)) (* * Implementing the notefile device vector) (RECORDS NoteFileDevice) (FNS NC.CompactNoteFile NC.RemoteHostP NC.DeviceVectorForHost NC.InspectAndRepairNoteFile NC.InstallDeviceVectorInNoteFile) (GLOBALVARS NC.DeviceVectorsHashArray NC.OpenLocalNoteFilesPublicOrPrivate) (INITVARS (NC.DeviceVectorsHashArray (HASHARRAY 10)) ( NC.OpenLocalNoteFilesPublicOrPrivate (QUOTE PRIVATE))) (* * Creating a NoteFile) (FNS NC.CreateDatabaseFile NC.CreateNoteFile NC.InitializeSpecialCards NC.InitializeSpecialCard) (* * Opening a NoteFile) (FNS NC.NoteFileOpenP NC.OpenDatabaseFile NC.OpenNoteFile NC.CacheTypesAndTitles NC.AskUserAboutTruncation NC.InstallCriticalUIDsInNoteFile NC.ProcessInspectAndRepairRequest NC.ProcessNoteFileNotFoundError NC.ProcessTruncationRequest NC.ProcessNoteFileNeedsConversionError NC.ProcessNoteFileNeedsTruncationError) (RECORDS NoteFileCriticalUIDs) (GLOBALVARS NC.OpenNoteFileFns NC.CloseNoteFileFns) (INITVARS NC.OpenNoteFileFns NC.CloseNoteFileFns) (* * Open events card) (FNS NC.RunOpenEvents NC.RunCloseEvents) (ADDVARS (NC.OpenNoteFileFns NC.RunOpenEvents) ( NC.CloseNoteFileFns NC.RunCloseEvents)) (* * closing notefiles.) (FNS NC.CloseDatabaseFile NC.CloseNoteFile NC.CloseListOfActiveCards NC.CleanupCardObjects) (GLOBALVARS NC.CloseNoteFileFns) ( INITVARS NC.CloseNoteFileFns) (* * Checkpointing) (FNS NC.CheckpointDatabase NC.CheckpointNoteFile NC.SaveDirtyCards) (* * Aborting an open NoteFile) (FNS NC.AbortSession NC.ForceDatabaseClose) (* * Stuff to handle read-only notefiles.) (FNS NC.ReadOnlyNoteFileP NC.CheckForNotReadOnly) (* * Other database operations.) (* see also NCCOMPACT) (FNS NC.DeleteDatabaseFile NC.CopyNoteFile NC.RenameNoteFile NC.RemoveAccessToNoteFile) (* * Functions for getting stuff off the notefile. These manipulate file pointer so run with monitor lock.) (MACROS NC.DoCardPartFn) (FNS NC.GetNoteCard NC.GetMainCardData NC.GetLinks NC.GetTitle NC.GetPropList NC.GetType NC.GetSpecialCards) (FNS NC.FetchSpecialCards) (* * Functions for putting stuff on the notefile. These manipulate file pointer so run with monitor lock.) (FNS NC.PutNoteCard NC.PutMainCardData NC.PutLinks NC.PutFromLinks NC.PutRegion NC.PutTitle NC.PutPropList NC.PutNoteFileHeader NC.PutCheckptPtr) (* * Functions for reading things off the notefile. Expect file pointer to already be set.) (FNS NC.ReadCardPartHeader NC.ReadIdentifier NC.ReadRegion NC.ReadListOfLinks NC.ReadUID NC.ReadDate NC.ReadCardType NC.ReadTitle NC.ReadPropList NC.ReadLink) (* * Functions for writing things on the notefile. Expect file pointer to already be set.) (FNS NC.WriteCardPartHeader NC.WriteIdentifier NC.WriteRegion NC.WriteListOfLinks NC.WriteUID NC.WriteDate NC.WriteCardType NC.WriteTitle NC.WritePropList NC.WriteLink) (* * The NoteFile object, Notefiles hash array and accompanying functions.) (RECORDS NoteFile) (FNS NC.NoteFileFromNoteFileUID NC.FetchTopLevelCards NC.StoreNoteFileInHashArray NC.RemoveNoteFile NC.TotalIndexSize NC.NoteFileLocFromIndexNum NC.FetchMonitor NC.SetMonitor NC.SameNoteFileP NC.ListOfNoteFiles NC.NoteFileFromFileName) (FNS NC.RemoveNoteFileFromHashArray NC.RemoveNoteFileName NC.NoticeNoteFile NC.NoticeNoteFileName NC.NoticedNoteFileNamesMenu NC.NoteFileNoticedP) (* * Stuff for dealing with the hash array.) (FNS NC.InstallCardInNoteFile NC.CardFromUID) (FNS NC.MakeHashKey NC.CreateUIDHashArray) (INITVARS (NC.NoteFilesHashArray (NC.CreateUIDHashArray NC.NoteFilesHashArraySize))) (* * Stuff for dealing with CardLocs.) (FNS NC.SetStatus NC.SetMainLoc NC.SetLinksLoc NC.SetTitleLoc NC.SetPropListLoc) (* * The version object.) (RECORDS NoteFileVersion) ( VARS (NC.NoteFileVersionsList (LIST (create NoteFileVersion Version _ 3 NumberOfReservedCards _ 20 NoteFileIndexWidth _ 28 NoteFileHeaderSize _ 30)))) (FNS NC.FetchCurrentVersionObject) (* * Functions and records for messing with links.) (FNS) (* * Stuff for copying cards from one notefile to another, or to the same.) (RECORDS IndexLocs) (RECORDS CardPartRecord) (FNS NC.CopyCards NC.MoveCards NC.PutNoteCardToStream NC.GetNoteCardFromStream NC.MakeHashKeyFromCard) (FNS NC.CopyCardPart NC.ExpandIndexInPlace NC.CheckForExpandIndex NC.FindNextCardPart NC.SearchFor### NC.RobustReadItemIdentifier NC.RobustReadDate NC.RobustReadUID NC.RobustReadChar NC.RobustReadByte NC.RobustRead NC.CopyCardPartInPlaceToEOF NC.UpdateIndexLocIfNeeded) (FNS NC.FixUpLinksInCardCopy NC.FixUpBrowserCardCopy NC.BrowserCopyConvertGraphNodeID) (* * Traversal specs, should be in an NCTRAVERSAL module.) (RECORDS TRAVERSALSPECS) (GLOBALVARS NC.TraversalSpecsStylesheet) (VARS ( NC.TraversalSpecsStylesheet (CREATE.STYLE (QUOTE ITEMS) (LIST (create MENU ITEMS _ T)) (QUOTE SELECTIONS) (QUOTE (T)) (QUOTE ITEM.TITLES) (QUOTE (Forward% Links Backward% Links Depth)) (QUOTE ITEM.TITLE.FONT) (FONTCOPY MENUFONT (QUOTE WEIGHT) (QUOTE BOLD)) (QUOTE NEED.NOT.FILL.IN) (QUOTE ( MULTI MULTI NIL)) (QUOTE TITLE) "Include cards at:"))) (FNS NC.AskTraversalSpecs) (* * UIDs) ( GLOBALVARS NC.UIDBasis) (INITVARS (NC.UIDBasis NIL)) (RECORDS UID) (FNS NC.MakeUID NC.InitializeUID NC.SameUIDP) (FNS NC.UIDPutProp NC.UIDGetProp NC.UIDSetPropList NC.UIDGetPropList NC.UIDAddProp NC.UIDRemProp) (* * This stuff makes it possible for UIDs encountered by PRINT when writing card's proplists, to be written down in a way that can be read back by READ.) (GLOBALVARS NC.VerticalBarREADTABLE) (FNS NC.BuildVerticalBarREADTABLE) (INITVARS (NC.VerticalBarREADTABLE ( NC.BuildVerticalBarREADTABLE))) (FNS NC.ReassembleUID NC.DisassembleUID) (P (DEFPRINT (QUOTE UID) ( FUNCTION NC.DisassembleUID))) (* * contention lock machinery) (FNS NC.NoteFileProp NC.NoteFileAddProp NC.NoteFileDelProp) (FNS NC.PrintOperationInProgressMsg NC.CardOperationsInProgress NC.OperationInProgress NC.CardCheckOpInProgress NC.NoteFileCheckOpInProgress NC.SessionCheckOpInProgress NC.SessionToNoteFileLock NC.LockListOfCards NC.ResetCardProcessInProgress) (MACROS NC.ProtectedCardOperation NC.ProtectedNoteFileOperation NC.ProtectedSessionOperation NC.IfAllCardsFree) (* * Miscellaneous.) (FNS NC.GetNewCard NC.DatabaseFileName NC.WriteStatus NC.TotalCardsInNoteFile) (MACROS NC.ReadPtr NC.WritePtr NC.ReadStatus) (ADDVARS (HPRINTMACROS ( FONTDESCRIPTOR . WRITE.FONTDESCRIPTOR))) (FNS WRITE.FONTDESCRIPTOR READ.FONTINTODESCRIPTOR) (P ( NC.StoreAutoloadFnFile (FUNCTION NC.FindNextCardPart) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES))) (* * The following aren't called anymore, but are saved for reference purposes.) (MACROS NC.GetPtr NC.PutPtr NC.GetStatus NC.PutStatus) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA NC.NoteFileProp))))) (RPAQQ NC.VersionNumber 3) (RPAQQ NC.LinksIdentifier %###LINKS#) (RPAQQ NC.ItemIdentifier %###ITEM#) (RPAQQ NC.TitlesIdentifier %###TITLES#) (RPAQQ NC.PropsIdentifier %###PROPS#) (RPAQ NC.IdentifierAtoms (LIST NC.LinksIdentifier NC.ItemIdentifier NC.TitlesIdentifier NC.PropsIdentifier)) (RPAQQ NC.LastNoteFileOpened NIL) (RPAQQ NC.NoticedNoteFileNames NIL) (RPAQ? NC.LockLock (CREATE.MONITORLOCK "NoteCards Meta-lock")) (RPAQ? NC.SessionProcessInProgress NIL) (RPAQ? NC.SessionOperationInProgress NIL) (RPAQ? NC.NoteFileBusyList NIL) (RPAQ? NC.CardBusyList NIL) (RPAQ? NC.OrigReadTable (COPYREADTABLE (QUOTE ORIG))) (RPAQ? NC.NoteFilesHashArraySize 50) (RPAQ? NC.UIDCtr 0) (RPAQ? NC.CopyCardsLinksHashArraySize 100) (RPAQ? NC.CopyBrowserHashArraySize 100) (RPAQ? NC.IndexFractionToExpandBy .5) (RPAQQ NC.DataFormatVersionNumber 1) (RPAQQ NC.DateStringLength 18) (RPAQ NC.ClippedIdentifierAtoms (for Atom in NC.IdentifierAtoms collect (SUBATOM Atom 1 -3))) (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)) (RPAQ? NC.DeviceVectorsHashArray (HASHARRAY 10)) (RPAQ? NC.OpenLocalNoteFilesPublicOrPrivate (QUOTE PRIVATE)) (RECORD NoteFileCriticalUIDs (NoteFile TableOfContents Orphans ToBeFiled LinkLabels Registry)) (RPAQ? NC.OpenNoteFileFns NIL) (RPAQ? NC.CloseNoteFileFns NIL) (ADDTOVAR NC.OpenNoteFileFns NC.RunOpenEvents) (ADDTOVAR NC.CloseNoteFileFns NC.RunCloseEvents) (RPAQ? NC.CloseNoteFileFns NIL) (DEFMACRO NC.DoCardPartFn (GetOrPut CardForm CardPartForm &REST Body) (* * Call Get or Put card part fn both before and after Body.) (* * fgh 8/31/86 First created.) (BQUOTE (RESETLST (RESETSAVE ( NC.ApplyFn , (PACK* GetOrPut (QUOTE CardPartFn)) , CardForm , CardPartForm (QUOTE BEFORE)) (BQUOTE ( APPLY* , (fetch (Card , (PACK* GetOrPut (QUOTE CardPartFn))) of , CardForm) , , CardForm , , CardPartForm AFTER))) ,@ Body))) (DATATYPE NoteFile (UID Stream FullFileName HashArray (HashArraySize FIXP) (NextIndexNum FIXP) ( Version BYTE) (NextLinkNum FIXP) (CheckptPtr FIXP) LinkLabelsCard TableOfContentsCard ToBeFiledCard OrphansCard RegistryCard ReservedCards Menu MonitorLock ExclusiveAccessMonitor CachingProcess IndexNumsFreeList UserProps ReadOnlyFlg NoteFileDevice) (DATATYPE NoteFileDevice (ListNoteFilesFn CreateNoteFileFn DeleteNoteFileFn OpenNoteFileFn BuildHashArrayFn CloseNoteFileFn NoteFileOpenPFn CheckpointNoteFileFn NewCardUIDFn MarkCardDeletedFn GetCardInfoFn PutCardPartFn GetCardPartFn ObtainWritePermissionFn ReleaseWritePermissionFn CancelCacheSubscriptionFn RepairNoteFileFn CompactNoteFileFn TruncateNoteFileFn ConvertNoteFileFormatFn)) (SYNONYM NoteFileDevice (Device))) (/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)) (/DECLAREDATATYPE (QUOTE NoteFile) (QUOTE (POINTER POINTER POINTER POINTER FIXP FIXP BYTE FIXP FIXP POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((NoteFile 0 POINTER) (NoteFile 2 POINTER) (NoteFile 4 POINTER) (NoteFile 6 POINTER) (NoteFile 8 FIXP) (NoteFile 10 FIXP) (NoteFile 6 (BITS . 7)) (NoteFile 12 FIXP) (NoteFile 14 FIXP) (NoteFile 16 POINTER) (NoteFile 18 POINTER) (NoteFile 20 POINTER) (NoteFile 22 POINTER) ( NoteFile 24 POINTER) (NoteFile 26 POINTER) (NoteFile 28 POINTER) (NoteFile 30 POINTER) (NoteFile 32 POINTER) (NoteFile 34 POINTER) (NoteFile 36 POINTER) (NoteFile 38 POINTER) (NoteFile 40 POINTER) ( NoteFile 42 POINTER))) (QUOTE 44)) (RPAQ? NC.NoteFilesHashArray (NC.CreateUIDHashArray NC.NoteFilesHashArraySize)) (TYPERECORD NoteFileVersion (Version NumberOfReservedCards NoteFileIndexWidth NoteFileHeaderSize)) (RPAQ NC.NoteFileVersionsList (LIST (create NoteFileVersion Version _ 3 NumberOfReservedCards _ 20 NoteFileIndexWidth _ 28 NoteFileHeaderSize _ 30))) (DATATYPE IndexLocs (MainCardDataLoc LinksLoc TitleLoc PropListLoc)) (/DECLAREDATATYPE (QUOTE IndexLocs) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE ((IndexLocs 0 POINTER) (IndexLocs 2 POINTER) (IndexLocs 4 POINTER) (IndexLocs 6 POINTER))) (QUOTE 8)) (RECORD CardPartRecord (FileLoc UID CardPartTypeNum CardPartLength)) (RECORD TRAVERSALSPECS (LinkTypes Depth)) (RPAQ NC.TraversalSpecsStylesheet (CREATE.STYLE (QUOTE ITEMS) (LIST (create MENU ITEMS _ T)) (QUOTE SELECTIONS) (QUOTE (T)) (QUOTE ITEM.TITLES) (QUOTE (Forward% Links Backward% Links Depth)) (QUOTE ITEM.TITLE.FONT) (FONTCOPY MENUFONT (QUOTE WEIGHT) (QUOTE BOLD)) (QUOTE NEED.NOT.FILL.IN) (QUOTE ( MULTI MULTI NIL)) (QUOTE TITLE) "Include cards at:")) (RPAQ? NC.UIDBasis NIL) (DATATYPE UID ((UID0 WORD) (UID1 WORD) (UID2 WORD) (UID3 WORD) (UID4 WORD) (UID5 WORD) (UID6 WORD) ( UserData POINTER))) (/DECLAREDATATYPE (QUOTE UID) (QUOTE (WORD WORD WORD WORD WORD WORD WORD POINTER)) (QUOTE ((UID 0 ( BITS . 15)) (UID 1 (BITS . 15)) (UID 2 (BITS . 15)) (UID 3 (BITS . 15)) (UID 4 (BITS . 15)) (UID 5 ( BITS . 15)) (UID 6 (BITS . 15)) (UID 8 POINTER))) (QUOTE 10)) (RPAQ? NC.VerticalBarREADTABLE (NC.BuildVerticalBarREADTABLE)) (DEFPRINT (QUOTE UID) (FUNCTION NC.DisassembleUID)) (DEFMACRO NC.ProtectedCardOperation (Card Operation InterestedWindow &BODY Body) (BQUOTE (RESETLST ( OBTAIN.MONITORLOCK NC.LockLock) (LET ((OpInProgress (NC.CardCheckOpInProgress , Card))) (if (NULL OpInProgress) then (RESETSAVE (NC.SetUserDataProp , Card (QUOTE ProcessInProgress) (THIS.PROCESS)) ( BQUOTE (NC.SetUserDataProp , , Card ProcessInProgress , (NC.FetchUserDataProp , Card (QUOTE ProcessInProgress))))) (RESETSAVE (NC.SetUserDataProp , Card (QUOTE OperationInProgress) (QUOTE , Operation)) (BQUOTE (NC.SetUserDataProp , , Card OperationInProgress , (NC.FetchUserDataProp , Card ( QUOTE OperationInProgress))))) (RESETSAVE (NC.NoteFileProp (fetch (Card NoteFile) of , Card) (QUOTE CardProcessInProgressList) (CONS (THIS.PROCESS) (NC.NoteFileProp (fetch (Card NoteFile) of , Card) ( QUOTE CardProcessInProgressList)))) (BQUOTE (NC.ResetCardProcessInProgress , (fetch (Card NoteFile) of , Card)))) (RESETSAVE (SETQ NC.CardBusyList (CONS (THIS.PROCESS) NC.CardBusyList)) (QUOTE (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList))))) (RELEASE.MONITORLOCK NC.LockLock) (if (OR (NULL OpInProgress) (EQ OpInProgress (QUOTE US))) then ,@ Body else (NC.PrintOperationInProgressMsg ( OR , InterestedWindow (NC.CoerceToInterestedWindow , Card)) , Operation OpInProgress) (QUOTE DON'T)))) )) (DEFMACRO NC.ProtectedNoteFileOperation (NoteFile Operation InterestedWindow &REST Body) (BQUOTE ( RESETLST (OBTAIN.MONITORLOCK NC.LockLock) (LET ((OpInProgress (NC.NoteFileCheckOpInProgress , NoteFile ))) (if (NULL OpInProgress) then (RESETSAVE (NC.NoteFileProp , NoteFile (QUOTE OperationInProgress) ( QUOTE , Operation)) (BQUOTE (NC.NoteFileProp , , NoteFile OperationInProgress , (NC.NoteFileProp , NoteFile (QUOTE OperationInProgress))))) (RESETSAVE (NC.NoteFileProp , NoteFile (QUOTE ProcessInProgress) (THIS.PROCESS)) (BQUOTE (NC.NoteFileProp , , NoteFile ProcessInProgress , ( NC.NoteFileProp , NoteFile (QUOTE ProcessInProgress))))) (RESETSAVE (SETQ NC.NoteFileBusyList (CONS ( THIS.PROCESS) NC.NoteFileBusyList)) (QUOTE (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList))))) (RELEASE.MONITORLOCK NC.LockLock) (if (OR (NULL OpInProgress) (EQ OpInProgress (QUOTE US))) then ,@ Body else (NC.PrintOperationInProgressMsg (OR (OPENWP , InterestedWindow) (NC.CoerceToInterestedWindow , NoteFile)) , Operation OpInProgress) (QUOTE DON'T)))) )) (DEFMACRO NC.ProtectedSessionOperation (Operation InterestedWindow &REST Body) (BQUOTE (RESETLST ( OBTAIN.MONITORLOCK NC.LockLock) (LET ((OpInProgress (NC.SessionCheckOpInProgress))) (if (NULL OpInProgress) then (RESETSAVE NC.SessionProcessInProgress (THIS.PROCESS)) (RESETSAVE NC.SessionOperationInProgress , Operation)) (RELEASE.MONITORLOCK NC.LockLock) (if (OR (NULL OpInProgress) (EQ OpInProgress (QUOTE US))) then ,@ Body else (NC.PrintOperationInProgressMsg , InterestedWindow , Operation OpInProgress) (QUOTE DON'T)))))) (DEFMACRO NC.IfAllCardsFree (LockForm &BODY Body) (LET ((LockStatus (GENSYM))) (BQUOTE (LET ((, LockStatus , LockForm)) (if (for Status in , LockStatus never (AND Status (NEQ Status (QUOTE US)))) then ,@ Body else , LockStatus))))) (DEFMACRO NC.ReadPtr (Stream NumBytes) (* * This reads NumBytes worth of bytes from Stream.) (COND (( GEQ NumBytes 2) (BQUOTE (PLUS ,@ (for i from (SUB1 NumBytes) to 1 by -1 collect (BQUOTE (LSH (BIN , Stream) , (TIMES i 8)))) (BIN , Stream)))) ((EQ NumBytes 1) (BQUOTE (BIN , Stream))))) (DEFMACRO NC.WritePtr (Stream Ptr NumBytes) (* * Write down to the stream the bottom NumBytes worth of Ptr.) (PROGN (OR NumBytes (SETQ NumBytes 3)) (COND ((GEQ NumBytes 2) (BQUOTE (PROGN ,@ (for i from ( SUB1 NumBytes) to 1 by -1 collect (BQUOTE (BOUT , Stream (LOGAND 255 (RSH , Ptr , (TIMES i 8)))))) ( BOUT , Stream (LOGAND 255 , Ptr))))) ((EQ NumBytes 1) (BQUOTE (BOUT , Stream (LOGAND 255 , Ptr))))))) (DEFMACRO NC.ReadStatus (Stream) (* * Read 1 byte from Stream and return the corresponding status atom.) (BQUOTE (SELCHARQ (BIN , Stream) (A (QUOTE ACTIVE)) (F (QUOTE FREE)) (D (QUOTE DELETED)) (S ( QUOTE SPECIAL)) NIL))) (ADDTOVAR HPRINTMACROS (FONTDESCRIPTOR . WRITE.FONTDESCRIPTOR)) (NC.StoreAutoloadFnFile (FUNCTION NC.FindNextCardPart) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES)) (PUTPROPS NC.GetPtr MACRO (X (CONS (QUOTE IPLUS) (for I from (COND ((CADR X) (SUB1 (CADR X))) (T 2)) to 0 by -1 collect (COND ((ZEROP I) (LIST (QUOTE BIN) (CAR X))) (T (LIST (QUOTE LLSH) (LIST (QUOTE BIN ) (CAR X)) (ITIMES 8 I)))))))) (PUTPROPS NC.PutPtr MACRO (X (CONS (QUOTE PROGN) (for I from (COND ((CADDR X) (SUB1 (CADDR X))) (T 2)) to 0 by -1 collect (LIST (QUOTE BOUT) (CAR X) (LIST (QUOTE LOGAND) 255 (COND ((ZEROP I) (CADR X)) (T (LIST (QUOTE RSH) (CADR X) (ITIMES 8 I)))))))))) (PUTPROPS NC.GetStatus MACRO (X (LIST (QUOTE SELCHARQ) (LIST (QUOTE BIN) (CAR X)) (QUOTE (A (QUOTE ACTIVE))) (QUOTE (F (QUOTE FREE))) (QUOTE (D (QUOTE DELETED))) (QUOTE (S (QUOTE SPECIAL))) (QUOTE NIL) ))) (PUTPROPS NC.PutStatus MACRO (X (LIST (QUOTE BOUT) (CAR X) (SELECTQ (CADR X) ((A ACTIVE) (CONSTANT ( CHARCODE A))) ((D DELETED) (CONSTANT (CHARCODE D))) ((F FREE) (CONSTANT (CHARCODE F))) ((S SPECIAL) ( CONSTANT (CHARCODE S))) (NILL))))) (PUTPROPS NCDATABASE COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987)) NIL