From 12d73ee8db0f6748fabf65f4d0789c79f76c8d1f Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 20 Apr 2015 17:35:32 -0700
Subject: 1114 - more primitives for managing the cursor

---
 cpp/console.mu | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'cpp/console.mu')

diff --git a/cpp/console.mu b/cpp/console.mu
index a25f94cb..d83619c7 100644
--- a/cpp/console.mu
+++ b/cpp/console.mu
@@ -1,5 +1,19 @@
 recipe main [
   cursor-mode 0:literal/screen
+  print-character-to-display 97:literal
+  1:integer/raw, 2:integer/raw <- cursor-position-on-display
+  $print 1:integer/raw
+  $print [, ]
+  $print 2:integer/raw
+  $print [
+]
+  wait-for-key-from-keyboard
+  clear-display
+  move-cursor-on-display 0:literal, 4:literal
+  print-character-to-display 98:literal
+  wait-for-key-from-keyboard
+  move-cursor-on-display 0:literal, 0:literal
+  clear-line-on-display
   wait-for-key-from-keyboard
   retro-mode 0:literal/screen
 ]
-- 
cgit 1.4.1-2-gfad0