Sync

Task/Hello-world-Graphical/COBOL/hello-world-graphical-1.cobol

@@ -0,0 +1,7 @@
+       CLASS-ID ProgramClass.
+       METHOD-ID Main STATIC.
+       PROCEDURE DIVISION.
+           INVOKE TYPE Application::EnableVisualStyles() *> Optional
+           INVOKE TYPE MessageBox::Show("Goodbye, World!")
+       END METHOD.
+       END CLASS.

Task/Hello-world-Graphical/COBOL/hello-world-graphical-2.cobol

@@ -0,0 +1,7 @@
+       CLASS-ID GoodbyeWorldWPF.Window IS PARTIAL
+                 INHERITS TYPE System.Windows.Window.
+       METHOD-ID NEW.
+       PROCEDURE DIVISION.
+           INVOKE self::InitializeComponent()
+       END METHOD.
+       END CLASS.

Task/Hello-world-Graphical/COBOL/hello-world-graphical-3.cobol

@@ -0,0 +1,6 @@
+<Window x:Class="COBOL_WPF.Window1"
+    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+    Title="Hello world/Graphical">
+    <TextBox>Hello, World!</TextBox>
+</Window>

Task/Hello-world-Graphical/COBOL/hello-world-graphical-4.cobol

@@ -0,0 +1,19 @@
+	program-id. ghello.
+	data division.
+	working-storage section.
+	01	var	pic x(1).
+	01	lynz	pic 9(3).
+	01 	colz	pic 9(3).
+	01	msg	pic x(15) value "Goodbye, world!".
+	procedure division.
+		accept lynz from lines end-accept
+		divide lynz by 2 giving lynz.
+		accept colz from columns end-accept
+		divide colz by 2 giving colz.
+		subtract 7 from colz giving colz.
+		display msg
+			at line number lynz
+			column number colz
+		end-display
+		accept var end-accept
+		stop run.