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

⟦7b7060ff4⟧ TextFile

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

Derivation

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

Mikados K File

PROCEDURE HENTPROFIL(VAR PR:APROFILTYP);
 
TYPE PROFILZONE=RECORD
                H:ISFHEAD;
                T:ARRAY(1..MPROFILZ) OF INTEGER;
     END;
 
     PROFILPOST=RECORD
                AA:ARAR;
                A:AR;
                AAA:RAR;
                NR:INTEGER;
                DIM:AR13;
                TÆTGUM:DOBBTAL;
                FORSTÆRK:ADOBBTAL;
                TEKST:TEK;
      END;
 
VAR  PROF:ISF;
     PROZ:PROFILZONE;
     PROFIL:PROFILPOST;
     I:INTEGER;
 
BEGIN
  WITH PROFIL DO
  BEGIN
    OWRITE(PROZ.H,PROF,8,LÆS);
    FOR I:=1 TO 12 DO
    BEGIN
      NR:=PR(I).NR;
      IF NR<>0 THEN
      BEGIN
        GETREC(PROZ.H,PROF,A);
        IF IER<>0 THEN IOF(PROZ.H.FILENAME);
        PR(I).DIM:=DIM;
        PR(I).TÆTGUM:=TÆTGUM;
        PR(I).FORSTÆRK:=FORSTÆRK;
      END;
    END;
    ICLOSE(PROZ.H,PROF);
  END;
END;

TextFile

(PROCEDURE HENTPROFIL(VAR PR:APROFILTYP);(▶01◀ ▶01◀▶16◀TYPE PROFILZONE=RECORD▶16◀▶1a◀                H:ISFHEAD;▶1a◀0                T:ARRAY(1..MPROFILZ) OF INTEGER;0	     END;	▶01◀ ▶01◀▶16◀     PROFILPOST=RECORD▶16◀▶18◀                AA:ARAR;▶18◀▶15◀                A:AR;▶15◀▶18◀                AAA:RAR;▶18◀▶1b◀                NR:INTEGER;▶1b◀▶19◀                DIM:AR13;▶19◀▶1f◀                TÆTGUM:DOBBTAL;▶1f◀"                FORSTÆRK:ADOBBTAL;"▶1a◀                TEKST:TEK;▶1a◀
      END;
▶01◀ ▶01◀▶0e◀VAR  PROF:ISF;▶0e◀▶15◀     PROZ:PROFILZONE;▶15◀▶17◀     PROFIL:PROFILPOST;▶17◀▶0f◀     I:INTEGER;▶0f◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶10◀  WITH PROFIL DO▶10◀▶07◀  BEGIN▶07◀▶1e◀    OWRITE(PROZ.H,PROF,8,LÆS);▶1e◀▶15◀    FOR I:=1 TO 12 DO▶15◀	    BEGIN	▶13◀      NR:=PR(I).NR;▶13◀▶13◀      IF NR<>0 THEN▶13◀▶0b◀      BEGIN▶0b◀▶1e◀        GETREC(PROZ.H,PROF,A);▶1e◀,        IF IER<>0 THEN IOF(PROZ.H.FILENAME);,▶17◀        PR(I).DIM:=DIM;▶17◀▶1d◀        PR(I).TÆTGUM:=TÆTGUM;▶1d◀!        PR(I).FORSTÆRK:=FORSTÆRK;!
      END;
▶08◀    END;▶08◀▶18◀    ICLOSE(PROZ.H,PROF);▶18◀▶06◀  END;▶06◀▶04◀END;▶04◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Full view