From 5b3e082e527536ded4e3d010d3f526b09a38059f Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Tue, 9 Jun 2020 02:00:49 +0300
Subject: [PATCH] CRT cursor function param/result types made compatible to
 Console.obj documentation

---
 Lib/CRT.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Lib/CRT.pas b/Lib/CRT.pas
index 335c975..1cbddf4 100644
--- a/Lib/CRT.pas
+++ b/Lib/CRT.pas
@@ -11,7 +11,7 @@ uses
 
 type
   TCursorXY = record
-    X, Y: LongWord;
+    X, Y: Integer;
   end;
 
 const
@@ -97,10 +97,10 @@ var
   ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
   GetCursorHeight: function: Integer; stdcall;
   GetFlags: function: LongWord; stdcall;
-  GotoXYProc: procedure(X, Y: LongWord); stdcall;
+  GotoXYProc: procedure(X, Y: Integer); stdcall;
   SetFlags: function(Flags: LongWord): LongWord; stdcall;
   SetCursorHeight: function(Height: Integer): Integer; stdcall;
-  WhereXYProc: procedure(var X, Y: LongWord); stdcall;
+  WhereXYProc: procedure(var X, Y: Integer); stdcall;
 
 procedure InitConsole(Caption: PKolibriChar; CloseWindowOnExit: Boolean;
   WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord);