1276 - make C++ version the default

I've tried to update the Readme, but there are at least a couple of issues.

1 files changed, 18 insertions, 0 deletions

diff --git a/arc/edit.mu b/arc/edit.mu
new file mode 100644
index 00000000..ebf43161
--- /dev/null
+++ b/arc/edit.mu
@@ -0,0 +1,18 @@
+; a screen is an array of pointers to lines, in turn arrays of characters
+
+(function new-screen [
+  (default-space:space-address <- new space:literal 30:literal)
+  (nrows:integer <- next-input)
+  (ncols:integer <- next-input)
+  (result:screen-address <- new screen:literal nrows:integer)
+  (rowidx:integer <- copy 0:literal)
+  { begin
+    (curr-line-address-address:line-address-address <- index-address result:screen-address/deref rowidx:integer)
+    (curr-line-address-address:line-address-address/deref <- new line:literal ncols:integer)
+    (curr-line-address:line-address <- copy curr-line-address-address:line-address-address/deref)
+    (rowidx:integer <- add rowidx:integer 1:literal)
+    (x:boolean <- not-equal rowidx:integer nrows:integer)
+    (loop-if x:boolean)
+  }
+  (reply result:screen-address)
+])