diff --git a/Atari/textproc.asm b/Atari/textproc.asm
index 61be755..32adf1f 100644
--- a/Atari/textproc.asm
+++ b/Atari/textproc.asm
@@ -16,9 +16,9 @@
 ; - money each player has on the beginning of the game (moneyL i moneyH)
 ; - and I am sure maxwind, gravity, no_of_rounds in a game, speed of shell flight
 
-;    mwa #(display+40*140) temp  ; we only need to clear last 60 lines (faster)
-;    jsr clearscreen.Go   ;let the screen be clean    
-    jsr clearscreen   ;let the screen be clean
+    mwa #(display+40*140) temp  ; we only need to clear last 60 lines (faster)
+    jsr clearscreen.Go   ;let the screen be clean    
+;    jsr clearscreen   ;let the screen be clean
 
     mwa #DisplayCopyRom temp
     mwa #display temp2
@@ -29,9 +29,8 @@
 
     lda #%00111110  ; normal screen width, DL on, P/M on
     sta dmactls
-    jsr SetPMWidth
+    jsr SetPMWidthAndColors
     mva #TextBackgroundColor COLOR2
-    jsr ColorsOfSprites
     mva #$ca COLOR1
     mva #$00 COLBAKS    ; set color of background
 
@@ -1538,8 +1537,7 @@ displayloop1
     sta dmactls
     lda #%00100100  ; playfield before P/M
     sta GPRIOR
-    jsr SetPMWidth
-    jsr ColorsOfSprites
+    jsr SetPMWidthAndColors
     mva #0 COLOR1
     sta COLBAKS    ; set color of background
     sta CreditsVScrol
diff --git a/game.asm b/game.asm
index bf5a5ea..d487a09 100644
--- a/game.asm
+++ b/game.asm
@@ -186,7 +186,7 @@ eskipzeroing
 
     RmtSong song_ingame
 
-    jsr SetPMWidth    ; A=0
+    jsr SetPMWidthAndColors    ; A=0
     lda #0
     sta AfterBFGflag    ; reset BFG flag
     sta COLOR2    ; status line "off"
@@ -243,7 +243,6 @@ SettingEnergies
     jsr CopyFromROM
 
     jsr SetMainScreen
-    jsr ColorsOfSprites
 
     jsr drawmountains ;draw them
     jsr drawtanks     ;finally draw tanks
@@ -857,7 +856,7 @@ SetunPlots
     sta pmbase
     lda #$03    ; P/M on
     sta GRACTL
-    jsr SetPMWidth
+    jsr SetPMWidthAndColors
     lda #%00100001 ; P/M priorities (multicolor players on) - prior=1
     sta GPRIOR
     jsr PMoutofScreen
diff --git a/grafproc.asm b/grafproc.asm
index 55f0dfd..03c128c 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -2078,26 +2078,19 @@ ybarrel
     rts
 .endp
 ;--------------------------------------------------
-.proc ColorsOfSprites
+.proc SetPMWidthAndColors
+    lda #%01010101
+    sta sizem ; all missiles, double width
     ldy #3
-@   lda TankColoursTable,y ; colours of sprites under tanks
-    sta PCOLR0,y
+@   lda #$00
+    sta sizep0,y ; P0-P3 widths
+    lda TankColoursTable,y ; colours of sprites under tanks
+    sta PCOLR0,y    
     dey
     bpl @-
     LDA TankColoursTable+4
     STA COLOR3     ; joined missiles (5th tank)
     rts
 .endp
-;--------------------------------------------------
-.proc SetPMWidth
-    lda #%01010101
-    sta sizem ; all missiles, double width
-    lda #$00
-    sta sizep0 ; P0-P3 widths
-    sta sizep0+1
-    sta sizep0+2
-    sta sizep0+3
-    rts
-.endp
 
 .endif
\ No newline at end of file
diff --git a/scorch.bin b/scorch.bin
index c56d544..e45c0f4 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index c8f3900..4071f95 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/scorchC64.prg b/scorchC64.prg
index 8cd295d..bd4a785 100644
Binary files a/scorchC64.prg and b/scorchC64.prg differ