From 4e8a802fc18ec5ad7390f21010e12053928693f8 Mon Sep 17 00:00:00 2001
From: Richard Russell <richard@rtrussell.co.uk>
Date: Sun, 16 Feb 2025 15:03:39 +0000
Subject: [PATCH] Fixed lexical analysis of DATA

---
 bin/acorn/BBCBASIC.COM | Bin 19200 -> 19200 bytes
 bin/cpm/BBCBASIC.COM   | Bin 18944 -> 18944 bytes
 src/MAIN.Z80           |   5 +++--
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/acorn/BBCBASIC.COM b/bin/acorn/BBCBASIC.COM
index f84009758f685bcf6a5e15ad6aa64d80d7f16f14..45a2f797926c508aafc8e539d60c86a175d8ef28 100644
GIT binary patch
delta 40
ycmV+@0N4M3mH~j40kBRD85aI3C>FQ$j0yhSC=ULQI0pWdFapLv{`9kF4VgVtH4&o#

delta 40
ycmV+@0N4M3mH~j40kBRD84~^~C>FQ$j0ygaI0pWdFapLv{`4pW{@k-?4VgVqff1De

diff --git a/bin/cpm/BBCBASIC.COM b/bin/cpm/BBCBASIC.COM
index 3080fdb1d3174e44af5cb589b4a53177dac4c7ca..87c6efde2ce4da953e2810ddec23b9f79f4a47e5 100644
GIT binary patch
delta 40
ycmV+@0N4M3lmUR00kBRE85aI3C>FQ$j0*nTC=ULQI0pWdFapLv{`9kF4w*Yr))Alp

delta 40
ycmV+@0N4M3lmUR00kBRE84~^~C>FQ$j0*mbI0pWdFapLv{`4pW{@k-?4w*YpA`y}R

diff --git a/src/MAIN.Z80 b/src/MAIN.Z80
index a578d9f..35bccdc 100644
--- a/src/MAIN.Z80
+++ b/src/MAIN.Z80
@@ -12,6 +12,7 @@
 ;VERSION 3.0, 01-03-1987
 ;VERSION 5.0, 31-05-2024
 ;VERSION 5.1, 10-08-2024
+;VERSION 5.2, 16-02-2025
 ;
 	EXTRN	XEQ
 	EXTRN	RUN0
@@ -2107,14 +2108,14 @@ LEXAN7:	CP	'*'
 	JR	Z,LEXAN9
 	OR	A
 	CALL	P,LEX		;TOKENISE IF POSS.
+	CP	TDATA
+	JR	Z,LEXAN9
 	CP	TOKLO
 	JR	C,LEXAN8
 	CP	TOKHI+1
 	JR	NC,LEXAN8
 	ADD	A,OFFSET	;LEFT VERSION
 LEXAN8:	CP	TREM
-	JR	Z,LEXAN9
-	CP	TDATA
 	JR	NZ,LEXANA
 LEXAN9:	SET	6,C		;QUIT TOKENISING
 LEXANA:	CP	TFN