diff --git a/grafproc.asm b/grafproc.asm
index 76db853..f981821 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -1590,14 +1590,24 @@ nextPointChecking
     lda (modify),y
 	tax
 NotHigher
-    inw modify
-    cpw modify #(mountaintable+screenwidth)
+;    inw modify
+;    cpw modify #(mountaintable+screenwidth)
+	; --
+	; better code (with Y reg)
+	iny
+	bne @+
+	inc modify+1
+@
+	lda modify+1
+	cmp #>(mountaintable+screenwidth)
+	bne @+
+	cpy #<screenwidth
+@
     bne nextPointChecking
 	txa
 	rts
 .endp
 
-
 ; -----------------------------------------
 .proc unPlot
 ; plots a point and saves the plotted byte, reverts the previous plot.
diff --git a/scorch.xex b/scorch.xex
index 0abaa04..316377b 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 964d17f..3bc5cac 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -1059,7 +1059,7 @@ NoArrowDown
     sta difficultyLevel
     inx
     stx decimal
-    mwa #(NameScreen+41) displayposition
+    mwa #(NameScreen2+9) displayposition
     jsr displaybyte
     jsr HighlightLevel ; setting choosen level of the opponent (Moron, etc)