Program Linetest;

{ Programm zur Einordnung der Ausfuehrungsgeschwindigkeit des Bresennam-   }
{ Algorithmus                                                              }
{ Benutzung des unter Turbo-Pascal implementierten Draw-Algorithmus        }

{ Der gesamte Bildschirm wird mit vertikalen Linien gefüllt.               }

VAR i       : INTEGER; { Schleifenvariable }
    Eingabe : Char;


BEGIN { Programm 'Linetest' Anfang }

   GraphMode;
   Palette (0);

   REPEAT UNTIL KeyPressed;
   READ (KBD, Eingabe);

   FOR i := 0 TO 319 DO
       Draw (i, 0, i, 199, 1);

   REPEAT UNTIL KegPressed;
   READ (KBD, Eingabe);

   TextMode;

END.   { Programm 'Linetest' Ende }