(FILECREATED " 9-Mar-87 14:26:17" ("compiled on " {QV}1.3K>NEXT>RHTPATCH213.;3) "12-Nov-85 14:59:23" recompiled changes: NC.MoveCards NC.CopyStructure NC.CloseNoteCards NC.DeleteNoteCards NCP.CloseCards in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 9-Mar-87 14:25:37" {QV}1.3K>NEXT>RHTPATCH213.;3 18953 changes to: (FNS NC.CopyStructure NC.CloseSelectedCards NC.CopyCards.NEW NC.CloseNoteCards NC.DeleteNoteCards NC.MoveCards NCP.CopyCards NCP.CloseCards NC.CloseCards) (VARS RHTPATCH213COMS) previous date: " 9-Mar-87 12:52:42" {QV}1.3K>NEXT>RHTPATCH213.;1) NC.MoveCards D1 (I 4 InterestedWindow I 3 QuietFlg I 2 RootCards I 1 DestNoteFileOrFileBox I 0 Cards) 8@dd`ho b@@dhbdABCD @ihDC (65Q NC.DeleteNoteCards 54Q NC.CopyCards 27Q ERROR! 20Q NC.SelectNoteCards) (7 NC.SelectingCardsMenu) ( 14Q "Shift-select from the same NoteFile cards to move:") NC.CopyStructureA0003 D1 (I 0 Card) @i (4 NC.FileBoxP) NIL () NC.CopyStructure D1 (P 0 \NF I 4 QuietFlg I 3 InterestedWindow I 2 TraversalSpecs I 1 DestinationFileBox I 0 RootCards) @ddhbdhd`ho bB3@Hd`@H YIo bAig`ho b@BB A@DC (200Q NC.CopyCards 170Q NCP.CollectCards 156Q ERROR! 150Q NC.SelectNoteCards 124Q ERROR! 116Q NC.AskTraversalSpecs 101Q NC.NoteFileFromNoteFileUID 40Q ERROR! 32Q NC.SelectNoteCards) (137Q NC.SelectingCardMenu 134Q NC.CopyStructureA0003 75Q CardObject 64Q NoteFileTYPE# 51Q CardObject 21Q NC.SelectingCardsMenu) ( 144Q "Shift-select the FileBox to contain the structure." 113Q (SubBox FiledCard) 26Q "Shift-select the root cards of the structure") NC.MoveStructure D1 (I 5 Don'tPutToBeDeletedCardsFlg I 4 QuietFlg I 3 InterestedWindow I 2 TraversalSpecs I 1 DestinationFileBox I 0 RootCards) @ddhABCD ihCDhE (31Q NC.DeleteNoteCards 17Q NC.CopyStructure) NIL () NC.CloseStructure D1 (P 0 \NF I 3 QuietFlg I 2 InterestedWindow I 1 TraversalSpecs I 0 RootCards) }@ddhbdhd`ho bA/@Hd`@H YIo b@(A%CBio @AA hdB CBi @(171Q NC.ClearMsg 162Q NC.CloseNoteCards 154Q NCP.CollectCards 142Q NC.PrintMsg 116Q NC.AskTraversalSpecs 101Q NC.NoteFileFromNoteFileUID 40Q ERROR! 32Q NC.SelectNoteCards) (75Q CardObject 64Q NoteFileTYPE# 51Q CardObject 21Q NC.SelectingCardsMenu) ( 137Q "Collecting cards to close ..." 113Q (SubBox FiledCard) 26Q "Shift-select the root cards of the structure") NC.DeleteStructure D1 (P 0 \NF I 4 Don'tPutToBeDeletedCardsFlg I 3 QuietFlg I 2 InterestedWindow I 1 TraversalSpecs I 0 RootCards) @ddhbdhd`ho bA/@Hd`@H YIo b@,A)CBio @AA ihBChD CBi @(175Q NC.ClearMsg 166Q NC.DeleteNoteCards 154Q NCP.CollectCards 142Q NC.PrintMsg 116Q NC.AskTraversalSpecs 101Q NC.NoteFileFromNoteFileUID 40Q ERROR! 32Q NC.SelectNoteCards) (75Q CardObject 64Q NoteFileTYPE# 51Q CardObject 21Q NC.SelectingCardsMenu) ( 137Q "Collecting cards to delete ..." 113Q (SubBox FiledCard) 26Q "Shift-select the root cards of the structure") NC.CloseNoteCards D1 (P 2 Card P 1 Window P 0 Cards I 3 InterestedWindow I 2 DontClearFlg I 1 NoCheckFlg I 0 CardIdOrCardList) Z @dd d`Co XHd2d/h+dJ J YJi gI h(116Q BLOCK 112Q OPENWP 101Q NC.QuitCard 71Q NC.FetchWindow 63Q NC.ActiveCardP 36Q SPAWN.MOUSE 32Q NC.SelectNoteCards 14Q NC.CoerceToCard) (104Q DON'T 21Q NC.SelectingCardsMenu) ( 26Q "Please shift-select the cards to be closed.") NC.AskTraversalSpecsA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q Label P 3 Link F 11Q OldDepth F 12Q LinkLabels F 13Q OldLinkLabels F 14Q Position F 15Q MACROY) T `gW `g`dWdg dgjdndhHdI `@WdgK IHhZH&JHdIdg dgjdndhHdI `dodg dgjdndhHdI h `gWAL%MWAL?MW3 Wl jWQgN_k gO_N Oh^L\O&_k gO_N Oh^L\O&Wh ci(516Q STYLE.PROP 447Q NTHCHAR 402Q NTHCHAR 310Q STYLE.PROP 123Q PACK* 12Q STYLE.PROP) (452Q _ 405Q _ 371Q INF 317Q SELECTIONS 314Q NC.TraversalSpecsStylesheet 251Q DEFAULTMENUHELDFN 242Q CLRPROMPT 225Q MENUTYPE# 172Q DEFAULTMENUHELDFN 163Q CLRPROMPT 117Q _ 101Q MENUTYPE# 46Q DEFAULTMENUHELDFN 37Q CLRPROMPT 24Q MENUTYPE# 21Q ITEMS 16Q NC.TraversalSpecsStylesheet 5 POSITION 2 NC.TraversalSpecsStylesheet) ( 233Q (0 1 2 3 4 5 6 7 10Q 11Q INF)) NC.AskTraversalSpecs D1 (P 7 RESETSTATE P 6 MACROY P 4 OLDVALUE P 2 Position P 1 Choices P 0 LinkLabels I 4 InterestedWindow I 3 Don'tAskFlg I 2 OldDepth I 1 OldLinkLabels I 0 NoteFile F 10Q RESETVARSLST F 11Q NC.NoteCardsIconWindow) DWb@i 1AHbCABhD D D [KkZBobg 1gLhhWcog g_McgM O` YddI I3 oh(226Q \APPEND2 212Q STYLESHEET 202Q ERROR! 173Q APPLY 145Q NC.AskTraversalSpecsA0001 111Q CURSOR 55Q WINDOWREGION 46Q \INSUREWINDOW 40Q WINDOWP 13Q NC.RetrieveLinkLabels) (207Q NC.TraversalSpecsStylesheet 164Q CURSOR 151Q ERROR 142Q INTERNAL 117Q CURSOR 106Q WAITINGCURSOR) ( 242Q 17777777777Q 137Q (NC.AskTraversalSpecsA0001) 100Q 303237Q) NC.DeleteNoteCardsA0002 D1 (NAME ERRORSET F 0 Card F 1 RESETVARSLST F 2 RESETY) SgPgPg hPgg hQcgPgPg hPg hQcP ci(115Q NC.DeleteNoteCard 101Q NC.SetUserDataProp 76Q THIS.PROCESS 62Q NC.FetchUserDataProp 34Q NC.SetUserDataProp 15Q NC.FetchUserDataProp) (73Q ProcessInProgress 57Q ProcessInProgress 53Q ProcessInProgress 47Q NC.SetUserDataProp 31Q Delete% Card%(s%) 26Q OperationInProgress 12Q OperationInProgress 6 OperationInProgress 2 NC.SetUserDataProp) () NC.DeleteNoteCards D1 (P 20Q RESETZ P 17Q RESETY P 16Q LISPXHIST P 15Q OperationInProgress P 14Q Card P 13Q i P 10Q NumToDelete P 7 NumSpecified P 6 CardsToDelete P 5 Card P 4 CardIdentifier I 5 NoGroupConfirmFlg I 4 QuietFlg I 3 InterestedWindow I 2 DontClearFlg I 1 NoIndividualConfirmFlg I 0 CardIdentifiers F 21Q LISPXHIST F 22Q RESETVARSLST) @hd`Co bAE@ddh kib b@ddhQHMI@ddh " N _dj-dOEoOol o hoL ]hM %M iol n M i >Md o 1A#oooBhM C hMJKhZYHX