diff --git a/gui/dads/dads.tal b/gui/dads/dads.tal
index d34033c..7b94c1f 100644
--- a/gui/dads/dads.tal
+++ b/gui/dads/dads.tal
@@ -52,11 +52,9 @@ BRK
 @|core )
 
 @pick ( x y -- <block>* )
-
 	( clamp )
 	DUP #04 GTH ?&bounds
 	OVR #03 GTH ?&bounds
-
 	,&t STR2
 	#0900
 	&l
@@ -65,7 +63,6 @@ BRK
 	&end
 	POP2
 	#ffff
-
 JMP2r
 &bounds ( bounds* -- 0* )
 	POP2 #0000
@@ -89,16 +86,19 @@ JMP2r
 		DUP2 #ffff EQU2 ?&blank
 		DUP2 #0000 EQU2 ?&blank
 	( up )
-	DUP2 #00ff can-move phex/b #0a18 DEO
+	#00ff OVR2 OVR2 can-move ?&move POP2
 	( right )
-	DUP2 #0001 can-move phex/b #0a18 DEO
+	#0001 OVR2 OVR2 can-move ?&move POP2
 	( down )
-	DUP2 #0100 can-move phex/b #0a18 DEO
+	#0100 OVR2 OVR2 can-move ?&move POP2
 	( left )
-	DUP2 #ff00 can-move phex/b #0a18 DEO
+	#ff00 OVR2 OVR2 can-move ?&move POP2
 	POP2
 
 JMP2r
+&move ( block* offset* -- )
+	phex #2018 DEO phex #0a18 DEO
+JMP2r
 &blank ( block* -- )
 	POP2
 JMP2r