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

⟦4bea3afb3⟧ TextFile

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

Derivation

└─⟦510f10af2⟧ Bits:30009011 Apn
    └─⟦this⟧ »HENKOMBI.K«

Mikados K File

PROCEDURE HENTKOMBI(NR1:INTEGER;VAR PR:APROFILTYP);
 
 
TYPE KOMBIZONE=RECORD
               H:ISFHEAD;
               T:ARRAY(I..MKOMBIZ) OF INTEGER;
 
     END;
 
     KOMBIPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               NR:INTEGER;
               PROFIL TYPE:AR16;
 
     END;
 
VAR KOMF:ISF;
    KOMZ:KOMBIZONE;
    KOMBI:KOMBIPOST;
    I:INTEGER
BEGIN
  WITH KOMBI DO
  BEGIN
    OWRITE(KOMZ.H,KOMF,1,LÆS);
    NR=NR1;
    GETREC(KOMZ.H,KOMF,A);
    IF IER<>0 THEN IOF(KOMZ.H.FILENAME);
    FOR I:=1 TO 6 DO PR(I).NR=PROFILTYPE(I).
    ICLOSE(KOMZ.H.KOMF);
  END;
END;

Full view