From 35c8c8edba84fd5c20f7cabd46d4824a88224f7b Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 4 Sep 2021 14:00:38 -0700
Subject: [PATCH] support arrow keys in apps/ex7.mu

---
 apps/ex7.mu | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/apps/ex7.mu b/apps/ex7.mu
index 61b9ac20..0f3fd4fe 100644
--- a/apps/ex7.mu
+++ b/apps/ex7.mu
@@ -14,25 +14,25 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
     draw-cursor screen, 0x20/space
     var key/eax: byte <- read-key keyboard
     {
-      compare key, 0x68/h
+      compare key, 0x80/left-arrow
       break-if-!=
       draw-code-point-at-cursor screen, 0x2d/dash, 0x31/fg, 0/bg
       move-cursor-left 0
     }
     {
-      compare key, 0x6a/j
+      compare key, 0x81/down-arrow
       break-if-!=
       draw-code-point-at-cursor screen, 0x7c/vertical-bar, 0x31/fg, 0/bg
       move-cursor-down 0
     }
     {
-      compare key, 0x6b/k
+      compare key, 0x82/up-arrow
       break-if-!=
       draw-code-point-at-cursor screen, 0x7c/vertical-bar, 0x31/fg, 0/bg
       move-cursor-up 0
     }
     {
-      compare key, 0x6c/l
+      compare key, 0x83/right-arrow
       break-if-!=
       var g/eax: code-point <- copy 0x2d/dash
       draw-code-point-at-cursor screen, 0x2d/dash, 0x31/fg, 0/bg