From 96dc62e466855ba951ea4d89f75e7f081af02987 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Sun, 7 Jul 2024 04:50:14 -0400 Subject: whichbas: add HEX$/FIND( op. --- whichbas.c | 9 +++++++++ 1 file changed, 9 insertions(+) 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 */ -- cgit v1.2.3