Declare Function SetConsoleCursorPosition Lib "KERNEL32.DLL" Alias "SetConsoleCursorPosition" (ByVal hConsoleOutput As Dword, ByVal dwCursorPosition As COORD ) As Long
 

Declare Function ConsoleInit() As Dword
Declare Function ConsolePrint(ByVal Txt As Asciiz * 255) As Dword
Declare Function ConsoleRead() As String
Declare Sub CLS()
Declare Sub LOCATE(ByVal x As Word, ByVal y As Word)
Declare Function Inkey() As String
Declare Sub ConsoleColor(ByVal ton As Word, ByVal fon As Word)

'(Инициализация косоли)
'*************************************************
Function ConsoleInit() As Dword
hConsoleIn  = GetStdHandle(%STD_INPUT_HANDLE)
hConsoleOut = GetStdHandle(%STD_OUTPUT_HANDLE)
hConsoleErr = GetStdHandle(%STD_ERROR_HANDLE)
End Function
'*************************************************

'Функция печати на консоль строки
'*************************************************
Function ConsolePrint(ByVal Txt As Asciiz * 255) As Dword
WriteConsole hConsoleOut, TXT, Len(TXT), %NULL, %NULL
End Function
'*************************************************

'Функция чтения строки с консоли
'*************************************************
Function ConsoleRead() As String
Dim sInput As String * 255
Call ReadConsole(hConsoleIn, sInput, Len(sInput), %NULL, scrap& 'get the input
'FUNCTION = Left$(sInput, InStr(sInput, Chr$(0)) - 3)
Function=sInput
End Function
'*************************************************

'Функция очистки консоли
'*************************************************
Sub CLS()
Local ConsoleBuffer As CONSOLE_SCREEN_BUFFER_INFO
Local dwConSize As Dword
GetConsoleScreenBufferInfo hConsoleOut,ConsoleBuffer
dwConSize=ConsoleBuffer.dwSize.X * ConsoleBuffer.dwSize.Y
FillConsoleOutputCharacter  hConsoleOut, 32,dwConSize , ByVal 0, ByVal 0
LOCATE 0,0
End Sub
'*************************************************

'Функция установки позиции курсора
'*************************************************
Sub LOCATE(ByVal x As Word, ByVal y As Word)
Local Pos As COORD
Pos.x=x
Pos.y=y
SetConsoleCursorPosition hConsoleOut, Pos
End Sub
'*************************************************

'Функция обработки событий от клавиатуры
'*************************************************
Function Inkey() As String
    Local InputRecords()   As Input_Record
    Local lpNumberOfEvents As Long
    Local lpNumberOfEvent  As Long
    Local lResult          As Long
    Local VirtualScanCode  As Word
    Local VirtualKeyCode   As Word
    Local AsciiChar        As Word
    Local tKbdSymbol       As Word
    Local lReturn          As String

    Do
      If IsFalse(GetNumberOfConsoleInputEvents (hConsoleIn , lpNumberOfEvents)) Then
      ElseIf lpNumberOfEvents Then
        ReDim InputRecords(1 To lpNumberOfEvents) As Input_Record
        lResult = ReadConsoleInput(hConsoleIn, InputRecords(1).EventType, lpNumberOfEvents, lpNumberOfEvents)
        If lResult And lpNumberOfEvents Then
          For lpNumberOfEvent = 1 To lpNumberOfEvents
            Select Case (InputRecords(lpNumberOfEvent).EventType And &H0000000F)
              Case 1 ' Key Event
                Select Case (InputRecords(lpNumberOfEvent).Event.keyEvent.bKeyDown And &H00000001)
                  Case 1: ' KeyDown
                    VirtualScanCode = InputRecords(lpNumberOfEvent).Event.keyEvent.wVirtualScanCode
                    VirtualKeyCode  = InputRecords(lpNumberOfEvent).Event.keyEvent.wVirtualKeyCode
                    AsciiChar       = InputRecords(lpNumberOfEvent).Event.keyEvent.uChar
                    tKbdSymbol = InputRecords(lpNumberOfEvent).Event.keyEvent.dwControlKeyState
                    If ((tKbdSymbol And %LEFT_ALT_PRESSED)  Or (tKbdSymbol And %RIGHT_ALT_PRESSED))  Then lReturn = lReturn + "[ALT]"
                    If ((tKbdSymbol And %LEFT_CTRL_PRESSED) Or (tKbdSymbol And %RIGHT_CTRL_PRESSED)) Then lReturn = lReturn + "[CTRL]"
                    If ((tKbdSymbol And %SHIFT_PRESSED))                                             Then lReturn = lReturn + "[SHIFT]"
                    If ((tKbdSymbol And %ENHANCED_KEY))                                              Then lReturn = lReturn + "[ENANCE]"
                    If ((tKbdSymbol And %CAPSLOCK_ON))                                               Then lReturn = lReturn + "[CAPS]"

                  ConsoleEvent.SCAN_KB=   Format$(VirtualScanCode)
                  ConsoleEvent.KEY_KB =   Format$(VirtualKeyCode)
                  ConsoleEvent.CHAR_KB=   Chr$(VirtualKeyCode)
                  ConsoleEvent.ASCIIN_KB= Format$(AsciiChar)
                  ConsoleEvent.ASCIIC_KB= Chr$(AsciiChar)

                  End Select
            End Select
          Next
        End If
      Else
      '  Sleep 1
      End If
     If Trim$(lReturn) <> "" Then
        Function = ConsoleEvent.SCAN_KB
        Exit Loop
      End If
    Loop
  End Function

'*************************************************

'Установка цвета
'*************************************************
Sub ConsoleColor(ByVal ton As Word, ByVal fon As Word)
Local clr As Dword
clr = (ton And 15) + ((fon And 15) * 16)
SetConsoleTextAttribute hConsoleOut, clr
End Sub
'*************************************************