From 2b9a7535a1e5cbeb80cf12fbcd9f2f66b13128b7 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Fri, 10 Nov 2023 10:47:02 -0800
Subject: [PATCH] Fixed issue with filepath clearing

---
 src/nasu.tal | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/nasu.tal b/src/nasu.tal
index 58cd14e..cd29e3b 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -1036,6 +1036,9 @@ JMP2r
 
 	.toolview/x1 LDZ2 #0040 ADD2 .Screen/x DEO2
 	.toolview/y1 LDZ2 INC2 .Screen/y DEO2
+	( clear )
+	DUP #00 EQU ?clear-filepath
+
 	;draw-chr/color STA
 	;filepath
 	( scroll )
@@ -1045,6 +1048,18 @@ JMP2r
 
 JMP2r
 
+@clear-filepath ( color -- )
+
+	POP
+	;fill-icn .Screen/addr DEO2
+	#01 .Screen/auto DEO
+	#1300 &l ( -- )
+		#00 .Screen/sprite DEO
+		INC GTHk ?&l
+	POP2
+
+JMP2r
+
 @draw-fill-fast ( width color auto addr* -- )
 
 	.Screen/addr DEO2