DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦5bc52b7c2⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »LNKDF3.BAK«

Derivation

└─⟦3d1e6965e⟧ Bits:30009789/_.ft.Ibm2.50007347.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF3.BAK« 
└─⟦91467e717⟧ Bits:30009789/_.ft.Ibm2.50007348.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF3.BAK«

TextFile


   PROCEDURE TSTnmt(Inx: NameTableIndexType
                );

      VAR
         i : 0..9;

     BEGIN (*TSTnmt*)
      write(TestOut, 'NMTÆ', inx:1
                   , ';../', CurrentNameTableIndex:1,'Å=(' );
      FOR i := 0 TO 7 DO
         TSTasc( NameTable(. Inx+i .) );
      write(TestOut, '/');
      TSThex( NameTable(. Inx .) );
      FOR i := 1 TO 7 DO
        BEGIN
         write(TestOut, '-');
         TSThex( NameTable(. Inx+i .) )
        END;
      writeln(TestOut, ')' )
     END;  (*TSTnmt*)

   PROCEDURE TSTsbt(Inx: SymbolTableIndexType
                );

     BEGIN (*TSTsbt*)
      WITH SymbolTable(.Inx.) DO
        BEGIN
         write(TestOut, 'SBTÆ', Inx:1
                      , '/', LatestInsert:1
                      , '/', CurrentSymbolCount:1
                      , 'Å=(SectionNo=', Section:1, ' '
                      , 'NameRef=', NameReference:1, ' '
                      , 'SortLink=', SortLink:1, ')'
                );
        END
     END;  (*TSTsbt*)
«eof»