From c150802bc351b221f380e295afe1239ad70de50b Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Wed, 17 Jul 2024 04:40:53 -0400
Subject: listbas: support all 256 variable names in Turbo BASIC.

---
 bas.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'bas.c')

diff --git a/bas.c b/bas.c
index cf03f38..e5df296 100644
--- a/bas.c
+++ b/bas.c
@@ -394,6 +394,11 @@ void walk_code(unsigned int startlineno, unsigned int endlineno) {
 				while(pos < end) {     /* loop over operators */
 					tok = program[pos];
 					switch(tok) {
+						case 0: /* Turbo variables numbered >= $80 */
+							CALL(on_exp_token);
+							/* on_exp_token callback better know what to do with $00! */
+							pos += 2;
+							break;
 						case OP_NUMCONST:
 							CALL(on_exp_token);
 							pos++;
-- 
cgit v1.2.3