diff --git a/SamplesWin32.cmd b/SamplesWin32.cmd
new file mode 100644
index 0000000..46a761b
--- /dev/null
+++ b/SamplesWin32.cmd
@@ -0,0 +1,2 @@
+for %%f in (samples\Windows\Console\*.ob07) do Compiler.exe %%f win32con
+@pause
diff --git a/samples/Windows/Console/fact.ob07 b/samples/Windows/Console/fact.ob07
index 2c5df13..7f05981 100644
--- a/samples/Windows/Console/fact.ob07
+++ b/samples/Windows/Console/fact.ob07
@@ -18,7 +18,7 @@ IMPORT In, Out, Console;
 
 
 CONST
-    MAX_INTEGER = 2147483647;
+    MAX_INTEGER = ROR(-2, 1);
 
 
 VAR
diff --git a/samples/Windows/Console/hailst.ob07 b/samples/Windows/Console/hailst.ob07
index 66ef07c..f18dbfd 100644
--- a/samples/Windows/Console/hailst.ob07
+++ b/samples/Windows/Console/hailst.ob07
@@ -17,7 +17,7 @@ IMPORT In, Out, API, Console;
 
 
 CONST
-    maxCard = 7FFFFFFFH DIV 3;
+    maxCard = ROR(-2, 1) DIV 3;
     List    = 1;
     Count   = 2;
     Max     = 3;
@@ -109,7 +109,7 @@ BEGIN
     Out.String("Iterations total = "); Out.Int(HailStone(27, Count), 1);
     Out.String(" max value = ");       Out.Int(HailStone(27, Max), 1);
     Out.Ln;
-    FindMax(1000000);
+    FindMax(100000);
     Out.String("Done.");
     Out.Ln; In.Ln;