listbas: abort if whichbas says this isn't atari BASIC or a variant.

1 files changed, 7 insertions, 0 deletions

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;