Windows64: примеры

samples/Windows64/HW.ob07

@@ -0,0 +1,10 @@
+MODULE HW;
+
+IMPORT Console, In, Out;
+
+BEGIN
+    Console.open;
+    Out.String("Hello, world!");
+    In.Ln;
+    Console.exit(TRUE)
+END HW.

samples/Windows64/HelloRus.ob07

@@ -0,0 +1,26 @@
+MODULE HelloRus;
+
+IMPORT Console, In, Out;
+
+
+PROCEDURE main;
+VAR
+    str: ARRAY 10 OF WCHAR;
+
+BEGIN
+    str := "Привет!";
+    Out.StringW(str); Out.Ln;
+    str[2] := "е";
+    str[5] := "д";
+    Out.StringW(str)
+END main;
+
+
+BEGIN
+    Console.open;
+
+    main;
+    In.Ln;            
+
+    Console.exit(TRUE)
+END HelloRus.