diff --git a/Atari/textproc.asm b/Atari/textproc.asm
index db2261d..5f358b1 100644
--- a/Atari/textproc.asm
+++ b/Atari/textproc.asm
@@ -1693,9 +1693,7 @@ AllTanksFloatingDown
     lda Ytankstable,x
 	cmp #(72-7)		; tank under screen - no erase
 	bcs NoEraseTank
-	mva #1 Erase
-    jsr DrawTankNr
-	mva #0 Erase
+    jsr ClearTankNr
 	sta ATRACT	; reset atract mode
 NoEraseTank
 	ldx TankNr
@@ -1714,7 +1712,7 @@ NotFastTank
 TankUnderScreen
     jsr RandomizeTankPos
 TankOnScreen
-    jsr DrawTankNr
+    jsr PutTankNr
 DrawOnlyParachute
 	lda ActiveDefenceWeapon,x
 	bne FastTank
diff --git a/scorch.bin b/scorch.bin
index 46e66e0..bba74c1 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index 13311d1..29cc84d 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/weapons.asm b/weapons.asm
index f1a8cdb..a86f328 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -2685,7 +2685,6 @@ pressedLeft
 	jsr DecreaseShieldEnergyX
 	; first erase old tank position
     jsr ClearTankNr
-	mva #0 Erase
 	lda XtankstableH,x
 	cmp #0
 	bne @+
@@ -2703,7 +2702,7 @@ NoLEdge
 	mva #162 AngleTable,x
 	; then draw tank on new position
 DrawFloatingTank
-    jsr DrawTankNr
+    jsr PutTankNr
 	jsr DisplayStatus
 	jsr WaitOneFrame
 	jsr CalculateSoildown
@@ -2782,7 +2781,6 @@ TankBelow
 	ldx TankNr
 	; first erase old tank position
     jsr ClearTankNr
-	mva #0 Erase
 	bit OverTankDir
 	bmi PassLeft
 PassRight
@@ -2798,7 +2796,7 @@ PassLeft
 	mva #162 AngleTable,x
 Bypassing
 	; then draw tank on new position
-    jsr DrawTankNr
+    jsr PutTankNr
 	jmp CheckForTanksBelow
 RightFromTheTank
 LeftFromTheTank