diff --git a/Machines/AppleII/AppleII.cpp b/Machines/AppleII/AppleII.cpp
index 7529c74f5..eddc22d6d 100644
--- a/Machines/AppleII/AppleII.cpp
+++ b/Machines/AppleII/AppleII.cpp
@@ -368,7 +368,7 @@ class ConcreteMachine:
 					}
 				}
 
-				keyboard_input_ = static_cast<uint8_t>(value | 0x80);
+				keyboard_input_ = static_cast<uint8_t>(toupper(value) | 0x80);
 			}
 		}