diff --git a/display.asm b/display.asm
index dc381ff..d07a4d9 100644
--- a/display.asm
+++ b/display.asm
@@ -136,7 +136,9 @@ WeaponsDescription
  dta d" - Defensive/Offensive weapon    "
  dta d"   "
  dta d"Space"*
- dta d" - Purchase  "
+ dta d" - "
+purchaseActivate 
+ dta d"Purchase  "
  dta d"Return"*
  dta d" - Finish    "
 EmptyLine
@@ -171,6 +173,12 @@ textbuffer
 textbuffer2
  dta d"Player:                Cash:     0      "  ; ZERO TO MAKE YOU RICHER ON THE SCREEN
  dta d"----------------------------------------"
-
+;---------------------------------------------------
+activateText
+ dta d"Activate"
+activateTextEnd
+purchaseText
+ dta d"Purchase"
+purchaseTextEnd
 
 .endif
diff --git a/scorch.xex b/scorch.xex
index 0e83fe1..53abbf6 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index fbb4786..ace9025 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -245,9 +245,6 @@ AfterManualPurchase
     lda TankStatusColoursTable,x
     sta colpf2s
     
-    ;    ldy PositionOnTheList
-    ;    lda IndexesOfWeaponsL1,y
-    
     
 ; we are clearing list of the weapons
     mva #$ff LastWeapon
@@ -305,8 +302,15 @@ CreateList
     bit isInventory
     bmi itIsInventory
     
-    ; checking if we can afford buying this weapon
+    ; put "Purchase" on the screen
+     ldx #[purchaseTextEnd-purchaseText-1]
+@     lda purchaseText,x
+      sta purchaseActivate,x
+      dex
+    bpl @-
 
+    ; checking if we can afford buying this weapon
+    ldx temp
     lda moneyH,y
     cmp WeaponPriceH,x
     bne @+
@@ -317,6 +321,14 @@ CreateList
     bcs notInventory  ; jmp
 
 itIsInventory
+    ; put "Activate" on the screen
+     ldx #[purchaseTextEnd-purchaseText-1]
+@     lda activateText,x
+      sta purchaseActivate,x
+      dex
+    bpl @-
+
+    ldx temp
     lda TanksWeaponsTableL,y
     sta weaponPointer
     lda TanksWeaponsTableH,y