whichbas: detect compiled Turbo.

1 files changed, 4 insertions, 0 deletions

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);