(FILECREATED "25-Oct-85 21:37:08" ("compiled on " {QV}RELEASE1.2I>NCREPAIR.;56) "19-Mar-85 14:34:17" recompiled changes: NC.ScavengerPhase1 NC.MessageWinAttachedMenuWhenSelectedFn NC.BuildScavengerArray NC.BuildBadCardsList NC.WorthlessCardP NC.CheckIndexPtrAgainstScavengerArray in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "25-Oct-85 21:35:34" {QV}RELEASE1.2I>NCREPAIR.;56 138196 changes to: (FNS NC.BuildBadCardsList NC.ScavengerPhase1 NC.MessageWinAttachedMenuWhenSelectedFn NC.BuildScavengerArray NC.WorthlessCardP NC.CheckIndexPtrAgainstScavengerArray) (VARS NCREPAIRCOMS) previous date: "18-Oct-85 15:37:39" {QV}RELEASE1.2I>NCREPAIR.;55) NC.CollectAndCheckLinks D1 (P 21Q Link P 14Q GlobalLink P 7 CollectReferencesFn P 6 LinksDirtyFlg P 5 LinkIcon P 4 GlobalLinks P 3 ActualLink P 2 DirtyFlg P 1 Links P 0 NoteCardType I 2 ListOfValidCards I 1 DatabaseStream I 0 ID) €@ Xd _Ÿ@iAlOYºIY€I@ AOµDO\AOµ{O Y@L B²BIAOµ‚±‘O ¿J•@A ¿N”@A I_¿¿B˜OBªOAi¢i^€h³O_¿OµOh__¿O_°‚O&_¿°ó_"¿¿O"dgð®_ ¿OµO h__¿O_±ÿ[O &_°ò_"¿¿O"_ ¿OµO h__¿O_±ÿHO &_¿°ò(352Q BLOCK 267Q BLOCK 210Q NC.ValidLinkP 164Q BLOCK 153Q NC.PutLinks 143Q NC.PutNoteCard 133Q \NCONC2 103Q NC.SetGlobalLinks 75Q \NCONC2 43Q NC.FetchGlobalLinks 13Q NC.CollectReferencesFn 6 NC.FetchType) (302Q NC00000) () NC.GetOldDataA0001 D1 (NAME ERRORSET P 12Q Stream P 11Q Region P 10Q ToLinks P 7 FromLinks P 6 PropList P 5 Substance P 4 Title P 3 NoteCardType P 2 ActualID P 1 Status P 0 Index F 14Q ID F 15Q DatabaseStream F 16Q Ptr F 17Q RESETY F 20Q LinksPtr) Wo hi¿ÀWo _W ¿O` ³oWo ¿O ZWð³ooWoJ ¿O »O ¿WO _¿K _¿OWOlO½OW ¿O` ³oWo ¿O ZWð³ooWoJ ¿O _¿O _¿WK ¿WO ¿WM ¿WO ¿W ¿WO ¿W ¿W ¿Wci(423Q NC.ActivateCard 415Q NC.SetLinksDirtyFlg 407Q NC.SetFromLinks 377Q NC.SetLinksDirtyFlg 371Q NC.SetToLinks 361Q NC.SetSubstance 352Q NC.SetRegion 342Q NC.SetType 331Q READ 321Q READ 313Q NC.ReportError 310Q CONCAT 260Q READ 252Q NC.ReportError 247Q CONCAT 230Q NC.GetIdentifier 217Q SETFILEPTR 170Q NC.GetSubstanceFn 161Q NC.GetRegion 151Q READC 143Q READ 135Q NC.ReportError 132Q CONCAT 102Q READ 74Q NC.ReportError 71Q CONCAT 52Q NC.GetIdentifier 41Q SETFILEPTR 32Q NC.CoerceDatabaseStream 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (225Q NC.LinksIdentifier 47Q NC.ItemIdentifier) ( 304Q " Found ID: " 276Q "ID mismatch while reading links. Expected ID: " 272Q "NC.GetOldData" 244Q " Error in Database file -- incorrect links identifier." 236Q "NC.GetOldData" 126Q " Found ID: " 120Q "ID mismatch while reading item. Expected ID: " 114Q "NC.GetOldData" 66Q " Error in Database file -- incorrect item identifier." 60Q "NC.GetOldData" 27Q "NC.GetOldData" 5 "NC.GetOldData") NC.GetOldData D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 DatabaseStream I 2 LinksPtr I 1 Ptr I 0 ID F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q NC.GetOldDataA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.GetOldDataA0001)) NC.FindOldData D1 (P 0 Pos I 1 DatabaseStream I 0 ID) 7Aj 0oA X² A ¿A @ð²êH»Jµ KhZ¹°ÞK&º°ÙI(36Q READ 31Q READ 22Q FILEPOS 7 SETFILEPTR) NIL ( 16Q "###ITEM###") NC.FindOldLinks D1 (P 0 Pos I 1 DatabaseStream I 0 ID) 7Aj 0oA X² A ¿A @ð²êH»Jµ KhZ¹°ÞK&º°ÙI(36Q READ 31Q READ 22Q FILEPOS 7 SETFILEPTR) NIL ( 16Q "###LINKS###") NC.ReinstateNthInstance D1 (P 1 LinksPtr P 0 Ptr I 3 DatabaseStream I 2 NLinks I 1 NData I 0 ID) ¦ jAóœ@C A ˆ@C A ¸jBóœ@C B ˆ@C B ¹@ ²bH²_I²\C@ CHl lÿå ¿CHl lÿå ¿CHlÿå CIl lÿå ¿CIl lÿå ¿CIlÿå ClA gg(234Q BOUT 226Q BOUT 215Q BOUT 207Q RSH 177Q BOUT 171Q RSH 162Q BOUT 151Q BOUT 143Q RSH 133Q BOUT 125Q RSH 116Q SETFILEPTR 113Q NC.IndexFromID 76Q NC.IDP 70Q NTH 64Q NC.FindOldLinks 56Q NLEFT 53Q ABS 47Q NC.FindOldLinks 34Q NTH 30Q NC.FindOldData 22Q NLEFT 17Q ABS 13Q NC.FindOldData) (243Q ERROR 237Q DONE) () NC.ScavengeDatabaseFile D1 (P 60Q LinkLabel P 57Q Link P 55Q GlobalLink P 53Q ToLink P 51Q DestCard P 50Q Link P 43Q Link P 41Q Link P 37Q Item P 35Q Link P 33Q CardID P 31Q NoteCardNumber P 23Q ToBeFiledCards P 22Q ThisCardsGlobalLinks P 21Q ThisCardsToLinks P 20Q ReconstructGlobalLinks P 17Q ReconstructLinks P 16Q ActiveCardsList P 15Q GlobalLinks P 14Q CardTotal P 13Q FullName P 12Q Entry P 11Q Links P 10Q ID P 7 Status P 6 DatabaseStream P 5 ToLinks P 4 FromLinks P 3 DiscoveredLinkLabels P 2 OldLinkLabels P 1 FileName P 0 ListOfValidCards I 3 ListOfGlobalLinksToReconstruct I 2 ListOfCardsToReconstruct I 1 BadLinkLabelsFlg I 0 FileNameOrStream) 1ghñ€@ ˜@ “@^°x` ²*` ²"hio` l ol h@YµohiYd²-hi^³#hdoIol ol ´hhdo¿A¤N ºhioNi l kÙ_k¿O2dO0ó¢±¶BO4µ‚±¬O O8µ‚±ÌhioMO<µ‚±yhioNi l kÙ_k¿O2dO0ó¢±²O&` KJ ™NKJ ¿Ni N hioN ol O&´‚±ÿ)hdoO&o ¿±ÿ _¿hiol oO2oOol ¿OdB’±¥N _ ¢±¼OO_¿OdH¤H¸ONH_¿OOM½Od O_¿BO !O@µC²qO #ODµ#°a_B¿¿OBdB”O_¿O@_@°Í_F¿¿OF žOFdC”O _ ¿OD_D°ºN ¿Od O_¿Od O½Oi ¿O2kÔ_2¿±þ>_6¿¿goihO6 ¿OQ)OHµ@OJ_¿O6M _"µ)O6OM]¿O6O_¿O6N ¿O6i ¿O4_4±ýúO °Ü_P¿¿O6OPð¢±–OP ¨OP ¢±‡O6 O6OP_Rhi¿O6 h_*¿_(µrh_,¿gO, O, O, O, O, O, O,_N¿OLµONh_L_J¿OH_H±ÿON&_L¿°ò_*¿ORO*ð“O*°O(±ÿv_:¿¿O:O _$µQO:O:hO_¿O:M _"µO:O:hM]¿O8_8±üê+OTµSi²îO"d²dO:h °Ý-OXµi²·O$d²'O:h °¦_Z¿¿O:OZô’h°ÚOX_X°ÏO:&°…_V¿¿O:OVô’h°OT_T°’O:&±ÿ_>¿¿O>!0O\µO<_<±üj_^¿¿O^L _µ*O^O^hL\¿O^_`K¤O`K»O\_\°¸O^h °ßl Ü_.jð¬O.².O. ²'hiol oO2oOol ¿O2 _O²TOdO ¿OdM ¿OdL ¿Od`³ O8µ%i—OO&_&¿ON ¿Oi ¿O2kÔ_2¿±û¤_: ’h°ÖO8_8°Ë(2564Q NC.ChildLinkP 2543Q NC.DeactivateCard 2534Q NC.PutLinks 2503Q NC.FetchFromLinks 2466Q NC.SetFromLinks 2462Q FASSOC 2452Q NC.SetToLinks 2446Q FASSOC 2436Q NC.SetGlobalLinks 2432Q FASSOC 2413Q NC.IDFromNumber 2405Q NC.PrintMsg 2401Q CHARACTER 2354Q CHARACTER 2337Q \FZEROP 2312Q \NCONC2 2227Q FASSOC 2214Q BLOCK 2160Q BLOCK 2116Q BLOCK 2055Q BLOCK 2044Q \NCONC2 2010Q \NCONC2 1724Q FASSOC 1667Q FASSOC 1654Q BLOCK 1535Q COPYALL 1521Q COPYALL 1506Q COPYALL 1474Q COPYALL 1463Q COPYALL 1453Q COPYALL 1424Q NCP.GetLinks 1416Q NC.FileBoxCollectChildren 1376Q NC.FetchSubstance 1365Q NC.SubContentsLinkP 1357Q NC.ContentsLinkP 1335Q BLOCK 1324Q \NCONC2 1306Q NC.DeactivateCard 1277Q NC.PutNoteCard 1244Q FASSOC 1215Q NC.MakeNoteCard 1175Q BLOCK 1153Q NC.DeactivateCard 1140Q NC.FetchGlobalLinks 1123Q NC.FetchGlobalLinks 1114Q NC.GetLinks 1061Q NC.GlobalLinkP 1053Q BLOCK 1015Q BLOCK 773Q NC.FetchFromLinks 752Q NC.FetchFromLinks 734Q NC.FetchGlobalLinks 713Q NC.CollectAndCheckLinks 657Q NC.IDP 652Q NC.GetNoteCard 634Q NC.PrintMsg 630Q CHARACTER 603Q CHARACTER 565Q NC.IDFromNumber 556Q NC.PrintMsg 526Q NC.PrintMsg 522Q CHARACTER 511Q FULLNAME 477Q NC.ForceDatabaseClose 473Q NC.CheckpointDatabase 465Q NC.PutLinkLabels 462Q UNION 453Q LDIFFERENCE 446Q NCP.FileCards 422Q BLOCK 407Q SUBATOM 402Q NC.GetNewID 375Q NC.PrintMsg 346Q NC.PrintMsg 264Q BLOCK 251Q SUBATOM 244Q NC.GetNewID 237Q NC.PrintMsg 225Q NC.GetLinkLabels 216Q NC.PrintMsg 201Q NC.PrintMsg 175Q CHARACTER 164Q CHARACTER 136Q NC.OpenDatabaseFile 125Q NC.DatabaseFileName 106Q NC.PrintMsg 102Q CHARACTER 71Q CHARACTER 64Q FULLNAME 46Q OPENP 36Q STREAMP 23Q OPENP 16Q STREAMP) (2475Q NC.TopLevelCards 1444Q NOTECARDLINK 1201Q FileBox 443Q NC.UnclassifiedID 142Q PSA.Database 61Q PSA.Database 43Q PSA.Database 33Q PSA.Database 2 **Header**) ( 2374Q "." 2366Q " out of " 2360Q "Rewriting links for item " 2347Q "Repairing NoteFile." 1205Q "Untitled: Reconstructed during repair" 623Q "." 615Q " out of " 607Q "Collecting Links for item " 576Q "Rebuilding notefile links." 552Q " in ToBeFiled box." 544Q "Filed cards " 515Q "." 505Q "Repair Completed for " 372Q "Rewriting Links ... " 343Q "Processing Links ... " 234Q "Collecting Links ... " 213Q "Done." 170Q "Repair aborted." 157Q "." 152Q "Couldn't open " 120Q "What is the name of the NoteFile to repair? " 75Q "It must be closed before link rebuilding can be done." 56Q "There is an open NoteFile -- ") NC.ScavengerPhase1A0008 D1 (NAME ERRORSET F 0 DatabaseStream F 1 NoteFileOpsMenuItem F 2 RESETVARSLST F 3 InspectorPendingEvent F 4 RESETY) =P ¿gQ`jhQ``hRc¿Pgg c¿S ci(67Q AWAIT.EVENT 62Q STREAMPROP 55Q CREATE.EVENT 33Q SHADEITEM 3 NC.SetMainMenuTitle) (52Q InspectorPending 47Q InspectorPendingEvent 30Q GRAYSHADE 25Q NC.MainMenu 13Q NC.MainMenu 7 SHADEITEM) () NC.ScavengerPhase1 D1 (P 52Q RESETZ P 51Q RESETY P 50Q LISPXHIST P 47Q Reason P 45Q BoxNews P 44Q Box P 42Q Reason P 40Q DeletedsTotal P 37Q ActivesTotal P 36Q Num P 34Q Box P 33Q News P 26Q Type P 25Q ID P 24Q BadNews P 21Q CanDoPhase3Flg P 20Q NoteFileOpsMenuItem P 17Q InspectorPendingEvent P 16Q FirstTimeFlg P 15Q ExtraBadNews P 14Q BadBoxes P 13Q BadNewsList P 12Q MaxIDNum P 11Q LinkLabelsNews P 10Q MenuItems P 7 Menu P 6 CardsToBackUp P 5 CardsToDelete P 4 ReasonsList P 3 UnknownCardTypesList P 2 DatabaseStream P 1 FileName P 0 ScavengerArray I 2 ScavengerInteractionWin I 1 ReadSubstancesFlg I 0 FileNameOrStream F 53Q LISPXHIST F 54Q RESETVARSLST) +ð@@ ˜@ “@Z°~` ²*` ²"hio` l ol h@YµohiYd²3hihdddi Z³#hdoIol ol ´hhdo¿B •B ° `ohib¿i_¿Bggi¿Bg µJABXªB ¿J hBgH¿Bg _Jg ýó«JgOkØ¿JHABJHBO_B gO _µ‚±šO1O&µ‚±o_Oµ‚±¿OQO.µ‚±_O0_µqOkjd ¿OoO@ol L¢±Bhol ¿L"OBµ‚±¤±O _±ÿd!%OFµ‚±$BhoOol ol ¿Bgi¿±ÿ\oô’±ÿ;OO_¿Bhol ol ¿Bgi¿±ÿ_(¿¿O(dgð¥dgð’¿i¿h³O(_*¿O('OLµO&_&±þ½_N¿¿ONgO*¿ONdL¤L¼ONgðŸO*H _,K¤O,K»OL_L°¼_6¿¿O6_8H gð²"O6o ²O8_4¿O2µO4h_2_0¿O._.±þaO4&_2¿°ò_H¿¿OHO _Jo ³OJO_¿OJO _¿OF_F±þ¤JO< dgð˜¿O>kØ_>¿‹gð–O@kØ_@¿OO< ³O:_8¿O6µO8h_6_4¿O2_2±þfO8&_6¿°òd O ¿O ¿O ¿O@ µàAho¿JK²9Aho¿K°d Oo ¿O@ ¿O µâAho¿L´-AhoL°d O ¿O@ µìAhog(1175Q NC.PrintMsg 1157Q NC.PutPropList 1150Q NC.SetPropList 1133Q NC.PrintMsg 1116Q NC.PrintMsg 1100Q NC.SetTitle 1072Q NC.PutTitle 1063Q NC.SetTitle 1041Q NC.PrintMsg 1025Q PUTWINDOWPROP 1020Q NC.PrintMsg 1002Q NC.PutLinks 773Q NC.SetGlobalLinks 765Q NC.SetFromLinks 757Q NC.SetToLinks 701Q SASSOC 663Q NC.IndexFromID 645Q NC.ScavengerArrayOffsetFromID 567Q SASSOC 551Q NC.IndexFromID 533Q NC.ScavengerArrayOffsetFromID 455Q SASSOC 437Q NC.IndexFromID 421Q NC.ScavengerArrayOffsetFromID 344Q NC.GetStatusFromIndex 337Q NC.SetIndexOffset 334Q NC.IndexFromID 312Q NC.PrintMsg 262Q NC.YesP 257Q NC.AskUser 235Q NC.PrintMsg 231Q CHARACTER 205Q NC.PrintMsg 201Q CHARACTER 155Q NC.PrintMsg 151Q CHARACTER 6 STREAMPROP) (1201Q ABORT 666Q NC.ScavengerArrayPropListOffset 650Q NC.ScavengerArrayPropListOffset 554Q NC.ScavengerArrayTitleOffset 536Q NC.ScavengerArrayTitleOffset 442Q NC.ScavengerArrayLinksOffset 424Q NC.ScavengerArrayLinksOffset 347Q ACTIVE 272Q CARDSWITHLINKSRESET 246Q Yes 3 NCINDEXARRAY) ( 1172Q "Done." 1130Q "Resetting prop lists ..." 1113Q "Done." 1060Q "Untitled" 1036Q "Resetting titles ..." 1015Q "Done." 307Q "Resetting links ..." 242Q "Is this okay?" 224Q " still have bad prop lists. They will be set to NIL." 217Q "Cards: " 174Q " still have bad titles. They will be set to 'Untitled'." 167Q "Cards: " 144Q " still have bad links. Links rebuilder will rebuild them." 137Q "Cards: ") (PRETTYCOMPRINT NCREPAIRCOMS) (RPAQQ NCREPAIRCOMS ((E (SETQ NC.SystemDate (DATE)) (PUTPROP (QUOTE NC.SystemDate) (QUOTE NewestFile) (ROOTFILENAME (FULLNAME (OUTPUT))))) (* * Scavenger mechanisms) (GLOBALVARS NC.TitlesIdentifier NC.PropsIdentifier NC.LinksIdentifier NC.ItemIdentifier NC.LinkLabelsIdentifier NC.LinkLabelsID NC.ScavengerArrayTitleOffset NC.ScavengerArrayLinksOffset NC.ScavengerArraySubstanceOffset NC.ScavengerArrayPropListOffset NC.ScavengerArrayLinkLabelsOffset NC.CardInspectorAttachedMenuFont NC.IdentifierAtoms NC.ClippedIdentifierAtoms NC.LightShade NC.IndexArrayOffsets PSA.Database NC.ScavengerInteractionWinRegion NC.IndexArrayLinkLabelsOffset NC.ScavengerCriticalOffsets NC.OffScreenPosition NC.CardsPerMenuLimit NC.TopLevelCards NC.NextNOBINDLoc NC.ScavengerAttachedMenuFont) (VARS (NC.ScavengerArraySubstanceOffset 0) (NC.ScavengerArrayLinksOffset 1) (NC.ScavengerArrayTitleOffset 2) (NC.ScavengerArrayPropListOffset 3) ( NC.ScavengerArrayLinkLabelsOffset 4) (NC.IndexArrayOffsets (QUOTE (3 1 2 4))) ( NC.ScavengerCriticalOffsets (QUOTE (1 2))) (NC.IndexArrayLinkLabelsOffset 1) ( NC.CardInspectorAttachedMenuFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (NC.LightShade 4096) (NC.OffScreenPosition (CONS 1500 1500)) (NC.ScavengerInteractionWinRegion (CREATEREGION (fetch ( POSITION XCOORD) of NC.OffScreenPosition) (fetch (POSITION YCOORD) of NC.OffScreenPosition) 400 250)) (NC.CardsPerMenuLimit 200) (NC.ScavengerAttachedMenuFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD) ))) (* * Old scavenger stuff.) (FNS NC.CollectAndCheckLinks NC.GetOldData NC.FindOldData NC.FindOldLinks NC.ReinstateNthInstance NC.ScavengeDatabaseFile) (* * Top level functions.) (FNS NC.ScavengerPhase1 NC.ScavengerCleanup NC.CheckUnknownCardTypes NC.RepositionWindowIfNeeded NC.MessageWinAttachedMenuWhenSelectedFn NC.MessageWinCloseFn) (* * Functions for building the scavenger array and reading things in the data area robustly.) (FNS NC.BuildScavengerArray NC.RobustReadCardPart NC.ScavengerArrayOffsetFromID NC.CheckForValidSubstance NC.SearchFor###OrNOBIND NC.AtEndOfItemP NC.RobustRead NC.RobustReadItemIdentifier NC.RobustReadID NC.RobustReadString NC.RobustReadList NC.RobustReadLinks NC.RobustReadAtom NC.RobustReadRegion NC.RobustGetSubstance NC.SkipWhiteSpace NC.RobustReadDate NC.RobustReadChar NC.RobustReadByte) (* * Functions for accessing the scavenger array.) (FNS NC.GetTypeFromScavengerArray NC.GetTitleFromScavengerArray) (* * Functions for building bad cards list based on the index array and scavenger array.) (FNS NC.BuildBadCardsList NC.WorthlessCardP NC.CheckIndexPtrAgainstScavengerArray) (* * Functions for backing up a card part to its previous version.) (FNS NC.RestorePreviousTitle NC.RestorePreviousSubstance NC.RestorePreviousLinks NC.RestorePreviousPropList) (* * Functions for interacting with the user.) ( FNS NC.BuildCardInspectorMenu NC.EncodeCardProblems NC.CardInspectorCloseFn NC.CardInspectorRepaintFn NC.CardInspectorMenuWhenSelectedFn NC.CardInspectorAttachedMenuWhenSelectedFn NC.BuildLinkLabelsInspector NC.BuildLinkLabelsInspectorMenu NC.BuildCardPartsInspector NC.CardPartsAttachedMenuWhenSelectedFn NC.BuildTitlesInspectorMenu NC.BuildSubstancesInspectorMenu NC.BuildLinksInspectorMenu NC.BuildPropListsInspectorMenu NC.CardPartsMenusWhenSelectedFn NC.CardTitleVersionInspector NC.CardSubstanceVersionInspector NC.CardLinksVersionInspector NC.CardPropListVersionInspector NC.LinkLabelsVersionInspector) (* * Miscellaneous.) (FNS NC.ComputeMenuPosition NC.CheckForBadLinksAndTitlesAndPropLists) (RECORDS LINKSDATA TITLEDATA PROPLISTDATA LINKLABELSDATA) (* * Possible reasons for bad card parts.) (P (PUTPROP (QUOTE BADITEMPTR) (QUOTE ReasonString) "out of bounds item pointer(s).") (PUTPROP (QUOTE BADSUBSTANCEPTR) (QUOTE ReasonString) "out of bounds substance pointer(s).") (PUTPROP (QUOTE BADLINKSPTR) (QUOTE ReasonString) "out of bounds links pointer(s).") (PUTPROP (QUOTE BADTITLEPTR) (QUOTE ReasonString) "out of bounds title pointer(s).") (PUTPROP (QUOTE BADPROPLISTPTR) (QUOTE ReasonString) "out of bounds prop list pointer(s).") (PUTPROP (QUOTE BADITEM) (QUOTE ReasonString) "improper substance data.") (PUTPROP (QUOTE BADSUBSTANCE) (QUOTE ReasonString) "improper substance data.") (PUTPROP (QUOTE BADLINKS) (QUOTE ReasonString) "improper links data.") ( PUTPROP (QUOTE BADTITLE) (QUOTE ReasonString) "improper title data.") (PUTPROP (QUOTE BADPROPLIST) ( QUOTE ReasonString) "improper prop list data.") (PUTPROP (QUOTE BADLINKLABELS) (QUOTE ReasonString) "improper link labels.") (PUTPROP (QUOTE ITEMPASTCHKPT) (QUOTE ReasonString) "item beyond chkpt pointer.") (PUTPROP (QUOTE SUBSTANCEPASTCHKPT) (QUOTE ReasonString) "substance beyond chkpt pointer.") (PUTPROP (QUOTE LINKSPASTCHKPT) (QUOTE ReasonString) "links beyond chkpt pointer.") (PUTPROP (QUOTE TITLEPASTCHKPT) (QUOTE ReasonString) "title beyond chkpt pointer.") (PUTPROP (QUOTE PROPLISTPASTCHKPT) (QUOTE ReasonString) "prop list beyond chkpt pointer.") (PUTPROP (QUOTE LINKLABELSPASTCHKPT) (QUOTE ReasonString) "link labels beyond chkpt pointer.") (PUTPROP (QUOTE UNKNOWNCARDTYPE) (QUOTE ReasonString) "card type definition not loaded.")) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQQ NC.ScavengerArraySubstanceOffset 0) (RPAQQ NC.ScavengerArrayLinksOffset 1) (RPAQQ NC.ScavengerArrayTitleOffset 2) (RPAQQ NC.ScavengerArrayPropListOffset 3) (RPAQQ NC.ScavengerArrayLinkLabelsOffset 4) (RPAQQ NC.IndexArrayOffsets (3 1 2 4)) (RPAQQ NC.ScavengerCriticalOffsets (1 2)) (RPAQQ NC.IndexArrayLinkLabelsOffset 1) (RPAQ NC.CardInspectorAttachedMenuFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (RPAQQ NC.LightShade 4096) (RPAQ NC.OffScreenPosition (CONS 1500 1500)) (RPAQ NC.ScavengerInteractionWinRegion (CREATEREGION (fetch (POSITION XCOORD) of NC.OffScreenPosition) (fetch (POSITION YCOORD) of NC.OffScreenPosition) 400 250)) (RPAQQ NC.CardsPerMenuLimit 200) (RPAQ NC.ScavengerAttachedMenuFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (RECORD LINKSDATA (CARDID VERSIONDATE TOLINKS FROMLINKS GLOBALLINKS)) (RECORD TITLEDATA (CARDID VERSIONDATE TITLE)) (RECORD PROPLISTDATA (CARDID VERSIONDATE PROPLIST)) (RECORD LINKLABELSDATA (CARDID VERSIONDATE LINKTYPES)) (PUTPROP (QUOTE BADITEMPTR) (QUOTE ReasonString) "out of bounds item pointer(s).") (PUTPROP (QUOTE BADSUBSTANCEPTR) (QUOTE ReasonString) "out of bounds substance pointer(s).") (PUTPROP (QUOTE BADLINKSPTR) (QUOTE ReasonString) "out of bounds links pointer(s).") (PUTPROP (QUOTE BADTITLEPTR) (QUOTE ReasonString) "out of bounds title pointer(s).") (PUTPROP (QUOTE BADPROPLISTPTR) (QUOTE ReasonString) "out of bounds prop list pointer(s).") (PUTPROP (QUOTE BADITEM) (QUOTE ReasonString) "improper substance data.") (PUTPROP (QUOTE BADSUBSTANCE) (QUOTE ReasonString) "improper substance data.") (PUTPROP (QUOTE BADLINKS) (QUOTE ReasonString) "improper links data.") (PUTPROP (QUOTE BADTITLE) (QUOTE ReasonString) "improper title data.") (PUTPROP (QUOTE BADPROPLIST) (QUOTE ReasonString) "improper prop list data.") (PUTPROP (QUOTE BADLINKLABELS) (QUOTE ReasonString) "improper link labels.") (PUTPROP (QUOTE ITEMPASTCHKPT) (QUOTE ReasonString) "item beyond chkpt pointer.") (PUTPROP (QUOTE SUBSTANCEPASTCHKPT) (QUOTE ReasonString) "substance beyond chkpt pointer.") (PUTPROP (QUOTE LINKSPASTCHKPT) (QUOTE ReasonString) "links beyond chkpt pointer.") (PUTPROP (QUOTE TITLEPASTCHKPT) (QUOTE ReasonString) "title beyond chkpt pointer.") (PUTPROP (QUOTE PROPLISTPASTCHKPT) (QUOTE ReasonString) "prop list beyond chkpt pointer.") (PUTPROP (QUOTE LINKLABELSPASTCHKPT) (QUOTE ReasonString) "link labels beyond chkpt pointer.") (PUTPROP (QUOTE UNKNOWNCARDTYPE) (QUOTE ReasonString) "card type definition not loaded.") (PUTPROPS NCREPAIR COPYRIGHT ("Xerox Corporation" 1985)) NIL