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

⟦5d9ab78aa⟧ 

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »KCREATE«

Derivation

└─⟦206949bb3⟧ Bits:30004653 Kunderegister P1 til messe (MIKADOS)
    └─ ⟦this⟧ »KCREATE«

Text

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:='KUNDERG:P2';
  NREC:=300;
  RECSIZE:=132;
  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
END.