AT version:1.7.4.0(May 11 2020 19:13:04)
SDK version:3.0.4(9532ceb)
compile time:May 27 2020 10:12:17
Bin version(Wroom 02):1.7.4

Fatal exception (28):
epc1=0x40001800, epc2=0x00000000, epc3=0x00000000, excvaddr=0x00007ff0, depc=0x00000000
Fatal exception (28):
epc1=0x40001800, epc2=0x00000000, epc3=0x00000000, excvaddr=0x00007ff0, depc=0x00000000
Fatal exception (28):
epc1=0x40001800, epc2=0x00000000, epc3=0x00000000, excvaddr=0x00007ff0, depc=0x00000000
Fatal exception (28):
epc1=0x40001800, epc2=0x00000000, epc3=0x00000000, excvaddr=0x00007ff0, depc=0x00000000
Fatal exception (28):
epc1=0x40001800, epc2=0x00000000, epc3=0x00000000, excvaddr=0x00007ff0, depc=0x00000000
Fatal exception (28):
epc1=0x40001800, epc2=0x00000000, epc3=0x00000000, excvaddr=0x00007ff0, depc=0x00000000
...

if NOT OKwait(4000) then errorexit("AT+CWMODE_CUR=1")

open "COM2:115200,512" as #1
print #1,"AT"+chr$(13)+chr$(10)
print input$(2,1)

open "COM2:115200,512" as #1
print #1,"AT"+chr$(13)+chr$(10);
pause 500
print input$(loc(#1),#1)

Weather for
Temperature is  -273
Pressure is    ain.temp
ain.temp

' weather.bas
option explicit
option default none
Dim MYID$="MyID"
Dim APIKEY$="MyKey"
Dim report$="weather"
dim b$= "GET /data/2.5/"+report$+"?id="+MYID$+"&APPID="+APIKEY$
Dim m%(8000)
b$=b$+" HTTP/1.0"+Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)

if instr(mm.device$,"Pico") then
 SetPin 21,uart0tx:SetPin 22,uart0rx
 open "com0:115200,8192" as #1
elseif instr(mm.device$,"F4") then
 open "com3:115200,8192" as #1
else
 print "COM PORT OPEN COMMAND NEEDED"
 end
endif
LongString clear m%()
print #1,"AT+CWMODE_CUR=1"+chr$(13)+chr$(10);
if NOT OKwait(4000) then errorexit("AT+CWMODE_CUR=1")
print #1,"AT+CWJAP_CUR="+chr$(34)+"MyAP"+chr$(34)+","+chr$(34)+"MyPW"+chr$(34)+chr$(13)+chr$(10);
if NOT OKwait(10000) then errorexit("AT+CWJAP_CUR=")
print #1,"AT+CIPSTART="+chr$(34)+"TCP"+chr$(34)+","+chr$(34)+"api.openweathermap.org"+chr$(34)+",80"+chr$(13)+chr$(10);
if NOT OKwait(10000) then errorexit("AT+CIPSTART=")
print #1,"AT+CIPMODE=1"+chr$(13)+chr$(10);
if NOT OKwait(4000) then errorexit("AT+CIPMODE=1")
print #1,"AT+CIPSEND"+chr$(13)+chr$(10);
if NOT OKwait(4000) then errorexit("AT+CIPSEND")
print #1,b$;
getinput(10000)
'longstring print m%()
Print "Weather for "+json$(m%(),"name")
if instr(mm.device$,"Pico") then
 Print "Temperature is ",val(json$(m%(),"temp"))-273
 Print "Pressure is ",json$(m%(),"pressure")
 Print json$(m%(),"description")
else
 Print "Temperature is ",val(json$(m%(),"main.temp"))-273
 Print "Pressure is ",json$(m%(),"main.pressure")
 Print json$(m%(),"weather[0].description")
endif
print #1,"+++";
pause 1000
print #1,"AT+CIPMODE=0"+chr$(13)+chr$(10);
if NOT OKwait(4000) then errorexit("AT+CIPMODE=0")
print #1,"AT+CIPCLOSE"+chr$(13)+chr$(10);
if NOT OKwait(4000) then errorexit("AT+CIPCLOSE")
end

function OKwait(timeout as integer) as integer
OKwait=1
timer=0
do
loop until input$(1,1)="O" or timer>=timeout
do
loop until input$(1,1)="K" or timer>=timeout
if timer>=timeout then OKwait=0
end function

sub errorexit(calling as string)
print "AT call timeout from - ",calling
print #1,"AT+CIPCLOSE"+chr$(13)+chr$(10)
end
end sub

sub getinput(waitpause as integer)
local a$
local j%,i%=-1
timer=0
do
a$=input$(1,1)
If a$<>"" Then
LongString append m%(),a$
' print a$;
if a$="{" then
if i%=-1 then
i%=1
else
i%=i%+1
endif
endif
if a$="}" then i%=i%-1
endif
loop while timer<=waitpause and i%<>0
LongString trim m%(),LInStr(m%(),"{")-1
print ""
end sub

Function json$(ls%(),key$)
 local integer i,j,k,l,m
 local string a,b
 m=1
 json$=""
 Do
   i=LInStr(ls%(),key$,m)
'    Print key$,i
   If i Then
     a=LGetStr$(ls%(),i-1,1)
     b=LGetStr$(ls%(),i+Len(key$),1)
'      Print "|";a;"|","|";b;"|";
     If a=Chr$(34) And b=Chr$(34) Then ' found the key
       j=LInStr(ls%(),",",i+Len(key$)+2)
       If j>0 Then
         k=i+Len(key$)+2
         a=LGetStr$(ls%(),k,j-k)
'          Print a
         If Mid$(a,1,1)=Chr$(34) Then ' remove "s
           a=Mid$(a,2,Len(a)-2)
         EndIf
         If Instr(a,"}") Then: a=Mid$(a,1,Len(a)-1): EndIf
         json$=a
         Exit Do
       EndIf
     EndIf
     m=i+Len(key$)
   Else
     Exit Do ' key not found
   EndIf
 Loop
End Function

Weather for Liverpool
Temperature is   21.39
Pressure is     1017
overcast clouds