From 6e4fd9ecd543661286ba8cd011ba6b94c7ffcebd Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 13:50:07 -0700
Subject: [PATCH] (m291) Fixed issue with clear-line

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 5142939..6961e5f 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -590,11 +590,13 @@
 	#0a DIVk MUL SUB [ LIT "0 ] ADD !<draw-glyph>
 
 @<clear-line> ( -- )
-	#0000 .Screen/x DEO2
+	[ LITr -Screen/y ] DEI2r
+	( ) #0000 .Screen/x DEO2
 	;fill-icn .Screen/addr DEO2
 	[ LIT2 f2 -Screen/auto ] DEO
-	[ LIT2 00 -Screen/sprite ] DEOk DEOk #0080 .Screen/x DEO2
-	.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
+	[ LIT2 00 -Screen/sprite ] DEOk DEOk
+	( ) [ LITr -Screen/y ] DEO2r
+	#0080 .Screen/x DEO2
 	DEOk DEO
 	JMP2r