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

⟦bf6cd9d81⟧ TextFile

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

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »CHAINUS.K«

Mikados K File

PROGRAM CHAINUS;
VAR QUQ:^INTEGER;
    PROG:STRING(10);
BEGIN
  PROG:='CHAINOS  1';
  PROG(9):=CHR(16*3+1);
  CHAIN(PROG,'',QUQ)
END.

Full view