# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1671775729 25200
# Node ID 1568fa902257b4c3542d54f604739af83c4d1bac
# Parent  cc7e60e51c07c94f7b209e45094bcd7d6894959a
Fix error in calculating match length during tokenization

diff -r cc7e60e51c07 -r 1568fa902257 src/lwbasic.s
--- a/src/lwbasic.s	Wed Dec 21 23:40:16 2022 -0700
+++ b/src/lwbasic.s	Thu Dec 22 23:08:49 2022 -0700
@@ -1572,7 +1572,7 @@
                 lda ,x+                         ; get character
                 bra tokenize2                   ; stash it and continue
 tokenize11      ldx ,s                          ; get back start of input token
-                lda #-1                         ; initilize match length (-1 to compensate for inca below)
+                clra                            ; initalize match length counter
 tokenize12      inca                            ; bump length counter
                 ldb ,x+                         ; get input character
                 cmpb #'z                        ; is it above lower case Z?