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