(FILECREATED "14-Mar-87 02:29:14" ("compiled on " {QV}1.3K>NEXT>RHTPATCH216.;4) "12-Nov-85 14:59:23" recompiled changes: NC.TotalCardsInNoteFile NC.FileBrowserOpen in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "14-Mar-87 02:28:55" {QV}1.3K>NEXT>RHTPATCH216.;4 26912 changes to: (VARS RHTPATCH216COMS) (FNS NCLocalDevice.InspectAndRepairNoteFile NC.FileBrowserOpen NC.TotalCardsInNoteFile) previous date: "14-Mar-87 01:27:52" {QV}1.3K>NEXT>RHTPATCH216.;1) NC.TotalCardsInNoteFile D1 (I 0 NoteFile) @ ´@Ë kÙ@É$ Õ(26Q LENGTH 3 NC.NoteFileOpenP) (21Q NoteFile 11Q NoteFile) () 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@T³DRkØcldÜYjðªI²3I ²-UiVµool oRoWol ¿S²HÉgð©Hg¿S©HÊjð¤H 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) R@É ´G@Ë kÙjD³,AiCµool okoHol ¿@Ég (117Q MAPHASH 102Q NC.PrintMsg 76Q CHARACTER 53Q CHARACTER 10Q HARRAYP) (114Q NCLocalDevice.PutHashArrayA0001 107Q NoteFile 16Q NoteFile 3 NoteFile) ( 71Q "." 64Q " out of " 57Q "Processing item number " 46Q "Putting index array." 42Q "") NC.ScavengerPhase1A0001 D1 (P 0 Card I 1 Key I 0 Value F 1 ActivesTotal F 2 DeletedsTotal) %@H dgð–¿QkØcgð´RkØc(12Q NC.FetchStatus 2 BLOCK) (32Q DELETED 16Q ACTIVE) () NC.ScavengerPhase1 D1 (P 45Q DeletedsTotal P 44Q ActivesTotal P 43Q Reason P 41Q Box P 40Q News P 33Q Boxes P 32Q Type P 31Q Card P 30Q BadNews P 26Q BadCardEntry P 25Q LinkLabelsCard P 22Q NoteFileStream P 21Q CanDoPhase3Flg P 20Q NoteFileOpsMenuItem P 17Q NoteFileMenu P 16Q InspectorPendingEvent P 15Q FirstTimeFlg P 14Q ExtraBadNews P 13Q BadBoxes P 12Q BadNewsList P 11Q CardTotal P 10Q LinkLabelsNews P 7 MenuItems P 6 Menu P 5 CardsToDelete P 4 ReasonsHashArray P 3 ReasonsList P 2 UnknownCardTypesList P 1 NoteFile P 0 FileName I 4 InterestedWindow I 3 RecheckBadCardsFlg I 2 ScavengerInteractionWin I 1 ReadSubstancesFlg I 0 FileNameOrNoteFile) ¤&ðP@d`ð™É_$µ@XµohihdD Xµ h ²ç@Y°8hidhddidDhdddi Y³DhoHol o ³ÈDi ¿I _B •B ° `ohib¿i_¿Bggi¿Bg ¨BgD¿OœIABDgð²¿O<µO>h_<_:¿O8_8±þºO>&_<¿°òd _8¿O:µ O8h_<‚O8&_:¿µåO<ol ol ¿Bgi¿jd%IÉg ¿BhoOol oOHoOJol K²fBhol ¿K#ODµ°Z_F¿¿BhOFL oOFgl ¿OFgð²BhoJol ¿OD_D°³Bhol ¿O O>µ‚±¶i²"Bg ©oO_¿i_"¿oO_¿Ko ²O"žBhol ¿Bgi¿BgOBgOBgOBgO`dO¿dg¿d`¿dg ¿dg¿jdnÿdh_&¿dO& ¿BggI_@¿¿O@dgð¥dgð’¿i¿h³O@ gð³O@o “h±ÿO>_>±ÿ(2225Q INTERSECTION 2203Q NC.FetchTypeFromScavengerInfo 2145Q BLOCK 2134Q ATTACHMENU 2030Q PUTWINDOWPROP 2017Q PUTWINDOWPROP 2006Q PUTWINDOWPROP 1775Q PUTWINDOWPROP 1763Q PUTWINDOWPROP 1752Q NC.PrintMsg 1747Q CHARACTER 1727Q INTERSECTION 1666Q GETWINDOWUSERPROP 1634Q NC.PrintMsg 1631Q CHARACTER 1606Q NC.PrintMsg 1602Q CHARACTER 1551Q NC.PrintMsg 1545Q CHARACTER 1526Q LENGTH 1514Q BLOCK 1470Q NC.PrintMsg 1465Q CHARACTER 1446Q NC.PrintMsg 1442Q CHARACTER 1415Q CHARACTER 1373Q MAPHASH 1351Q PUTWINDOWPROP 1340Q NC.PrintMsg 1334Q CHARACTER 1323Q CHARACTER 1257Q NC.FetchTitleFromScavengerInfo 1204Q LENGTH 1143Q NC.FetchTypeFromScavengerInfo 1132Q BLOCK 1102Q NC.FetchTypeFromScavengerInfo 1054Q PUTHASH 1036Q BLOCK 743Q BLOCK 716Q NC.SameCardP 705Q BLOCK 670Q DREMOVE 660Q PUTWINDOWPROP 647Q NC.PrintMsg 643Q CHARACTER 632Q CHARACTER 465Q HASHARRAY 422Q NC.RepositionWindowIfNeeded 413Q GETWINDOWUSERPROP 402Q CLOSEW 375Q NC.ScavengerCleanup 366Q PUTWINDOWPROP 361Q NC.BuildBadCardsList 343Q GETWINDOWUSERPROP 327Q NC.CheckUnknownCardTypes 320Q PUTWINDOWPROP 306Q PUTWINDOWPROP 270Q NC.GetScavengerInfo 255Q PUTWINDOWPROP 244Q GETWINDOWUSERPROP 234Q WINDOWADDPROP 212Q CREATEW 174Q CLEARW 167Q WINDOWP 161Q NC.TotalCardsInNoteFile 154Q NC.ClearMsg 145Q NC.PrintMsg 135Q CHARACTER 112Q NC.OpenNoteFile 62Q OPENP 52Q NC.DatabaseFileName 10Q SPAWN.MOUSE) (2206Q FileBox 2164Q FREE 2156Q DELETED 2131Q TOP 2126Q RIGHT 2073Q DEFAULTMENUHELDFN 2064Q CLRPROMPT 2055Q NC.ScavengerAttachedMenuFont 2046Q NC.MessageWinAttachedMenuWhenSelectedFn 2033Q MENUTYPE# 2023Q BADBOXES 2012Q LINKSLABELSNEWS 2001Q EXTRABADNEWS 1770Q BADNEWSLIST 1757Q NEEDCHECKPOINT 1663Q NEEDLINKSCAVENGE 1557Q UNKNOWNCARDTYPE 1537Q ReasonString 1370Q NC.ScavengerPhase1A0001 1363Q NoteFile 1345Q NEEDLINKSCAVENGE 1154Q BADMAINDATA 1146Q FileBox 1073Q UNKNOWNCARDTYPE 762Q FREE 754Q DELETED 654Q NEEDLINKSCAVENGE 430Q NoteFile 410Q ORIGINALBADNEWSLIST 351Q ORIGINALBADNEWSLIST 340Q NEEDCHECKPOINT 313Q CARDTOTAL 302Q NOTEFILE 273Q SUCCESS 251Q INTERESTEDWINDOW 241Q INTERESTEDWINDOW 230Q NC.MessageWinCloseFn 225Q CLOSEFN 201Q NC.ScavengerInteractionWinRegion 23Q NoteFile 16Q NoteFileTYPE#) ( 2222Q (BADMAINDATA UNKNOWNCARDTYPE) 1742Q "'Continue Repair' will integrate any card part versions beyond chkpt pointer." 1724Q (MAINDATAPASTCHKPT LINKSPASTCHKPT TITLEPASTCHKPT PROPLISTPASTCHKPT) 1711Q (Continue% Repair (QUOTE Continue% Repair) "Complete Inspect&Repair by rebuilding the links.") 1673Q (End% Inspect&Repair (QUOTE End% Inspect&Repair) "This exits Inspect&Repair normally, closing the notefile.") 1624Q "All non-deleted cards look okay." 1575Q "." 1570Q "The unknown types are: " 1532Q " have " 1460Q "Of the non-deleted ones," 1435Q " deleted cards." 1427Q " active cards and " 1421Q "there are " 1410Q " cards:" 1402Q "Out of " 1327Q "If you don't delete them or back up to a previous version, then phase 3 of Inspect&Repair will rebuild their contents." 1316Q " have bad substance(s)." 636Q "If you don't back them up to a previous version, then phase 3 of Inspect&Repair will rebuild them." 625Q "The link types are bad." 604Q (MAINDATAPASTCHKPT) 565Q "Fileboxes " 511Q ((Abort (QUOTE Abort) "Quit this Inspect&Repair operation.") (Recheck% Bad% Cards (QUOTE Recheck% Bad% Cards) "Recompute bad cards list. Useful if you've just loaded some card type definitions.") (Inspect% Cards (QUOTE Inspect% Cards) "Bring up the cards inspector menu." (SUBITEMS (Include% Deleted% Cards (QUOTE Include% Deleted% Cards) "Throw in deleted cards as well.")))) 205Q "Inspect&Repair Interaction Window" 141Q "Repair aborted." 130Q "." 123Q "Couldn't open " 41Q "What is the name of the NoteFile to Inspect&Repair? ") NC.CardInspectorAttachedMenuWhenSelectedFnA0001 D1 (P 3 Title P 2 Card P 0 PredicateResult I 1 Key I 0 Value F 4 CollectionList F 5 SearchString) : @J U K ´J oKX´@H¹¿ITc(51Q CONCAT 41Q NC.FetchSlotNum 33Q STRPOS 30Q U-CASE 24Q U-CASE 15Q NC.FetchTitleFromScavengerInfo 5 BLOCK) NIL ( 45Q ": ") NC.CardInspectorAttachedMenuWhenSelectedFn D1 (P 14Q CollectionList P 13Q MenuWin P 11Q Win P 7 SearchString P 6 MenuWindows P 5 NextWin P 4 InspectorWins P 3 NoteFile P 2 MessageWin P 1 Operation P 0 MainWin I 2 MouseKey I 1 Menu I 0 Item) / A @bH Zdg ^Idgð²¿ohgiJ ´‚±ÍIgð¦Igð²EJg \ OµZi³1J io¿ohohJ ´‚±‡L Oµ9Hg [Idgð²<¿HggHi H _ ’h°¡O_°–_ •O ¿O_°´gð²uH HggJ Jg Oµ6Hg ˜Jgi¿JgJg µ Hg H KhJ_dHð®gg¿O ¿O_°Idgð²S¿ohdiJ id _J ioJhoOoKÉg ¿Ol J i gð²,H H` HNð”N ‡NkHN]JggIdgð²)¿H H` HN ð‘NƒHN]Jgggð´%HN]ð”H H ¿H` ¿MJgg(1054Q ATTACHWINDOW 1040Q MOVEW 1030Q DETACHWINDOW 1023Q FLASHW 1002Q ATTACHWINDOW 755Q LAST 750Q MOVEW 741Q DETACHWINDOW 723Q ATTACHWINDOW 707Q NLEFT 676Q LAST 665Q MOVEW 656Q DETACHWINDOW 643Q NC.ClearMsg 637Q NC.AttachPromptWindow 633Q NC.PrintMsg 627Q CHARACTER 616Q MAPHASH 563Q NC.PrintMsg 553Q NC.AttachPromptWindow 545Q NC.AskUser 537Q NC.AttachPromptWindow 503Q CLOSEW 475Q WINDOWDELPROP 454Q NC.ScavengerPhase1 446Q CLOSEW 442Q PUTWINDOWPROP 437Q GETWINDOWUSERPROP 426Q GETWINDOWUSERPROP 412Q PUTWINDOWPROP 401Q GETWINDOWUSERPROP 361Q GETWINDOWUSERPROP 352Q NC.CloseInspectorWindows 346Q WINDOWDELPROP 334Q DETACHWINDOW 312Q CLOSEW 304Q OPENWP 263Q OPENWP 254Q CLOSEW 250Q NC.CardInspectorCloseFn 243Q WINDOWDELPROP 217Q GETWINDOWUSERPROP 170Q NC.AskYesOrNo 164Q NC.AttachPromptWindow 145Q NC.PrintMsg 135Q NC.AttachPromptWindow 114Q GETWINDOWUSERPROP 62Q NC.AskYesOrNo 56Q NC.AttachPromptWindow 27Q GETWINDOWUSERPROP 17Q MAINWINDOW 6 MAINWINDOW 3 WFROMMENU) (1051Q LEFT 1046Q BOTTOM 1035Q NC.OffScreenPosition 1006Q First% Page 777Q LEFT 774Q BOTTOM 745Q NC.OffScreenPosition 731Q Next% Page 720Q LEFT 715Q BOTTOM 662Q NC.OffScreenPosition 647Q Previous% Page 613Q NC.CardInspectorAttachedMenuWhenSelectedFnA0001 606Q NoteFile 520Q Search 472Q NC.CardInspectorCloseFn 467Q CLOSEFN 434Q NEEDLINKSCAVENGE 423Q NEEDLINKSCAVENGE 417Q NEEDLINKSCAVENGE 406Q NEEDCHECKPOINT 376Q MADECHANGES 356Q MENUWINDOWS 343Q NC.CardInspectorCloseFn 340Q CLOSEFN 325Q Done 240Q NC.CardInspectorCloseFn 235Q CLOSEFN 225Q Abort 214Q NOTEFILE 111Q INSPECTORWINDOWS 102Q Done 74Q Abort 51Q Yes 35Q Abort 24Q MENUWINDOWS) ( 577Q "': " 571Q "Card titles containing string '" 560Q "Searching ... " 530Q "Search string? " 157Q "Yes" 152Q "Want to close them? " 142Q "There are open card inspector windows." 45Q "Do you really want to abort the Inspect & Repair process? ") NC.FileBrowserOpen D1 (P 2 FileName P 1 FileObject I 4 Access I 3 Menu I 2 Item I 1 Key I 0 Browser) =@ !HµhY ZhdddddddJ ¦@É €hhddD ¿HX°Î(65Q NC.OpenNoteFile 44Q NC.NoteFileFromFileName 27Q U-CASE 24Q MKATOM 21Q FB.FETCHFILENAME 3 FB.SELECTEDFILES) (51Q FILEBROWSER) () (PRETTYCOMPRINT RHTPATCH216COMS) (RPAQQ RHTPATCH216COMS ((* * Fixes bug reported by Ramana whereby number of cards claimed by inspector is too high. Also fixes minor interface bugs.) (* * New function for NCDATABASE) (FNS NC.TotalCardsInNoteFile) (* * Change to NCLOCALDEVICE) (FNS NCLocalDevice.PutHashArray) (* * Change to NCREPAIR) (FILES (FROM NOTECARDS) NCREPAIR) (FNS NC.ScavengerPhase1 NC.CardInspectorAttachedMenuWhenSelectedFn) (* * Change to NCINTERFACE) (* * Be sure that the FILEBROWSER record has been loaded before recompiling the following function.) (FNS NC.FileBrowserOpen ))) (FILESLOAD (FROM NOTECARDS) NCREPAIR) (PUTPROPS RHTPATCH216 COPYRIGHT ("Xerox Corporation" 1987)) NIL