|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 480 (0x1e0)
Types: TextFile
Notes: Mikados_K
Names: »PRØV2.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »PRØV2.K«
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
0x000…017 Line {l1=0x15, l2=»0100 INTEGER A(100),I«, l3=0x15}
0x017…024 Line {l1=0x0b, l2=»0110 FLAG=0«, l3=0x0b}
0x024…039 Line {l1=0x13, l2=»0120 FOR I=1 TO 100«, l3=0x13}
0x039…047 Line {l1=0x0c, l2=»0130 A(I)=-2«, l3=0x0c}
0x047…058 Line {l1=0x0f, l2=»0135 PRINT A(I)«, l3=0x0f}
0x058…065 Line {l1=0x0b, l2=»0140 NEXT I«, l3=0x0b}
0x065…07b Line {l1=0x14, l2=»0150 CALL "DDE:TRY2"«, l3=0x14}
0x07b…090 Line {l1=0x13, l2=»0160 FOR I=1 TO 100«, l3=0x13}
0x090…0a6 Line {l1=0x14, l2=»0170 PRINT A(I),FLAG«, l3=0x14}
0x0a6…0b3 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0x0b3…0c0 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0c0…0e0 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 ┆ ┆
0x0e0…100 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x7…]