diff --git a/scorch.asm b/scorch.asm
index 81ab57c..d3f93e1 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -15,7 +15,7 @@
 
 ;---------------------------------------------------
 .macro build
-	dta d"1.17" ; number of this build (4 bytes)
+	dta d"1.18" ; number of this build (4 bytes)
 .endm
 
 .macro RMTSong
diff --git a/scorch.bin b/scorch.bin
index 2ae7339..3472d70 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index d8ac8b6..d304060 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 522a10c..a5e3e19 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -419,17 +419,17 @@ PurchaseKeyUp
     bpl GoUpOffensive
     dec PositionOnTheList
     bpl EndUpX
-    ldy #0 ;HowManyOnTheListDef
-    ;dey
+    ldy HowManyOnTheListDef
+    dey
     sty PositionOnTheList
-    jmp ChoosingItemForPurchase
+    jmp MakeOffsetDown
 GoUpOffensive
     dec PositionOnTheList
     bpl MakeOffsetUp
-    ldy #0 ;HowManyOnTheListOff
-    ;dey
+    ldy HowManyOnTheListOff
+    dey
     sty PositionOnTheList
-
+	jmp MakeOffsetDown
 MakeOffsetUp
     ; If offset is larger than pointer position,
     ; it must be equal then.
@@ -445,17 +445,16 @@ PurchaseKeyDown
     inc:lda PositionOnTheList
     cmp HowManyOnTheListDef
     bne EndGoDownX
-    ldy HowManyOnTheListDef
-    dey
+    ldy #0
     sty PositionOnTheList
-    jmp ChoosingItemForPurchase
+	beq MakeOffsetUp
 GoDownOffensive
     inc:lda PositionOnTheList
     cmp HowManyOnTheListOff
     bne MakeOffsetDown
-    ldy HowManyOnTheListOff
-    dey
+    ldy #0
     sty PositionOnTheList
+	beq MakeOffsetUp
 MakeOffsetDown
     lda OffsetDL1
     clc