From cab3279ddd8e0ad4fd5bef4065f40394cc2b7343 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 24 Jul 2024 15:42:07 -0700
Subject: [PATCH] Play bell

---
 gui/teatime/teatime.tal | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gui/teatime/teatime.tal b/gui/teatime/teatime.tal
index 219011b..d945beb 100644
--- a/gui/teatime/teatime.tal
+++ b/gui/teatime/teatime.tal
@@ -39,7 +39,8 @@
 	[ LIT2 40 &f $1 ] INCk ,&f STR
 	NEQ ?{
 		[ LIT2 00 _&f ] STR
-		DUP2 #0001 SUB2 <set-seconds> }
+		#0001 SUB2 DUP2 <set-seconds>
+		ORAk ?{ <ring> } }
 	POP2 BRK
 
 @on-mouse ( -> )
@@ -60,6 +61,10 @@
 (
 @|core )
 
+@<ring> ( -- )
+	( bell ) #0718 DEO
+	JMP2r
+
 @<freeze-timer> ( -- )
 	;on-frame-freeze .Screen/vector DEO2
 	#c0 ;on-frame-freeze/lock STA