From 7d469ec9f13c5aaaad7c427a6ec8d4115e15ab94 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 26 Apr 2023 12:40:48 -0700
Subject: [PATCH] (notepad) Basic keyboard controls

---
 gui/notepad/notepad.tal | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal
index 88efc1f..1e6f499 100644
--- a/gui/notepad/notepad.tal
+++ b/gui/notepad/notepad.tal
@@ -34,6 +34,20 @@ BRK
 
 @on-control ( -> )
 
+	.Controller/button DEI
+	DUP #40 NEQ ?&no-l
+		.selection/from LDZ2 #0001 SUB2 select-from
+		&no-l
+	DUP #80 NEQ ?&no-r
+		.selection/from LDZ2 INC2 select-from
+		&no-r
+	DUP #44 NEQ ?&no-sl
+		.selection/to LDZ2 #0001 SUB2 select-to
+		&no-sl
+	DUP #84 NEQ ?&no-sr
+		.selection/to LDZ2 INC2 select-to
+		&no-sr
+	POP
 	.Controller/key DEI ;mem sput
 	#00 ;on-frame/f STA
 	redraw
@@ -544,7 +558,7 @@ JMP2r
 
 |8000 @mem
 	"Keep 20 "up 20 "to 20 "eight 20 "pages 20 "of 20 "notes 20 "in 20 "the 20 "Note 20 "Pad. 20
-	"Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "to 20 "the 20 "next 20 "following 20 "page. 20
+	"Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "following 20 "page. 20
 	"Click 20 "in 20 "the 20 "lower 20 "left 20 "corner 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "previous 20 "page.
 
 |a000 "The 20 "other 20 "page.