From 45b1e1f67654fd5658922bde053796d48f1c96fb Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 6 Oct 2014 23:39:13 -0700
Subject: 113 - slight progress working with screen 2D array

Why did it take forever to realize nobody will set the array length, that I
have to do it for myself?
---
 edit.arc.t | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 edit.arc.t

(limited to 'edit.arc.t')

diff --git a/edit.arc.t b/edit.arc.t
new file mode 100644
index 00000000..ea064245
--- /dev/null
+++ b/edit.arc.t
@@ -0,0 +1,22 @@
+(load "mu.arc")
+
+(reset)
+(add-fns:readfile "edit.mu")
+(add-fns
+  '((test-new-screen
+      ((curr-screen screen-address) <- new-screen (5 literal) (5 literal))
+      )))
+(run 'test-new-screen)
+(prn memory*)
+
+;? (reset)
+;? (add-fns:readfile "edit.mu")
+;? (add-fns
+;?   '((test-redraw
+;?       ((curr-screen screen-address) <- new-screen (5 literal) (5 literal))
+;?       ((x line-address) <- get-address (curr-screen screen) (2 offset))
+;?       ((y character-address) <- get-address (x line-address deref) (4 offset))
+;?       ((y character-address deref) <- copy (literal "a"))
+;?       )))
+;? (run 'test-redraw)
+;? (prn memory*)
-- 
cgit 1.4.1-2-gfad0