From 4c1dd67375f4ecb3d32931006486a1fa88698eb1 Mon Sep 17 00:00:00 2001
From: Marco Maccaferri <marco.maccaferri@maccasoft.com>
Date: Thu, 15 Nov 2018 08:58:08 +0100
Subject: [PATCH] Allow lowercase letters with active caps lock

---
 vt100.spin | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/vt100.spin b/vt100.spin
index 92ecf24..1c4b722 100644
--- a/vt100.spin
+++ b/vt100.spin
@@ -974,6 +974,8 @@ PRI keyPressed(k, mod) | c, ptr
         "A".."Z":
             if (usb_report[0] & %00010001) ' CTRL
                 ser.char(c - "A" + 1)
+            elseif (usb_led & LED_CAPS_LOCK)
+                ser.char(c ^ $20)
             else
                 ser.char(c)
         "a".."z":