From 9b2fa6472b78828f4af74ecc6992fb75a290b2f5 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Thu, 13 May 2021 17:19:22 -0400
Subject: Uppercase Y/N, costs 2 bytes (now 8836)

---
 timed_getch.s | 1 +
 1 file changed, 1 insertion(+)

(limited to 'timed_getch.s')

diff --git a/timed_getch.s b/timed_getch.s
index 1ee158f..eb29a29 100644
--- a/timed_getch.s
+++ b/timed_getch.s
@@ -175,6 +175,7 @@ _numgetc:
 _yngetc:
  sta FR0 ; stash default arg
  ora #$80 ; show user the default (or a regular cursor if none)
+ and #$bf ; (uppercase)
  jsr putchar
  jsr _agetc_no_cursor
  ora #$50 ; lowercase
-- 
cgit v1.2.3