From 4c85af2cc4cc79b9e2531ea670e1ad2b772b3003 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 23 Sep 2023 17:29:28 +0200
Subject: [PATCH] sxsyn, allow $1 as identifier

---
 src/u_sxsyn.pas | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/src/u_sxsyn.pas b/src/u_sxsyn.pas
index 143d189d..1b1b6b48 100644
--- a/src/u_sxsyn.pas
+++ b/src/u_sxsyn.pas
@@ -675,21 +675,12 @@ begin
   while fTokStop <= fLineBuf.length do
   begin
     case fLineBuf[fTokStop] of
-      '_', 'a'..'z', 'A'..'Z':
+      '_', 'a'..'z', 'A'..'Z', '0'..'9':
       begin
         oneChr    := true;
         fTokStop  += 1;
         continue;
       end;
-      '0' .. '9':
-      begin
-        if oneChr then
-        begin
-          fTokStop  += 1;
-          continue;
-        end
-        else break; // e.g $0
-      end
       else break;
     end;
   end;