From f1c531b87612c1d0886dfc062ede5cb6322673a6 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 10:55:20 -0700
Subject: [PATCH] (m291) Fixed progress bar width

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index c44d093..722b999 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -131,13 +131,12 @@
 
 @calc-width ( total* curr* -- width* )
 	STH2
-	DUP2 #013c LTH2 ?&ready
-	&scale ( -- )
-	DUP2 #0277 LTH2 ?&almost
-	#01 SFT2 LITr 01 SFT2r !&scale
-	&almost INC2 #01 SFT2 INC2r LITr 01 SFT2r
-	&ready ( -- )
-	LIT2r 00d0 MUL2r STH2r SWP2 DIV2 JMP2r
+	DUP2 #011b LTH2 ?{
+		&scale ( -- )
+		DUP2 #0237 LTH2 ?{
+			#01 SFT2 LITr 01 SFT2r !&scale }
+		INC2 #01 SFT2 INC2r LITr 01 SFT2r }
+	[ LIT2r 00e7 ] MUL2r STH2r SWP2 DIV2 JMP2r
 
 (
 @|events )