diff options
| author | B. Watson <urchlay@slackware.uk> | 2024-07-09 02:16:09 -0400 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2024-07-09 02:16:09 -0400 |
| commit | 43285fed2f64cbe3233d38cb749c7a2080943834 (patch) | |
| tree | d0562bd778523bbcc3909e95d20e6d7419b159f8 | |
| parent | cc70315865cf02618f70aaaa75d9688d35d0de85 (diff) | |
| download | bw-atari8-tools-43285fed2f64cbe3233d38cb749c7a2080943834.tar.gz | |
whichbas: improve INKEY$/semicolon logic.
| -rw-r--r-- | whichbas.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |