(FILECREATED "16-Oct-85 19:28:08" ("compiled on " {QV}1.3K>FGHCHKPT.;7) "19-Mar-85 14:34:17" recompiled changes: NC.FetchIndexArray NC.CheckpointDatabase NC.BuildIndexArray NC.IncreaseIndexArray NC.GetStatusFromIndex NC.GetPtrsFromIndex NC.GetIndexOffset NC.PutStatusToIndex NC.PutPtrToIndex in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "16-Oct-85 19:27:22" {QV}1.3K>FGHCHKPT.;7 18025 changes to: (VARS FGHCHKPTCOMS ) (FNS NC.CheckpointDatabase NC.BuildIndexArray NC.FetchIndexArray NC.IncreaseIndexArray NC.GetStatusFromIndex NC.GetPtrsFromIndex NC.GetIndexOffset NC.PutStatusToIndex NC.PutPtrToIndex) previous date: "16-Oct-85 15:53:18" {QV}1.3K>FGHCHKPT.;1) NC.FetchIndexArray D1 (I 1 IndexArray I 0 DatabaseStream) =A0@ @g (` `g ho j(mA(61Q NC.ReportError 45Q STREAMPROP 32Q STREAMP 20Q STREAMPROP 10Q STREAMP) (42Q NCINDEXARRAY 37Q PSA.Database 27Q PSA.Database 15Q NCINDEXARRAY) ( 56Q "No cache array could be found.") NC.GetPtrFromIndex D1 (P 0 Offset I 1 IndexArray I 0 DatabaseStream) !A @g bdj(XAH(AjHk*(16Q STREAMPROP) (13Q NCINDEXARRAY) () NC.SetIndexOffset D1 (I 2 IndexArray I 1 Num I 0 DatabaseStream) B@B jA*(11Q NC.FetchIndexArray) NIL () NC.CheckpointDatabase D1 (P 7 Ptr P 6 Num P 3 IndexArray P 2 CardTotal P 1 OperationMsg P 0 Ptr I 1 QuietFlg I 0 DatabaseStream) KP@`bo@ g l Y@d hioAhio@ o @ @l @ @kK A)hiIoko@i l kZol JkNMA0Nld\jL#L hiIoNoJol @K _@Ol @K _@Ol l @Ol l @Ol @K _@Ol l @Ol l @Ol @K _@Ol l @Ol l @Ol @K _@Ol l @Ol l @Ol @ @ @ NkԾ@l @ @Hl l @Hl l @Hl @j @g @Hl l @Hl @l @g @Hl l @Hl l @Hl Ahdol h(1107Q NC.PrintMsg 1104Q CHARACTER 1066Q BOUT 1055Q BOUT 1047Q RSH 1037Q BOUT 1031Q RSH 1021Q STREAMPROP 1011Q SETFILEPTR 1002Q BOUT 771Q BOUT 763Q RSH 753Q STREAMPROP 743Q SETFILEPTR 735Q BOUT 724Q BOUT 716Q RSH 706Q BOUT 700Q RSH 670Q GETEOFPTR 663Q SETFILEPTR 633Q BOUT 621Q BOUT 613Q RSH 602Q BOUT 574Q RSH 561Q NC.GetPtrFromIndex 553Q BOUT 541Q BOUT 533Q RSH 522Q BOUT 514Q RSH 501Q NC.GetPtrFromIndex 473Q BOUT 461Q BOUT 453Q RSH 442Q BOUT 434Q RSH 421Q NC.GetPtrFromIndex 413Q BOUT 401Q BOUT 373Q RSH 362Q BOUT 354Q RSH 341Q NC.GetPtrFromIndex 333Q BOUT 317Q NC.GetPtrFromIndex 311Q NC.PrintMsg 305Q CHARACTER 255Q \FZEROP 221Q BLOCK 210Q NC.PrintMsg 204Q CHARACTER 170Q SUBATOM 163Q NC.GetNewID 136Q NC.SetIndexOffset 127Q NC.FetchIndexArray 122Q SETFILEPTR 113Q NC.SaveDirtyCards 106Q NC.PrintMsg 76Q FULLNAME 47Q OPENP 40Q CONCAT 35Q CHARACTER 30Q FILENAMEFIELD 22Q FULLNAME) (1016Q NCNEXTLINKID 750Q NCNEXTIDNUM 25Q NAME 7 PSA.Database) ( 1077Q "Done." 300Q "." 273Q " out of " 266Q "Processing item number " 177Q "." 156Q " out of " 151Q "Processing item number " 102Q " ..." 72Q "Checkpointing current notefile " 56Q "There is no open NoteFile!!!" 16Q "Checkpointing notefile ") NC.BuildIndexArray D1 (P 11Q ActiveCardFlg P 10Q ReasonsList P 7 Index P 4 IndexArray P 3 BadGuysList P 2 IndexPtr P 1 EofPtr P 0 NextIDNum I 0 DatabaseStream) t @g @ `kl3@g`HojؽdMMlghj \ @l @kL Hk%Hkk" ON h_@d dlAgdlFgdlDglSgL gO_@dL kL @L g_@dd @ @ L IJ OgO_@dd @ @ L IJ OgO_@dd @ @ L IJ OgO_@dd @ @ L IJ OgO_OO O K@ @ @ Ok_@gK h(560Q STREAMPROP 521Q DREVERSE 514Q NC.IDFromNumber 467Q NC.OutOfBoundsIndexPtr 462Q NC.PutPtrToIndex 424Q NC.OutOfBoundsIndexPtr 417Q NC.PutPtrToIndex 361Q NC.OutOfBoundsIndexPtr 354Q NC.PutPtrToIndex 316Q NC.OutOfBoundsIndexPtr 311Q NC.PutPtrToIndex 261Q NC.GetStatusFromIndex 253Q NC.SetIndexOffset 245Q NC.GetIndexOffset 225Q NC.PutStatusToIndex 141Q BLOCK 106Q NC.SetIndexOffset 100Q SETFILEPTR 72Q STREAMPROP 66Q ARRAY 12Q GETEOFPTR 6 STREAMPROP) (554Q NCBADCARDS 476Q BADPROPLISTPTR 433Q BADTITLEPTR 370Q BADLINKSPTR 325Q BADITEMPTR 264Q ACTIVE 231Q BADSTATUS 221Q SPECIAL 210Q DELETED 175Q FREE 162Q ACTIVE 61Q FIXP 34Q NC.DefaultIndexSizeInEntries 31Q NCINDEXARRAY 15Q NC.IndexSizeInEntries 3 NCNEXTIDNUM) ( 41Q 1.5) NC.IncreaseIndexArray D1 (P 2 NewArray P 1 OldSize P 0 Array I 0 DatabaseStream) O@g QH Y`IojػdKKghj ZIjMLJMHM(*Mk]@gJ Hjm*J(106Q STREAMPROP 50Q ARRAY 15Q ARRAYSIZE 6 STREAMPROP) (102Q NCINDEXARRAY 43Q FIXP 21Q NC.IndexSizeInEntries 3 NCINDEXARRAY) ( 26Q 1.5) NC.GetStatusFromIndex D1 (I 1 IndexArray I 0 DatabaseStream) *@A dlAgdlFgdlDglSg(4 NC.GetPtrFromIndex) (47Q SPECIAL 36Q DELETED 25Q FREE 14Q ACTIVE) () NC.GetPtrsFromIndex D1 (P 7 EofPtr P 6 PtrList P 5 Status P 4 PropsPtr P 3 TitlePtr P 2 LinksPtr P 1 Ptr P 0 Index I 2 IndexArray I 1 ID I 0 DatabaseStream) u  B@ bAo X@HB @B ]@B Y@B Z@B [@B \MIJKLHh^@ _MgN_N_OjONgO(114Q GETEOFPTR 71Q NC.GetPtrFromIndex 63Q NC.GetPtrFromIndex 55Q NC.GetPtrFromIndex 47Q NC.GetPtrFromIndex 41Q NC.GetStatusFromIndex 34Q NC.SetIndexOffset 25Q NC.IndexFromID 13Q NC.FetchIndexArray) (155Q BADPOINTER 122Q ACTIVE) ( 22Q "NC.GetPtrs") NC.GetIndexOffset D1 (I 1 IndexArray I 0 DatabaseStream) A@A j((11Q NC.FetchIndexArray) NIL () NC.PutStatusToIndex D1 (I 2 IndexArray I 1 Status I 0 DatabaseStream) L@AgAdglA5gAdglD$gAdglFgAglSB (111Q NC.PutPtrToIndex 105Q NILL) (75Q SPECIAL 67Q S 55Q FREE 46Q F 34Q DELETED 25Q D 13Q ACTIVE 4 A) () NC.PutPtrToIndex D1 (P 0 Offset I 2 IndexArray I 1 Ptr I 0 DatabaseStream) @B bdj(XBHAj*BjHk*A(7 NC.FetchIndexArray) NIL () NC.IndexFromID D1 (I 1 FromFunction I 0 ID) !@ @l klkA@o (36Q NC.ReportError 33Q CONCAT 12Q SUBATOM 3 NC.IDP) NIL ( 30Q ": Invalid ID") NC.SortIndexEntries D1 (P 3 Index P 1 IndexArray P 0 NextIDNum I 0 Stream) @g @g @k HkkKJyL@ dg6@ Ko@ Ko@ Ko@ Koh/g@ Koh@d l @d l h Kk[Li (236Q SORT 221Q \NCONC2 214Q NC.SetIndexOffset 206Q NC.GetIndexOffset 177Q NC.SetIndexOffset 171Q NC.GetIndexOffset 153Q NC.GetPtrFromIndex 123Q NC.GetPtrFromIndex 110Q NC.GetPtrFromIndex 75Q NC.GetPtrFromIndex 62Q NC.GetPtrFromIndex 46Q NC.GetStatusFromIndex 25Q NC.SetIndexOffset 15Q STREAMPROP 6 STREAMPROP) (144Q SPECIAL 52Q ACTIVE 12Q NCINDEXARRAY 3 NCNEXTIDNUM) ( 160Q (4) 130Q (3) 115Q (2) 102Q (1) 67Q (0)) NC.CleanupIndexEntries D1 (P 3 Index P 1 IndexArray P 0 NextIDNum I 0 Stream) `@g @g @k HkkKJ=@ dgdgdgihK @ @d l Kk[h(125Q NC.SetIndexOffset 117Q NC.GetIndexOffset 111Q NC.MarkIndexEntryFreeInFile 105Q NC.IDFromNumber 51Q NC.GetStatusFromIndex 44Q BLOCK 25Q NC.SetIndexOffset 15Q STREAMPROP 6 STREAMPROP) (71Q FREE 63Q SPECIAL 55Q ACTIVE 12Q NCINDEXARRAY 3 NCNEXTIDNUM) () NC.AbortSession D1 (P 12Q Process P 11Q Win P 10Q ID P 7 CardNumber P 4 NewBytes P 3 CardTotal P 2 EndPtr P 1 LastChkptPtr P 0 FullFileName I 2 IndexArray I 1 CacheArray I 0 DatabaseStream) l `@ `bdA b@B b@ X@l @ @ @ Y@ ZdI\djAd d 6hioLoHl ooohddid  @i l k[k" ONOld]jM,M &hiol oOoKol O@A O _ _O O Ok_ . O O @ JI1hioHo HgI hdoHol hiHo h(550Q NC.ClearMsg 544Q NC.PrintMsg 531Q NC.ResetMainMenu 525Q NC.PrintMsg 521Q CHARACTER 477Q SETFILEINFO 466Q NC.PrintMsg 441Q NC.ForceDatabaseClose 431Q BLOCK 424Q PROCESS.FINISHEDP 416Q CLOSEW 377Q \INSUREWINDOW 357Q NC.AbortCard 347Q NC.FetchWindow 342Q NC.IDFromNumber 333Q NC.ActiveCardP 323Q NC.PrintMsg 317Q CHARACTER 273Q CHARACTER 256Q \FZEROP 233Q BLOCK 211Q SUBATOM 204Q NC.GetNewID 171Q NC.YesP 166Q NC.AskUser 140Q NC.PrintMsg 134Q CHARACTER 111Q \FZEROP 66Q GETEOFPTR 46Q SETFILEPTR 37Q FULLNAME 31Q NC.FetchIndexArray 22Q NC.FetchCacheArray 6 STREAMP) (473Q LENGTH 13Q PSA.Database) ( 541Q " closed." 514Q "." 507Q "Couldn't truncate " 462Q " ..." 455Q "Truncating file " 312Q "." 305Q " out of " 277Q "Processing item number " 266Q "Quitting from active cards ... " 155Q "Yes" 151Q "--" 145Q "Want to abort anyway? " 126Q " bytes of " 121Q "Aborting will lose work since the last checkpoint i.e., the last ") (PRETTYCOMPRINT FGHCHKPTCOMS) (RPAQQ FGHCHKPTCOMS ((* * New FNS) (FNS NC.FetchIndexArray) (* * Redefined from NCCARDS and NCDATABASE ) (FNS NC.GetPtrFromIndex NC.SetIndexOffset NC.CheckpointDatabase NC.BuildIndexArray NC.IncreaseIndexArray NC.GetStatusFromIndex NC.GetPtrsFromIndex NC.GetIndexOffset NC.PutStatusToIndex NC.PutPtrToIndex NC.IndexFromID NC.SortIndexEntries NC.CleanupIndexEntries NC.AbortSession))) (PUTPROPS FGHCHKPT COPYRIGHT ("Xerox Corporation" 1985)) NIL