From e4f6ed2a26741555f93b1e48306a119c0c403737 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Mon, 7 Jun 2021 14:27:54 -0700
Subject: [PATCH] avoid extra keypress in scroll

---
 src/print.a | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/print.a b/src/print.a
index d001bb5..3317dc9 100755
--- a/src/print.a
+++ b/src/print.a
@@ -241,22 +241,23 @@ CheckLogKeys
          cpy   #$D4
          bne   .skipkey
          cpx   #0
-         beq   .nolog
+         bne   .skipkey
+
+.nolog
+         rts
 
 .checkkey
          jsr   WaitForKey
 
 .skipkey
-         cmp   #k_left
-         beq   .checkup
          cmp   #k_up
          beq   .checkup
          cmp   #k_right
          beq   .checkdown
          cmp   #k_down
          beq   .checkdown
-.nolog
-         rts
+         cmp   #k_left
+         bne   .nolog
 
 .checkup
          lda   .startline1+2