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

⟦c15742f34⟧ TextFile

    Length: 448 (0x1c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »READTEST.K«

Derivation

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

Mikados K File

PROGRAM READTEST;
VAR J,K:INTEGER;
    I:INTEGER;
       S:STRING;
BEGIN
  REPEAT
  GOTOXY(1,5);WRITELN('BILAG 0       (0 FOR AUTOMATISK)');
  REPEAT
       GOTOXY(7,5);READLN;K:=ORD(INPUT^);
       IF EOLN THEN I:=0 ELSE IF INPUT^='D' THEN I:=-1 ELSE READ(I);
       J:=IORESULT;
  UNTIL (J=0) AND (I>-2) AND (I<5);
  WRITELN(I:5,K:5);
  UNTIL I=4
END.

Full view