|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »CHAINUS.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »CHAINUS.K«
PROGRAM CHAINUS;
VAR QUQ:^INTEGER;
PROG:STRING(10);
BEGIN
PROG:='CHAINOS 1';
PROG(9):=CHR(16*3+1);
CHAIN(PROG,'',QUQ)
END.
0x000…012 Line {l1=0x10, l2=»PROGRAM CHAINUS;«, l3=0x10}
0x012…025 Line {l1=0x11, l2=»VAR QUQ:^INTEGER;«, l3=0x11}
0x025…03b Line {l1=0x14, l2=» PROG:STRING(10);«, l3=0x14}
0x03b…042 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x042…059 Line {l1=0x15, l2=» PROG:='CHAINOS 1';«, l3=0x15}
0x059…072 Line {l1=0x17, l2=» PROG(9):=CHR(16*3+1);«, l3=0x17}
0x072…088 Line {l1=0x14, l2=» CHAIN(PROG,'',QUQ)«, l3=0x14}
0x088…08e Line {l1=0x04, l2=»END.«, l3=0x04}
0x08e…0a0 00 00 20 43 48 45 43 4b 27 29 2b 0b 20 20 55 4e 54 49 ┆ CHECK')+ UNTI┆
0x0a0…0c0 4c 20 31 3d 30 0b 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 15 20 20 50 52 4f 47 3a 3d 27 43 48 41 ┆L 1=0 END; BEGIN PROG:='CHA┆
0x0c0…0e0 49 4e 4f 53 20 20 31 27 3b 15 17 20 20 50 52 4f 47 28 39 29 3a 3d 43 48 52 28 31 36 2a 31 2b 31 ┆INOS 1'; PROG(9):=CHR(16*1+1┆
0x0e0…100 29 3b 17 15 20 20 43 48 41 49 4e 28 50 52 4f 47 2c 27 27 2c 51 55 51 29 3b 15 04 45 4e 44 2e 04 ┆); CHAIN(PROG,'',QUQ); END. ┆
0x100…120 00 00 3b 1f 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ; END. cccccccccccccccccccc┆
0x120…140 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┆
[…0x1c…]
0x4c0…4e0 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 00 ┆ccccccccccccccccccccccccccccccc ┆