Так заработало:
## Код:
```
MODULE x;
IMPORT HostWindows, StdCmds, Out;

PROCEDURE x*;
BEGIN
(* Выведется 0 *)
Out.Int(HostWindows.dir.unit,20);Out.Ln;
HostWindows.dir.unit := 4000;
StdCmds.NewWindow;
END x;

END x.
(* Здесь вставлен коммандер x.x *)
```

(Windows 10). Насколько важны настройки масштабирования приложения - не понял, вроде они не влияют.