37 lines
661 B
Plaintext
37 lines
661 B
Plaintext
program SingleChar;
|
|
|
|
uses Crt, TimeStatus, VFx;
|
|
|
|
var atall: longint;
|
|
|
|
procedure WriteSign;
|
|
begin
|
|
{ GotoXY(1,1); }
|
|
Write('ù');
|
|
end;
|
|
|
|
procedure OutStat;
|
|
begin
|
|
GotoXY(20,2);
|
|
Write(PerSec(atall):6:3,' chars/s');
|
|
end;
|
|
|
|
begin
|
|
CursorOff;
|
|
ClrScr;
|
|
atall := 0;
|
|
InitTimer;
|
|
repeat
|
|
WriteSign;
|
|
Inc(atall);
|
|
if atall/1920=Int(atall/1920) then GotoXY(1,1);
|
|
until keypressed;
|
|
ReadKey;
|
|
GotoXY(1,3);
|
|
WriteLn(atall,' chars written in ',TimeGone,' milliseconds.');
|
|
WriteLn(PerMS(atall):0:3,' chars/ms');
|
|
WriteLn(PerSec(atall):0:3,' chars/sec');
|
|
WriteLn(PerMin(atall):0:3,' chars/min');
|
|
CursorOn;
|
|
end.
|