From 0a467ecc7e5106d890097b2d52ef64fb679e989e Mon Sep 17 00:00:00 2001
From: Nicolas Boulenguez <nicolas.boulenguez@free.fr>
Date: Sat, 16 Nov 2024 11:59:58 +0100
Subject: [PATCH] basic: read ^2 as two separate tokens

---
 impls/basic/reader.in.bas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/impls/basic/reader.in.bas b/impls/basic/reader.in.bas
index 5301904135..4504289e64 100644
--- a/impls/basic/reader.in.bas
+++ b/impls/basic/reader.in.bas
@@ -8,7 +8,7 @@ READ_TOKEN:
   GOSUB READ_CHAR
   IF C$=";" THEN GOSUB SKIP_TO_EOL:GOTO READ_TOKEN
   T$=C$
-  IF T$="(" OR T$=")" OR T$="[" OR T$="]" OR T$="{" OR T$="}" OR T$="'" OR T$="`" OR T$="@" THEN RETURN
+  IF T$="(" OR T$=")" OR T$="[" OR T$="]" OR T$="{" OR T$="}" OR T$="'" OR T$="`" OR T$="@" OR T$="^" THEN RETURN
   GOSUB PEEK_CHAR: REM peek at next character
   IF T$="~" AND C$<>"@" THEN RETURN
   S1=0:S2=0: REM S1: INSTRING?, S2: ESCAPED?