1 files changed, 9 insertions(+), 4 deletions(-)

M src/dexe.tal

@@ 230,7 230,9 @@ BRK
 
 	( keys )
 	.Controller/key DEI
-	DUP #1f GTH OVR #7f LTH #0101 NEQ2 ,&no-char JCN DUP ;input JSR2 &no-char
+	DUP #1f GTH OVR #7f LTH #0101 NEQ2 ,&no-char JCN
+		DUP ;input JSR2
+		&no-char
 	POP
 
 BRK


@@ 429,13 431,16 @@ JMP2r
 
 @fill-selection ( byte -- )
 
-	STH
+	,&c STR
 	( Fill selection with byte )
 	.selection/to LDZ2 INC2 .selection/from LDZ2
 	&loop
-		DUP2 STHkr ROT ROT STA
+		STH2k [ LIT &c $1 ] STH2r STA
 		INC2 GTH2k ,&loop JCN
-	POP2 POP2 POPr
+	( advance selection when 1 cell )
+	POP2 .selection/from LDZ2 SUB2 NIP #01 GTH ,&no-advance JCN
+		;move-right JSR2
+		&no-advance
 	#01 .state/changed STZ
 	;redraw ( .. )