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⟧ 

    Length: 1248 (0x4e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »KODE«

Derivation

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

Text

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