Allow lowercase letters with active caps lock

maccasoft · Nov 15, 2018 · 4c1dd67 · 4c1dd67
1 parent bc6ca09
commit 4c1dd67
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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":