From 748d00a166353f63f85cd18f756562dd4fc74063 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 14:14:18 -0700
Subject: [PATCH] Auto skip to next track

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 2a0882d..19ec49d 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -208,8 +208,12 @@
 	POP2 POP2 !message/<new>
 
 @handle-pause ( buf* char -- )
-	POP INC2 INC2 LDA [ LIT "1 ] SUB #01 EOR .paused STZ
-	<draw-play> !message/<new>
+	POP INC2 INC2 LDA
+	( stop ) DUP [ LIT "0 ] NEQ ?{ }
+	( paused ) DUP [ LIT "1 ] NEQ ?{ #01 .paused STZ }
+	( playing ) DUP [ LIT "2 ] NEQ ?{ #00 .paused STZ }
+	( end ) DUP [ LIT "3 ] NEQ ?{ <skip-next> }
+	POP <draw-play> !message/<new>
 
 (
 @|core )