{"coord":{"lon":-0.13,"lat":51.51},"sys":{"type":1,"id":5091 ,"message":0.1227,"country":"GB","sunrise":1412662312,"sunse t":1412702671},"weather":[{"id":521,"main":"Rain","description":"proximity shower rain","icon":"09d"}],"base":"cmc stations","main":{"temp":287.01,"pressure":998,"humidity":47 ,"temp_min":285.15,"temp_max":288.15},"wind":{"speed":7.2,"d eg":240},"clouds":{"all":40},"dt":1412696773,"id":2643743,"n ame":"London","cod":200}

SERVER$="23.0.88.120"
PORTX$="80"

Open "Com1:115200, 4096" As #1
FLUSHBUF

PRINT #1,"AT+CWMODE=3"
PAUSE 100
GETSTRINGLONG

PRINT #1,"AT+CIPMUX=0"
PAUSE 100
GETSTRINGLONG

Print #1,"AT+CIPSTART="+Chr$(34)+"TCP"+Chr$(34)+","+Chr$(34)+SERVE R$+Chr$(34)+","+PORTX$
PRINT "AT+CIPSTART NOW"
PAUSE 1000
GETSTRINGLONG

Z$="GET /api/2b4e1c4572808d14/conditions/q/33773.json HTTP/1.1"+chr$(13)+chr$(10)+"Host: api.wunderground.com"+chr$(13)+chr$(10)
OUTPUTX Z$
PAUSE 1000
GETSTRINGLONG

Print #1,"AT+CIPCLOSE"
PAUSE 100
GETSTRINGLONG

END


Sub OUTPUTX (OUT$)
Print #1,"AT+CIPSEND=0"+Str$(Len(OUT$)+2)
Pause 200
Print #1,OUT$
PRINT OUT$
Pause 100
END SUB

'**********GETSTRINGLONG************
SUB GETSTRINGLONG
PAUSE 200
PRINT "BYTES IN LOC = ";LOC(#1)
C$=""
DO
C$=Input$(1,#1)
char = Asc(C$)
If char >31 Then Print C$;
If char =13 Then Print " "
LOOP WHILE LOC(#1)<>0
END SUB

SUB FLUSHBUF
DO:A$=INPUT$(1,#1):LOOP WHILE LOC(#1) <> 0
END SUB