Хочу проверитьсовет, в связи с чем решил собрать безгуевое приложение.
Помогите, пожалуйста, ума не приложу, почему не выводится нужная информация. Я сделал, чтобы приложение принудительно ждало, пока не произойдут вычисления, процедура Do так вроде и не запускается ни разу.
## Код:
```
MODULE MyFpstest;

   IMPORT Kernel, Win := WinApi, Log, Services;

   TYPE
      Action = POINTER TO RECORD (Services.Action) END;
      
   VAR
      time, counter: LONGINT;
      fpsR: REAL;
      ra: Action;

   PROCEDURE ProcessMessages;
      VAR msg: Win.MSG; res: INTEGER;
   BEGIN
      WHILE Win.PeekMessage(msg, 0, 0, 0, Win.PM_REMOVE) # 0 DO
         res := Win.TranslateMessage(msg);
         res := Win.DispatchMessageA(msg)
      END
   END ProcessMessages;

   PROCEDURE (a: Action) Do;
   BEGIN
      fpsR := 1000 / (Kernel.Time() - time);
      time := Kernel.Time();
      Log.Real(fpsR); Log.Ln;
      IF counter < 100 THEN
         INC(counter);
         Services.DoLater(a, Services.now)   
      END
   END Do;

   PROCEDURE Start*;
   BEGIN
      NEW(ra);
      counter := 0;
      Services.DoLater(ra, Services.now);
      Log.String("Start"); Log.Ln;
      WHILE counter < 100 DO
         ProcessMessages;
         Win.Sleep(100);
      END;
   END Start;

BEGIN
   Start
END MyFpstest.

MyFpstest.Start

DevLinker.LinkExe dos test.exe := Kernel$+ Files HostFiles Dates Meta Log Dialog Math Strings WinConsole Meta Services MyFpstest~
```
