1 files changed, 8 insertions(+), 0 deletions(-)

M src/main.tal

@@ 513,6 513,7 @@ BRK
 		.dpad LDZ IS-CHAR-KEY #00 = ,&save JCN
 		.selection LDZ2 .dpad LDZ SET-CELL
 		SET-STATE 
+		#20 .dpad STZ
 		;redraw JSR2 
 		,&save JMP
 


@@ 1179,6 1180,13 @@ RTN
 	.grid/x1 LDZ2 #0068 ++ .Screen/x DEO2
 	( h ) #68 GET-CHAR-ADDR #01 ;draw-char JSR2
 
+	( d-pad )
+	.dpad LDZ DUP #21 < ,&no-dpad JCN
+		.grid/x1 LDZ2 #0050 ++ .Screen/x DEO2
+		DUP #09 ;draw-byte JSR2
+		&no-dpad
+	POP
+
 	( File )
 	.grid/x2 LDZ2 STH2k #0018 -- .Screen/x DEO2
 	;load-icn .Screen/addr DEO2