|
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: »LÆSCUR.K«
└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
└─⟦this⟧ »LÆSCUR.K«
PROGRAM LÆSCUR;
VAR STRENG:STRING(5);
BEGIN
CLEARSCREEN;
GOTOXY(2,11);
STRENG:='AA';
WRITE(STRENG);
WRITE(CHR(27),'?');
READLN;
READ(STRENG);
WRITELN;
WRITE('HER KOMMER STRENGEN : ');
WRITELN(STRENG);
WRITELN(LENGTH(STRENG));
END.
0x000…011 Line {l1=0x0f, l2=»PROGRAM LÆSCUR;«, l3=0x0f}
0x011…014 Line {l1=0x01, l2=» «, l3=0x01}
0x014…02b Line {l1=0x15, l2=»VAR STRENG:STRING(5);«, l3=0x15}
0x02b…02e Line {l1=0x01, l2=» «, l3=0x01}
0x02e…035 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x035…046 Line {l1=0x0f, l2=» CLEARSCREEN;«, l3=0x0f}
0x046…058 Line {l1=0x10, l2=» GOTOXY(2,11);«, l3=0x10}
0x058…06a Line {l1=0x10, l2=» STRENG:='AA';«, l3=0x10}
0x06a…07d Line {l1=0x11, l2=» WRITE(STRENG);«, l3=0x11}
0x07d…095 Line {l1=0x16, l2=» WRITE(CHR(27),'?');«, l3=0x16}
0x095…0a2 Line {l1=0x0b, l2=» READLN; «, l3=0x0b}
0x0a2…0b4 Line {l1=0x10, l2=» READ(STRENG);«, l3=0x10}
0x0b4…0c1 Line {l1=0x0b, l2=» WRITELN;«, l3=0x0b}
0x0c1…0e6 Line {l1=0x23, l2=» WRITE('HER KOMMER STRENGEN : ');«, l3=0x23}
0x0e6…0fb Line {l1=0x13, l2=» WRITELN(STRENG);«, l3=0x13}
0x0fb…118 Line {l1=0x1b, l2=» WRITELN(LENGTH(STRENG));«, l3=0x1b}
0x118…11f Line {l1=0x05, l2=» END.«, l3=0x05}
0x11f…120 00 ┆ ┆
0x120…140 00 05 00 00 05 00 00 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 ┆ ccccccccccccccccccccccccc┆
0x140…160 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…]