diff --git a/still_alive/TODO b/still_alive/TODO
index 89896393..ebc0b926 100644
--- a/still_alive/TODO
+++ b/still_alive/TODO
@@ -1,9 +1,12 @@
 + Opening graphics (BASIC)
 + 80-column support
-+ compressed ascii art
 + No lowercase for 40-column option?
-+ six-channel support
-	generic?  or combine it?
 + 40 column support
 + Electric Duet support?
 
+Abandoned
++ compressed ascii art
+	-- had issues with re-entrancy, decided to abandon
+		fitting in 16k
++ six-channel support
+	-- went for 4-channel support instead
diff --git a/still_alive/display_lyrics.s b/still_alive/display_lyrics.s
index df2ce70a..8dc0b962 100644
--- a/still_alive/display_lyrics.s
+++ b/still_alive/display_lyrics.s
@@ -57,6 +57,17 @@ lyric_char:
 	ldy	CH
 	sta	(BASL),Y
 	pla
+
+	ldy	FORTYCOL		; if 40col, convert to UPPERCASE
+	beq	just_output_already
+	cmp	#'a'+$80
+	bcc	just_output_already
+	cmp	#'z'+$80
+	bcs	just_output_already
+
+	and	#$DF
+
+just_output_already:
 	jsr	COUT1			; output the character
 
 lyric_continue: