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

⟦2a4d35617⟧ TextFile

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

Derivation

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

Mikados K File

0100 INTEGER A(5),B(5),I
0110 FLAG=0
0120 FOR I=1 TO 5
0130 A(I)=20-I;B(I)=20-I
0135 PRINT A(I),B(I)
0140 NEXT I
0150 CALL "DDE:TRY"
0160 FOR I=1 TO 5
0170 PRINT A(I),B(I),FLAG
0180 NEXT I

Full view