From 18ebd06cfec0b7ccea7c38ad749d327cac7f3d01 Mon Sep 17 00:00:00 2001
From: nick_westgate <nick_westgate@b5e51362-a710-0410-a134-be2176fc2e42>
Date: Sun, 18 Oct 2009 05:37:01 +0000
Subject: [PATCH] Implemented the shift key mod for II/II+. This fixes a
 problem with Homeword.

---
 AppleWin/source/Joystick.cpp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/AppleWin/source/Joystick.cpp b/AppleWin/source/Joystick.cpp
index 4bcb08be..f93241f5 100644
--- a/AppleWin/source/Joystick.cpp
+++ b/AppleWin/source/Joystick.cpp
@@ -394,7 +394,16 @@ BYTE __stdcall JoyReadButton(WORD, WORD address, BYTE, BYTE, ULONG nCyclesLeft)
       break;
 
     case 0x63:
-      pressed = (buttonlatch[2] || joybutton[2] || setbutton[2] || (GetKeyState(VK_SHIFT) < 0));
+	  if (IS_APPLE2 && (joyinfo[joytype[1]].device == DEVICE_NONE))
+	  {
+	    // Apple II/II+ with no joystick has the "SHIFT key mod"
+	    // See Sather's Understanding The Apple II p7-36
+		pressed = !(GetKeyState(VK_SHIFT) < 0);
+	  }
+	  else
+	  {
+	    pressed = (buttonlatch[2] || joybutton[2] || setbutton[2]);
+	  }
       buttonlatch[2] = 0;
       break;