From a47bc3804256ba52195fad75e27ecf9fd3b7d57d Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Fri, 30 Aug 2024 12:41:28 -0700
Subject: [PATCH] Characters allow to jump

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index e0666e5..98b8a7d 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -51,7 +51,7 @@
 	( name ) "m291 0a
 	( desc ) "Audio 20 "Player 0a
 	( auth ) "By 20 "Linvega 20 "& 20 "d6 0a
-	( date ) "29 20 "Aug 20 "2024 $2
+	( date ) "30 20 "Aug 20 "2024 $2
 
 (
 @|vectors )
@@ -130,6 +130,7 @@
 	( esc ) DUP #1b NEQ ?{ <escape> }
 	( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
 	( space ) DUP #20 NEQ ?{ <send-pause> }
+	DUP #20 SUB #5f GTH ?{ DUP <find-any> }
 	POP
 	( | button )
 	.Controller/button DEI
@@ -192,7 +193,7 @@
 @<seek> ( x* -- )
 	pos-to-seconds DUP2 #00e7 LTH2 #00 SWP ADD2 ;dict/jump-cmd <pstr>
 	<pdec>
-	LIT2 "s 18 DEO
+	[ LIT2 "s 18 ] DEO
 	#0a18 DEO
 	JMP2r
 
@@ -247,6 +248,22 @@
 @<change-mode> ( -- )
 	.mode LDZk INC #03 DIVk MUL SUB SWP STZ !<draw-mode>
 
+@<find-any> ( letter -- )
+	( case insensitive ) cflc STH
+	( | folders )
+	.lines/folders LDZ #00
+	&>folders ( -- )
+		#00 OVR #70 SFT2 ;mem/folders ADD2 LDA cflc STHkr NEQ ?{ POPr NIP !<select> }
+		INC GTHk ?&>folders
+	POP2
+	( | tracks )
+	.lines/tracks LDZ #00
+	&>tracks ( -- )
+		#00 OVR #70 SFT2 ;mem/tracks ADD2 LDA cflc STHkr NEQ ?{
+			POPr NIP .lines/tracks LDZ ADD !<select> }
+		INC GTHk ?&>tracks
+	POP2 POPr JMP2r
+
 (
 @|events )
 
@@ -860,6 +877,10 @@
 (
 @|stdlib )
 
+@cflc ( c -- lowercase )
+	DUP #41 SUB #1a GTH ?{ #20 ADD }
+	JMP2r
+
 @scap ( str* -- end* )
 	INC2 & LDAk ?scap
 	JMP2r