(FILECREATED "22-Jun-87 13:18:29" ("compiled on " {QV}1.3K>NEXT>RHTPATCH280.;1) "12-Nov-85 14:59:23" tcompl'd in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED "22-Jun-87 13:18:15" {QV}1.3K>NEXT>RHTPATCH280.;1 12915 changes to: (VARS RHTPATCH280COMS) (FNS NC.CopyCards)) NC.CopyCardsA0001A0008 D1 (NAME ERRORSET L (0 NIL) P 6 IndexLocs P 5 HadStatusNILFlg P 4 WasActiveFlg P 3 NewCard P 2 Card P 1 i F 10Q RESETVARSLST F 11Q NewCardsAndLocsOnStream F 12Q Cards F 13Q RESETY F 14Q CardHashArray F 15Q QuietFlg F 16Q InterestedWindow F 17Q NumCards F 20Q TempStream F 21Q DestNoteFile) È ohhWc¿WkbHµhciº¿J ’±”W³?Ild _jð¬O².O ²'Wiol oIoWol ¿J \¤J ¿JÉhð]™Jg¿JhiW ¾M—Jh¿L¤J ¿W" »JKW ¿KNWc¿H¸IkÔ¹±ÿP(262Q PUTHASH 252Q NC.GetNewCard 244Q NC.DeactivateCard 223Q NC.PutNoteCardToStream 166Q NC.GetNoteCard 160Q NC.ActiveCardP 153Q NC.PrintMsg 147Q CHARACTER 123Q CHARACTER 105Q \FZEROP 65Q REMAINDER 47Q NC.CrossFileLinkCardP 42Q BLOCK) (232Q CardObject 210Q ACTIVE 205Q CardObject 173Q CardObject) ( 142Q "..." 134Q " out of " 127Q "Processing item " 116Q "Copying cards: creating empty copies." 3 (PROGN (if RESETSTATE then (for CardAndLoc in NewCardsAndLocsOnStream do (NC.DeleteNoteCardInternal (CAR CardAndLoc) T InterestedWindow)) (NC.ClearMsg InterestedWindow T)))) NC.CopyCardsA0001 D1 (NAME ERRORSET P 43Q IndexLocs P 42Q NewCard P 41Q RootCard P 34Q NewCardAndLocsOnStream P 33Q CrossFileLinkModePropList P 32Q i P 30Q RESETZ P 27Q RESETY P 26Q LISPXHIST P 25Q \NF P 24Q \NF P 23Q Card P 21Q \NF P 20Q CopyExternalToLinksFlg P 17Q NewCardsAndLocsOnStream P 16Q NewLinkLabels P 15Q CurrentLinkLabels P 14Q LinksHashArray P 13Q CardHashArray P 12Q TempStream P 11Q BoxToFileIn P 10Q DestNoteFile P 7 SourceNoteFile P 6 NumCards P 0 A0017 F 44Q Cards F 45Q InterestedWindow F 46Q DestNoteFileOrFileBox F 47Q RootCards F 50Q QuietFlg F 51Q NC.SelectingCardsMenu F 52Q RESETVARSLST F 53Q NC.SelectingCardMenu F 54Q CopyExternalToLinksMode F 55Q NC.CopyCardsLinksHashArraySize F 56Q RESETY F 57Q LISPXHIST) $ WHo QHYµ‚±½i¢±ù°WHd³dWRho cHd¢± µWHd‘hcH ¾WHÉO"d`ð³´WHO" Z¿J_`ð›OÉ ³oOÉo ¿WHO$µCi«oo ¿WLµgihWVhoi cLdgð²P¿h±qµI±ÿ9gð³÷h±ÿ8_&ÉO(d`ð³´O&O( [¿KO ¢h°’O$_$°‡`ðœWL_É_°EWL ².WL_ÉO*d`ð³´OO* \¿L_°ooWL ¿O`ð›OÉ ³oOÉo ¿WNd£d‘hcNWH ›oo ¿WN¤WHcN¿WXdgð“¿i°Hgð³AooWH ol ol o WJ dgð’¿iŠgð´‚±1h_ ¿gg _¿O _¿h _¿WZhgg _¿Nhgg _¿WP³&WJiol okoNol ¿h_¿W^!WTog ‘h‚g_0 ¿O0“¿Oj ¿WP³&WJiol okoNol ¿OkOhhO2µgWP³%WJioWN oO ol ¿hOWNA!O:µ‚±ÑO<i ¿O_œOOO ¿WP¦WJi ¿WH±Ó_8¿¿WP³=O4ld ]jðªM²-M ²'WJiol oO4oNol ¿O8O8#ODg ¿ODOOF ¿ODOOOOWJO O6 ¿OD g —ODO ¿OD O2_2¿O4kÔ_4¿±þ÷_B¿¿OBO_@¿O>µO@h_>_<¿O:_:±ÿ O@&_>¿°òHc\i(1751Q BLOCK 1721Q NC.PutNoteCard 1713Q NC.FixUpBrowserCardCopy 1703Q NC.IsSubTypeOfP 1675Q NC.FetchType 1667Q NC.FixUpLinksInCardCopy 1642Q NC.GetNoteCardFromStream 1630Q NC.SetStatus 1606Q NC.PrintMsg 1602Q CHARACTER 1556Q CHARACTER 1540Q \FZEROP 1523Q REMAINDER 1507Q BLOCK 1471Q NC.ClearMsg 1457Q NC.StoreLinkLabels 1454Q \APPEND2 1433Q NC.FileBoxCollectChildren 1402Q NC.PrintMsg 1376Q CHARACTER 1365Q NC.FetchTitle 1354Q LENGTH 1311Q NC.PrintMsg 1305Q CHARACTER 1262Q CHARACTER 1241Q SETFILEPTR 1231Q ERROR! 1222Q RESETRESTORE 1207Q NC.CopyCardsA0001A0008 1161Q NC.PrintMsg 1155Q CHARACTER 1132Q CHARACTER 1107Q HASHARRAY 1071Q HASHARRAY 1052Q TCONC 1043Q NC.RetrieveLinkLabels 1033Q OPENSTREAM 773Q NC.AskUserWithMenu 766Q CONCAT 756Q CHARACTER 745Q CHARACTER 734Q LENGTH 664Q NC.ReportError 650Q LDIFFERENCE 627Q NC.ReportError 624Q CONCAT 600Q OPENP 555Q NC.ReportError 552Q CONCAT 523Q NC.NoteFileFromNoteFileUID 457Q NCP.FileBoxP 414Q NC.SameNoteFileP 401Q NC.NoteFileFromNoteFileUID 300Q NC.SelectNoteCards 255Q NC.ReportError 224Q NC.ReportError 221Q CONCAT 175Q OPENP 145Q NC.NoteFileFromNoteFileUID 102Q LENGTH 55Q NC.SelectNoteCards 10Q NC.LockListOfCards) (1700Q Browser 1625Q ACTIVE 1215Q ERROR 1204Q INTERNAL 1104Q NC.SameCardP 1101Q NC.MakeHashKeyFromCard 1066Q NC.SameUIDP 1063Q NC.MakeHashKey 1030Q BOTH 1025Q {NODIRCORE} 1007Q No 777Q Yes 714Q DON'TCOPY 703Q COPY 613Q NoteFile 573Q NoteFile 564Q NoteFileTYPE# 516Q CardObject 504Q NoteFileTYPE# 470Q CardObject 444Q NoteFile 433Q NoteFileTYPE# 374Q CardObject 362Q NoteFileTYPE# 346Q CardObject 331Q US 306Q DON'T 210Q NoteFile 170Q NoteFile 161Q NoteFileTYPE# 140Q CardObject 125Q NoteFileTYPE# 111Q CardObject) ( 1575Q "..." 1570Q " out of " 1562Q "Processing item " 1551Q "Copying cards: fixing links and browser cards." 1371Q "..." 1360Q " new cards in " 1347Q "Copying cards: filing " 1300Q "..." 1273Q " out of " 1266Q "Processing item " 1255Q "Copying cards: fixing links and browser cards." 1201Q (NC.CopyCardsA0001A0008) 1150Q "..." 1143Q " out of " 1136Q "Processing item " 1125Q "Copying cards: creating empty copies." 762Q "Do you also want to copy links pointing from these cards to elsewhere? " 751Q "Links among these cards will be automatically copied." 740Q " cards." 727Q "You've asked to copy " 723Q (Yes No Cancel) 661Q "RootCards argument not subset of Cards argument." 655Q "NC.CopyCards" 621Q " not an open notefile." 606Q "NC.CopyCards" 545Q "Arg not notefile or filebox: " 541Q "NC.CopyCards" 273Q "Shift-select the FileBox to contain these cards." 252Q "All cards in Cards arg don't live in the same notefile." 246Q "NC.CopyCards" 216Q " not an open notefile." 203Q "NC.CopyCards" 51Q "Shift-select from the same NoteFile cards to copy:" 5 "Copy Cards") NC.CopyCards D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 CardListResetVar I 5 CopyExternalToLinksMode I 4 InterestedWindow I 3 QuietFlg I 2 RootCards I 1 DestNoteFileOrFileBox I 0 Cards F 4 LISPXHIST) 'T!gog ‘h‚g[ K“J(42Q ERROR! 35Q NAMED-RESETRESTORE 23Q NC.CopyCardsA0001) (31Q ERROR 20Q INTERNAL 11Q CardListResetVar) ( 15Q (NC.CopyCardsA0001)) (PRETTYCOMPRINT RHTPATCH280COMS) (RPAQQ RHTPATCH280COMS ((* * Fixed so that NC.CopyCards would return non-nil in successful cases like it used to. Fixes bug where MoveStructure wasn't calling DeleteCards.) (* * Change to NCDATABASE) (FNS NC.CopyCards))) (PUTPROPS RHTPATCH280 COPYRIGHT ("Xerox Corporation" 1987)) NIL