From 81a70edd504bfefbfc13db477c7c2616d2d700f2 Mon Sep 17 00:00:00 2001
From: crc <>
Date: Thu, 23 May 2024 16:36:43 +0000
Subject: [PATCH] add c:get/ext to library/c-get-ext.retro

FossilOrigin-Name: 1a7439272710c32eca9ba6e0c80825451087160d722885ea229e8449f306ca8a
---
 RELEASE-NOTES           |  2 ++
 library/c-get-ext.retro | 10 ++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 library/c-get-ext.retro

diff --git a/RELEASE-NOTES b/RELEASE-NOTES
index a933f5b..63057aa 100644
--- a/RELEASE-NOTES
+++ b/RELEASE-NOTES
@@ -31,6 +31,8 @@
 - library
 
   - added "tob", a text output buffer
+  - added "c:get/ext", for reading keys and returning unique
+    codes for arrows
 
 - retro-compiler
 
diff --git a/library/c-get-ext.retro b/library/c-get-ext.retro
new file mode 100644
index 0000000..bb7e90c
--- /dev/null
+++ b/library/c-get-ext.retro
@@ -0,0 +1,10 @@
+~~~
+:keys:UP    #-300 ;
+:keys:DOWN  #-301 ;
+:keys:RIGHT #-302 ;
+:keys:LEFT  #-303 ;
+
+:c:get/ext (-c)
+  c:get dup #27 eq?
+  [ drop c:get drop c:get #235 + n:negate ] if ;
+~~~