diff --git a/packages/ncurses/examples/t1panel.pp b/packages/ncurses/examples/t1panel.pp
index 0a8484418b..46368d6e2f 100644
--- a/packages/ncurses/examples/t1panel.pp
+++ b/packages/ncurses/examples/t1panel.pp
@@ -76,8 +76,8 @@ begin
     wins[i] := newwin(NLINES, NCOLS, y, x);
     FmtStr(lab, 'Window Number %d', [i + 1]);
     win_show(wins[i], lab, i + 1);
-    y += 3;
-    x += 7;
+    Inc(y,3);
+    Inc(x,7);
   end
 end;
 
diff --git a/packages/ncurses/examples/t2form.pp b/packages/ncurses/examples/t2form.pp
index 3125810a33..7b5f1e4f38 100644
--- a/packages/ncurses/examples/t2form.pp
+++ b/packages/ncurses/examples/t2form.pp
@@ -3,18 +3,26 @@ program form_test_2;
 {$MODE OBJFPC}
 
 uses
-  ncurses, form, libc;
+  ncurses, form;
 
 
+{$linklib c}
+procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
+
+
+const
+  LC_ALL = 6;
+
 var
   my_bg: Smallint = COLOR_BLACK;
-
   field: array[0..5] of PFIELD;
   my_form: PFORM;
   i, ch: Longint;
+
 begin
 
-try
+  try
+
   setlocale(LC_ALL, ''); { Tested with Russian UTF-8 locale }
 
   (* Initialize curses *)
diff --git a/packages/ncurses/examples/t2menu.pp b/packages/ncurses/examples/t2menu.pp
index c2123cc388..2bd32102c0 100644
--- a/packages/ncurses/examples/t2menu.pp
+++ b/packages/ncurses/examples/t2menu.pp
@@ -20,7 +20,7 @@ var
 begin
   FmtStr(tstr, fmt, args);
   getmaxyx(win, my, mx);
-  mx -= startx;
+  dec(mx,startx);
 
   if (width > length(tstr)) OR  (width < 2) then
     width := length(tstr);
diff --git a/packages/ncurses/examples/t3form.pp b/packages/ncurses/examples/t3form.pp
index e9d35ece97..1aeadad579 100644
--- a/packages/ncurses/examples/t3form.pp
+++ b/packages/ncurses/examples/t3form.pp
@@ -6,8 +6,14 @@ program form_test_3;
 {$MODE OBJFPC}
 
 uses
-  ncurses, form, libc;
+  ncurses, form;
 
+{$linklib c}
+procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
+
+
+const
+  LC_ALL = 6;
 
 
 function st_middle(scrlen, itemlen: Smallint): Smallint; inline;
diff --git a/packages/ncurses/examples/tclock.pp b/packages/ncurses/examples/tclock.pp
index a531fa6b37..cfa0371779 100644
--- a/packages/ncurses/examples/tclock.pp
+++ b/packages/ncurses/examples/tclock.pp
@@ -2,7 +2,14 @@ program tclock;
 {$MODE OBJFPC}
 
 uses
-  libc, ncurses, sysutils;
+  ncurses, sysutils;
+
+{$linklib c}
+procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
+
+
+const
+  LC_ALL = 6;
 
 const
   ASPECT = 2.2;
diff --git a/packages/ncurses/examples/tnlshello.pp b/packages/ncurses/examples/tnlshello.pp
index c2cf2bb447..b26951cba5 100644
--- a/packages/ncurses/examples/tnlshello.pp
+++ b/packages/ncurses/examples/tnlshello.pp
@@ -8,7 +8,15 @@ program nlshello;
 {$mode objfpc}
 
 uses
-  gettext, libc, ncurses;
+  gettext, ncurses;
+
+{$linklib c}
+procedure setlocale(cat : integer; p : pchar); cdecl; external 'c';
+
+
+const
+  LC_ALL = 6;
+
 
 resourcestring
   hello_world = 'Hello world!';