(FILECREATED " 2-Mar-87 23:33:18" ("compiled on " {QV}1.3K>NEXT>RHTPATCH210.;3) "12-Nov-85 14:59:23" recompiled changes: NCP.SelectCards NCP.ReportError NC.ReportError NC.SelectNoteCards in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 2-Mar-87 23:32:50" {QV}1.3K>NEXT>RHTPATCH210.;3 88294 changes to: (VARS RHTPATCH210COMS) (FNS NCP.ReportError NCP.SelectCards NC.SelectNoteCards NC.ReportError) previous date: " 2-Mar-87 22:22:26" {QV}1.3K>NEXT>RHTPATCH210.;1) NCP.IsSubTypeOfP D1 (I 1 SupposedSuperTypeName I 0 SubTypeName) @A (4 NC.IsSubTypeOfP) NIL () NCP.TextBasedP D1 (P 0 CardType I 0 CardOrCardType) @ ”@ €@Hg (24Q NC.IsSubTypeOfP 10Q NCP.CardType 3 NC.CardP) (21Q Text) () NCP.SketchBasedP D1 (P 0 CardType I 0 CardOrCardType) @ ”@ €@Hg (24Q NC.IsSubTypeOfP 10Q NCP.CardType 3 NC.CardP) (21Q Sketch) () NCP.GraphBasedP D1 (P 0 CardType I 0 CardOrCardType) @ ”@ €@Hg (24Q NC.IsSubTypeOfP 10Q NCP.CardType 3 NC.CardP) (21Q Graph) () NCP.CreateNoteFile D1 (P 0 FileNameWithExt I 1 QuietFlg I 0 FileName) 9hddd@ H ²gooHo hHhdddddA H(65Q NC.CreateDatabaseFile 47Q NCP.ReportError 44Q CONCAT 17Q INFILEP 10Q NC.DatabaseFileName) (24Q NCP.CreateNoteFile) ( 41Q " already exists." 34Q "Filename " 30Q "NCP.CreateNoteFile") NCP.CloseNoteFiles D1 (P 0 NoteFile I 2 AutoConfirmFlg I 1 QuietFlg I 0 NoteFilesOrT) C@dið•¿°4µ1@d²-h°)dH ³goHo †HhdAµØh(72Q NC.CloseNoteFile 62Q NCP.ReportError 57Q CONCAT 36Q NCP.OpenNoteFileP 10Q NCP.ListOfOpenNoteFiles) (43Q NCP.CloseNoteFiles) ( 54Q " is not a currently open notefile." 47Q "Argument ") NCP.CheckpointNoteFiles D1 (P 0 NoteFile I 1 QuietFlg I 0 NoteFilesOrT) A@dið•¿°2µ/@d²+h°'dH ³goHo „HA µÚh(70Q NC.CheckpointDatabase 62Q NCP.ReportError 57Q CONCAT 36Q NCP.OpenNoteFileP 10Q NCP.ListOfOpenNoteFiles) (43Q NCP.CheckpointNoteFiles) ( 54Q " is not a currently open notefile." 47Q "Argument ") NCP.AbortNoteFiles D1 (P 0 NoteFile I 2 QuietFlg I 1 Don'tConfirmFlg I 0 NoteFilesOrT) C@dið•¿°4µ1@d²-h°)dH ³goHo †HhABµØh(72Q NC.AbortSession 62Q NCP.ReportError 57Q CONCAT 36Q NCP.OpenNoteFileP 10Q NCP.ListOfOpenNoteFiles) (43Q NCP.AbortNotefiles) ( 54Q " is not a currently open notefile." 47Q "Argument ") NCP.RepairNoteFile D1 (I 1 ReadSubstancesFlg I 0 NoteFileOrFileName) @ žgo@ @A (30Q NC.InspectAndRepairNoteFile 22Q NCP.ReportError 17Q CONCAT 3 NCP.OpenNoteFileP) (7 NCP.RepairNoteFile) ( 13Q "Can't inspect&repair an open notefile: ") NCP.FileNameFromNoteFile D1 (I 0 NoteFile) @d`ð¯¿go@ É(26Q NCP.ReportError 23Q CONCAT) (32Q NoteFile 13Q NCP.FileNameFromNoteFile 5 NoteFileTYPE#) ( 17Q "Arg to NCP.FileNameFromNoteFile is not a notefile: ") NCP.ChangeCardTypeFields D1 (I 2 VarsAssocList I 1 FnsAssocList I 0 TypeName) @ –@ABgo@ (31Q NCP.ReportError 26Q CONCAT 12Q NC.RecomputeCardType 3 NCP.CardTypeP) (16Q NCP.ChangeCardTypeFields) ( 22Q "Undefined card type: ") NCP.CardTypeSuper D1 (P 2 FieldValue P 1 CardTypeRecord P 0 CardTypeName I 0 Type) @ ²z@!Hd²q YžIÉZdgð²P¿HId”É ´ H Yd¬oH ¿IÉZdgð² ¿oogoHo ¿Jgð—Hg Jg@o h(213Q NCP.ReportError 210Q CONCAT 172Q NC.GetCardTypeFieldOfSuper 154Q NC.ReportError 151Q CONCAT 101Q NC.ReportError 76Q CONCAT 63Q NC.CardTypeRecord 55Q NC.CardTypeLoader 20Q NC.CardTypeRecord 3 NCP.CardTypeP) (200Q NCP.CardTypeSuper 167Q SuperType 161Q \\FILLME// 134Q SuperType 115Q \\EMPTY// 106Q NoteCardType 50Q NoteCardType 35Q \\EMPTY// 26Q NoteCardType) ( 205Q " is not a loaded NoteCard type." 145Q " still \\EMPTY// after autoloading." 140Q " of card type " 131Q "Field name " 125Q "NC.GetCardTypeField" 72Q "Cannot find full definition of card type: ") NCP.CardTypeLinkDisplayMode D1 (P 2 FieldValue P 1 CardTypeRecord P 0 CardTypeName I 0 Type) @ ²z@!Hd²q YžIÉ"Zdgð²P¿HId”É ´ H Yd¬oH ¿IÉ"Zdgð² ¿oogoHo ¿Jgð—Hg Jg@o h(213Q NCP.ReportError 210Q CONCAT 172Q NC.GetCardTypeFieldOfSuper 154Q NC.ReportError 151Q CONCAT 101Q NC.ReportError 76Q CONCAT 63Q NC.CardTypeRecord 55Q NC.CardTypeLoader 20Q NC.CardTypeRecord 3 NCP.CardTypeP) (200Q NCP.CardTypeLinkDisplayMode 167Q LinkDisplayMode 161Q \\FILLME// 134Q LinkDisplayMode 115Q \\EMPTY// 106Q NoteCardType 50Q NoteCardType 35Q \\EMPTY// 26Q NoteCardType) ( 205Q " is not a loaded NoteCard type." 145Q " still \\EMPTY// after autoloading." 140Q " of card type " 131Q "Field name " 125Q "NC.GetCardTypeField" 72Q "Cannot find full definition of card type: ") NCP.CardTypeFn D1 (I 1 Fn I 0 TypeName) 9@ ²$A gAo gAo g@o h(65Q NCP.ReportError 62Q CONCAT 46Q NCP.ReportError 43Q CONCAT 27Q EVAL 11Q NCP.ValidCardTypeFn 3 NCP.CardTypeP) (52Q NCP.CardTypeFn 33Q NCP.CardTypeFn 15Q NC.GetCardTypeField) ( 57Q " is not a loaded NoteCard type." 40Q " is not a kind of Fn for NoteCard types." 22Q (TypeName)) NCP.CardTypeVar D1 (I 1 Var I 0 TypeName) 9@ ²$A gAo gAo g@o h(65Q NCP.ReportError 62Q CONCAT 46Q NCP.ReportError 43Q CONCAT 27Q EVAL 11Q NCP.ValidCardTypeVar 3 NCP.CardTypeP) (52Q NCP.CardTypeVar 33Q NCP.CardTypeVar 15Q NC.GetCardTypeField) ( 57Q " is not a loaded NoteCard type." 40Q " is not a kind of Var for NoteCard types." 22Q (TypeName)) NCP.CardTypeDisplayedInMenu D1 (P 2 OldVal P 1 CardType P 0 Args) ^e Hkð¥Hlð²B@Y ²+Ig ZHlð²dHlðð³IhgHlðhh¿gIo hgo h(132Q NCP.ReportError 116Q NCP.ReportError 113Q CONCAT 76Q NCP.ChangeCardTypeFields 36Q NCP.CardTypeVar 25Q NCP.CardTypeP) (123Q NCP.CardTypeDisplayedInMenu 103Q NCP.CardTypeDisplayedInMenu 62Q DisplayedInMenuFlg 33Q DisplayedInMenuFlg) ( 127Q "Improper number of args to NCP.CardTypeDisplayedInMenu." 110Q " is not a loaded NoteCard type.") NCP.CreateCard D1 (P 2 Box P 1 CardIdentifier P 0 Card I 6 TypeSpecificArgs I 5 ParentFileBoxes I 4 Props I 3 NoDisplayFlg I 2 Title I 1 NoteFile I 0 Type) t@ ²_ @ABCF Yd²N ”I €IXDždD ¿Hi ¿Ed³)d²&h°"dJ •HJ gJo µßHgo@ h(160Q NCP.ReportError 155Q CONCAT 133Q NCP.ReportError 130Q CONCAT 114Q NCP.FileCards 106Q NCP.FileBoxP 60Q NC.SetPropListDirtyFlg 52Q NC.SetPropList 47Q \APPEND2 35Q NCP.CardFromWindow 30Q WINDOWP 21Q NC.MakeNoteCard 3 NCP.CardTypeP) (145Q NCP.CreateCard 120Q NCP.CreateCard) ( 151Q "Unknown card type: " 125Q " not an existing filebox.") NCP.CreateBrowserCard D1 (P 6 LinkType P 2 NewParamList P 1 LinkTypes P 0 ValidLinkTypes I 5 ParentFileBoxes I 4 Props I 3 NoDisplayFlg I 2 ParamList I 1 Title I 0 NoteFile) •00Bg'Y°GdNdgð–¿@ °(gð•@ °N@ ³gNo ¿h‚Nh[–LµK]\¿µºMXdd XI›d©h \K°æBµgHhZ¿g@ACDEJ ZgH°æ(221Q LISTPUT 211Q COPY 205Q NCP.CreateCard 147Q LAST 135Q INTERSECTION 100Q NCP.ReportError 75Q CONCAT 60Q NCP.ValidLinkTypeP 51Q NCP.ReverseLinkTypes 36Q NCP.LinkTypes) (215Q LINKTYPES 173Q Browser 162Q LINKTYPES 65Q NCP.CreateBrowserCard 43Q _ALL 27Q ALL 11Q LINKTYPES) ( 72Q " not a valid link type.") NCP.MakeDocument D1 (P 2 WasActive P 1 DocCard P 0 CurParams I 5 ParentFileBoxes I 4 Props I 3 NoDisplayFlg I 2 ParamProps I 1 RootCard I 0 NoteFile) O0A ²7A Z¤A ¿Bµ#g@hCDEA YB—gH ¿J¤Ai I ¸°ÛgAo h(113Q NCP.ReportError 110Q CONCAT 72Q NCP.DocumentParameters 65Q NCP.UncacheCards 55Q SETPROPLIST 43Q NCP.CreateCard 22Q NCP.CacheCards 14Q NCP.CardCachedP 6 NC.ValidCardP) (100Q NCP.MakeDocument 51Q NC.MakeDocParameters 31Q Document) ( 105Q " not a valid card or filebox.") NCP.MakeLinkIndex D1 (P 4 ValidLinkTypes P 3 LinkType I 5 ParentFileBoxes I 4 Props I 3 NoDisplayFlg I 2 BackPointersP I 1 LinkTypes I 0 NoteFile) ƒ0Ad³Nd²Kh°GdKdgð–¿@ °(gð•@ °K@ ³gKo ¿h‚KhX–IµHZY¿µºJLd \A›d©h YH°äg@hCDELBh (200Q NCP.CreateCard 152Q LAST 140Q INTERSECTION 101Q NCP.ReportError 76Q CONCAT 61Q NCP.ValidLinkType 52Q NCP.ReverseLinkTypes 37Q NCP.LinkTypes) (162Q LinkIndex 66Q NCP.MakeLinkIndex 44Q _ALL 30Q ALL) ( 73Q " not a valid link label.") NCP.OpenCard D1 (P 0 OldProc I 2 TypeSpecificArgs I 1 Region/Position I 0 Card) -@ ²@ABH ”H ¿g@o (52Q NCP.ReportError 47Q CONCAT 32Q TTY.PROCESS 25Q PROCESSP 21Q NC.EditNoteCard 10Q TTY.PROCESS 3 NC.ValidCardP) (37Q NCP.OpenCard) ( 44Q " not an existing card or box.") NCP.CloseCards D1 (P 4 Process P 3 Win P 2 Card P 1 OldProc I 1 QuietFlg I 0 Cards) r@d£d‘h"Hµ I “I JZ ³gJo ¿° J ²JihddddA gð¦J [µHX°¹ É.Lµ°ï ³ú¿°ñ(155Q BLOCK 150Q PROCESS.FINISHEDP 132Q \INSUREWINDOW 117Q NC.FetchWindow 106Q NC.QuitCard 70Q NCP.CardCachedP 61Q NCP.ReportError 56Q CONCAT 41Q NC.ValidCardP 32Q TTY.PROCESS 25Q PROCESSP 12Q TTY.PROCESS) (111Q DON'T 46Q NCP.CloseCards) ( 53Q " not an existing card or filebox.") NCP.DisplayCard D1 (P 0 OldProc I 2 TypeSpecificArgs I 1 Region/Position I 0 Card) B@ ².@ ²@ABH ”H ¿g@o g@o (77Q NCP.ReportError 74Q CONCAT 60Q NCP.ReportError 55Q CONCAT 40Q TTY.PROCESS 33Q PROCESSP 27Q NC.EditNoteCard 16Q TTY.PROCESS 11Q NCP.CardCachedP 3 NC.ValidCardP) (64Q NCP.DisplayCard 45Q NCP.DisplayCard) ( 71Q " not an existing card or box." 52Q " must be cached before displayed: NCP.DisplayCard.") NCP.UndisplayCards D1 (P 2 OldProc P 1 Card I 2 WriteChangesFlg I 1 QuietFlg I 0 Cards) b@d£d‘hHµIY ³gIo ¿°5I ¬hiIo¿°#IiBhðhdddAi ¿J ”J ¿HX°(131Q TTY.PROCESS 124Q PROCESSP 117Q NC.QuitCard 75Q TTY.PROCESS 67Q NCP.PrintMsg 54Q NCP.CardDisplayedP 45Q NCP.ReportError 42Q CONCAT 25Q NC.ValidCardP) (32Q NCP.UndisplayCards) ( 64Q " already undisplayed: NCP.UndisplayCards" 37Q " not an existing card or filebox.") NCP.CacheCards D1 (P 1 Card I 0 Cards) B@d£d‘hHµIY ¯gIo °I šhiIoƒI ¿HX°Í(72Q NC.GetNoteCard 65Q NCP.PrintMsg 52Q NCP.CardCachedP 44Q NCP.ReportError 41Q CONCAT 25Q NC.ValidCardP) (31Q NCP.CacheCards) ( 62Q " already cached: NCP.CacheCards." 36Q " not an existing card or filebox.") NCP.UncacheCards D1 (P 0 Card I 1 QuietFlg I 0 Cards) c@d³Zd²Wh°SdH ¯gHo °7H ¯gHo °"H žgHo ‹HhdddddA µ®h(132Q NC.QuitCard 115Q NCP.ReportError 112Q CONCAT 76Q NCP.CardDisplayedP 70Q NCP.ReportError 65Q CONCAT 51Q NCP.CardCachedP 43Q NCP.ReportError 40Q CONCAT 24Q NC.ValidCardP) (102Q NCP.UncacheCards 55Q NCP.UncacheCards 30Q NCP.UncacheCards) ( 107Q " must be undisplayed before can uncache." 62Q " must be cached before can uncache." 35Q " not an existing card or filebox.") NCP.CardTitle D1 (P 1 Card P 0 Args) FeHkð³Hlð«go h@Y ²I Hlð–IhA¿gIo h(102Q NCP.ReportError 77Q CONCAT 62Q NC.AssignTitle 47Q NC.RetrieveTitle 41Q NC.ValidCardP 32Q NCP.ReportError) (67Q NCP.CardTitle 23Q NCP.CardTitle) ( 74Q " not an existing card or box." 27Q "Improper number of arguments to NCP.CardBoxTitle.") NCP.FileCards D1 (P 11Q Box P 4 Card I 1 BoxList I 0 CardBoxList) ¾ @d£d‘hAHµ)IbAd£d‘hAHµDIbd´@´dA Mµ`N\ ³gLo ¿i€h©L»JµKhZ¹HX°¯K&º°ø\ ³gLo ¿i€h©L»JµKhZ¹HX°”K&º°ø_¿hO@iŸO_¿OµOh_¾M]±ÿO&_¿°ô(235Q NC.FileBoxCollectChildren 170Q NCP.ReportError 165Q CONCAT 150Q NCP.FileBoxP 112Q NCP.ReportError 107Q CONCAT 72Q NC.ValidCardP) (155Q NCP.FileCards 77Q NCP.FileCards) ( 162Q " not an existing filebox. Can't be filed into." 104Q " not an existing card or box. Can't file.") NCP.UnfileCards D1 (P 5 Box P 4 Card I 1 BoxList I 0 CardBoxList) !@gð³@d£d‘hAHµ5Ib¿Agð³Ad£d‘hAHµHIb¿@gð’±´Agð²~@°v\ ³gLo ¿i€h©L»JµKhZ¹HX°£K&º°ø\ ³gLo ¿i€h©L»JµKhZ¹HX°K&º°ødhL``h µç°[@°(dA°dML``h µçhµÙ°-Adgð²"¿b°dMh``h µç@´A(425Q NCP.DeleteLinks 422Q NCP.GetLinks 373Q NCP.AllBoxes 342Q NCP.DeleteLinks 337Q NCP.GetLinks 272Q NCP.DeleteLinks 267Q NCP.GetLinks 213Q NCP.ReportError 210Q CONCAT 173Q NCP.FileBoxP 135Q NCP.ReportError 132Q CONCAT 115Q NC.ValidCardP) (414Q NC.SubBoxLinkLabel 411Q NC.FiledCardLinkLabel 364Q ALL 331Q NC.SubBoxLinkLabel 326Q NC.FiledCardLinkLabel 261Q NC.SubBoxLinkLabel 256Q NC.FiledCardLinkLabel 200Q NCP.UnfileCards 122Q NCP.UnfileCards 102Q ALL 71Q ALL 36Q ALL 3 ALL) ( 205Q " not an existing filebox." 127Q " not an existing card or box. Can't unfile.") NCP.CardParents D1 (I 0 Card) B@ ².0h@``h°dÉ¸IµHhZH&¹µëJg@o (77Q NCP.ReportError 74Q CONCAT 26Q NCP.GetLinks 3 NC.ValidCardP) (64Q NCP.CardParents 35Q Link 20Q NC.SubBoxLinkLabel 15Q NC.FiledCardLinkLabel) ( 71Q " is not an existing card or filebox.") NCP.FileBoxChildren D1 (I 0 Box) B@ ².0@h``h°dÉ¸IµHhZH&¹µëJg@o (77Q NCP.ReportError 74Q CONCAT 26Q NCP.GetLinks 3 NCP.FileBoxP) (64Q NCP.FileBoxChildren 35Q Link 20Q NC.SubBoxLinkLabel 15Q NC.FiledCardLinkLabel) ( 71Q " is not an existing filebox.") NCP.GetLinksA0001A0002 D1 (L (0 Link) F 0 Labels) P˜@ÉPiNIL (5 Link) () NCP.GetLinksA0001A0003 D1 (L (0 Link) F 0 Labels) P˜@ÉPiNIL (5 Link) () NCP.GetLinksA0001 D1 (P 12Q Link P 11Q Link P 4 Card P 3 Card P 0 PredicateResult I 1 Key I 0 Value F 13Q Labels F 14Q CollectionList) ñ0@K ´ KkgX²q@K ´`KL A MµN°L_¹W™IÉW€i²Okg_¿OµOh_¾M]°ÌO&_¿°õd OkgµðhWc@K ´]KL A MµN_ºW™JÉW€i²Okg_¿OµOh_¾M]°ÎO&_¿°õd Okgµðh(233Q NC.RetrieveToLinks 221Q NCP.ValidCardP 54Q NC.RetrieveToLinks 42Q NCP.ValidCardP 15Q NCP.ValidCardP 5 BLOCK) (346Q PROG1 276Q PROG1 257Q Link 171Q PROG1 121Q PROG1 102Q Link 24Q TRUE) () NCP.GetLinks D1 (P 15Q CollectionList P 7 HadLinksCachedFlg P 6 Card P 1 ValidDestinationCards P 0 ValidCards I 3 NoteFile I 2 Labels I 1 DestinationCards I 0 Cards) µ Bd£d‘hb@d£d‘hAJµ&KXAd£d‘hAJµGKY@¢±âH!LµjM¾¿N ³gNo ¿i€h©N½LµMh\»JZ°M&¼°ø¾¿N ³gNo ¿i€h©N½LµMh\»JZ°ŒM&¼°ø¾¿MN N AOµOO¤N ¿ ½L\±ÿh_¿AšOÉI²!BšOÉB²O_¿OµOh__¿O_°²O&_¿°óA²mI!LµM¾¿MN N AOµOO¤N ¿ ½L\°Î_¿BšOÉB²O_¿OµOh__¿O_°ÀO&_¿°ó0 CÉg ¿OŒdZ–KµJ\[¿µòL [J°ó(656Q LAST 624Q MAPHASH 512Q \NCONC2 505Q NC.UncacheLinks 463Q NC.RetrieveFromLinks 454Q NC.LinksCachedP 446Q BLOCK 316Q \NCONC2 311Q NC.UncacheLinks 267Q NC.RetrieveToLinks 260Q NC.LinksCachedP 252Q BLOCK 214Q NCP.ReportError 211Q CONCAT 174Q NC.ValidCardP 167Q BLOCK 131Q NCP.ReportError 126Q CONCAT 111Q NC.ValidCardP 104Q BLOCK) (621Q NCP.GetLinksA0001 614Q NoteFile 533Q Link 355Q Link 340Q Link 201Q NCP.GetLinks 116Q NCP.GetLinks) ( 206Q " not an existing card or box." 123Q " not an existing card or box.") NCP.CardProp D1 (P 2 PropList P 1 Card P 0 Args) me Hlð³Hlð¯goH h@Y ²5I ZA'Hlð²JµIABh ¿I ¬I ¿AB°ïIi ¿gIo h(151Q NCP.ReportError 146Q CONCAT 131Q NC.SetPropListDirtyFlg 122Q LISTPUT 113Q NC.PutPropList 106Q NCP.CardCachedP 101Q NC.SetPropList 54Q NC.RetrievePropList 46Q NC.ValidCardP 37Q NCP.ReportError 34Q CONCAT) (136Q NCP.CardProp 24Q NCP.CardProp) ( 143Q " not an existing card or box." 30Q "Improper number of args: ") NCP.CardAddProp D1 (P 1 OldPropValue P 0 PropList I 2 ItemToAdd I 1 Property I 0 Card) U@ ²@@ HA'BId£d‘h³%HAId£d‘hBh ¿@ ¤@ „@i Ig@o h(121Q NCP.ReportError 116Q CONCAT 101Q NC.SetPropListDirtyFlg 73Q NC.PutPropList 66Q NCP.CardCachedP 61Q LISTPUT 56Q \APPEND2 11Q NC.RetrievePropList 3 NC.ValidCardP) (106Q NCP.CardAddProp) ( 113Q " not an existing card or box.") NCP.CardDelProp D1 (P 1 OldPropValue P 0 PropList I 2 ItemToDelete I 1 Property I 0 Card) i@ ²T@ HA'I¡hBI´