aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--whichbas.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/whichbas.c b/whichbas.c
index 2bb3778..fcad6a0 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -343,6 +343,9 @@ CALLBACK(handle_op) {
if(nexttok == OP_STRCONST || nexttok >= 0x80) {
/* %0 %1 %2 can't be followed by a string constant *or* a variable */
remove_type(BT_TURBO);
+ } else {
+ /* whereas LEFT$ RIGHT$ MID$ can't be followed by anything else */
+ remove_type(BT_BXL_BXE);
}
}
if(verbose) fprintf(stderr, " bas_type now %02x\n", bas_type);