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

uses
  Crt, StringUtils, SySutils, Graph, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Fill screen demo
var
  RTCLOCK : byte absolute 20;  // RTCLOCK_byte_array
  SAVMSCL : byte absolute 88;  // SAVMSCL_byte_array
  SAVMSCH : byte absolute 89;  // SAVMSCH_byte_array
  I : byte;  // I_byte_array
  J : byte;  // J_byte_array
  TIME : byte;  // TIME_byte_array
  KEY : byte;  // KEY_byte_array
  SCREEN : word;  // SCREEN_byte_array

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

begin
  BENCHProc;
end.
