From 3bdcd4438e726a5b303b634acc8a9ef98dc1f2ed Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 28 Aug 2024 18:31:17 -0700
Subject: [PATCH] (m291) d6 fixed the seeking issue

---
 gui/m291/src/m291.tal | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 2883eeb..1090d2a 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -190,9 +190,9 @@
 	.selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
 
 @<seek> ( x* -- )
-	;dict/jump-cmd <pstr>
-	.frames/a LDZ2 .frames/b LDZ2 ADD2 #00e7 DIV2
-	( At least 1 ) DUP2 #0000 EQU2 #00 SWP ADD2 MUL2 <pdec>
+	pos-to-seconds DUP2 #00e7 LTH2 #00 SWP ADD2 ;dict/jump-cmd <pstr>
+	<pdec>
+	LIT2 "s 18 DEO
 	#0a18 DEO
 	JMP2r
 
@@ -387,6 +387,10 @@
 @is-mp3 ( line* -- line*f )
 	DUP2 lcap/ #0003 SUB2 ;dict/mp3-ext !scmp3
 
+@pos-to-seconds ( pos* -- seconds* )
+	.secfrom LDZ2 .secto LDZ2 ADD2 #00e7 DIV2k STH2k MUL2 SUB2 OVR2 STH2
+	MUL2r MUL2 #00e7 DIV2 STH2r ADD2 JMP2r
+
 @calc-width ( total* curr* -- width* )
 	STH2
 	DUP2 #011b LTH2 ?{