whichbas: add HEX$/FIND( op.

1 files changed, 9 insertions, 0 deletions

diff --git a/whichbas.c b/whichbas.c
index 8bd6d9a..8f44998 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -284,7 +284,16 @@ CALLBACK(handle_op) {
 	}
 
 	/* 5a: EXOR (infix num op) or BUMP( (pseudo-function, no OP_FUNC_LPAR) */
+
 	/* 5b: HEX$ (func, takes 1 num arg) or FIND( (pseudo-func, 3 args */
+	if(tok == 0x5b) {
+		if(nexttok == OP_FUNC_LPAR) {
+			remove_type(BT_BXL_BXE);
+		} else {
+			/* BXL/BXE token FIND( includes the (, there's no OP_FUNC_LPAR */
+			remove_type(BT_TURBO);
+		}
+	}
 
 	if(tok == 0x5c) {
 		/* DEC (function, takes str) in TB, HEX$ (function, takes num) in BXL/BXE */