New dafault tanks names

Atari/textproc.asm

@@ -1269,12 +1269,19 @@ NotRobot
     beq MakeDefaultName    
     rts
 MakeDefaultName
+    ldy difficultyLevel
+    lda LevelNameBeginL,y ; address on the screen
+    sta temp2
+    lda LevelNameBeginH,y
+    sta temp2+1
     ldx temp+1
-    ldy #7
+    ldy #1  ; after first char (space)
-@   lda tanksnamesDefault,y
+@   lda (temp2),y
+    and #$7f    ; remove inverse
     sta tanksnames,x
     inx
-    dey
+    iny
+    cpy #8
     bne @-
     ldy tanknr
     lda digits+1,y

C64/textproc.asm

@@ -4,7 +4,12 @@
     .IF *>0
 
 WeaponsListDL = 0
-NamesOfLevels = 0
+
+NamesOfLevels
+ dta  d" HUMAN     Moron     Shooter   "
+ dta d"  Poolshark Tosser    Chooser   "
+ dta d"  Spoiler   Cyborg    Unknown   "
+
 ;----------------------------------------
 ; this module contains routines used in text mode
 ; like shop and start-up options
@@ -186,12 +191,19 @@ NotRobot
     beq MakeDefaultName    
     rts
 MakeDefaultName
+    ldy difficultyLevel
+    lda LevelNameBeginL,y ; address on the screen
+    sta temp2
+    lda LevelNameBeginH,y
+    sta temp2+1
     ldx temp+1
-    ldy #7
+    ldy #1  ; after first char (space)
-@   lda tanksnamesDefault,y
+@   lda (temp2),y
+    and #$7f    ; remove inverse
     sta tanksnames,x
     inx
-    dey
+    iny
+    cpy #8
     bne @-
     ldy tanknr
     lda digits+1,y

constants.asm

@@ -224,9 +224,6 @@ SlideLeftTable
 ;    .BY %00001100
 SlideLeftTableLen = *-SlideLeftTable
 ;-------------------------------------------------
-TanksNamesDefault
-    dta d"x.n knaT"
-;-------------------------------------------------
 TankShapesTable         .BYTE char_tank1
                         .BYTE char_tank2
                         .BYTE char_tank3