From 4da72392df617b90ba0f43bd268ed6ab11a7e98f Mon Sep 17 00:00:00 2001 From: Nicolas Boulenguez Date: Sat, 16 Nov 2024 15:25:43 +0100 Subject: [PATCH] basic: read ^2 as two separate tokens Extending the previous line triggers 'LINE TOO LONG'. --- impls/basic/reader.in.bas | 1 + 1 file changed, 1 insertion(+) diff --git a/impls/basic/reader.in.bas b/impls/basic/reader.in.bas index 5301904135..67bc8db1da 100644 --- a/impls/basic/reader.in.bas +++ b/impls/basic/reader.in.bas @@ -9,6 +9,7 @@ READ_TOKEN: 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$="^" 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?