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

⟦2a07ca722⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »ISFHEAD1.K«

Derivation

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »ISFHEAD1.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »ISFHEAD1.K«

Mikados K File

ISF     =FILE OF ARRAY (1..232) OF INTEGER;
ACCMODE =(LUKKET,LÆS,SKRIV,XCLUSIV,XXCLUSIV);
FILNAVN =STRING(18);
ISFHEAD =RECORD
           A:AR;
           NBUC,NBLK,NREC,
           BLKPRBUC,RECPRBUC,RECPRBLK,
           KEYFLDS,
           AZSIZE,BUTSIZE,BLTSIZE,BLKSIZE,RECSIZE,KEYSIZE,
           SEGINFLH,SEGINBUT,SEGINBUC,SEGINBLT,SEGINBLK,
           INITREC,BUCINUSE,BLKINUSE,RECINUSE,
           BUCINZONE,BLKINZONE,BLKENTRY,
           IRPRBUC,IRPRBLK,
           BUT,BLT,BLK,KEY1,KEY2,ENTRYSIZE         :INTEGER;
           FILEINIT,FILEOPEN,BUTCHG,BLTCHG,BLKCHG  :BOOLEAN;
           KEYPOS,KEYLNG,KEYSGN : ARRAY (1..9) OF INTEGER;
           FILENAME:FILNAVN;
           KEYS:ARRAY (KEYADR) OF INTEGER
           (*SKAL FYLDE ET HELT ANTAL ISF'S*)
         END;

Full view