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

⟦82c13407e⟧ TextFile

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

Derivation

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

Mikados K File

PROCEDURE HENTVINDUE(NR1:INTEGER;VAR RAM ARAMMETYP;VAR VKA INTEGER)
 
TYPE VINDUEZONE=RECORD
                H:ISFHEAD;
                T:ARRAY (1..MVINDUEZ) OF INTEGER;
 
     END;
 
     VINDUEPOST=RECORD
                AA:ARAR;
                A:AR;
                AAA:RAR;
                NR,
                KARMNR,
                MAXMÅL:INTEGER;
                RAMME:AR116;
                BESLAG:AR14;
                BREDDE,
                HØJDE:AR13;
                TEKST:TEK;
 
      END;
 
VAR VINF:ISF;
    VINZ:VINDUEZONE
    VINDUE:VINDUEPOST;
    I:INTEGER;
BEGIN
  WITH VINDUE DO
  BEGIN
    OWRITE(VINZ.H,VINF,2,LÆS);
    NR:=NR1;
    GETREC(VINZ.H,VINF,A);
    IF IER<>0 THEN IOF(VINZ.H.FILENAME);
    VKA:=KARMNR;
    FOR I:=1 TO 16 DO RAM(I) NR:=RAMME(I);
    ICLOSE(VINZ.H,VINF);
  END; 
END;

TextFile

CPROCEDURE HENTVINDUE(NR1:INTEGER;VAR RAM ARAMMETYP;VAR VKA INTEGER)C▶01◀ ▶01◀▶16◀TYPE VINDUEZONE=RECORD▶16◀▶1a◀                H:ISFHEAD;▶1a◀1                T:ARRAY (1..MVINDUEZ) OF INTEGER;1▶01◀ ▶01◀	     END;	▶01◀ ▶01◀▶16◀     VINDUEPOST=RECORD▶16◀▶18◀                AA:ARAR;▶18◀▶15◀                A:AR;▶15◀▶18◀                AAA:RAR;▶18◀▶13◀                NR,▶13◀▶17◀                KARMNR,▶17◀▶1f◀                MAXMÅL:INTEGER;▶1f◀▶1c◀                RAMME:AR116;▶1c◀▶1c◀                BESLAG:AR14;▶1c◀▶17◀                BREDDE,▶17◀▶1b◀                HØJDE:AR13;▶1b◀▶1a◀                TEKST:TEK;▶1a◀▶01◀ ▶01◀
      END;
▶01◀ ▶01◀\rVAR VINF:ISF;\r▶13◀    VINZ:VINDUEZONE▶13◀▶16◀    VINDUE:VINDUEPOST;▶16◀▶0e◀    I:INTEGER;▶0e◀▶05◀BEGIN▶05◀▶10◀  WITH VINDUE DO▶10◀▶07◀  BEGIN▶07◀▶1e◀    OWRITE(VINZ.H,VINF,2,LÆS);▶1e◀\f

    NR:=NR1;\f

▶1a◀    GETREC(VINZ.H,VINF,A);▶1a◀(    IF IER<>0 THEN IOF(VINZ.H.FILENAME);(▶10◀    VKA:=KARMNR;▶10◀*    FOR I:=1 TO 16 DO RAM(I) NR:=RAMME(I);*▶18◀    ICLOSE(VINZ.H,VINF);▶18◀▶07◀  END; ▶07◀▶04◀END;▶04◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Full view