(FILECREATED "24-Apr-85 01:15:32" ("compiled on " {PHYLUM}RELEASE1.2>NCSEARCHCARD.;3) "20-Dec-84 12:07:22" recompiled changes: NC.MakeSearchCard in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "24-Apr-85 01:15:02" {PHYLUM}RELEASE1.2>NCSEARCHCARD.;3 5315 changes to: (FNS NC.MakeSearchCard) previous date: "13-Mar-85 00:56:32" {PHYLUM}RELEASE1.2>NCSEARCHCARD.;2) NC.MakeSearchCardA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q ID P 6 ID P 5 Title P 1 ID# F 11Q RESETVARSLST F 12Q Window F 13Q IDs F 14Q ListCardID F 15Q NC.ListContentsLinkLabel F 16Q RESETY F 17Q SearchString) » g` hhWc¿Wio ¿`i l kÙkRIdHñ²?¿Jc¿W ol k ¿WOµ<Whol ci ^ ]²WM ™N¼Kµ Lh[ºIkØY°ŸL&»°÷_¿WdOð¬OWhd` ¿O_°¥(261Q NC.InsertLinkBeforeMarker 203Q STRPOS 172Q NC.FetchTitle 166Q NC.IDFromNumber 157Q NC.PrintMsg 154Q CHARACTER 124Q TEDIT.INSERT 120Q CONCAT 115Q CHARACTER 110Q DATE 101Q NC.FetchSubstance 52Q SUBATOM 45Q NC.GetNewID 35Q NC.PrintMsg 10Q CURSOR) (255Q PSA.Database 41Q PSA.Database 5 WAITINGCURSOR 2 CURSOR) ( 147Q "Done!" 105Q " List compiled on: " 32Q "Searching for cards ...") NC.MakeSearchCard D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 Window P 2 WindowOrID P 1 IDs P 0 SearchString I 2 NoDisplayFlg I 1 Title I 0 ListCardID F 7 LISPXHIST F 10Q RESETVARSLST) Œ@@AµoB Z@ J ´J[oohiK Xdo ³Rd²O@AµoHo b K˜KgA ¿W!Wog ‘h‚g^ ¿N“¿lú Ki J(210Q NC.ClearMsg 203Q BLOCK 174Q ERROR! 166Q RESETRESTORE 154Q NC.MakeSearchCardA0001 132Q PUTWINDOWPROP 120Q NC.SetTitle 113Q CONCAT 66Q EQUAL 55Q NC.AskUser 32Q WINDOWP 26Q NC.ActivateCard 21Q NC.MakeTEditCard 5 SPAWN.MOUSE) (162Q ERROR 151Q INTERNAL 126Q TITLE) ( 146Q (NC.MakeSearchCardA0001) 110Q "%" in title" 103Q "Cards with %"" 63Q "" 46Q " -- " 42Q "Please enter the search string" 15Q "SearchCard") NC.SearchForCardsA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q ID P 6 ID P 5 Title P 1 ID# F 11Q RESETVARSLST F 12Q Window F 13Q IDs F 14Q ListCardID F 15Q SearchString F 16Q RESETY) ¾ g` hhWc¿Wio ¿`i l kÙkRIdHñ²?¿Jc¿W ol k ¿WOµ<Whol ci ^ ]²WM ™N¼Kµ Lh[ºIkØY°ŸL&»°÷_¿WdOð¯O`gh` ¿O_°¢(264Q NC.InsertLinkBeforeMarker 203Q STRPOS 172Q NC.FetchTitle 166Q NC.IDFromNumber 157Q NC.PrintMsg 154Q CHARACTER 124Q TEDIT.INSERT 120Q CONCAT 115Q CHARACTER 110Q DATE 101Q NC.FetchSubstance 52Q SUBATOM 45Q NC.GetNewID 35Q NC.PrintMsg 10Q CURSOR) (260Q PSA.Database 254Q Title 251Q NC.ListContentsLinkLabel 41Q PSA.Database 5 WAITINGCURSOR 2 CURSOR) ( 147Q "Done!" 105Q " List compiled on: " 32Q "Searching for cards ...") NC.SearchForCards D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 Window P 2 IDs P 1 ListCardID P 0 SearchString F 7 LISPXHIST F 10Q RESETVARSLST) i@oohi Xdo ³Jd´HgoHo [d YW!Wog ‘h‚g^ ¿N“¿lú Ki h(145Q NC.ClearMsg 140Q BLOCK 131Q ERROR! 123Q RESETRESTORE 111Q NC.SearchForCardsA0001 67Q NC.IDFromWindow 62Q NC.MakeNoteCard 57Q CONCAT 33Q EQUAL 22Q NC.AskUser 5 SPAWN.MOUSE) (117Q ERROR 106Q INTERNAL 43Q TEXT) ( 103Q (NC.SearchForCardsA0001) 54Q "%" in title" 47Q "Cards with %"" 30Q "" 15Q " -- " 11Q "Please enter the search string") NC.AddSearchCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeSearchCard 13Q MakeCardFn 10Q TEXT 5 Text 2 Search) ( 27Q (LinkDisplayMode Title)) (PRETTYCOMPRINT NCSEARCHCARDCOMS) (RPAQQ NCSEARCHCARDCOMS ((E (SETQ NC.SystemDate (DATE)) (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS))) (VARS NC.SystemDate) (P (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS))) (* * Stuff for the Notecards search card.) (FILES NCTEXTSUBSTANCE NCTEXTCARD) (FNS NC.MakeSearchCard NC.SearchForCards NC.AddSearchCard) (P (NC.AddSearchCard)))) (RPAQQ NC.SystemDate "24-Apr-85 01:15:03") (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS)) (FILESLOAD NCTEXTSUBSTANCE NCTEXTCARD) (NC.AddSearchCard) (PUTPROPS NCSEARCHCARD COPYRIGHT ("Xerox Corporation" 1985)) NIL