From 133e953589904d8fa81f291dc15ab73b925d1914 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Wed, 17 Jul 2024 01:45:09 -0400
Subject: listbas: quit emitting ANSI color codes in ATASCII output (derp!),
 print ERROR- the same way BASIC does.

---
 listbas.c | 2 +-
 tokens.c  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/listbas.c b/listbas.c
index f35b410..448ee8d 100644
--- a/listbas.c
+++ b/listbas.c
@@ -170,7 +170,7 @@ void parse_args(int argc, char **argv, int from_env) {
 	while( (opt = getopt(argc, argv, "Db:UCviamnBdhxulc:")) != -1) {
 		switch(opt) {
 			case 'U': output_mode = M_UTF8;    break;
-			case 'a': output_mode = M_ATASCII; break;
+			case 'a': output_mode = M_ATASCII; color = 0; break;
 			case 'm': output_mode = M_MAG;     break;
 			case 'd': output_mode = M_DOTS;    break;
 			case 'x': output_mode = M_UTF8_I;  break;
diff --git a/tokens.c b/tokens.c
index 744fd51..675d220 100644
--- a/tokens.c
+++ b/tokens.c
@@ -54,7 +54,7 @@ const char *commands[] = {
 	"CSAVE",    /* $34 */
 	"CLOAD",
 	"",         /* $36, implied LET */
-	"ERROR -"   /* $37 */
+	"ERROR-  "  /* $37 */
 };
 
 const unsigned short last_command = (sizeof(commands) / sizeof(char *)) - 1;
-- 
cgit v1.2.3