From 715205f2ddd4c23027f326017cbef1c43e5b2b44 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sat, 8 Jan 2022 14:13:36 -0800
Subject: [PATCH] (boot.tal) Fixed issue with scroll

---
 projects/software/boot.tal | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/projects/software/boot.tal b/projects/software/boot.tal
index 4b03b9f..b28b4fc 100644
--- a/projects/software/boot.tal
+++ b/projects/software/boot.tal
@@ -228,14 +228,25 @@ RTN
 @follow-selection ( -- )
 
 	LINES-COUNT .browser/sel LDZ .browser/scroll LDZ -
-
 	DUP2 > ,&no-down JCN
-		.browser/scroll LDZ INC .browser/scroll STZ
+		.browser/scroll LDZ INC ;scroll-to JSR2
 		&no-down
+	DUP2 SWP < ,&no-up JCN
+		.browser/sel LDZ ;scroll-to JSR2
+		&no-up
 	POP2
 
 RTN
 
+@print-str ( string* -- )
+
+	#0001 SUB2 
+	&while
+		INC2 LDAk DUP #18 DEO ,&while JCN 
+	POP2
+
+JMP2r
+
 @print-hex ( value* -- )
 
 	SWP ,&byte JSR