From fac773ef377c6439fa589d1c2a76c817b349a379 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Mon, 8 Jul 2024 22:53:34 -0400
Subject: whichbas: cmd token 0x59: PROCEDURE doesn't exist in BXL, only BXE.

---
 whichbas.c | 8 ++++++--
 1 file 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);
 			}
-- 
cgit v1.2.3