(FILECREATED "26-Oct-85 23:03:46" ("compiled on " {QV}RELEASE1.2I>NCLINKINDEXCARD.;10) "19-Mar-85 14:34:17" recompiled changes: NC.MakeLinkIndex NC.AskLinkIndexSpecs in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "26-Oct-85 23:03:12" {QV}RELEASE1.2I>NCLINKINDEXCARD.;10 16807 changes to: ( FNS NC.AskLinkIndexSpecs NC.MakeLinkIndex) (VARS NCLINKINDEXCARDCOMS) previous date: "22-Sep-85 17:11:20" {QV}RELEASE1.2I>NCLINKINDEXCARD.;9) NC.MakeLinkIndex D1 (P 5 LinkIndexSpecs P 4 WindowOrID P 3 Window P 2 IndexCardID P 1 BackLinksFlg P 0 LinkLabels I 3 SpecialArgsList I 2 NoDisplayFlg I 1 Title I 0 ID) `CCBgo Bh@ \B“h»L„L[ ºB³!K` ¿KHIi ]µ Ji h¸M¹JHI B‘JKi K(134Q NC.ClearMsg 123Q NC.ComputeLinkIndex 105Q NC.DeleteNoteCards 75Q NC.AskLinkIndexSpecs 65Q NCP.AddTitleBarMenuItems 52Q NC.IDFromWindow 36Q NC.MakeNoteCard 27Q CONCAT 24Q DATE 12Q SPAWN.MOUSE) (62Q NC.LinkIndexExtraMenuItems 15Q Text) ( 21Q "Link Index: ") NC.BringUpLinkIndexCard D1 (P 0 Window I 2 Region/Position I 1 Substance I 0 ID) @AB H` H(17Q NCP.AddTitleBarMenuItems 5 NC.BringUpTEditCard) (14Q NC.LinkIndexExtraMenuItems) () NC.ComputeLinkIndexA0001 D1 (NAME ERRORSET P 21Q Link P 17Q Link P 15Q ID P 14Q ID# P 12Q ID P 11Q WinnerPair P 7 ActiveP P 6 ID P 2 ID# P 0 Label F 22Q LinkLabels F 23Q IndexCardID F 24Q Stream F 25Q LastID F 26Q RESETVARSLST F 27Q BackLinksFlg F 30Q Window F 31Q SortedWinners F 32Q RESETY) ³ g` hhW,c,¿W& c(ol oW$  ¿W$µ7W&gW$h ¿W&gW. ¿W&i c4idW(oH µëW(l l ¿c*kÙc*¿W0io ¿W*kR¿JdIó²@¿Ki c2! Oµ‚±²W*k ¿OdOó¢±¾W0hol ¿±ÿT ^ _¿NgO ¿O§N` ¿N Oµ*h®N O µ2hžN N½Lµ FROM" 537Q " <" 435Q " " 407Q " " 361Q "> TO" 353Q " <" 100Q " ") NC.LinkIndexCompareFn D1 (I 1 Pair2 I 0 Pair1) %@dAð² A A (42Q ALPHORDER 33Q ALPHORDER 30Q NC.FetchTitle 17Q NC.FetchTitle) NIL () NC.AddLinkIndexCard D1 NIL <ggggghgghhooogihh (71Q NC.AddCardType) (54Q CardDisplayedInMenuFlg 27Q NC.BringUpLinkIndexCard 24Q EditCardFn 16Q NC.MakeLinkIndex 13Q MakeCardFn 10Q TEXT 5 Text 2 LinkIndex) ( 51Q (DefaultWidth 536Q) 45Q (DefaultHeight 536Q) 41Q (LinkDisplayMode Title)) (PRETTYCOMPRINT NCLINKINDEXCARDCOMS) (RPAQQ NCLINKINDEXCARDCOMS ((E (SETQ NC.SystemDate (DATE)) (PUTPROP (QUOTE NC.SystemDate) (QUOTE NewestFile) (ROOTFILENAME (FULLNAME (OUTPUT))))) (* * Link Index stuff) (FILES NCTEXTSUBSTANCE NCTEXTCARD) (GLOBALVARS NC.LinkIndexExtraMenuItems NC.LinkIndexSpecsStylesheet PSA.Database) (VARS ( NC.LinkIndexExtraMenuItems (QUOTE ((Recompute% Link% Index (FUNCTION NC.RecomputeLinkIndex) "Recompute this link index throwing away current contents.") (Change% Link% Index% Specs (FUNCTION NC.ChangeLinkIndexSpecs "Change some or all of Link Index specs."))))) (NC.LinkIndexSpecsStylesheet ( CREATE.STYLE (QUOTE ITEMS) (LIST (create MENU ITEMS _ T) (create MENU ITEMS _ T) (create MENU ITEMS _ T)) (QUOTE SELECTIONS) (QUOTE (T T T)) (QUOTE ITEM.TITLES) (QUOTE (Forward% Links Backward% Links Create% Back% Links?)) (QUOTE ITEM.TITLE.FONT) (FONTCOPY MENUFONT (QUOTE WEIGHT) (QUOTE BOLD)) (QUOTE NEED.NOT.FILL.IN) (QUOTE (MULTI MULTI NIL)) (QUOTE TITLE) "Link Index Specs?"))) (* * Link Index functions) (FNS NC.MakeLinkIndex NC.BringUpLinkIndexCard NC.ComputeLinkIndex NC.RecomputeLinkIndex NC.AskLinkIndexSpecs NC.ChangeLinkIndexSpecs NC.AppendLinkIndexEntry NC.LinkIndexCompareFn) (FNS NC.AddLinkIndexCard) (P (NC.AddLinkIndexCard)))) (FILESLOAD NCTEXTSUBSTANCE NCTEXTCARD) (RPAQQ NC.LinkIndexExtraMenuItems ((Recompute% Link% Index (FUNCTION NC.RecomputeLinkIndex) "Recompute this link index throwing away current contents.") (Change% Link% Index% Specs (FUNCTION NC.ChangeLinkIndexSpecs "Change some or all of Link Index specs.")))) (RPAQ NC.LinkIndexSpecsStylesheet (CREATE.STYLE (QUOTE ITEMS) (LIST (create MENU ITEMS _ T) (create MENU ITEMS _ T) (create MENU ITEMS _ T)) (QUOTE SELECTIONS) (QUOTE (T T T)) (QUOTE ITEM.TITLES) (QUOTE (Forward% Links Backward% Links Create% Back% Links?)) (QUOTE ITEM.TITLE.FONT) (FONTCOPY MENUFONT ( QUOTE WEIGHT) (QUOTE BOLD)) (QUOTE NEED.NOT.FILL.IN) (QUOTE (MULTI MULTI NIL)) (QUOTE TITLE) "Link Index Specs?")) (NC.AddLinkIndexCard) (PUTPROPS NCLINKINDEXCARD COPYRIGHT ("Xerox Corporation" 1985)) NIL