From da9f55f3540dc94f6dfb6765584a26e07faaf633 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 28 Aug 2024 09:06:46 -0700
Subject: [PATCH] (m291) Skip long lines

---
 gui/m291/src/m291.tal | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 563fe82..15fddae 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -58,7 +58,7 @@
 	( name ) "m291 0a
 	( desc ) "Audio 20 "Player 0a
 	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "27 20 "Aug 20 "2024 $2
+	( date ) "28 20 "Aug 20 "2024 $2
 
 (
 @|vectors )
@@ -236,11 +236,11 @@
 	&tracks ( id -- )
 	.selection/scroll LDZ ADD DUP .selection/track STZ
 	#00 SWP
-	( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
+	( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
 
 	&folder ( id -- )
 	#00 SWP
-	( CELLSIZE ) #70 SFT2 ;mem/folders ADD2
+	( CELLSIZE ) #60 SFT2 ;mem/folders ADD2
 	( > ) [ LIT2 00 -selection ] STZ
 	( > ) [ LIT2 00 -selection/scroll ] STZ
 	path/<push> !<refresh-dir>
@@ -364,14 +364,16 @@
 	POP2 JMP2r
 
 	&folder ( line* -- )
+	DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
 	;mem/folders [ LIT2 00 -lines/folders ] LDZ
-	( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
+	( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
 	.lines/folders LDZ INC .lines/folders STZ
 	JMP2r
 
 	&mp3 ( line* -- )
+	DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
 	;mem/tracks [ LIT2 00 -lines/tracks ] LDZ
-	( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
+	( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
 	.lines/tracks LDZ INC .lines/tracks STZ
 	JMP2r
 
@@ -500,7 +502,7 @@
 		( | normal )
 		#0008 .Screen/x DEO2
 		#00 OVR .selection/scroll LDZ ADD
-		( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
+		( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
 		.Screen/y DEI2k #0010 ADD2 ROT DEO2
 		INC GTHk ?&>l
 	POP2 JMP2r
@@ -725,7 +727,7 @@
 		( | normal )
 		#0008 .Screen/x DEO2
 		#00 OVR
-		( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
+		( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
 		.Screen/y DEI2k #0010 ADD2 ROT DEO2
 		INC GTHk ?&>l
 	POP2 JMP2r
@@ -807,6 +809,9 @@
 		INC2r INC2 LDAk ?&>w
 	POP2 POP2r JMP2r
 
+@llen ( str* -- length* )
+	DUP2 lcap/ SWP2 SUB2 JMP2r
+
 @lcap ( str* -- next-line* )
 	LDAk #0a EQU ?{ INC2 & LDAk ?lcap }
 	JMP2r
@@ -896,7 +901,6 @@
 	&load-cmd "load 20 $1
 	&jump-cmd "jump 20 $1
 	&pause-cmd "pause 0a $1
-	&no-title "Unknown 20 "Title $1
 	&no-artist "Unknown 20 "Artist $1
 	&no-album "Unknown 20 "Album $1