From 0b6f897c4551d1af18f88f84f6390af39d62284f Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Thu, 13 May 2021 15:06:49 -0400
Subject: Show default at y/n prompts (costs 7 bytes, now 8838)

---
 timed_getch.s | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'timed_getch.s')

diff --git a/timed_getch.s b/timed_getch.s
index f4c8431..1ee158f 100644
--- a/timed_getch.s
+++ b/timed_getch.s
@@ -174,7 +174,10 @@ _numgetc:
 ; extern unsigned char __fastcall__ yngetc(char dflt);
 _yngetc:
  sta FR0 ; stash default arg
- jsr _lcgetc
+ ora #$80 ; show user the default (or a regular cursor if none)
+ jsr putchar
+ jsr _agetc_no_cursor
+ ora #$50 ; lowercase
  cmp #'y'  ; return y or n immediately
  beq ok
  cmp #'n'
-- 
cgit v1.2.3