langs a-z

Task/Hello-world-Graphical/BASIC/hello-world-graphical-1.basic

@@ -0,0 +1,17 @@
+' Demonstrate a simple Windows application using FreeBasic
+
+#include once "windows.bi"
+
+Declare Function WinMain(ByVal hInst As HINSTANCE, _
+      ByVal hPrev As HINSTANCE, _
+      ByVal szCmdLine as String, _
+      ByVal iCmdShow As Integer) As Integer
+End WinMain( GetModuleHandle( null ), null, Command( ), SW_NORMAL )
+
+Function WinMain (ByVal hInst As HINSTANCE, _
+                  ByVal hPrev As HINSTANCE, _
+                  ByVal szCmdLine As String, _
+                  ByVal iCmdShow As Integer) As Integer
+    MessageBox(NULL, "Goodbye World", "Goodbye World", MB_ICONINFORMATION)
+    function = 0
+End Function