DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦59ec8b8c7⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: ».PAS«

Derivation

└─⟦d814f614c⟧ Bits:30008872 EDB Trænings- og Erhvervs Center / Almen Nyttig Data Service
    └─⟦this⟧ ».PAS«

TextFile

PROGRAM TEKST;

VAR
   SIDER : ARRAYÆ1..200Å OF STRINGÆ80Å;
   T     : TEXT;
   LNR   : INTEGER;
   I     : INTEGER;
   J     : INTEGER;

CONST
   DELSCR = 12;

BEGIN
   ASSIGN(T,'TEKST.TXT'); RESET(T);
   LNR    := 0;
   WRITE(CHR(DELSCR));

   WHILE NOT EOF(T) DO
   BEGIN
      LNR := LNR + 1;
      READLN(T,SIDERÆLNRÅ);
   END;
   CLOSE(T);

   FOR I := 1 TO LNR-1 DO BEGIN
      WRITELN(SIDERÆLNRÅ);
      FOR J := 1 TO 200 DO BEGIN END;
   END;
   FOR J := 1 TO 10000 DO BEGIN END;
END.
«eof»