diff --git a/grafproc.asm b/grafproc.asm
index e974b02..92ad1db 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -922,7 +922,6 @@ StillNothing
     lda ydraw
     sta (tempor2),y
     sta (temp),y
-    jmp FoundPeek1
 FoundPeek1
     inw tempor2
     inw temp
@@ -990,7 +989,7 @@ ColumnIsReady
 ; level of the mountains
     jeq MainFallout2
 ; now correct heights are in the mountaintable
-    mva #1 color
+    sta color	; Pozor! :)  we know - now A=1
     mva #sfx_silencer sfx_effect
     rts
 .endp
diff --git a/scorch.asm b/scorch.asm
index b7dcc99..91009de 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -81,6 +81,7 @@
 	.zpvar dliCounter       .byte
 	.zpvar pressTimer       .byte
 	.zpvar NTSCcounter      .byte
+	.zpvar IsEndOfTheFallFlag .byte ; for small speedup ground falling
     ;.zpvar dliA             .byte
     ;.zpvar dliX             .byte
     ;.zpvar dliY             .byte
diff --git a/scorch.xex b/scorch.xex
index 40114bf..51c474e 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/variables.asm b/variables.asm
index c444e67..d6235a4 100644
--- a/variables.asm
+++ b/variables.asm
@@ -211,9 +211,6 @@ Multiplier .ds 3 ; 0,0,0
 Multiplee .ds 2 ; 0,0
 goleft  .DS 1 ;if 1 then flights left
 ;----------------------------------------------------
-;SoilDown2
-IsEndOfTheFallFlag .DS 1
-;----------------------------------------------------
 ;unPlot
 WhichUnPlot .DS 1
     ; max 5 concurrent unPlots