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

⟦c23312e1e⟧ TextFile

    Length: 480 (0x1e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PRØV2.K«

Derivation

└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
    └─⟦this⟧ »PRØV2.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:TRY2"
0160 FOR I=1 TO 100
0170 PRINT A(I),FLAG
0180 NEXT I

Full view