// Effectus auto-generated Mad Pascal source code listing
program fillscrPrg;

uses
  SySutils, Crt, Graph;

var
  RTCLOCK : byte absolute 20;
  SAVMSCL : byte absolute 88;
  SAVMSCH : byte absolute 89;
  I : byte;
  J : byte;
  TIME : byte;
  KEY : char;
  SCREEN : word;

procedure BENCHProc;
begin  // 1
  InitGraph(24);
  RTCLOCK := 0;
  SCREEN := SAVMSCL+256*SAVMSCH;
  I := 0;
  for  I:=0 TO 31 do begin
  J := 0;
  for  J:=0 TO 239 do begin
  Poke(SCREEN+J, 255);
  end;  // for
  Inc(SCREEN, 240);
  end;  // for
  TIME := RTCLOCK;
  InitGraph(0);
  Write('', eol, ' ', TIME, ' JIFFIES');
  KEY := ReadKey;
end;  // 4

begin
  BENCHProc;
end.