Make the CPU timing more precise

This commit is contained in:
CrazyEttin 2022-09-12 20:32:15 +03:00
parent d4720f48c2
commit 13e56f57a7
1 changed files with 4 additions and 1 deletions

View File

@ -71,7 +71,10 @@ end;
procedure wait;
begin
if IC div 500 = 0 then sleep (1)
else sleep (IC div 500);
else begin
sleep (IC div 500);
if IC mod 500 >= 250 then sleep (1);
end;
IC := 0;
end;
{$endif}