If Count >= MAXFIELDS-1 Then
Print "Count: "; Counr
Print "Record$: :; Record$
Print "Index: "; Index
EndIf

' Test program to demonstrate record splitting into a
' multi field array
option explicit
option base 1
dim record$ = "Field 1,"
record$ = record$+chr$(34)+"Field 2, in quotes and embedded delimiter"+chr$(34)+","
record$ = record$+"Field 3"
dim x
dim KeepQuotes = 0
dim Delimiter$ = ","
dim GetFieldArray$(3)
dim fields = 0
' call GFieldArray function which returns number of fields
' - it also fills the array GetFieldArray$()
' - we have KeepQotes = 0 here so no quotes in field 2
fields = GFieldArray(Record$,Delimiter$,KeepQuotes)
print "Field count = ",fields
print
Print "Pass 1 with no quotes passed to output"
for x = 1 to fields
print "Field ",x," = ",GetFieldArray$(x)
next x
print
' empty out array
for x = 1 to fields
GetFieldArray$(x) = ""
next x

' do it again with KeepQuotes set to 1
print "Pass 2 with quotes to be included in output"
KeepQuotes = 1
fields = GFieldArray(Record$,Delimiter$,KeepQuotes)
for x = 1 to fields
print "Field ",x," = ",GetFieldArray$(x)
next x
end

' Subroutines
Function GFieldArray(Record$, Delimiter$, KeepQuotes)
LOCAL Index, Char, InQuote, FieldCount
InQuote = 0
FieldCount = 1
' If no delimiter is provided use a comma
IF Delimiter$ = "" then Delimiter$ = ","
' Loop through all the characters in Record$
FOR Index = 1 to LEN(Record$)
Char = asc(MID$(Record$, Index, 1))
IF Char = 34 THEN 'check for quote character
' Flip InQuote between 0 and 1.
if KeepQuotes = 1 then 'only add quotes when KeepQuotes is 1
GetFieldArray$(FieldCount) = GetFieldArray$(FieldCount) + chr$(char)
endif
InQuote = NOT InQuote
elseIF char = ASC(Delimiter$) then ' check for delimiter
if InQuote then ' if in quotes, plug delimiter into array
GetFieldArray$(FieldCount) = GetFieldArray$(FieldCount) + chr$(char)
else ' next field
FieldCount = FieldCount + 1
endif
else
' Only collect characters for the requested field.
'plug in the character
GetFieldArray$(FieldCount) = GetFieldArray$(FieldCount) + chr$(char)
ENDIF
NEXT
GFieldArray = FieldCount
End Function

'------------------
'init var
dim tcpt1 as integer 'value of time out counter
dim tcpt2 as integer 'value of display counter
dim tcptmax as integer 'value max of time out
dim tcptmax2 as integer 'value of display time
SETTICK 100, gpsto (or settick 100, gpsto,x 'x=n° couter if use more than 1 coutner

'---------------
'in setup
tcpt1=0
tcptmax=30 'wait 3 sec time out
tcptmax2=50 'display msg during 5 sec

'-------------------
'after gps on
tcpt1=1 to begin couting
'-------------------
'in main loop
'...
'... others tasks
'...
' if not use COM time-out you must put this
tcpt1=1 'for begin couting time out "no response"
'gps read 'and goto read COM gps
'
'if gps value is correct
tcpt1=1 'raz time-out
tcpt2=0 'raz display
'...
'...
'----------------
'in interrupt sp
gpsto:
if tcpt2=0 then
tcpt2=1 'flag display is done
Text 150,150," " , LM, 2, 3, RGB(BLACK), RGB(WHITE) 'Print the
end if

if tcpt1<tcptmax then
if tcpt1>0 then tcpt1=tcpt1+1
else
if tcpt1=tcptmax then
tcpt1=tcpt1+1 'to indicat timeout is on and no display next time
Text 150,150,"GPS LOCK LOST" , LM, 2, 3, RGB(BLACK), RGB(WHITE) 'Print
tcpt2=1 'begin counting display time
'and add other instruct if necessary
else
if tcpt2<tcptmax2 then
if tcpt2>0 then tcpt2=tcpt2+1
else
tcpt2=0 'for raz display in next loop
end if
end if
end if

ireturn

PS This Weather station is a big proect
'Generic words used for hours, minutes and seconds, these need to be properly coded

'Define the pins used for the midday and hourly chimes
CONST middayPin xx
CONST hourPin 91

'HourFlag > 0 play chimes, value is number of hourly chimes to play + 1
DIM INTEGER HourFlag = 0

'Check if we are on the hour and have not started the chimes
IF (minutes = 0) AND (seconds = 0) AND (HourFlag = 0) THEN
HourFlag = (hours mod 12) + 1 '+1 used to stop midday from multiple triggering
SETTICK 4400, HourChime, 2 'Using tick 2 as hourly chime delay
IF HourFlag = 1 THEN
PULSE middayPin, 150 'Play the midday chime
ELSE
HourChime 'Play first hourly chime
ENDIF
ENDIF

'Play the hourly chime stop when all done
SUB HourChime
HourFlag = HourFlag - 1 'count them down
IF HourFlag = 0 THEN 'If we just played the last one needed
SETTICK 0,,2 'then reset the tick we were using
ELSE
PULSE hourPin, 150 'Play the hourly chime
ENDIF
ENDSUB

CONST middayPin = 90
CONST hourPin = 91

'Remove the Hours, Minutes and Seconds lines at the top

PULSE 96, 150

IF (Val(Mid$(Time$,4,2)) = 0) AND (Val(right$(Time$,2)) = 0) AND (HourFlag = 0) THEN

tim$ = FieldArray$(18) 'time from ESP2866/ntp SERVER
tim2$ = mid$(tim$,12,8) 'Curent time ready to send to Micromite or RTC
print TIME2$
TIME$ = tim2$ [/CODE}

Some of the time it works
other times randomly it comes up with the error
[quote][187] Time$ = tim2$ 'update Micromite clock
Error: Syntax[/quote]

The string received from the ESP866 is

7.23,04d,10.19,997,5.1,130,62,8.35,11,96,10000,broken clouds,Clouds,987.64,1.72,7.11,8.39,Rain,Wed Mar 14 14:55:47 2018 ,*

IF TIMEFLAG=0 THEN
TIME$=MID$(tim2$,LEN(tim2$)-15,8)
TIMEFLAG=1
ENDIF