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;

Mikados K File

0x000…035 Line {l1=0x33, l2=»PROCEDURE HENTKOMBI(NR1:INTEGER;VAR PR:APROFILTYP);«, l3=0x33}
0x035…038 Line {l1=0x01, l2=» «, l3=0x01}
          […0x1…]
0x03b…052 Line {l1=0x15, l2=»TYPE KOMBIZONE=RECORD«, l3=0x15}
0x052…06d Line {l1=0x19, l2=»               H:ISFHEAD;«, l3=0x19}
0x06d…09d Line {l1=0x2e, l2=»               T:ARRAY(I..MKOMBIZ) OF INTEGER;«, l3=0x2e}
0x09d…0a0 Line {l1=0x01, l2=» «, l3=0x01}
0x0a0…0ab Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0ab…0ae Line {l1=0x01, l2=» «, l3=0x01}
0x0ae…0c5 Line {l1=0x15, l2=»     KOMBIPOST=RECORD«, l3=0x15}
0x0c5…0de Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x0de…0f4 Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x0f4…10d Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x10d…129 Line {l1=0x1a, l2=»               NR:INTEGER;«, l3=0x1a}
0x129…14b Line {l1=0x20, l2=»               PROFIL TYPE:AR16;«, l3=0x20}
0x14b…14e Line {l1=0x01, l2=» «, l3=0x01}
0x14e…159 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x159…15c Line {l1=0x01, l2=» «, l3=0x01}
0x15c…16b Line {l1=0x0d, l2=»VAR KOMF:ISF;«, l3=0x0d}
0x16b…180 Line {l1=0x13, l2=»    KOMZ:KOMBIZONE;«, l3=0x13}
0x180…196 Line {l1=0x14, l2=»    KOMBI:KOMBIPOST;«, l3=0x14}
0x196…1a5 Line {l1=0x0d, l2=»    I:INTEGER«, l3=0x0d}
0x1a5…1ac Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ac…1bd Line {l1=0x0f, l2=»  WITH KOMBI DO«, l3=0x0f}
0x1bd…1c6 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1c6…1e6 Line {l1=0x1e, l2=»    OWRITE(KOMZ.H,KOMF,1,LÆS);«, l3=0x1e}
0x1e6…1f3 Line {l1=0x0b, l2=»    NR=NR1;«, l3=0x0b}
0x1f3…20f Line {l1=0x1a, l2=»    GETREC(KOMZ.H,KOMF,A);«, l3=0x1a}
0x20f…239 Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(KOMZ.H.FILENAME);«, l3=0x28}
0x239…267 Line {l1=0x2c, l2=»    FOR I:=1 TO 6 DO PR(I).NR=PROFILTYPE(I).«, l3=0x2c}
0x267…281 Line {l1=0x18, l2=»    ICLOSE(KOMZ.H.KOMF);«, l3=0x18}
0x281…289 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x289…28f Line {l1=0x04, l2=»END;«, l3=0x04}
0x28f…2a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                                ┆  ccccccccccccccc┆
0x2a0…2c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x39…]

Reduced view