Только этот Init сильно грузит процессор все равно. Увеличил аргумент в usleep в 10 раз, но все равно это пока очень сырое решение получается.

## Код:
```
MODULE Init;

   IMPORT
      SYSTEM, Kernel, Services, LinLibc,
      
      HostConsole (* Console.SetHook *) ,
      HostFonts (* Fonts.SetHook; required for Texts *),
      HostWindows (* Windows.SetHook *),
      HostDates (* Dates.SetHook *),
      HostDialog (* Dialog.SetShowHook *),
      StdInterpreter (* Dialog.SetCallHook *) ,
      StdDialog (* Views.SetViewHook *),
      StdLog, ConsLog, (* Log.Hook *)
      Log,      
      (* , LinLog, *)
      (* Converters (* .odc *), *)
      Dialog,
      AppStartup;
   
   CONST
      gc = 1000;
   
   VAR
      c: INTEGER;
      
       n: LONGINT;
          
       PROCEDURE Idle (a, b, c: INTEGER);
       BEGIN
          Services.actionHook.Step
       END Idle;
       
       PROCEDURE Cycle*;
      VAR res: INTEGER;
       BEGIN
         Dialog.Call("Config.Setup", " ", res);
         
         Dialog.Call("O3bbStartup.Start","",res);
         AppStartup.Start;
         
         LOOP
             IF n=MAX(LONGINT) THEN n:=0 ELSE INC(n) END;
             IF ((n MOD 100) = 0) THEN Kernel.Collect END;
             IF (n MOD 50) = 0 THEN Kernel.FastCollect END;
             LinLibc.usleep(10000);
             Kernel.Try(Idle, 0, 0, 0);
          END;
       END Cycle;
       
       PROCEDURE Init;
       BEGIN
          n:=0;
          Kernel.Start(Cycle);
          Kernel.Quit(0)
       END Init;

BEGIN
   Init
END Init.
```
