From 150f5ed52cf700d58d86c6a0ab3be7a7787445b7 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Tue, 3 Jul 2018 13:47:16 -0400
Subject: [PATCH] gr-sim: only auto-uppercase inverse letters

---
 gr-sim/gr-sim.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gr-sim/gr-sim.c b/gr-sim/gr-sim.c
index 9cfe6e30..753e4d8d 100644
--- a/gr-sim/gr-sim.c
+++ b/gr-sim/gr-sim.c
@@ -1803,7 +1803,7 @@ void print_inverse(char *string) {
 	for(y=0;y<strlen(string);y++) {
 		a=string[y];
 		a=(a&0x3f);
-		a&=~0x20;	// convert to uppercase
+		if ((a>=('a'&0x3f)) && (a<=('z'&0x3f))) a&=~0x20;	// convert to uppercase
 		ram[y_indirect(BASL,y)]=a;
 	}
 	ram[BASL]+=strlen(string);