listbas: quit emitting ANSI color codes in ATASCII output (derp!), print ERROR- the same way BASIC does.

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;