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

⟦97ceb7937⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »ELFACREA.K«

Derivation

└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
    └─⟦this⟧ »ELFACREA.K«

Mikados K File

PROGRAM ELFACREATE;
TYPE ISF=FILE OF ARRAY (1..232) OF INTEGER;
     KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;
VAR FIL:STRING(20);
    NREC,RECSIZE,KEYFLDS,IER:INTEGER;
    KEYDESC:KEYDESCRIPTION;
(*$ICREATE*)
BEGIN
  FIL:='ELEVREG:P2';
  NREC:=700;
  RECSIZE:=60;
  KEYFLDS:=1;
  KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;
  CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
  WRITELN(LIST,'IER : ',IER);WRITELN;
  FIL:='FAGREG:P2';
  NREC:=120;
  RECSIZE:=140;
  KEYFLDS:=1;
  KEYDESC(1,1):=1;KEYDESC(1,2):=1;KEYDESC(1,3):=1;
  CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
  WRITELN(LIST,'IER : ',IER);WRITELN
END.

Full view