FreeBASIC Helloworld

#define unicode
#include once "windows.bi"

Function EntryPoint Alias "EntryPoint"()As Integer

    Const HelloWorld = !"Привет, мир!\r\n"

    Dim CharsCount As DWORD = Any
    WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), @HelloWorld, 14, @CharsCount, 0)

    Return 0
End Function