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

⟦678b134f1⟧ TextFile

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

Derivation

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

Mikados K File

0100 INTEGER A(100),I
0110 FLAG=0
0120 FOR I=1 TO 100
0130 A(I)=-2
0135 PRINT A(I)
0140 NEXT I
0150 CALL "DDE:TRY6"
0160 FOR I=1 TO 100
0170 PRINT A(I),FLAG
0180 NEXT I

Mikados K File

0x00…17 Line {l1=0x15, l2=»0100 INTEGER A(100),I«, l3=0x15}
0x17…24 Line {l1=0x0b, l2=»0110 FLAG=0«, l3=0x0b}
0x24…39 Line {l1=0x13, l2=»0120 FOR I=1 TO 100«, l3=0x13}
0x39…47 Line {l1=0x0c, l2=»0130 A(I)=-2«, l3=0x0c}
0x47…58 Line {l1=0x0f, l2=»0135 PRINT A(I)«, l3=0x0f}
0x58…65 Line {l1=0x0b, l2=»0140 NEXT I«, l3=0x0b}
0x65…7b Line {l1=0x14, l2=»0150 CALL "DDE:TRY6"«, l3=0x14}
0x7b…90 Line {l1=0x13, l2=»0160 FOR I=1 TO 100«, l3=0x13}
0x90…a6 Line {l1=0x14, l2=»0170 PRINT A(I),FLAG«, l3=0x14}
0xa6…b3 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0xb3…c0 00 00 00 00 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