Fixed clearing problem

src/nasu.tal

@@ -71,7 +71,7 @@ BRK
 	( name ) "Nasu 0a
 	( details ) "A 20 "Sprite 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "10 20 "Nov 20 "2023 00
+	( date ) "2 20 "Dec 20 "2023 00
 	01
 		( icon ) 83 =appicon
 
@@ -693,6 +693,17 @@ JMP2r
 
 @draw-tileview-zoom ( -- )
 
+	( | clear )
+	;fill-icn .Screen/addr DEO2
+	.tileview/x1 LDZ2 .Screen/x DEO2
+	.tileview/y1 LDZ2 .Screen/y DEO2
+	#f2 .Screen/auto DEO
+	#f0 &times ( -- )
+		[ LIT2 00 -Screen/sprite ] DEO
+		INC DUP ?&times
+	POP
+	( | draw )
+	#01 .Screen/auto DEO
 	;pixel-icn .Screen/addr DEO2
 	#1000
 	&ver