(FILECREATED "29-Jun-87 17:06:04" ("compiled on " {QV}1.3K>LIBRARY>NCHISTORYCARD.;14) "12-Nov-85 14:59:23" recompiled changes: NCHist.HistoricizeNoteFile in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED "29-Jun-87 17:05:30" {QV}1.3K>LIBRARY>NCHISTORYCARD.;14 8136 changes to: (FNS NCHist.HistoricizeNoteFile) previous date: "19-Apr-87 19:36:32" {QV}1.3K>LIBRARY>NCHISTORYCARD.;13) NCHist.HistoricizeNoteFile D1 (P 2 OpenEventsCardWasCachedFlg P 1 OpenEventsCard P 0 OpenEventSExp I 0 NoteFile) M@ 8o@ I ZI HI IHI  JI @ oo@ (112Q NCP.ReportError 107Q CONCAT 72Q NCHist.NoteFileWhenOpenedFn 65Q NCP.CloseCards 56Q NCP.CardSubstance 52Q NCP.CardSubstance 43Q MEMBER 40Q NCP.CardSubstance 32Q NCP.CacheCards 24Q NCP.ActiveCardP 15Q NCP.GetOpenEventsCard 3 NCP.OpenNoteFileP) NIL ( 103Q "Can't historitize closed notefile: " 77Q "NCHist.HistoritizeNoteFile" 11Q (PROGN (NC.LoadFileFromDirectories (QUOTE NCHISTORYCARD)) (NCHist.NoteFileWhenOpenedFn NoteFile))) NCHist.NoteFileWhenOpenedFn D1 (I 0 NoteFile) @ g@ ` (20Q NCP.OpenCard 12Q NCP.CreateCard 3 NCHist.GetHistoryFileBox) (15Q NCHist.HistoryCardPosition 6 History) () NCHist.CreateHistoryCardTitle D1 (P 1 SystemDate P 0 NoteFile I 0 Card) G@ o Ill oIkl oIll oHg (104Q CONCAT 100Q NCP.NoteFileProp 65Q NCHist.ShaveLeadingSpace 62Q SUBSTRING 46Q NCHist.ShaveLeadingSpace 43Q SUBSTRING 30Q NCHist.ShaveLeadingSpace 25Q SUBSTRING 12Q DATE 3 NCP.CardNoteFile) (75Q Initials) ( 71Q " " 52Q "/" 34Q "/" 7 (DATEFORMAT NO.TIME NUMBER.OF.MONTH)) NCHist.GetHistoryFileBox D1 (P 0 HistoryFileBox I 0 NoteFile) 0g@ H @oihd@ gH H H(54Q NCP.AddSpecialCard 47Q NCP.RegisterCardByName 37Q NCP.CreateFileBox 33Q NCP.ContentsFileBox 15Q NCP.ValidCardP 6 NCP.LookupCardByName) (43Q HistoryFileBox 2 HistoryFileBox) ( 24Q "NoteFile Use History") NCHist.HistoryCardMakeFn D1 (P 10Q SuperType P 7 FieldValue P 6 CardTypeRecord P 5 CardTypeName P 4 NoteCardType P 2 HistoryFileBox P 1 ReturnValue P 0 NoteFile I 2 NoDisplayFlg I 1 Title I 0 Card) b @ 1H Z@@ L!Mdu ^N_dgRMNd M ^doM N_dg!oogoMo  OgMg OO!Mdu ^N_dgRMNd M ^doM N_dg!oogoMo  OgMg O@ABlKYJ J @J @Ad Hg@ @o ol g I(536Q NCP.CardAddText 530Q CONCAT 525Q CHARACTER 514Q DATE 504Q NC.NoteFileAddProp 474Q NCP.CardTitle 471Q NCHist.CreateHistoryCardTitle 461Q NCP.FileCards 453Q NCP.CacheCards 446Q NCP.CardCachedP 423Q NC.GetCardTypeFieldOfSuper 404Q NC.ReportError 401Q CONCAT 330Q NC.ReportError 325Q CONCAT 312Q NC.CardTypeRecord 304Q NC.CardTypeLoader 246Q NC.CardTypeRecord 222Q NC.GetCardTypeFieldOfSuper 203Q NC.ReportError 200Q CONCAT 127Q NC.ReportError 124Q CONCAT 111Q NC.CardTypeRecord 103Q NC.CardTypeLoader 45Q NC.CardTypeRecord 27Q NC.GetType 12Q NCHist.GetHistoryFileBox 3 NCP.CardNoteFile) (533Q START 500Q HistoryCards 420Q MakeFn 412Q \\FILLME// 364Q MakeFn 345Q \\EMPTY// 335Q NoteCardType 277Q NoteCardType 264Q \\EMPTY// 254Q NoteCardType 217Q SuperType 211Q \\FILLME// 163Q SuperType 144Q \\EMPTY// 134Q NoteCardType 76Q NoteCardType 63Q \\EMPTY// 53Q NoteCardType 17Q CardObject) ( 520Q " - " 511Q (DATEFORMAT NO.DATE NO.SECONDS) 375Q " still \\EMPTY// after autoloading." 370Q " of card type " 361Q "Field name " 355Q "NC.GetCardTypeField" 321Q "Cannot find full definition of card type: " 174Q " still \\EMPTY// after autoloading." 167Q " of card type " 160Q "Field name " 154Q "NC.GetCardTypeField" 120Q "Cannot find full definition of card type: ") NCHist.HistoryCardWhenSavedFn D1 (P 5 CRPosition P 4 AfterDashPosition P 3 Time P 2 Stream P 1 Card I 0 HistoryCard) i@ g HBh=@ 1oo [Jok k\Jl k ]JLML @KL Y I@ IiHX(133Q NCP.SameCardP 125Q NCP.ValidCardP 117Q NCP.CardAddText 111Q TEDIT.DELETE 100Q TEDIT.FIND 74Q CHARACTER 63Q TEDIT.FIND 51Q CONCAT 46Q DATE 30Q NCP.CardSubstance 11Q NCP.NoteFileProp 3 NCP.CardNoteFile) (6 HistoryCards) ( 57Q "-" 43Q (DATEFORMAT NO.DATE NO.SECONDS) 37Q " ") NCHist.AddHistoryCard D1 NIL ggoo (20Q NCP.CreateCardType) (5 Text 2 History) ( 15Q ((DisplayedInMenuFlg T)) 11Q ((MakeFn NCHist.HistoryCardMakeFn))) NCHist.ShaveLeadingSpace D1 (I 0 String) @k)l @l @(14Q SUBSTRING) NIL () (PRETTYCOMPRINT NCHISTORYCARDCOMS) (RPAQQ NCHISTORYCARDCOMS ((* * Package of History Card and handy functions) (FNS NCHist.HistoricizeNoteFile NCHist.NoteFileWhenOpenedFn NCHist.CreateHistoryCardTitle NCHist.GetHistoryFileBox) (FNS NCHist.HistoryCardMakeFn NCHist.HistoryCardWhenSavedFn NCHist.AddHistoryCard) (FNS NCHist.ShaveLeadingSpace) (GLOBALVARS NCHist.HistoryCardPosition) ( INITVARS (NCHist.HistoryCardPosition NIL)) (P (NCHist.AddHistoryCard) (PUTPROP (QUOTE History) (QUOTE WhenSavedFn) (FUNCTION NCHist.HistoryCardWhenSavedFn))))) (RPAQ? NCHist.HistoryCardPosition NIL) (NCHist.AddHistoryCard) (PUTPROP (QUOTE History) (QUOTE WhenSavedFn) (FUNCTION NCHist.HistoryCardWhenSavedFn)) (PUTPROPS NCHISTORYCARD COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL