timesetup(1)
print time()
delay 1000
print time()
timer 10 * 1000, [RUNPROGRAM] 
wait
[RUNPROGRAM]
cls
PRINT "TIME" & "," & time()
serialprintln "TIME" & "," & time()
let query = "api.openweathermap.org/data/2.5/weather?q=Denton,uk&lang=en&units=metric&appid=API-KEY-HERE" 
delay 500
let ret = wget(query)
let temp = json(ret,"main.temp")
let press = json(ret,"main.pressure") 
let humid = json(ret,"main.humidity")
let speed = json(ret,"main.speed")
speed1 = int(main.speed + 0.5)
let dir = json(ret,"main.deg")
let icon = json(ret,"main.icon")
let desc = json(ret,"main.description")
let sunrise = json(ret,"main.sunrise")
let sunset = json(ret,"main.sunset")
let visibility = json(ret,"main.visibility")
let min = json(ret,"main.temp_min")
let max = json(ret,"main.temp_max")

serialprintln "Today," & desc & "," & icon & "," & temp & "," & press &"," & speed1 & "," & dir & "," & humid & "," & sunrise & "," & sunset & "," & visibility & "," & min & "," & max
println "Today," & desc & "," & icon & "," & temp & "," & press &"," & speed1 & "," & dir & "," & humid & "," & sunrise & "," & sunset & "," & visibility & "," & min & "," & max


let query = "api.openweathermap.org/data/2.5/forecast/daily?&units=metric&q=Denton,UK&appid=API-KEY-HERE"
Delay 1000
let ret = readopenweather(query,2) 
let tim = json(ret,"dt")
let tim = unixtime(tim)
let icon = json(ret,"icon")
let main = json(ret,"main")
let desc = json(ret,"description")
let temp_min = json(ret,"temp.min")
let temp_max = json(ret,"temp.max")
let pres = json(ret,"pressure")
let humid = json(ret,"humidity")
let speed = json(ret,"speed")
speed1 = int(speed + 0.5)
let deg = json(ret,"deg")
let icon = json(ret,"icon")
let morning = json(ret,"morn")
let night = json(ret,"night")
let evening = json(ret,"eve")

serialprintln "Day2," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg & "," & morning & "," & evening & "," & night & "," & desc
println "Day2," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg & "," & morning & "," & evening & "," & night & "," & desc
serialflush
let query = "api.openweathermap.org/data/2.5/forecast/daily?&units=metric&q=Denton,UK&appid=API-KEY-HERE"
DELAY 1000
let ret = readopenweather(query,3) 
let tim = json(ret,"dt")
let tim = unixtime(tim)
let icon = json(ret,"icon")
let main = json(ret,"main")
let desc = json(ret,"description")
let temp_min = json(ret,"temp.min")
let temp_max = json(ret,"temp.max")
let pres = json(ret,"pressure")
let humid = json(ret,"humidity")
let speed = json(ret,"speed")
speed1 = int(speed + 0.5)
let deg = json(ret,"deg")
let icon = json(ret,"icon")
let morning = json(ret,"morn")
let night = json(ret,"night")
let evening = json(ret,"eve")
serialprintln "Day3," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg & "," & morning & "," & evening & "," & night & "," & desc
println "Day3," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg & "," & morning & "," & evening & "," & night & "," & desc
serialflush
let query = "api.openweathermap.org/data/2.5/forecast/daily?&units=metric&q=Denton,UK&appid=API-KEY-HERE"
DELAY 1000
let ret = readopenweather(query,4) 
let tim = json(ret,"dt")
let tim = unixtime(tim)
let icon = json(ret,"icon")
let main = json(ret,"main")
let desc = json(ret,"description")
let temp_min = json(ret,"temp.min")
let temp_max = json(ret,"temp.max")
let pres = json(ret,"pressure")
let humid = json(ret,"humidity")
let speed = json(ret,"speed")
speed1 = int(speed + 0.5)
let deg = json(ret,"deg")
let icon = json(ret,"icon")
let morning = json(ret,"morn")
let night = json(ret,"night")
let evening = json(ret,"eve")
serialprintln "Day4," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg & "," & morning & "," & evening & "," & night & "," & desc
println "Day4," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg & "," & morning & "," & evening & "," & night & "," & desc
serialflush
WAIT
