listbas: properly colorize BXE functions with ( as part of the name.

2 files changed, 8 insertions, 4 deletions

diff --git a/TODO b/TODO
index 848f39b..d98144a 100644
--- a/TODO
+++ b/TODO
@@ -1,4 +1,7 @@
 for now:
+
+listbas - Turbo BASIC tokens for variables 128-255 not recognized.
+
 These may need library (xex.c) changes:
 xexcat: handle run/init addresses embedded in a segment longer than
   2 bytes. Implemented in library, but not used by xexcat yet.
diff --git a/listbas.c b/listbas.c
index 5972aa8..bcdb052 100644
--- a/listbas.c
+++ b/listbas.c
@@ -64,18 +64,18 @@
 const char *cmd_tokens[256];
 const char  *op_tokens[256];
 
-int dump_tables = 0;
-
-int bas_type = B_ATARI;
+int bas_type = B_ATARI; /* -b */
 
 int output_mode = M_UTF8;
 
-int bold =        0;  /* 1 with -b */
+int bold =        0;  /* 1 with -B */
 int color =       1;  /* 0 with -n */
 int immediate =   0;  /* 1 with -i */
 int underline =   0;  /* 1 with -u */
 int skip_lineno = 0;  /* 1 with -l */
+int dump_tables = 0;  /* 1 with -D */
 
+/* change these with -c */
 int color_cmd =       C_YELLOW;
 int color_op  =       C_GREEN;
 int color_func =      C_PURPLE;
@@ -414,6 +414,7 @@ void print_mixed_case(const char *name) {
 	while(( c = *name++)) {
 		if(c >= 'A' && c <= 'Z')
 			c |= 0x20;
+		if(color && c == '(') color_on(color_op);
 		outchr(c);
 	}
 }