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

⟦1c82adc62⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »SETTEST.PAS«

Derivation

└─⟦3d1e6965e⟧ Bits:30009789/_.ft.Ibm2.50007347.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »SETTEST.PAS« 
└─⟦d36b687c5⟧ Bits:30009789/_.ft.Ibm2.50007363.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »SETTEST.PAS«

TextFile

PROGRAM SetTest;

   TYPE
      TagType = (bit, byt);
      RecType = RECORD
         CASE TagType OF
         bit:(I: SET OF 0..7);
         byt:(Y: 0..255)
        END;

   VAR
      B: RecType;

  BEGIN
   B.I := (.2,7.);
   writeln(output, 'B.Y= ', B.Y)
  END.«eof»