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;

Mikados K File

0x000…045 Line {l1=0x43, l2=»PROCEDURE HENTVINDUE(NR1:INTEGER;VAR RAM ARAMMETYP;VAR VKA INTEGER)«, l3=0x43}
0x045…048 Line {l1=0x01, l2=» «, l3=0x01}
0x048…060 Line {l1=0x16, l2=»TYPE VINDUEZONE=RECORD«, l3=0x16}
0x060…07c Line {l1=0x1a, l2=»                H:ISFHEAD;«, l3=0x1a}
0x07c…0af Line {l1=0x31, l2=»                T:ARRAY (1..MVINDUEZ) OF INTEGER;«, l3=0x31}
0x0af…0b2 Line {l1=0x01, l2=» «, l3=0x01}
0x0b2…0bd Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0bd…0c0 Line {l1=0x01, l2=» «, l3=0x01}
0x0c0…0d8 Line {l1=0x16, l2=»     VINDUEPOST=RECORD«, l3=0x16}
0x0d8…0f2 Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x0f2…109 Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x109…123 Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x123…138 Line {l1=0x13, l2=»                NR,«, l3=0x13}
0x138…151 Line {l1=0x17, l2=»                KARMNR,«, l3=0x17}
0x151…172 Line {l1=0x1f, l2=»                MAXMÅL:INTEGER;«, l3=0x1f}
0x172…190 Line {l1=0x1c, l2=»                RAMME:AR116;«, l3=0x1c}
0x190…1ae Line {l1=0x1c, l2=»                BESLAG:AR14;«, l3=0x1c}
0x1ae…1c7 Line {l1=0x17, l2=»                BREDDE,«, l3=0x17}
0x1c7…1e4 Line {l1=0x1b, l2=»                HØJDE:AR13;«, l3=0x1b}
0x1e4…200 Line {l1=0x1a, l2=»                TEKST:TEK;«, l3=0x1a}
0x200…203 Line {l1=0x01, l2=» «, l3=0x01}
0x203…20f Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x20f…212 Line {l1=0x01, l2=» «, l3=0x01}
0x212…221 Line {l1=0x0d, l2=»VAR VINF:ISF;«, l3=0x0d}
0x221…236 Line {l1=0x13, l2=»    VINZ:VINDUEZONE«, l3=0x13}
0x236…24e Line {l1=0x16, l2=»    VINDUE:VINDUEPOST;«, l3=0x16}
0x24e…25e Line {l1=0x0e, l2=»    I:INTEGER;«, l3=0x0e}
0x25e…265 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x265…277 Line {l1=0x10, l2=»  WITH VINDUE DO«, l3=0x10}
0x277…280 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x280…2a0 Line {l1=0x1e, l2=»    OWRITE(VINZ.H,VINF,2,LÆS);«, l3=0x1e}
0x2a0…2ae Line {l1=0x0c, l2=»    NR:=NR1;«, l3=0x0c}
0x2ae…2ca Line {l1=0x1a, l2=»    GETREC(VINZ.H,VINF,A);«, l3=0x1a}
0x2ca…2f4 Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(VINZ.H.FILENAME);«, l3=0x28}
0x2f4…306 Line {l1=0x10, l2=»    VKA:=KARMNR;«, l3=0x10}
0x306…332 Line {l1=0x2a, l2=»    FOR I:=1 TO 16 DO RAM(I) NR:=RAMME(I);«, l3=0x2a}
0x332…34c Line {l1=0x18, l2=»    ICLOSE(VINZ.H,VINF);«, l3=0x18}
0x34c…355 Line {l1=0x07, l2=»  END; «, l3=0x07}
0x355…35b Line {l1=0x04, l2=»END;«, l3=0x04}
0x35b…360 00 00 63 63 63                                                                                    ┆  ccc┆
0x360…380 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┆
          […0x33…]

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

Reduced view