From af030cc065258ded70876df12c1613a5c59c7b9d Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Fri, 5 Jul 2024 16:38:48 -0400
Subject: bas.c: vntable_ok() no longer thinks the var name table is bad if
 it's only one byte long.

---
 bas.c | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/bas.c b/bas.c
index efb985e..13385f1 100644
--- a/bas.c
+++ b/bas.c
@@ -171,15 +171,19 @@ int vntable_ok(void) {
 	/* first pass: bad = 1 if all the bytes in the table have the same
 		value, no matter what it is. */
 	vp = vnstart + 1;
-	bad = 1;
-	while(vp < vvstart - 1) {
-		if(program[vp] != program[vnstart]) {
-			bad = 0;
-			break;
+
+	/* don't do this check if the table is only one byte long! */
+	if(vp < vvstart - 1) {
+		bad = 1;
+		while(vp < vvstart - 1) {
+			if(program[vp] != program[vnstart]) {
+				bad = 0;
+				break;
+			}
+			vp++;
 		}
-		vp++;
+		if(bad) return 0;
 	}
-	if(bad) return 0;
 
 	/* 2nd pass: bad = 1 if there's any invalid character in the table. */
 	vp = vnstart;
-- 
cgit v1.2.3