(m291) Improved feedback for play button

gui/m291/src/assets.tal

@@ -35,6 +35,10 @@
 	0000 001e 1e1e 1e1e 0000 0078 7878 7878
 	1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
 
+@play-wait-icn [
+	0000 000c 0b08 0808 0000 0000 00c0 300c
+	0808 080b 0c00 0000 0c30 c000 0000 0000 ]
+
 @next-icn [
 	0000 0018 1c1e 1f1f 0000 0018 1818 1898
 	1f1f 1e1c 1800 0000 9818 1818 1800 0000 ]

gui/m291/src/m291.tal

@@ -110,7 +110,8 @@
 	BRK
 
 	&seeker ( -> )
-	BRK
+	.Mouse/x DEI2 #0008 SUB2 DUP2 #00e7 GTH2 ?{ DUP2 <seek> }
+	POP2 BRK
 
 @on-control ( -> )
 	( | mod )
@@ -182,6 +183,11 @@
 @<skip-next> ( -- )
 	JMP2r
 
+@<seek> ( x* -- )
+	<phex>
+	#0a19 DEO
+	JMP2r
+
 (
 @|events )
 
@@ -327,7 +333,8 @@
 	JMP2r
 
 @<send-pause> ( -- )
-	;dict/pause-cmd !<pstr>
+	[ LIT2 02 -paused ] LDZ ORA .paused STZ
+	;dict/pause-cmd <pstr> !<draw-play>
 
 @<enter> ( folder* -- )
 	.selection/mod LDZ ?&special
@@ -468,8 +475,7 @@
 	[ LIT2 16 -Screen/auto ] DEO
 	#0078 .Screen/x DEO2
 	#005c .Screen/y DEO2
-	;play-icn ;pause-icn .paused LDZ ?{ SWP2 }
-	POP2 .Screen/addr DEO2
+	;play-icn #00 .paused LDZ #50 SFT2 ADD2 .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEO
 	JMP2r