From 4451e2f2ef709ad4ad0e519a0310cc1e31c0d25a Mon Sep 17 00:00:00 2001
From: XANTRONIX Development
Date: Wed, 13 Sep 2023 00:56:39 -0400
Subject: Gosh that's awfully convincing

---
 main.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/main.c b/main.c
index 1eed7e2..488d230 100644
--- a/main.c
+++ b/main.c
@@ -264,6 +264,8 @@ static inline enum zx_basic_token_type zx_basic_token_type_get(uint8_t b) {
         if ((codepoint >= 'A' && codepoint <= 'Z')
          || (codepoint >= '0' && codepoint <= '9')) {
             return ZX_BASIC_TOKEN_ALNUM;
+        } else if (codepoint == '"') {
+            return ZX_BASIC_TOKEN_QUOTE;
         } else {
             return ZX_BASIC_TOKEN_SYMBOL;
         }
@@ -319,7 +321,7 @@ static ssize_t zx_dump_basic(int fd) {
             break;
         }
 
-        if (printf("%d", (int)be16toh(line.num)) < 0) {
+        if (printf("%d ", (int)be16toh(line.num)) < 0) {
             goto error_io;
         }
 
@@ -339,10 +341,16 @@ static ssize_t zx_dump_basic(int fd) {
                 if (type_last == ZX_BASIC_TOKEN_WORD) {
                     space = 1;
                 }
+            } else if (type == ZX_BASIC_TOKEN_QUOTE) {
+                if (type_last == ZX_BASIC_TOKEN_WORD) {
+                    space = 1;
+                }
             } else if (type == ZX_BASIC_TOKEN_SYMBOL) {
                 space = 0;
             } else if (type == ZX_BASIC_TOKEN_WORD) {
-                space = 1;
+                if (type_last != ZX_BASIC_TOKEN_SYMBOL) {
+                    space = 1;
+                }
             } else if (ZX_CHAR_TOKEN_INTEGRAL(c) || ZX_CHAR_TOKEN_FLOAT(c)) {
                 i += 5;
             }
-- 
cgit v1.2.3