From a2a2a8437246ea12bbce0c133538617e49c43a90 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Tue, 9 Jul 2024 03:14:02 -0400
Subject: whichbas: detect compiled Turbo.

---
 whichbas.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'whichbas.c')

diff --git a/whichbas.c b/whichbas.c
index 46353bc..2911883 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -27,6 +27,7 @@ int bas_type = 0x0f; /* start out with all enabled */
 #define SRET_UKNOWN_DERIV         10
 #define SRET_AMSB                 11
 #define SRET_EXTENDED_BXE         12
+#define SRET_COMPILED_TURBO       13
 #define SRET_NOT_BASIC            32
 
 int script_mode = 0; /* -s flag */
@@ -712,6 +713,9 @@ void detect_foreign(void) {
 		return;
 	}
 
+	if(c == 0xfb && d == 0xc2)
+		foreign("Compiled Turbo BASIC XL", SRET_COMPILED_TURBO);
+
 	if(c == 0xff && d == 0xff)
 		foreign("XEX executable (not BASIC at all!)", SRET_NOT_BASIC);
 
-- 
cgit v1.2.3