diff --git a/Apple2/Shell.asm b/Apple2/Shell.asm
index 67cd253..8358849 100755
--- a/Apple2/Shell.asm
+++ b/Apple2/Shell.asm
@@ -211,6 +211,10 @@ waitRead:
  bit Keyboard ;keypress will abort waiting to read
  bpl waitRead
 keyPressed:
+ lda InputFlags,x
+ rol
+ rol
+ bcs keyPressed
  lda Keyboard ;send keypress to RPi
  and #$7f
  sta OutputByte,x