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;

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

Full view