(FILECREATED "24-May-87 00:46:35" ("compiled on " {QV}1.3K>NEXT>RHTPATCH266.;4) "12-Nov-85 14:59:23" tcompl'd in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED "24-May-87 00:46:19" {QV}1.3K>NEXT>RHTPATCH266.;4 23964 changes to: (VARS RHTPATCH266COMS) (FNS NCP.ExpandNoteFileIndex NC.ExpandIndexInPlace NCLocalDevice.PutHashArray NCP.NumCardSlotsRemaining NC.CheckForExpandIndex NCP.RegisterCardByName NCP.LookupCardByName NCP.UnregisterName NCP.ListRegisteredCards) previous date: "23-May-87 22:46:58" {QV}1.3K>NEXT>RHTPATCH266.;1) NCP.CardRegion D1 (P 3 Region P 2 WasActive P 1 Card P 0 Args) eHkHlgoH h@Y S I ZI I Hl2A[ IK I I K I gKo JIi gIo h(206Q NCP.ReportError 203Q CONCAT 166Q NCP.CloseCards 156Q NCP.ReportError 153Q CONCAT 137Q NC.PutRegion 131Q SHAPEW 125Q NCP.CardWindow 120Q NCP.CardDisplayedP 113Q NC.SetRegion 104Q REGIONP 71Q NC.FetchRegion 64Q NCP.CacheCards 56Q NCP.CardCachedP 45Q NCP.ValidCardP 36Q NCP.ReportError 33Q CONCAT) (173Q NCP.CardRegion 143Q NCP.CardRegion 23Q NCP.CardRegion) ( 200Q " not an existing card." 150Q " not a valid REGION." 27Q "Improper number of args: ") NCP.RegisterCardByName D1 (I 2 RegistryCard I 1 Card I 0 Name) GBA bA gAo B B ggBo B@A (104Q NC.RegisterCardByName 75Q NCP.ReportError 72Q CONCAT 52Q NCP.CardType 45Q NC.ValidCardP 40Q NCP.ReportError 35Q CONCAT 21Q NC.ValidCardP 5 NCP.NoteFileFromCard) (62Q NCP.RegisterCardByName 55Q Registry 25Q NCP.RegisterCardByName 10Q NoteFile) ( 67Q " is not a valid registry card." 32Q " is not a valid notecard.") NCP.LookupCardByName D1 (P 0 RegistryCard I 1 NoteFileOrRegistryCard I 0 Name) 8A AX#A A gAXgoA H@ (65Q NC.LookupCardByName 57Q NCP.ReportError 54Q CONCAT 31Q NCP.CardType 24Q NC.ValidCardP 6 NCP.OpenNoteFileP) (44Q NCP.LookupCardByName 34Q Registry 13Q NoteFile) ( 50Q "Improper arg: ") NCP.UnregisterName D1 (P 0 RegistryCard I 1 NoteFileOrRegistryCard I 0 Name) 8A AX#A A gAXgoA H@ (65Q NC.UnregisterName 57Q NCP.ReportError 54Q CONCAT 31Q NCP.CardType 24Q NC.ValidCardP 6 NCP.OpenNoteFileP) (44Q NCP.UnregisterName 34Q Registry 13Q NoteFile) ( 50Q "Improper arg: ") NCP.ListRegisteredCardsA0001 D1 (L (1 Key 0 Val) F 0 Result) A@PcNIL NIL () NCP.ListRegisteredCardsA0002 D1 (L (1 Key 0 Val) F 0 Result) @PcNIL NIL () NCP.ListRegisteredCards D1 (P 1 Result P 0 RegistryCard I 1 IncludeKeysFlg I 0 NoteFileOrRegistryCard) H @ @X!@ @ g@Xgo@ AH gH g I(104Q MAPHASH 76Q NCP.CardSubstance 66Q NCP.CardSubstance 57Q NCP.ReportError 54Q CONCAT 31Q NCP.CardType 24Q NC.ValidCardP 6 NCP.OpenNoteFileP) (101Q NCP.ListRegisteredCardsA0002 71Q NCP.ListRegisteredCardsA0001 44Q NCP.ListRegisteredCards 34Q Registry 13Q NoteFile) ( 50Q "Improper arg: ") NCP.NumCardSlotsRemaining D1 (I 0 NoteFile) !@ @@ g@o (36Q NCP.ReportError 33Q CONCAT 16Q NC.TotalCardsInNoteFile 3 NCP.OpenNoteFileP) (23Q NCP.NumCardSlotsRemaining 10Q NoteFile) ( 30Q " is not an open notefile.") NCP.ExpandNoteFileIndex D1 (P 0 WasOpenFlg I 2 QuietFlg I 1 NumNewSlots I 0 NoteFile) 6@ X@B @ihBhdi @dAhddB H@B (63Q NCP.CloseNoteFiles 53Q NC.ExpandIndexInPlace 31Q NCP.OpenNoteFile 15Q NCP.CheckpointNoteFiles 6 NCP.OpenNoteFileP) (37Q NoteFile) () NC.CheckForExpandIndex D1 (P 21Q IndexFullFlg P 20Q ActualNumNewSlots P 17Q NewNum P 16Q NumNewSlots P 15Q NewIndexSize P 14Q PercentFullMessage P 13Q IndexNum P 12Q PromptWindow P 11Q Menu P 4 NumUsed P 3 PercentUsed P 2 IndexNumsFreeList P 1 IndexSize P 0 NextIndexNum I 2 InterestedWindow I 1 QuietFlg I 0 NoteFile) ;B@ b@ @@$cHJ k\Ildj[``dhdodi dkdkdkd`` l _gl g dM$dg dgjdndhdN d OB `rId`j__ILh_"-@oLoIol _Oo0@oKoLoIol _OoBiO BhoOol OO O _Ok dgy@hdBol @OhBhA _ &` O"hio 1io 'OO !` hioO oOoh Bi OdgBi hdgBi #gohddi _3OjIO__(1036Q RNUMBER 1007Q ERROR! 1003Q NC.ClearMsg 765Q NC.ClearMsg 746Q NC.ClearMsg 740Q NC.PrintMsg 710Q FLASHW 671Q NC.PrintMsg 657Q ERROR! 653Q NC.PrintMsg 635Q FLASHW 623Q NC.ExpandIndexInPlace 607Q NC.CheckpointNoteFile 603Q CONCAT 600Q CHARACTER 553Q MENU 550Q CREATEPOSITION 530Q WINDOWREGION 522Q WINDOWREGION 512Q NC.PrintMsg 507Q CONCAT 504Q CHARACTER 462Q NC.PrintMsg 434Q CONCAT 430Q CHARACTER 354Q CONCAT 350Q CHARACTER 261Q NC.AttachPromptWindow 173Q FONTCREATE 152Q FONTHEIGHT 42Q LENGTH 5 NC.CoerceToInterestedWindow) (1015Q Change% Num 773Q Cancel 755Q No 705Q PROMPTWINDOW 632Q PROMPTWINDOW 557Q Yes 444Q MENU 376Q NoteFile 364Q MENU 323Q NoteFile 276Q NC.IndexFractionToExpandBy 266Q PROMPTWINDOW 244Q MENU 214Q DEFAULTMENUHELDFN 205Q CLRPROMPT 170Q BOLD 163Q HELVETICA 147Q NC.MenuFont 141Q NC.MenuFont 73Q MENUTYPE# 61Q NC.IndexPercentUsedThreshold 30Q NoteFile 22Q NoteFile 14Q NoteFile) ( 1026Q "Number of new cards to add" 733Q " requested." 725Q " new cards out of " 717Q "Only able to make room for " 666Q "Couldn't expand index." 650Q "Couldn't expand index. Card creation operation canceled." 573Q "Expanding notefile index" 477Q " new cards?" 471Q "Okay to checkpoint notefile and make room for " 450Q ((Yes (QUOTE Yes) "Go ahead and expand index to make room for new cards.") (No (QUOTE No) "Continue without expanding index.") (Change% Num (QUOTE Change% Num) "Change the number of new cards to expand index by.")) 423Q " cards used)." 416Q " out of " 411Q "%% full (" 404Q " is " 370Q ((Yes (QUOTE Yes) "Go ahead and expand index to make room for new cards.") (Cancel (QUOTE Cancel) "Cancel creation of new card.") (Change% Num (QUOTE Change% Num) "Change the number of new cards to expand index by.")) 343Q " cards used)." 336Q " out of " 331Q " is full (" 106Q " Expand notefile index? ") NC.ExpandIndexInPlace D1 (P 21Q NewHashArray P 20Q OldFileLoc P 16Q FileName P 15Q AutoloadFnEntry P 14Q ToPtr P 13Q CardPartRecord P 7 CTR P 5 TotalNewIndexEntries P 4 FileLoc P 3 CardPartFileLocs P 2 NewTotalIndexSize P 1 OldTotalIndexSize P 0 Stream I 5 QuietFlg I 4 OperationMsg I 3 InterestedWindow I 2 TempStream I 1 NewIndexSize I 0 NoteFile) C@ bDol bBggho b@@ A CE!CiDol okol JH HJ I\kQ g @Llg)g Ooogo _PO\JGE6Old^jN(N "CiDol oOol @OBC _O[LIl]kM@Mb@ChDE @A@ KOA @O" @O"M_O g @Llg)ooOog @O LdOԼ_OOh__Ok_O&__ 3+O H !HO Hj!Hj!Hj!Hj!Hj!Hj!O_4hECi (1030Q NC.ClearMsg 757Q SETFILEPTR 745Q GETEOFPTR 653Q NC.PutCheckptPtr 642Q CONCAT 601Q \DEFINEDP 572Q NC.LoadFileFromDirectories 533Q REHASH 515Q NC.CreateUIDHashArray 472Q NC.PutNoteFileHeader 455Q NCLocalDevice.PutHashArray 401Q NC.CopyCardPartInPlaceToEOF 370Q NC.PrintMsg 364Q CHARACTER 345Q CHARACTER 327Q \FZEROP 264Q NC.ReportError 261Q CONCAT 224Q NC.LookupAutoloadFnFile 202Q \DEFINEDP 173Q BLOCK 161Q SETFILEPTR 152Q GETEOFPTR 144Q NC.PrintMsg 140Q CHARACTER 122Q CHARACTER 100Q NC.TotalIndexSize 74Q NC.TotalIndexSize 52Q OPENSTREAM 26Q CONCAT 23Q CHARACTER 5 NC.CoerceToInterestedWindow) (637Q NC.FindNextCardPart 611Q NC.FindNextCardPart 576Q NC.FindNextCardPart 565Q AutoloadFnEntry 554Q AutoloadFnEntry 540Q NoteFile 524Q NoteFile 462Q NoteFile 435Q NoteFile 252Q NC.FindNextCardPart 221Q NC.FindNextCardPart 212Q NC.FindNextCardPart 177Q NC.FindNextCardPart 67Q NoteFile 61Q NoteFile 42Q BOTH 37Q {NODIRCORE}) ( 634Q ", but still no definition of " 626Q "Loaded file " 622Q "NC.AutoloadApply*" 357Q "." 351Q "Moving card part " 340Q "Making room for expanded index." 256Q " in table of autoloadable functions." 247Q "No definition of " 243Q "NC.AutoloadApply*" 133Q "." 126Q "Moving card part " 115Q "Making room for expanded index." 47Q ((TYPE BINARY)) 16Q "Expanding Index") NCLocalDevice.PutHashArrayA0001 D1 (P 0 Card I 1 Key I 0 Value F 2 Num F 3 AllCardsFlg F 4 QuietFlg F 5 InterestedWindow F 6 OperationMsg F 7 CardTotal) x@TDRkcldYjI3I -UiVool oRoWol SHgHgSHjH h(163Q NCLocalDevice.PutIndexEntry 112Q NC.PrintMsg 106Q CHARACTER 62Q CHARACTER 36Q \FZEROP 2 BLOCK) (151Q CardObject 140Q FREE 135Q CardObject 127Q ACTIVE 122Q CardObject) ( 101Q "." 73Q " out of " 66Q "Processing item number " 55Q "Putting index array." 51Q "") NCLocalDevice.PutHashArray D1 (P 1 Num P 0 CardTotal I 4 QuietFlg I 3 OperationMsg I 2 AllCardsFlg I 1 InterestedWindow I 0 NoteFile) [A@ b@ G@ kjD,AiCool okoHol @g (130Q MAPHASH 113Q NC.PrintMsg 107Q CHARACTER 64Q CHARACTER 21Q HARRAYP 5 NC.CoerceToInterestedWindow) (125Q NCLocalDevice.PutHashArrayA0001 120Q NoteFile 27Q NoteFile 14Q NoteFile) ( 102Q "." 75Q " out of " 70Q "Processing item number " 57Q "Putting index array." 53Q "") (PRETTYCOMPRINT RHTPATCH266COMS) (RPAQQ RHTPATCH266COMS ((* * Fixes several programmer's interface bugs including %#573, 472, 242, 366.0 Can now set the region of a card, perform Registry card operations on one's own registry cards, and expand a notefile's index.) (* * Changes to NCPROGINT) (FNS NCP.CardRegion) (FNS NCP.RegisterCardByName NCP.LookupCardByName NCP.UnregisterName) (* * New functions for NCPROGINT) (FNS NCP.ListRegisteredCards) (FNS NCP.NumCardSlotsRemaining NCP.ExpandNoteFileIndex) (* * Changes to NCDATABASE) (FNS NC.CheckForExpandIndex NC.ExpandIndexInPlace) (* * Changes to NCLOCALDEVICE) (FNS NCLocalDevice.PutHashArray) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS ( NLAMA) (NLAML) (LAMA NCP.CardRegion))))) (PUTPROPS RHTPATCH266 COPYRIGHT ("Xerox Corporation" 1987)) NIL