Spaces in tank names #120

constants.asm

@@ -593,7 +593,7 @@ keycodes ;tables for converting KeyCode to Screen Code (38 -1  characters)
     .by $0d,$01,$05,$00,$25,$23,$08,$0a
     .by $2f,$28,$3e,$2d,$0b,$10,$2e,$16
     .by $2b,$17,$1f,$1e,$1a,$18,$1d,$1b
-    .by $33,$35,$30,$32,$22 ;,$0e <-- hyphen removed from the table, sorry hyphen lovers
+    .by $33,$35,$30,$32,$22,$21 ;,$0e <-- hyphen removed from the table, sorry hyphen lovers
 keycodesEnd
 scrcodes
     dta d"abcdefgh"

textproc.asm

@@ -1096,7 +1096,7 @@ NoArrowDown
     
     ldy #0
 @     lda TanksNames,x
-      beq endOfTankName
+;      beq endOfTankName
       sta NameAdr,y
       inx
       iny
@@ -1104,6 +1104,12 @@ NoArrowDown
     bne @-
 endOfTankName
 
+@	lda NameAdr,y
+	bne LastNameChar
+	dey
+	bpl @-
+LastNameChar
+	iny
 
     lda #$80 ; place cursor on the end
     sta NameAdr,y