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

⟦780d3a082⟧ TextFile

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

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »TCREATE.K«

Mikados K File

PROGRAM TESTCREATE;
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
(*PAS PÅ, FILEN BLIVER IKKE STOR NOK*)
  FIL:='REGVARE:P2';
  NREC:=1200;
  RECSIZE:=101;
  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