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

⟦7cce256e5⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »KODE.K«

Derivation

└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
    └─⟦this⟧ »KODE.K«

Mikados K File

PROGRAM KODE;
 
(* BR-04.12.84 *)
 
PROCEDURE KODENR; EXTERNAL;
 
BEGIN
  CLEARSCREEN;
  WRITELN('KODENR');
  KODENR;
END.

Mikados K File

0x000…00f Line {l1=0x0d, l2=»PROGRAM KODE;«, l3=0x0d}
0x00f…012 Line {l1=0x01, l2=» «, l3=0x01}
0x012…025 Line {l1=0x11, l2=»(* BR-04.12.84 *)«, l3=0x11}
0x025…028 Line {l1=0x01, l2=» «, l3=0x01}
0x028…045 Line {l1=0x1b, l2=»PROCEDURE KODENR; EXTERNAL;«, l3=0x1b}
0x045…048 Line {l1=0x01, l2=» «, l3=0x01}
0x048…04f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04f…05f Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x05f…075 Line {l1=0x14, l2=»  WRITELN('KODENR');«, l3=0x14}
0x075…080 Line {l1=0x09, l2=»  KODENR;«, l3=0x09}
0x080…086 Line {l1=0x04, l2=»END.«, l3=0x04}
0x086…0a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                     ┆                          ┆
0x0a0…0c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0x1…]
0x0e0…100 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┆
          […0x1f…]

Reduced view