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

⟦de95da4e2⟧

    Length: 1248 (0x4e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »LÆSCUR«

Derivation

└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
    └─ ⟦this⟧ »LÆSCUR«

Text

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.