"Окно налево &9"   ""   "x.PlaceWindow(0)"   ""
   "Окно направо &0"   ""   "x.PlaceWindow(1)"   ""

   PROCEDURE PlaceWindow* (n: INTEGER);
      VAR
         rect: WinApi.RECT; cw, ch, x, y, w, h: INTEGER;
         res: INTEGER;
         fw: Windows.Window;
   BEGIN
      ASSERT(n IN {0, 1}, 20);
      fw := Windows.dir.Focus(FALSE);
      IF fw # NIL THEN
         res := WinApi.GetWindowRect(HostWindows.client, rect); ASSERT(res # 0, 0);
         cw := rect.right - rect.left; ASSERT(cw >= 0, 0);
         ch := rect.bottom - rect.top; ASSERT(ch >= 0, 0);
         res := WinApi.GetWindowRect(fw(HostWindows.Window).wnd, rect); ASSERT(res # 0, 0);
         w := rect.right - rect.left; ASSERT(w >= 0, 0);
         h := rect.bottom - rect.top; ASSERT(h >= 0, 0);
         IF n = 0 THEN
            x := 0; y := 0; h := ch
         ELSE   (* n = 1 *)
            x := cw - w; y := 0; h := ch
         END;
         res := WinApi.MoveWindow(fw(HostWindows.Window).wnd, x, y, w, h, WinApi.TRUE)
      END
   END PlaceWindow;

DEFINITION i21sysWindows;
   PROCEDURE AlignTopLeft;
   PROCEDURE AlignTopRight;
...
END i21sysWindows.