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

Full view