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

⟦1a3834195⟧ TextFile

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

Derivation

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

Mikados K File

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

Mikados K File

0x00…11 Line {l1=0x0f, l2=»0100 DIM A(100)«, l3=0x0f}
0x11…25 Line {l1=0x12, l2=»0110 FOR X=1 TO 11«, l3=0x12}
0x25…33 Line {l1=0x0c, l2=»0120 A(X)=-X«, l3=0x0c}
0x33…44 Line {l1=0x0f, l2=»0130 PRINT A(X)«, l3=0x0f}
0x44…51 Line {l1=0x0b, l2=»0140 NEXT X«, l3=0x0b}
0x51…69 Line {l1=0x16, l2=»0150 CALL "DDE:ARRAYO"«, l3=0x16}
0x69…7d Line {l1=0x12, l2=»0160 FOR X=1 TO 11«, l3=0x12}
0x7d…8e Line {l1=0x0f, l2=»0170 PRINT A(X)«, l3=0x0f}
0x8e…9b Line {l1=0x0b, l2=»0180 NEXT X«, l3=0x0b}
0x9b…a7 Line {l1=0x0a, l2=»0190 STOP «, l3=0x0a}
0xa7…c0 00 00 30 20 4e 45 58 54 20 58 0b 0a 30 32 30 30 20 53 54 4f 50 20 0a 00 00                        ┆  0 NEXT X  0200 STOP    ┆
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