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;

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

Full view