(FILECREATED " 8-Jun-87 18:28:18" ("compiled on " {QV}1.3K>NEXT>NCCONVERTVERSION2TO3.;29) "12-Nov-85 14:59:23" recompiled changes: NC.ConvertVersion2BrowserCard in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 8-Jun-87 18:27:51" {QV}1.3K>NEXT>NCCONVERTVERSION2TO3.;29 35528 changes to: (FNS NC.ConvertVersion2BrowserCard) (VARS NCCONVERTVERSION2TO3COMS) previous date: " 7-Nov-86 17:59:09" {QV}1.3K>NEXT>NCCONVERTVERSION2TO3.;28) NC.ConvertNoteFileVersion2To3 D1 (P 24Q FileName P 23Q AutoloadFnEntry P 22Q IDNum P 14Q ToFileName P 13Q CheckptPtr P 12Q NextLinkNum P 11Q IndexSizeInEntries P 10Q NextIndexNum P 7 Version P 6 Version2HashArray P 5 ToNoteFile P 4 FromNoteFile P 3 FromStream P 2 FileName P 1 CardTotal P 0 OperationMsg I 1 InterestedWindow I 0 StreamOrFileName) +o@ @[ @Zg Kl K _lKj K lK _dkYK lK _K lK lK _K K lK lK _`_dOdKJ _dOdO dOdO dO`_dO*\ghgJ `Ol HihdA ]d_M`MhidhdddihA Aio LMI ^AiHl oI IkO$dO"+N Mi M K g WMhddAlgkl _ jO !O AiHl oO$oI KO$ NLM O$k_$g O&$oogo Aio O_(O& g MhddAlgooO(og ooJoOo  h(1047Q NC.ReportError 1044Q CONCAT 1013Q CONCAT 750Q \DEFINEDP 741Q NC.LoadFileFromDirectories 715Q NC.PrintMsg 703Q NC.ReportError 700Q CONCAT 647Q NC.LookupAutoloadFnFile 627Q NC.GetAndPutVersion2Card 620Q NC.IDFromNumber 611Q NC.PrintMsg 572Q CHARACTER 560Q \FZEROP 540Q REMAINDER 512Q \DEFINEDP 504Q CLOSEF 500Q NC.ForceDatabaseClose 474Q NC.CheckpointDatabase 467Q CLRHASH 451Q BLOCK 441Q NC.PrintMsg 430Q CHARACTER 417Q NC.BuildVersion2HashArray 411Q NC.PrintMsg 372Q NC.OpenDatabaseFile 326Q NC.CreateDatabaseFile 315Q MAX 302Q PACKFILENAME 207Q FULLNAME 165Q NC.MakeUID 64Q SETFILEPTR 44Q SETFILEPTR 35Q OPENSTREAM 23Q FULLNAME 15Q STREAMP) (1010Q NC.ScavengeDatabaseFile 763Q NC.ScavengeDatabaseFile 745Q NC.ScavengeDatabaseFile 734Q AutoloadFnEntry 723Q AutoloadFnEntry 671Q NC.ScavengeDatabaseFile 644Q NC.ScavengeDatabaseFile 526Q NC.ScavengeDatabaseFile 507Q NC.ScavengeDatabaseFile 344Q NoteFileTYPE# 333Q NoteFile 305Q NC.DefaultIndexSizeInEntries 276Q BODY 272Q VERSION 254Q NoteFileDeviceTYPE# 161Q NoteFileTYPE# 32Q BOTH) ( 1040Q ". Can only convert version 2 notefiles." 1032Q " is version " 1025Q "Filename " 1021Q "NC.ConvertNoteFileVersion2To3" 1005Q ", but still no definition of " 777Q "Loaded file " 773Q "NC.AutoloadApply*" 712Q "Done." 675Q " in table of autoloadable functions." 666Q "No definition of " 662Q "NC.AutoloadApply*" 604Q " out of " 576Q "Processing card ID " 434Q "Processing card ID 1 out of " 406Q "Reading index of version 2 notefile ..." 3 "Converting file to version 3.") NC.BuildVersion2HashArray D1 (P 5 Card P 4 ID P 3 IDNum P 1 Version2HashArray P 0 FromStream I 2 IndexSize I 1 ToNoteFile I 0 FromNoteFile) @B gAI gAI gAI gAI Bl"KdJI HL H dlAgdlFgdlDglSggA LMI Kk[(224Q PUTHASH 215Q NC.GetNewCard 131Q SETFILEPTR 126Q NC.IndexInFileFromID 120Q NC.IDFromNumber 100Q PUTHASH 63Q PUTHASH 46Q PUTHASH 31Q PUTHASH 11Q HASHARRAY) (207Q ACTIVE 204Q SPECIAL 173Q DELETED 160Q FREE 145Q ACTIVE 72Q NoteFile 66Q NC00004 55Q NoteFile 51Q NC00003 40Q NoteFile 34Q NC00002 23Q NoteFile 17Q NC00001 3 NoteFile) () NC.GetAndPutVersion2Card D1 (P 1 Card P 0 Pointers I 4 ToNoteFile I 3 FromNoteFile I 2 Version2HashArray I 1 ID I 0 Stream) A@ HdgABYg @H @AIBCD @H @AI @H @AI @H @AIB I g IB Ihi Ii Ii Ii 'g"AB @H D@AI Ihi I Ii I(300Q NC.DeactivateCard 272Q NC.CardP 265Q NC.PutMainCardData 256Q NC.StoreLinkLabels 253Q NC.ReadVersion2LinkLabels 243Q SETFILEPTR 233Q NC.Version3CardFromVersion2ID 216Q NC.PutPropList 210Q NC.PutTitle 202Q NC.PutLinks 174Q NC.PutMainCardData 165Q NC.ConvertVersion2BrowserCard 157Q NC.IsSubTypeOfP 151Q NC.FetchType 144Q NC.ReadVersion2Links 134Q SETFILEPTR 123Q NC.ReadVersion2PropList 114Q SETFILEPTR 101Q NC.ReadVersion2Title 72Q SETFILEPTR 60Q NC.ReadVersion2MainCardData 45Q SETFILEPTR 35Q NC.SetStatus 4 NC.ReadVersion2Ptrs) (223Q SPECIAL 154Q Browser 32Q ACTIVE 15Q ACTIVE) () NC.ReadVersion2Title D1 (I 2 Card I 1 ID I 0 Stream) B@A` B@ (23Q NC.SetTitle 20Q READ 13Q NC.SetTitleDate 10Q NC.ReadVersion2CardPartHeader) (5 NC.Version2TitlesIdentifier) () NC.ReadVersion2Links D1 (I 3 Version2HashArray I 2 Card I 1 ID I 0 Stream) "B@A` @ @ B@ C (37Q NC.SetGlobalLinks 34Q NC.ConvertLinkFormat 30Q READ 23Q READ 17Q READ 13Q NC.SetLinksDate 10Q NC.ReadVersion2CardPartHeader) (5 NC.Version2LinksIdentifier) () NC.ReadVersion2PropList D1 (I 2 Card I 1 ID I 0 Stream) B@A` B@ (23Q NC.SetPropList 20Q READ 13Q NC.SetPropListDate 10Q NC.ReadVersion2CardPartHeader) (5 NC.Version2PropsIdentifier) () NC.ReadVersion2MainCardData D1 (P 20Q LinkIcon P 16Q CardTypeRecord P 15Q CardTypeName P 14Q NoteCardType P 11Q LinkIcons P 10Q FormattedTEditP P 7 CollectReferencesFn P 6 StartFormatPtr P 5 TEditBasedFlg P 4 Length P 3 EndPtr P 2 StartPtr P 1 Region P 0 CardType I 5 ToNoteFile I 4 FromNoteFile I 3 Version2HashArray I 2 Card I 1 ID I 0 Stream) H B@A` B@ X H ]@ B@ @ l@ l@ Z@ l@ l@ [dJ\M!dl@Kl @ l@ ld`_d\@Kl @ l@ l@ l@ Ծ@Kl @NJl l!@NJl l!@NJl l!@NJl!@J BdB  OOd _#OgOmOO3OgOd O BoOog -OjOdggg hoO _BL@mlO O<@Kl @Nl l!@Nl l!@Nl l!@Nl!@K BB  OOd _#OgOmOO3OgOd O BoOog -OjOdggg hoO BB  OOd _#OgOmOO3OgOd O BoOog -OjOdggg hoO _BhilO_d Oh_ O BC O_(1476Q NC.ConvertVersion2LinkIcon 1466Q BLOCK 1445Q INTERSECTION 1420Q NC.ReportError 1415Q CONCAT 1402Q NC.GetCardTypeFieldOfSuper 1340Q CONCAT 1311Q NC.CardTypeRecord 1302Q NC.AutoLoadCardType 1214Q NC.CardTypeRecord 1172Q NC.GetType 1146Q NC.ReportError 1143Q CONCAT 1130Q NC.GetCardTypeFieldOfSuper 1066Q CONCAT 1037Q NC.CardTypeRecord 1030Q NC.AutoLoadCardType 742Q NC.CardTypeRecord 720Q NC.GetType 703Q SETFILEPTR 662Q RSH 646Q RSH 632Q RSH 622Q SETFILEPTR 606Q NC.SetSubstance 563Q NC.ReportError 560Q CONCAT 545Q NC.GetCardTypeFieldOfSuper 503Q CONCAT 454Q NC.CardTypeRecord 445Q NC.AutoLoadCardType 357Q NC.CardTypeRecord 335Q NC.GetType 320Q SETFILEPTR 275Q RSH 257Q RSH 241Q RSH 227Q SETFILEPTR 171Q SETFILEPTR 133Q SETFILEPTR 50Q NC.SetRegion 45Q NC.ReadVersion2Region 40Q READC 33Q NC.TEditBasedP 27Q NC.SetType 23Q READ 16Q NC.SetItemDate 13Q NC.ReadVersion2CardPartHeader) (1377Q CollectLinksFn 1372Q \\EMPTY// 1364Q NoteCard 1347Q NoteCardType 1335Q CollectLinksFn 1314Q NoteCardType 1275Q NoteCardType 1266Q CollectLinksFn 1255Q NoteCardType 1241Q NoteCardType 1232Q \\EMPTY// 1225Q NoteCardType 1162Q CardObject 1125Q CollectLinksFn 1120Q \\EMPTY// 1112Q NoteCard 1075Q NoteCardType 1063Q CollectLinksFn 1042Q NoteCardType 1023Q NoteCardType 1014Q CollectLinksFn 1003Q NoteCardType 767Q NoteCardType 760Q \\EMPTY// 753Q NoteCardType 710Q CardObject 542Q GetFn 535Q \\EMPTY// 527Q NoteCard 512Q NoteCardType 500Q GetFn 457Q NoteCardType 440Q NoteCardType 431Q GetFn 420Q NoteCardType 404Q NoteCardType 375Q \\EMPTY// 370Q NoteCardType 325Q CardObject 153Q NC.TEditPasswordDividedBy100 10Q NC.Version2ItemIdentifier) ( 1410Q "Non-inheritable field not specified for card type " 1332Q " or card type field name: " 1324Q "Unknown note card type: " 1136Q "Non-inheritable field not specified for card type " 1060Q " or card type field name: " 1052Q "Unknown note card type: " 553Q "Non-inheritable field not specified for card type " 475Q " or card type field name: " 467Q "Unknown note card type: ") NC.ReadVersion2LinkLabels D1 (P 3 EndPtr P 2 StartPtr P 1 Region P 0 CardType I 2 Card I 1 ID I 0 Stream) @B@A` @ (22Q READ 16Q NC.SetItemDate 13Q NC.ReadVersion2CardPartHeader) (10Q NC.Version2LinkLabelsIdentifier) () NC.ConvertVersion2LinkIcon D1 (P 0 Version2Link I 2 Version2HashArray I 1 SourceCard I 0 LinkIcon) j@QHggH@`dIdAHB dJHdKHdLHdM H (147Q NC.CheckDisplayModeFormat 64Q NC.Version3CardFromVersion2ID 40Q NC.MakeUID) (34Q LinkTYPE# 31Q IMAGEOBJ 22Q NOTECARDLINK 15Q NOTECARDLINK 3 IMAGEOBJ) () NC.ReadVersion2CardPartHeader D1 (P 2 Date P 1 ActualID P 0 VersionNumber I 2 Identifier I 1 ID I 0 Stream) I0@B XoAoo kH@ @ YdAooAoI J(105Q NC.ReportError 102Q CONCAT 53Q READ 46Q NC.ReadVersion2Date 35Q NC.ReportError 32Q CONCAT 7 NC.ReadVersion2Identifier) NIL ( 76Q " Found ID: " 71Q "ID mismatch while reading item. Expected ID: " 65Q "NC.ReadVersion2CardPartHeader" 27Q " -- incorrect identifier." 23Q " Error while reading NoteFile" 16Q "NC.ReadVersion2CardPartHeader") NC.Version3CardFromVersion2ID D1 (L (1 Version2HashArray 0 ID)) @ANIL NIL () NC.ConvertLinkFormat D1 (P 5 Card P 4 PropList P 3 ConvertedLinks P 2 NewLink P 1 Link I 1 Version2HashArray I 0 ListOfLinks) @ HKYdggIYgi`dNIA_dOIA_dOI_dOI_dOI_dO Z JK[$IA]IA] MLgih HXTgi L(272Q LISTPUT 254Q NC.SetPropList 235Q NC.FetchPropList 203Q NC.CheckDisplayModeFormat 52Q NC.MakeUID) (266Q NoSource 245Q NoSource 46Q LinkTYPE# 40Q NC00000 26Q NOTECARDLINK 20Q NOTECARDLINK) () NC.ConvertVersion2BrowserCard D1 (P 25Q ToNodeID P 24Q ToNodeDashingStyle P 23Q NodeID P 17Q ToNode P 12Q GraphNodeID P 11Q NewNodeID P 10Q OldNodeID P 7 GraphNode P 5 BrowserRootID P 1 LinksLegend P 0 MappingList I 1 Version2HashArray I 0 Card)  @dg  @g @dg Y @g @dg @g @dg  @g @dg  @g @0@g dMA KJh\J&L @g @ 1 N@ N!h_d_@A _OOHN^_  OOAO"OO@O_gOg'OdgH_*OO*I`"O._0O,=I OgIOO*Og'Og Og'Og O _2O0O(O2O._.O,_,O*_OOh__O_0O&_d_&dgO&HH_ O" O h_$O &_"O$N^(606Q LISTPUT 566Q LISTPUT 526Q NC.GraphNodeIDPutProp 324Q NC.CoerceToGraphNodeID 275Q NC.ConvertVersion2GraphNodeID 247Q NC.FetchSubstance 232Q NC.FetchSubstance 226Q NC.RemProp 217Q NC.SetBrowserRoots 171Q NC.Version3CardFromVersion2ID 154Q NC.GetProp 141Q NC.RemProp 132Q NC.SetSpecialBrowserSpecs 126Q NC.GetProp 116Q NC.RemProp 107Q NC.SetBrowserFormat 103Q NC.GetProp 73Q NC.RemProp 64Q NC.SetBrowserDepth 61Q NC.GetProp 51Q NC.RemProp 42Q NC.SetBrowserLinksLegend 35Q NC.GetProp 25Q NC.RemProp 16Q NC.SetBrowserLinkLabels 12Q NC.GetProp) (723Q Link% Parameters 603Q DESTNODEID 574Q DESTNODEID 563Q NODEID 554Q NODEID 535Q Link% Parameters 476Q NC.DashingStyles 454Q Link% Parameters 441Q DASHING 431Q Link% Parameters 223Q BrowserRoots 151Q BrowserRoots 136Q SpecialBrowserSpecs 123Q SpecialBrowserSpecs 113Q BrowserFormat 100Q BrowserFormat 70Q BrowserDepth 56Q BrowserDepth 46Q BrowserLinksLegend 32Q BrowserLinksLegend 22Q BrowserLinkLabels 7 BrowserLinkLabels) () NC.ConvertVersion2GraphNodeID D1 (I 2 Version2HashArray I 1 BrowserCard I 0 NodeID) &@A@l B hA@l B (43Q NC.GetBrowserNodeID 40Q NC.Version3CardFromVersion2ID 34Q SUBATOM 22Q NC.GetBrowserNodeID 17Q NC.Version3CardFromVersion2ID 13Q SUBATOM) NIL () NC.IndexInFileFromID D1 (I 0 ID) @l l(5 SUBATOM) NIL () NC.IDFromNumber D1 (I 0 Number) gkl@ @ (21Q PACK* 15Q SUBATOM 11Q NCHARS) (2 NC00000) () NC.ReadVersion2Ptrs 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 1 Stream I 0 ID)  @ XAH A dlAgdlFgdlDglSg]A lA lA YA lA lA ZA lA lA [A lA lA \MIJKLHh^A _MgN_N_OjONgO(205Q GETEOFPTR 14Q SETFILEPTR 6 NC.IndexInFileFromID) (246Q BADPOINTER 213Q ACTIVE 66Q SPECIAL 55Q DELETED 42Q FREE 27Q ACTIVE) () NC.CheckDisplayModeFormat D1 (P 0 DisplayMode I 0 Link) 8@d`, XHl @H Hg@gH @(41Q NC.MakeNewDisplayMode 30Q \TYPEMASK.UFN) (60Q LINKDISPLAYMODE 55Q Link 47Q LINKDISPLAYMODE 35Q Link 16Q Link 10Q LinkTYPE#) () NC.ReadVersion2Region D1 (I 0 Stream) %@ l@ @ l@ @ l@ @ l@ (42Q CREATEREGION) NIL () NC.ReadVersion2Identifier D1 (P 1 ClippedIdentifier P 0 ThingRead I 1 Identifier I 0 Stream) 9@` Akm HAA`HdgjHI@ @ j3h(54Q READC 15Q SUBATOM 6 READ) (37Q NOBIND 30Q NC.Version2TitlesIdentifier 3 NC.OrigReadTable) () NC.ReadVersion2Date D1 (P 0 Date I 0 Stream) &@ Hd `HoHo h(42Q NC.ReportError 37Q CONCAT 14Q NCHARS 3 READ) (17Q NC.DateStringLength) ( 34Q " is not a proper date." 27Q "NC.ReadVersion2Date") (PRETTYCOMPRINT NCCONVERTVERSION2TO3COMS) (RPAQQ NCCONVERTVERSION2TO3COMS ((* * The junk in here is for converting a 1.2 style file into 1.3 style.) (FNS NC.ConvertNoteFileVersion2To3 NC.BuildVersion2HashArray NC.GetAndPutVersion2Card NC.ReadVersion2Title NC.ReadVersion2Links NC.ReadVersion2PropList NC.ReadVersion2MainCardData NC.ReadVersion2LinkLabels NC.ConvertVersion2LinkIcon NC.ReadVersion2CardPartHeader NC.Version3CardFromVersion2ID) (FNS NC.ConvertLinkFormat) (* * Functions to convert version 2 browsers to version 3.0 This is just the MergeNoteFiles browser code modified.) (FNS NC.ConvertVersion2BrowserCard NC.ConvertVersion2GraphNodeID) (* * Functions and vars basically stolen and renamed from the old 1.2 source.) (GLOBALVARS NC.Version2LinkLabelsIdentifier NC.Version2ItemIdentifier NC.Version2LinksIdentifier NC.Version2PropsIdentifier NC.Version2TitlesIdentifier NC.DateStringLength) (VARS (NC.Version2LinkLabelsIdentifier (QUOTE %###LABELS###)) (NC.Version2ItemIdentifier (QUOTE %###ITEM###)) (NC.Version2LinksIdentifier (QUOTE %###LINKS###)) (NC.Version2PropsIdentifier (QUOTE %###PROPS###)) (NC.Version2TitlesIdentifier (QUOTE %###TITLES###)) (NC.DateStringLength 18)) (FNS NC.IndexInFileFromID NC.IDFromNumber NC.ReadVersion2Ptrs NC.CheckDisplayModeFormat NC.ReadVersion2Region NC.ReadVersion2Identifier NC.ReadVersion2Date) (RECORDS POINTERLIST NOTECARDLINK) (P (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengeDatabaseFile) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES))))) (RPAQQ NC.Version2LinkLabelsIdentifier %###LABELS###) (RPAQQ NC.Version2ItemIdentifier %###ITEM###) (RPAQQ NC.Version2LinksIdentifier %###LINKS###) (RPAQQ NC.Version2PropsIdentifier %###PROPS###) (RPAQQ NC.Version2TitlesIdentifier %###TITLES###) (RPAQQ NC.DateStringLength 18) (RECORD POINTERLIST (STATUS MAINPTR LINKSPTR TITLEPTR PROPSPTR INDEXPTR)) (TYPERECORD NOTECARDLINK (LINKID SOURCEID DESTINATIONID ANCHORMODE LINKLABEL DISPLAYMODE) (TYPE? (AND (EQ (LENGTH DATUM) 7) (NC.IDP (fetch (NOTECARDLINK SOURCEID) of DATUM)) (NC.IDP (fetch (NOTECARDLINK DESTINATIONID) of DATUM))))) (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengeDatabaseFile) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES)) (PUTPROPS NCCONVERTVERSION2TO3 COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL