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

⟦b0c5c6e38⟧ TextFile

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

Derivation

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

Mikados K File

PROCEDURE HENTGLAS(VAR GL:AGLASTYP;ART:AR13);
 
TYPE GLASZONE=RECORD
              H:ISFHEAD;
              T:ARRAY(1..MGLASZ) OF INTEGER;
     END;
 
     GLASPOST=RECORD
              AA:ARAR;
              A:AR;
              AAA:RAR;
              GLAS:GLASTYP;
              TEKST:TEK;
      END;
 
VAR GLAF:ISF;
    GLAZ:GLASZONE;
    GLAX:GLASPOST;
    I:INTEGER;
 
BEGIN
  OWRITE(GLAZ.H,GLAF,7,LÆS);
  FOR I:=1 TO 3 DO
  BEGIN
    GL(I).NR:=0,GL(I).KODE:=0;
    IF ART(I)<>0 THEN
    BEGIN
      GLAX.GLAS.NR:=ART(I);
      GETREC(GLAZ.H,GLAF,GLAX.A);
      IF IER<>0 THEN IOF(GLAZ.H.FILENAME);
      GL(I)=GLAX.GLAS;
    END;
  END;
  ICLOSE(GLAZ.H,GLAF);
END;

Mikados K File

0x000…02f Line {l1=0x2d, l2=»PROCEDURE HENTGLAS(VAR GL:AGLASTYP;ART:AR13);«, l3=0x2d}
0x02f…032 Line {l1=0x01, l2=» «, l3=0x01}
0x032…048 Line {l1=0x14, l2=»TYPE GLASZONE=RECORD«, l3=0x14}
0x048…062 Line {l1=0x18, l2=»              H:ISFHEAD;«, l3=0x18}
0x062…090 Line {l1=0x2c, l2=»              T:ARRAY(1..MGLASZ) OF INTEGER;«, l3=0x2c}
0x090…09b Line {l1=0x09, l2=»     END;«, l3=0x09}
0x09b…09e Line {l1=0x01, l2=» «, l3=0x01}
0x09e…0b4 Line {l1=0x14, l2=»     GLASPOST=RECORD«, l3=0x14}
0x0b4…0cc Line {l1=0x16, l2=»              AA:ARAR;«, l3=0x16}
0x0cc…0e1 Line {l1=0x13, l2=»              A:AR;«, l3=0x13}
0x0e1…0f9 Line {l1=0x16, l2=»              AAA:RAR;«, l3=0x16}
0x0f9…116 Line {l1=0x1b, l2=»              GLAS:GLASTYP;«, l3=0x1b}
0x116…130 Line {l1=0x18, l2=»              TEKST:TEK;«, l3=0x18}
0x130…13c Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x13c…13f Line {l1=0x01, l2=» «, l3=0x01}
0x13f…14e Line {l1=0x0d, l2=»VAR GLAF:ISF;«, l3=0x0d}
0x14e…162 Line {l1=0x12, l2=»    GLAZ:GLASZONE;«, l3=0x12}
0x162…176 Line {l1=0x12, l2=»    GLAX:GLASPOST;«, l3=0x12}
0x176…186 Line {l1=0x0e, l2=»    I:INTEGER;«, l3=0x0e}
0x186…189 Line {l1=0x01, l2=» «, l3=0x01}
0x189…190 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x190…1ae Line {l1=0x1c, l2=»  OWRITE(GLAZ.H,GLAF,7,LÆS);«, l3=0x1c}
0x1ae…1c2 Line {l1=0x12, l2=»  FOR I:=1 TO 3 DO«, l3=0x12}
0x1c2…1cb Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1cb…1eb Line {l1=0x1e, l2=»    GL(I).NR:=0,GL(I).KODE:=0;«, l3=0x1e}
0x1eb…202 Line {l1=0x15, l2=»    IF ART(I)<>0 THEN«, l3=0x15}
0x202…20d Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x20d…22a Line {l1=0x1b, l2=»      GLAX.GLAS.NR:=ART(I);«, l3=0x1b}
0x22a…24d Line {l1=0x21, l2=»      GETREC(GLAZ.H,GLAF,GLAX.A);«, l3=0x21}
0x24d…279 Line {l1=0x2a, l2=»      IF IER<>0 THEN IOF(GLAZ.H.FILENAME);«, l3=0x2a}
0x279…291 Line {l1=0x16, l2=»      GL(I)=GLAX.GLAS;«, l3=0x16}
0x291…29b Line {l1=0x08, l2=»    END;«, l3=0x08}
0x29b…2a3 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x2a3…2bb Line {l1=0x16, l2=»  ICLOSE(GLAZ.H,GLAF);«, l3=0x16}
0x2bb…2c1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2c1…2e0 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 63      ┆  ccccccccccccccccccccccccccccc┆
0x2e0…300 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┆
          […0x37…]

TextFile

-PROCEDURE HENTGLAS(VAR GL:AGLASTYP;ART:AR13);-▶01◀ ▶01◀▶14◀TYPE GLASZONE=RECORD▶14◀▶18◀              H:ISFHEAD;▶18◀,              T:ARRAY(1..MGLASZ) OF INTEGER;,	     END;	▶01◀ ▶01◀▶14◀     GLASPOST=RECORD▶14◀▶16◀              AA:ARAR;▶16◀▶13◀              A:AR;▶13◀▶16◀              AAA:RAR;▶16◀▶1b◀              GLAS:GLASTYP;▶1b◀▶18◀              TEKST:TEK;▶18◀
      END;
▶01◀ ▶01◀\rVAR GLAF:ISF;\r▶12◀    GLAZ:GLASZONE;▶12◀▶12◀    GLAX:GLASPOST;▶12◀▶0e◀    I:INTEGER;▶0e◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶1c◀  OWRITE(GLAZ.H,GLAF,7,LÆS);▶1c◀▶12◀  FOR I:=1 TO 3 DO▶12◀▶07◀  BEGIN▶07◀▶1e◀    GL(I).NR:=0,GL(I).KODE:=0;▶1e◀▶15◀    IF ART(I)<>0 THEN▶15◀	    BEGIN	▶1b◀      GLAX.GLAS.NR:=ART(I);▶1b◀!      GETREC(GLAZ.H,GLAF,GLAX.A);!*      IF IER<>0 THEN IOF(GLAZ.H.FILENAME);*▶16◀      GL(I)=GLAX.GLAS;▶16◀▶08◀    END;▶08◀▶06◀  END;▶06◀▶16◀  ICLOSE(GLAZ.H,GLAF);▶16◀▶04◀END;▶04◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view