diff --git a/gui/dads/dads.tal b/gui/dads/dads.tal
index 7b94c1f..2ea2352 100644
--- a/gui/dads/dads.tal
+++ b/gui/dads/dads.tal
@@ -96,8 +96,13 @@ JMP2r
 	POP2
 
 JMP2r
-&move ( block* offset* -- )
-	phex #2018 DEO phex #0a18 DEO
+&move ( block* xy -- )
+	SWP2 STH2k clear-block
+	INC2r INC2r
+	SWP
+	LDAkr STHr ADD STH2kr STA INC2r
+	LDAkr STHr ADD STH2r STA
+	draw-blocks
 JMP2r
 &blank ( block* -- )
 	POP2
@@ -154,6 +159,7 @@ JMP2r
 (
 @|drawing )
 
+
 @draw-blocks ( -- )
 
 	#0900
@@ -164,6 +170,15 @@ JMP2r
 
 JMP2r
 
+@clear-block ( id* -- )
+
+	#00 ;draw-times/color STA
+	INC2 INC2 LDA2k to-screen
+	INC2 INC2 LDA2 JSR2
+	#81 ;draw-times/color STA
+
+JMP2r
+
 @draw-block ( id* -- )
 
 	#0006 MUL2 ;game ADD2
@@ -196,7 +211,7 @@ JMP2r
 
 	#00 SWP SUB
 	&l
-		#81 .Screen/sprite DEO
+		[ LIT &color 81 ] .Screen/sprite DEO
 		INC DUP ?&l
 	POP