'*** start main program loop
Do
'StartTime = Timer
Watchdog 8000
esp$=Input$(1,#2)
'Print esp$;
buff$=buff$+esp$
if esp$=chr$(10) or esp$=chr$(62) or esp$=chr$(125) then
if esp$=chr$(10) then 'terminator is line feed

if instr(buff$,"NTP:") then
time$=parse$(buff$,4," ") 'set the clock from NTP
endif

elseif esp$=chr$(62) then 'terminator is >

if instr(buff$,"getdata:>") then
'print "Queue items:";r
SendEsp 'send next item in the queue, success is in r
endif
'
else 'terminator is }
'json
parseJson
endif

sub parseJson
'print "Parse Json from: "; buff$
if instr(buff$,"temp") then
print "Temperature: " + jsonValue$(buff$,"temp",6)
endif
if instr(buff$,"humidity") then
print "Humidity:";jsonValue$(buff$,"humidity",10)
endif
if instr(buff$,"pressure") then
print "Pressure:";jsonValue$(buff$,"pressure",10)
endif
if instr(buff$,"speed") then
print "Wind Speed:";jsonValue$(buff$,"speed",7)
endif
end sub

function jsonValue$(json$,jsonParam$,b)
local a,c
'print "json$:";json$
'print "jsonparam$:";jsonparam$
'print b
'locate parameter
a=instr(json$,jsonparam$)
'print "A is:";a
if a>0 then 'retrieve value
c=instr(a+b,json$,",")
if c>0 then
jsonvalue$=mid$(json$,a+b,c-(a+b))
endif
endif
end function