whichbas: improve (%0 %1 %2), (LEFT$ RIGHT$ MID$) op logic.

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);