diff --git a/Atari/gr_basics.asm b/Atari/gr_basics.asm
index ebfa84c..8bd856e 100644
--- a/Atari/gr_basics.asm
+++ b/Atari/gr_basics.asm
@@ -579,7 +579,7 @@ EndPut4x4
 .proc ClearScreen
 ;--------------------------------------------------
     mwa #display temp
-    ldy #0
+Go    ldy #0
 @     lda #$ff
       sta (temp),y
       inw temp
diff --git a/Atari/textproc.asm b/Atari/textproc.asm
index 09814c9..04e9959 100644
--- a/Atari/textproc.asm
+++ b/Atari/textproc.asm
@@ -16,7 +16,8 @@
 ; - 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
 
-    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
 
     mwa #DisplayCopyRom temp
     mwa #display temp2
diff --git a/scorch.bin b/scorch.bin
index 9491f30..4386b0b 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index b1dd4f5..c42bb41 100644
Binary files a/scorch.xex and b/scorch.xex differ