diff options
| -rw-r--r-- | whichbas.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -275,10 +275,16 @@ CALLBACK(handle_op) { switch(tok) { case 0x55: /* DPEEK (function) TB, USING (infix, not a function) in BXL/BXE */ - case 0x58: /* INSTR (function) or & (infix numeric) */ + case 0x58: /* INSTR (function) or & (infix numeric) in BXE. Note that + BXL has this as another END token, which works like the + regular END, but cannot be entered in the editor so unlikely + to show up in a program (but we handle it here anyway) */ case 0x5b: /* HEX$ (func, takes 1 num arg) or FIND( (pseudo-func, 3 args */ if(nexttok == OP_FUNC_LPAR) { remove_type(BT_BXL_BXE); + } else if(nexttok == OP_EOS || nexttok == OP_EOL) { + /* weird BXL END token */ + remove_type(BT_TURBO | BT_BXE); } else { remove_type(BT_TURBO); } |