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.

Mikados K File

0x000…013 Line {l1=0x11, l2=»PROGRAM READTEST;«, l3=0x11}
0x013…025 Line {l1=0x10, l2=»VAR J,K:INTEGER;«, l3=0x10}
0x025…035 Line {l1=0x0e, l2=»    I:INTEGER;«, l3=0x0e}
0x035…047 Line {l1=0x10, l2=»       S:STRING;«, l3=0x10}
0x047…04e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04e…058 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x058…094 Line {l1=0x3a, l2=»  GOTOXY(1,5);WRITELN('BILAG 0       (0 FOR AUTOMATISK)');«, l3=0x3a}
0x094…09e Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x09e…0c9 Line {l1=0x29, l2=»       GOTOXY(7,5);READLN;K:=ORD(INPUT^);«, l3=0x29}
0x0c9…10f Line {l1=0x44, l2=»       IF EOLN THEN I:=0 ELSE IF INPUT^='D' THEN I:=-1 ELSE READ(I);«, l3=0x44}
0x10f…124 Line {l1=0x13, l2=»       J:=IORESULT;«, l3=0x13}
0x124…149 Line {l1=0x23, l2=»  UNTIL (J=0) AND (I>-2) AND (I<5);«, l3=0x23}
0x149…15e Line {l1=0x13, l2=»  WRITELN(I:5,K:5);«, l3=0x13}
0x15e…16b Line {l1=0x0b, l2=»  UNTIL I=4«, l3=0x0b}
0x16b…171 Line {l1=0x04, l2=»END.«, l3=0x04}
0x171…180 00 00 4e 44 2e 04 00 00 4e 44 2e 04 00 00 29                                                      ┆  ND.   ND.   )┆
0x180…1a0 3b 3a 08 20 20 52 45 50 45 41 54 08 1a 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 2c 35 29 3b   ┆;:   REPEAT         GOTOXY(7,5);┆
0x1a0…1c0 52 45 41 44 4c 4e 3b 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆READLN;                         ┆

Reduced view