6409 - primitives for text-mode UIs

1 files changed, 20 insertions, 0 deletions

diff --git a/apps/screen.mu b/apps/screen.mu
new file mode 100644
index 00000000..4f36809e
--- /dev/null
+++ b/apps/screen.mu
@@ -0,0 +1,20 @@
+# test some primitives for text-mode 
+
+fn main -> exit-status/ebx: int {
+  var nrows/eax: int <- copy 0
+  var ncols/ecx: int <- copy 0
+  nrows, ncols <- screen-size
+  enable-screen-grid-mode
+  move-cursor 5, 35
+  start-color 1, 0x7a
+  start-blinking
+  print-string "Hello world!"
+  reset-formatting
+  move-cursor 6, 35
+  print-string "tty dimensions: "
+  print-int32-to-screen nrows
+  print-string " rows, "
+  print-int32-to-screen ncols
+  print-string " rows\n"
+  exit-status <- copy 0
+}