diff --git a/scorch.asm b/scorch.asm
index 8857257..5a2c199 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -123,26 +123,7 @@ START
     lda escFlag
     bne START
 
-    ;entering names of players
-    mwa #NameDL dlptrs
-    lda dmactls
-    and #$fc
-    ora #$01     ; narrow screen (32 chars)
-    sta dmactls
-    VDLI DLIinterruptText  ; jsr SetDLI for text (names) screen
-
-    mva #0 TankNr
-@	  tax
-      lda TankStatusColoursTable,x
-      sta colpf2s  ; set color of player name line
-      jsr EnterPlayerName
-      lda escFlag
-      bne START
-      inc TankNr
-      lda TankNr
-      cmp NumberOfPlayers
-    bne @-
-
+    jsr EnterPlayerNames
     jsr RandomizeSequence
     ; for the round #1 shooting sequence is random
 
@@ -150,17 +131,14 @@ MainGameLoop
     VDLI DLIinterruptText  ; jsr SetDLI for text (purchase) screen
 
 	jsr CallPurchaseForEveryTank
+
     ; issue #72 (glitches when switches)
     mva #0 dmactl
     lda dmactls
     and #$fc
-    ;ora #$02     ; 2=normal, 3 = wide screen width, 0 = no screen (?)
+    ;ora #$02     ; 2=normal, 3 = wide screen width, 0 = no screen
     sta dmactls
-
-
 	
-    VDLI DLIinterruptGraph  ; jsr SetDLI for graphics (game) screen
-
     jsr GetRandomWind
 
     jsr Round
@@ -315,6 +293,8 @@ SettingEnergies
     jsr placetanks    ;let the tanks be evenly placed
     jsr calculatemountains ;let mountains be nice for the eye
 ;    jsr calculatemountains0 ;only fort tests - makes mountains flat and 0 height
+
+    VDLI DLIinterruptGraph  ; jsr SetDLI for graphics (game) screen
     mwa #dl dlptrs  ; issue #72 (glitches when switches)
     lda dmactls
     and #$fc
diff --git a/scorch.xex b/scorch.xex
index 30471a3..f814a1a 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 9a38ef6..b075064 100755
--- a/textproc.asm
+++ b/textproc.asm
@@ -825,6 +825,29 @@ NoArrowDown
     rts
 .endp
 ; -----------------------------------------------------
+.proc EnterPlayerNames
+    ;entering names of players
+    mwa #NameDL dlptrs
+    lda dmactls
+    and #$fc
+    ora #$01     ; narrow screen (32 chars)
+    sta dmactls
+    VDLI DLIinterruptText  ; jsr SetDLI for text (names) screen
+
+    mva #0 TankNr
+@     tax
+      lda TankStatusColoursTable,x
+      sta colpf2s  ; set color of player name line
+      jsr EnterPlayerName
+      lda escFlag
+      jne START
+      inc TankNr
+      lda TankNr
+      cmp NumberOfPlayers
+    bne @-
+    rts
+.endp
+; -----------------------------------------------------
 .proc EnterPlayerName
 ; in: TankNr
 ; Out: TanksNames, SkillTable