|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »ISFHEAD.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »ISFHEAD.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »ISFHEAD.K«
TYPE
ISF =FILE OF ARRAY (1..232) OF INTEGER;
ACCMODE =(LUKKET,LÆS,SKRIV,XCLUSIV,XXCLUSIV);
FILNAVN =PACKED ARRAY (1..8) OF CHAR;
ISFHEAD =RECORD
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
END;