From eb48ec23824cf158c511cd7fb7f49b1be0e7f99d Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 20:28:47 -0700
Subject: [PATCH] (m291) Keep selection

---
 gui/m291/src/m291.tal | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 203e90a..4d8c824 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -337,7 +337,6 @@
 
 	&tracks ( id -- )
 	DUP .selection/track STZ
-	[ LIT2 ff -selection ] STZ
 	#00 SWP
 	( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
 
@@ -346,15 +345,9 @@
 	( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 !<enter>
 
 @<enter> ( folder* -- )
-	.selection/mod LDZ ?&special
+	[ LIT2 00 -selection ] STZ
 	push-path !<refresh-dir>
 
-	&special ( folder* -- )
-	;path <pstr>
-	<pstr>/
-	#0a18 DEO
-	JMP2r
-
 @<leave> ( -- )
 	pop-path !<refresh-dir>
 
@@ -637,7 +630,7 @@
 			[ LIT2 15 -Screen/auto ] DEO
 			#0000 .Screen/x DEO2
 			;poke-icn .Screen/addr DEO2
-			[ LIT2 05 -Screen/sprite ] DEO }
+			STHkr .Screen/sprite DEO }
 		( | normal )
 		#0008 .Screen/x DEO2
 		#00 OVR