Написал я програмку:
## Код:
```
MODULE MyTime ["Kernel32.dll"];
PROCEDURE QueryPerformanceCounter* (): LONGINT;
END MyTime.
```

## Код:
```
MODULE Time;(*Использование системного счётчика QPC*)
IMPORT StdLog, MyTime;

PROCEDURE Do*;
VAR StatrTimer, EndTimer, Time: LONGINT;
      i: INTEGER;
BEGIN
i := 0;
StatrTimer := MyTime.QueryPerformanceCounter();
REPEAT
INC(i)
UNTIL i = 10000;
EndTimer := MyTime.QueryPerformanceCounter();
StdLog.String ("Выполнилось за ");
Time := EndTimer - StatrTimer;
StdLog.Int (Time)
END Do;

END Time.
```

Отлично компилируется, запускается... Но после этого ВВ перестаёт работать: нельзя открывать файлы, сохранять - вообще меню не действует.