aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--whichbas.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/whichbas.c b/whichbas.c
index 3459d06..be21435 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -232,9 +232,13 @@ CALLBACK(handle_cmd) {
remove_type(BT_BXE);
}
break;
- case 0x59: /* TEXT (1st arg is number), PROCEDURE (arg is string const (not var!)) */
+ case 0x59: /* TEXT or PROCEDURE */
+ /* Turbo: TEXT (1st arg is number),
+ BXL: invalid token,
+ BXE: PROCEDURE (arg is string const (not var!)) */
if(nexttok == OP_STRCONST) {
- remove_type(BT_TURBO);
+ /* this token doesn't seem to be valid in BXL at all */
+ remove_type(BT_TURBO | BT_BXL);
} else {
remove_type(BT_BXL_BXE);
}