Add initial prototype.

1-base/xml/applet/demo/write/launch_write.adb

@@ -0,0 +1,18 @@
+with
+     ada.Text_IO,
+     xml.Writer;
+
+
+procedure launch_Write
+is
+   use ada.Text_IO, xml.Writer;
+
+begin
+   start_Document (Standard_Output);
+
+   start  (standard_Output, "foo",  "bar" + "bing");
+   empty  (standard_Output, "frodo", MkAtt ("hobbit" + "true", "ring" + "1") & ("purpose" + "To rule them all."));
+   finish (standard_Output, "foo");
+
+   end_Document (Standard_Output);
+end launch_Write;

1-base/xml/applet/demo/write/write.gpr

@@ -0,0 +1,16 @@
+with
+     "xml",
+     "lace_shared";
+
+project Write
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_write.adb");
+
+   package Ide      renames Lace_shared.Ide;
+   package Builder  renames Lace_shared.Builder;
+   package Compiler renames Lace_shared.Compiler;
+   package Binder   renames Lace_shared.Binder;
+
+end Write;