From b13f58cab38be2e0543161aa1eab7760ab1ee3d4 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Sun, 7 Jul 2024 06:03:22 -0400
Subject: whichbas: improve (%0 %1 %2), (LEFT$ RIGHT$ MID$) op logic.

---
 whichbas.c | 3 +++
 1 file changed, 3 insertions(+)

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);
-- 
cgit v1.2.3