From 4dc184acea0b5ff67b5c7641ed0c65e821d2d166 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Sun, 15 Mar 2026 23:53:00 -0400
Subject: Redefine ATASCII graphics 1-27 as inverse uppercase letters.

---
 font/mkfont.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'font')

diff --git a/font/mkfont.pl b/font/mkfont.pl
index 20c5ece..ae52dda 100644
--- a/font/mkfont.pl
+++ b/font/mkfont.pl
@@ -16,6 +16,16 @@ read($in, $X2300, 256); # ASCII 96=127
 # ASCII 0 is a blank glyph
 substr($X2200, 0, 8) = "\x00" x 8;
 
+# ASCII 1-26 are inverse letters instead of ATASCII control graphics.
+for($i = 1; $i < 27; $i++) {
+	my $old = substr($X2100, $i * 8, 8);
+	my $p = 0;
+	for(split "", $old) {
+		my $new = ~ord($_);
+		substr($X2200, $i * 8 + $p++, 1) = chr($new);
+	}
+}
+
 $font = $X2200 . $X2000 . $X2100 . $X2300;
 
 while(<DATA>) {
-- 
cgit v1.2.3