From bd92bf5e59e97ebd67aa6309c7012537c41be87a Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Mon, 10 Mar 2025 04:11:38 -0400
Subject: listbas: abort if whichbas says this isn't atari BASIC or a variant.

---
 listbas.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'listbas.c')

diff --git a/listbas.c b/listbas.c
index e7b5002..9457745 100644
--- a/listbas.c
+++ b/listbas.c
@@ -1069,6 +1069,13 @@ void set_bas_dialect(int d) {
 		case SRET_BXE:
 			bas_type = d;
 			break;
+		case SRET_AMSB:
+			die("This is an Atari Microsoft BASIC program. Use listamsb.");
+			break;
+		case SRET_COMPILED_TURBO:
+		case SRET_NOT_BASIC:
+			die("This is not any kind of BASIC program I know about.");
+			break;
 		default:
 			fprintf(stderr, "whichbas results ambiguous; guessing Turbo BASIC\n");
 			bas_type = SRET_TURBO;
-- 
cgit v1.2.3