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

⟦2a4d35617⟧ TextFile

    Length: 224 (0xe0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PRØV.K«

Derivation

└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
    └─⟦this⟧ »PRØV.K«

Mikados K File

0100 INTEGER A(5),B(5),I
0110 FLAG=0
0120 FOR I=1 TO 5
0130 A(I)=20-I;B(I)=20-I
0135 PRINT A(I),B(I)
0140 NEXT I
0150 CALL "DDE:TRY"
0160 FOR I=1 TO 5
0170 PRINT A(I),B(I),FLAG
0180 NEXT I

Mikados K File

0x00…1a Line {l1=0x18, l2=»0100 INTEGER A(5),B(5),I«, l3=0x18}
0x1a…27 Line {l1=0x0b, l2=»0110 FLAG=0«, l3=0x0b}
0x27…3a Line {l1=0x11, l2=»0120 FOR I=1 TO 5«, l3=0x11}
0x3a…54 Line {l1=0x18, l2=»0130 A(I)=20-I;B(I)=20-I«, l3=0x18}
0x54…6a Line {l1=0x14, l2=»0135 PRINT A(I),B(I)«, l3=0x14}
0x6a…77 Line {l1=0x0b, l2=»0140 NEXT I«, l3=0x0b}
0x77…8c Line {l1=0x13, l2=»0150 CALL "DDE:TRY"«, l3=0x13}
0x8c…9f Line {l1=0x11, l2=»0160 FOR I=1 TO 5«, l3=0x11}
0x9f…ba Line {l1=0x19, l2=»0170 PRINT A(I),B(I),FLAG«, l3=0x19}
0xba…c7 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0xc7…e0 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                        ┆                         ┆

Reduced view