From 62ae1012df21e4dba6c737c1845188e550507503 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sun, 10 May 2020 11:39:10 -0400 Subject: [PATCH] ti84: allow case select during a-lock with 2nd mode --- blk/570 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/blk/570 b/blk/570 index cb25da7..446e894 100644 --- a/blk/570 +++ b/blk/570 @@ -7,5 +7,8 @@ IF _tbl^ _2nd@ IF _alock^ THEN THEN SWAP 0x81 = _2nd! _gti + C@ - DUP 0 0x80 >< UNTIL ( loop if not in range ) ; + DUP 0 0x80 >< UNTIL ( loop if not in range ) + ( lowercase? ) + _2nd@ IF DUP 'A' 'Z' =><= IF 0x20 OR THEN THEN +; : KBD$ 0 [ KBD_MEM LITN ] C! ;