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

⟦01d3fbf50⟧ TextFile

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

Derivation

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

Mikados K File

PROCEDURE HENTFARVE(VAR FA:AFARVTYP;OFA:DOBBTAL);
 
TYPE FARVEZONE=RECORD
               H=ISFHEAD;
               T:ARRAY(1..MFARVEZ) OF INTEGER;
 
     END;
 
     FARVEPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               FARVE:GLASTYP;
               TEKST:TEK;
 
      END;
 
VAR FARF:ISF;
    FARZ:FARVEZONE;
    FARVX:FARVEPOST;
 
BEGIN
  WITH FARVX DO
  BEGIN
    OWRITE(FARVZ.H,FARF,4,LÆS);
    FARVE.NR:=OFA(1);
    GETREC(FARVZ.H,FARF,A);
    IF IER<>0 THEN IOF(FARZ.H.FILENAME);
    FA(1):=FARVE;
    IF OFA(1)<>OFA(2) THEN
    BEGIN
      FARVE.NR:=OFA(2);
      GETREC(FARZ.H,FARF,A);
      IF IER<>0 THEN IOF(FARZ.H.FILENAME)
    END;
    FA(2):=FARVE;
    ICLOSE(FARZ.H,FARF);
  END;
END;

Mikados K File

0x000…033 Line {l1=0x31, l2=»PROCEDURE HENTFARVE(VAR FA:AFARVTYP;OFA:DOBBTAL);«, l3=0x31}
0x033…036 Line {l1=0x01, l2=» «, l3=0x01}
0x036…04d Line {l1=0x15, l2=»TYPE FARVEZONE=RECORD«, l3=0x15}
0x04d…068 Line {l1=0x19, l2=»               H=ISFHEAD;«, l3=0x19}
0x068…098 Line {l1=0x2e, l2=»               T:ARRAY(1..MFARVEZ) OF INTEGER;«, l3=0x2e}
0x098…09b Line {l1=0x01, l2=» «, l3=0x01}
0x09b…0a6 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0a6…0a9 Line {l1=0x01, l2=» «, l3=0x01}
0x0a9…0c0 Line {l1=0x15, l2=»     FARVEPOST=RECORD«, l3=0x15}
0x0c0…0d9 Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x0d9…0ef Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x0ef…108 Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x108…127 Line {l1=0x1d, l2=»               FARVE:GLASTYP;«, l3=0x1d}
0x127…142 Line {l1=0x19, l2=»               TEKST:TEK;«, l3=0x19}
0x142…145 Line {l1=0x01, l2=» «, l3=0x01}
0x145…151 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x151…154 Line {l1=0x01, l2=» «, l3=0x01}
0x154…163 Line {l1=0x0d, l2=»VAR FARF:ISF;«, l3=0x0d}
0x163…178 Line {l1=0x13, l2=»    FARZ:FARVEZONE;«, l3=0x13}
0x178…18e Line {l1=0x14, l2=»    FARVX:FARVEPOST;«, l3=0x14}
0x18e…191 Line {l1=0x01, l2=» «, l3=0x01}
0x191…198 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x198…1a9 Line {l1=0x0f, l2=»  WITH FARVX DO«, l3=0x0f}
0x1a9…1b2 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1b2…1d3 Line {l1=0x1f, l2=»    OWRITE(FARVZ.H,FARF,4,LÆS);«, l3=0x1f}
0x1d3…1ea Line {l1=0x15, l2=»    FARVE.NR:=OFA(1);«, l3=0x15}
0x1ea…207 Line {l1=0x1b, l2=»    GETREC(FARVZ.H,FARF,A);«, l3=0x1b}
0x207…231 Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(FARZ.H.FILENAME);«, l3=0x28}
0x231…244 Line {l1=0x11, l2=»    FA(1):=FARVE;«, l3=0x11}
0x244…260 Line {l1=0x1a, l2=»    IF OFA(1)<>OFA(2) THEN«, l3=0x1a}
0x260…26b Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x26b…284 Line {l1=0x17, l2=»      FARVE.NR:=OFA(2);«, l3=0x17}
0x284…2a2 Line {l1=0x1c, l2=»      GETREC(FARZ.H,FARF,A);«, l3=0x1c}
0x2a2…2cd Line {l1=0x29, l2=»      IF IER<>0 THEN IOF(FARZ.H.FILENAME)«, l3=0x29}
0x2cd…2d7 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x2d7…2ea Line {l1=0x11, l2=»    FA(2):=FARVE;«, l3=0x11}
0x2ea…304 Line {l1=0x18, l2=»    ICLOSE(FARZ.H,FARF);«, l3=0x18}
0x304…30c Line {l1=0x06, l2=»  END;«, l3=0x06}
0x30c…312 Line {l1=0x04, l2=»END;«, l3=0x04}
0x312…320 00 00 63 63 63 63 63 63 63 63 63 63 63 63                                                         ┆  cccccccccccc┆
0x320…340 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┆
          […0x35…]

TextFile

1PROCEDURE HENTFARVE(VAR FA:AFARVTYP;OFA:DOBBTAL);1▶01◀ ▶01◀▶15◀TYPE FARVEZONE=RECORD▶15◀▶19◀               H=ISFHEAD;▶19◀.               T:ARRAY(1..MFARVEZ) OF INTEGER;.▶01◀ ▶01◀	     END;	▶01◀ ▶01◀▶15◀     FARVEPOST=RECORD▶15◀▶17◀               AA:ARAR;▶17◀▶14◀               A:AR;▶14◀▶17◀               AAA:RAR;▶17◀▶1d◀               FARVE:GLASTYP;▶1d◀▶19◀               TEKST:TEK;▶19◀▶01◀ ▶01◀
      END;
▶01◀ ▶01◀\rVAR FARF:ISF;\r▶13◀    FARZ:FARVEZONE;▶13◀▶14◀    FARVX:FARVEPOST;▶14◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶0f◀  WITH FARVX DO▶0f◀▶07◀  BEGIN▶07◀▶1f◀    OWRITE(FARVZ.H,FARF,4,LÆS);▶1f◀▶15◀    FARVE.NR:=OFA(1);▶15◀▶1b◀    GETREC(FARVZ.H,FARF,A);▶1b◀(    IF IER<>0 THEN IOF(FARZ.H.FILENAME);(▶11◀    FA(1):=FARVE;▶11◀▶1a◀    IF OFA(1)<>OFA(2) THEN▶1a◀	    BEGIN	▶17◀      FARVE.NR:=OFA(2);▶17◀▶1c◀      GETREC(FARZ.H,FARF,A);▶1c◀)      IF IER<>0 THEN IOF(FARZ.H.FILENAME))▶08◀    END;▶08◀▶11◀    FA(2):=FARVE;▶11◀▶18◀    ICLOSE(FARZ.H,FARF);▶18◀▶06◀  END;▶06◀▶04◀END;▶04◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view