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

uses
  SySutils, Crt;

var
  FLAGS : array[0..8192] of byte;
  CH : byte absolute 764;
  RTCLOCK : byte absolute 20;
  SQRCOUNT : byte = 91;
  COUNT : word absolute $CA;
  N : word absolute $CC;
  K : word absolute $CE;

procedure MAINProc;
begin  // 1
  COUNT := 0;
  N := 0;
  K := 0;
  RTCLOCK := 0;
  FillChar(FLAGS, 8192, 84);
  N := 2;
  for  N:=2 TO SQRCOUNT do begin
  if FLAGS[N]=84 then begin
  K := N SHL 1;
 WHILE K<=8191 do begin
  FLAGS[K] := 70;
  Inc(K, N);
  end;  // for
  end;  // if
  end;  // while
  Write('Effectus 0.4.1');
  Write('', eol, ' ', RTCLOCK, ' JIFFIES');
  N := 2;
  for  N:=2 TO 8191 do begin
  if FLAGS[N]=84 then begin
  Inc(COUNT);
  end;  // if
  end;  // for
  Write('', eol, ' ', COUNT, ' PRIMES', eol, '');
  CH := 255;
 WHILE CH=255 do begin
  end;  // while
end;  // 4

begin
  MAINProc;
end.