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

⟦12319e64e⟧ TextFile

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

Derivation

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

Mikados K File

0090 INTEGER X
0100 DIM A(100)
0110 FOR X=1 TO 11
0120 A(X)=-2
0130 PRINT A(X)
0140 NEXT X
0150 CALL "DDE:ARRAYP"
0160 FOR X=1 TO 11
0170 PRINT A(X)
0180 NEXT X
0190 STOP

Mikados K File

0x00…10 Line {l1=0x0e, l2=»0090 INTEGER X«, l3=0x0e}
0x10…21 Line {l1=0x0f, l2=»0100 DIM A(100)«, l3=0x0f}
0x21…35 Line {l1=0x12, l2=»0110 FOR X=1 TO 11«, l3=0x12}
0x35…43 Line {l1=0x0c, l2=»0120 A(X)=-2«, l3=0x0c}
0x43…54 Line {l1=0x0f, l2=»0130 PRINT A(X)«, l3=0x0f}
0x54…61 Line {l1=0x0b, l2=»0140 NEXT X«, l3=0x0b}
0x61…79 Line {l1=0x16, l2=»0150 CALL "DDE:ARRAYP"«, l3=0x16}
0x79…8d Line {l1=0x12, l2=»0160 FOR X=1 TO 11«, l3=0x12}
0x8d…9e Line {l1=0x0f, l2=»0170 PRINT A(X)«, l3=0x0f}
0x9e…ab Line {l1=0x0b, l2=»0180 NEXT X«, l3=0x0b}
0xab…b7 Line {l1=0x0a, l2=»0190 STOP «, l3=0x0a}
0xb7…c0 00 00 00 00 00 00 00 00 00                                                                        ┆         ┆
0xc0…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 00 00 00 00 00 00 00   ┆                                ┆

Reduced view