From 43285fed2f64cbe3233d38cb749c7a2080943834 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 9 Jul 2024 02:16:09 -0400 Subject: whichbas: improve INKEY$/semicolon logic. --- whichbas.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/whichbas.c b/whichbas.c index 6d7fbf4..46353bc 100644 --- a/whichbas.c +++ b/whichbas.c @@ -482,8 +482,8 @@ CALLBACK(handle_op) { } else if(last_op_tok == OP_STR_ASSIGN) { /* catches A$=INKEY$, for what that's worth. */ remove_type(BT_BXL_BXE); - } else if(last_op_tok == OP_NUMCONST || last_op_tok == OP_HEXCONST || last_op_tok == OP_STRCONST || last_op_tok >= 0x80) { - /* INKEY$ can't directly follow a constant or a variable. */ + } else if(last_op_tok == OP_GRP_RPAR || last_op_tok == OP_NUMCONST || last_op_tok == OP_HEXCONST || last_op_tok == OP_STRCONST || last_op_tok >= 0x80) { + /* INKEY$ can't directly follow a constant, a variable, or a right-paren. */ remove_type(BT_TURBO); } else if(nexttok == OP_NUMCONST || nexttok == OP_HEXCONST || nexttok >= 0x80 || nexttok == OP_GRP_LPAR) { /* INKEY$ may not be followed by a numeric constant or a variable of any kind, or -- cgit v1.2.3