DataMuseum.dk

top - metrics - download

    Length: 1664 (0x680)
    Types: TextFile
    Names: »BILLED.PAS«

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

TextFile

PROGRAM TEKST;

VAR
   SIDER  : ARRAYÆ1..500Å OF STRINGÆ80Å;
   SIDENR : ARRAYÆ1..50Å  OF INTEGER;
   TEGN   : STRINGÆ1Å;
   T      : TEXT;
   LNR    : INTEGER;
   SNR    : INTEGER;
   I      : INTEGER;
   J      : INTEGER;
   K      : INTEGER;
   SIDELGD: INTEGER;
   SIDSTE : INTEGER;

CONST
   DELSCR = 12;

LABEL
   FOREVER,
   UD     ,
   NYSIDE ;

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

   WHILE NOT EOF(T) DO
   BEGIN
      LNR := LNR + 1;
      READLN(T,SIDERÆLNRÅ);
      IF POS('<**>',SIDERÆLNRÅ) > 0 THEN BEGIN
         SNR := SNR + 1;
         SIDENRÆSNRÅ := LNR;
      END;
   END;
   CLOSE(T);
   SIDSTE := SNR;
   SNR    := 0;

FOREVER:
   WRITE(CHR(DELSCR));
   SIDELGD := 0;
   FOR I := 1 TO LNR DO BEGIN
NYSIDE:
      IF POS('<**>',SIDERÆIÅ) = 0 THEN BEGIN
         K := LEN(SIDERÆIÅ);
         IF K > 0 THEN  SIDELGD := SIDELGD + 1;
         WRITELN(SIDERÆIÅ);
      END;

      IF POS('<**>',SIDERÆIÅ) > 0  THEN BEGIN
         FOR J := 1 TO 5000 DO BEGIN        
            FOR K := 1 TO SIDELGD  DO BEGIN
               IF KEYPRESS THEN BEGIN
                  READ(TEGN);
                  SNR := SNR + 1;
                  IF SIDSTE = SNR THEN BEGIN
                     SNR := 1;
                     (* GOTO UD; *)
                  END;
                  I := SIDENRÆSNRÅ + 1;
                  GOTO NYSIDE;
               END;
            END;
         END;
         WRITE(CHR(DELSCR));
         SIDELGD := 0;
      END;
   END;
   GOTO FOREVER;
UD:
END.
«eof»