From 9b46fa29695efed9a3c7e3ba891e8f69ee155e02 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 16 Jul 2024 02:34:58 -0400 Subject: listbas: initial (incomplete) support for BASIC/A+. --- listbas.c | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'listbas.c') diff --git a/listbas.c b/listbas.c index c9a6da2..d542bcd 100644 --- a/listbas.c +++ b/listbas.c @@ -12,8 +12,8 @@ #include "bcdfp.h" #include "tokens.h" #include "turbo_tokens.h" -/* #include "aplus_tokens.h" +/* #include "bxl_tokens.h" #include "bxe_tokens.h" */ @@ -490,9 +490,11 @@ void op_color_on(unsigned char tok) { color_on(color_cmd); return; default: - color_on(color_op); + break; } } + + color_on(color_op); } CALLBACK(print_op) { @@ -596,11 +598,8 @@ void init_bas_tables() { } void init_aplus_tables() { - die("BASIC A+ not supported yet!"); - /* - memmove(cmd_tokens, aplus_commands, (last_aplus_command + 1) * sizeof(char *)); - memmove(op_tokens, aplus_operators, (last_aplus_operator + 1) * sizeof(char *)); - */ + memmove(cmd_tokens, aplus_cmds, aplus_cmd_size); + memmove(op_tokens, aplus_ops, aplus_ops_size); } void init_turbo_tables() { -- cgit v1.2.3