DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

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

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦704fce552⟧ 

    Length: 1248 (0x4e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »ISFHEAD«

Derivation

└─⟦71b125bce⟧ Bits:30004621 CREATE og ISFHEAD kildekode
    └─ ⟦this⟧ »ISFHEAD«

Text

CONST  LÆS  = 0;
       SKRIV= 1;
TYPE  ISF = FILE OF ARRAY (1..232) OF INTEGER;
      AR  = ARRAY (0..0) OF INTEGER;
      ISFHEAD = RECORD
               NBUC,NBLK,NREC,
               BLKPRBUC,RECPRBUC,RECPRBLK,
               KEYFLDS,
               FLHSIZE,BUTSIZE,BLTSIZE,BLKSIZE,RECSIZE,KEYSIZE,
               SEGINFLH,SEGINBUT,SEGINBUC,SEGINBLT,SEGINBLK,
               INITREC,BUCINUSE,BLKINUSE,RECINUSE,
               BUCINZONE,BLKINZONE,BLKENTRY,
               UPSTAT,IRPRBUC,IRPRBLK,
               BUT,BLT,BLK,KEY1,KEY2,ENTRYSIZE         :INTEGER;
               FILEINIT,FILEOPEN,BUTCHG,BLTCHG,BLKCHG  :BOOLEAN;
               KEYPOS,KEYLNG,KEYSGN : ARRAY (1..9) OF INTEGER;
               Z:AR
            END;