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;

Mikados K File

0x000…02a Line {l1=0x28, l2=»PROCEDURE HENTPROFIL(VAR PR:APROFILTYP);«, l3=0x28}
0x02a…02d Line {l1=0x01, l2=» «, l3=0x01}
0x02d…045 Line {l1=0x16, l2=»TYPE PROFILZONE=RECORD«, l3=0x16}
0x045…061 Line {l1=0x1a, l2=»                H:ISFHEAD;«, l3=0x1a}
0x061…093 Line {l1=0x30, l2=»                T:ARRAY(1..MPROFILZ) OF INTEGER;«, l3=0x30}
0x093…09e Line {l1=0x09, l2=»     END;«, l3=0x09}
0x09e…0a1 Line {l1=0x01, l2=» «, l3=0x01}
0x0a1…0b9 Line {l1=0x16, l2=»     PROFILPOST=RECORD«, l3=0x16}
0x0b9…0d3 Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x0d3…0ea Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x0ea…104 Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x104…121 Line {l1=0x1b, l2=»                NR:INTEGER;«, l3=0x1b}
0x121…13c Line {l1=0x19, l2=»                DIM:AR13;«, l3=0x19}
0x13c…15d Line {l1=0x1f, l2=»                TÆTGUM:DOBBTAL;«, l3=0x1f}
0x15d…181 Line {l1=0x22, l2=»                FORSTÆRK:ADOBBTAL;«, l3=0x22}
0x181…19d Line {l1=0x1a, l2=»                TEKST:TEK;«, l3=0x1a}
0x19d…1a9 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x1a9…1ac Line {l1=0x01, l2=» «, l3=0x01}
0x1ac…1bc Line {l1=0x0e, l2=»VAR  PROF:ISF;«, l3=0x0e}
0x1bc…1d3 Line {l1=0x15, l2=»     PROZ:PROFILZONE;«, l3=0x15}
0x1d3…1ec Line {l1=0x17, l2=»     PROFIL:PROFILPOST;«, l3=0x17}
0x1ec…1fd Line {l1=0x0f, l2=»     I:INTEGER;«, l3=0x0f}
0x1fd…200 Line {l1=0x01, l2=» «, l3=0x01}
0x200…207 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x207…219 Line {l1=0x10, l2=»  WITH PROFIL DO«, l3=0x10}
0x219…222 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x222…242 Line {l1=0x1e, l2=»    OWRITE(PROZ.H,PROF,8,LÆS);«, l3=0x1e}
0x242…259 Line {l1=0x15, l2=»    FOR I:=1 TO 12 DO«, l3=0x15}
0x259…264 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x264…279 Line {l1=0x13, l2=»      NR:=PR(I).NR;«, l3=0x13}
0x279…28e Line {l1=0x13, l2=»      IF NR<>0 THEN«, l3=0x13}
0x28e…29b Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x29b…2bb Line {l1=0x1e, l2=»        GETREC(PROZ.H,PROF,A);«, l3=0x1e}
0x2bb…2e9 Line {l1=0x2c, l2=»        IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2c}
0x2e9…302 Line {l1=0x17, l2=»        PR(I).DIM:=DIM;«, l3=0x17}
0x302…321 Line {l1=0x1d, l2=»        PR(I).TÆTGUM:=TÆTGUM;«, l3=0x1d}
0x321…344 Line {l1=0x21, l2=»        PR(I).FORSTÆRK:=FORSTÆRK;«, l3=0x21}
0x344…350 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x350…35a Line {l1=0x08, l2=»    END;«, l3=0x08}
0x35a…374 Line {l1=0x18, l2=»    ICLOSE(PROZ.H,PROF);«, l3=0x18}
0x374…37c Line {l1=0x06, l2=»  END;«, l3=0x06}
0x37c…382 Line {l1=0x04, l2=»END;«, l3=0x04}
0x382…3a0 00 00 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         ┆  cccccccccccccccccccccccccccc┆
0x3a0…3c0 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┆
          […0x31…]

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

Reduced view