New dafault tanks names

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
-@   lda tanksnamesDefault,y
+    ldy #1  ; after first char (space)
+@   lda (temp2),y
+    and #$7f    ; remove inverse
     sta tanksnames,x
     inx
-    dey
+    iny
+    cpy #8
     bne @-
     ldy tanknr
     lda digits+1,y