From 6d4c8504230ea183f51e081d7ec154af75933ea6 Mon Sep 17 00:00:00 2001
From: AntKrotov <akron1_m@mail.ru>
Date: Wed, 1 Jul 2020 13:12:03 +0300
Subject: [PATCH] =?UTF-8?q?Windows32/64=20(=D0=BF=D1=80=D0=B8=D0=BC=D0=B5?=
 =?UTF-8?q?=D1=80=D1=8B):=20=D1=83=D1=87=D0=B8=D1=82=D1=8B=D0=B2=D0=B0?=
 =?UTF-8?q?=D0=B5=D1=82=D1=81=D1=8F=20=D1=80=D0=B0=D0=B7=D1=80=D1=8F=D0=B4?=
 =?UTF-8?q?=D0=BD=D0=BE=D1=81=D1=82=D1=8C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SamplesWin32.cmd                    | 2 ++
 samples/Windows/Console/fact.ob07   | 2 +-
 samples/Windows/Console/hailst.ob07 | 4 ++--
 3 files changed, 5 insertions(+), 3 deletions(-)
 create mode 100644 SamplesWin32.cmd

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;