Microsoft Small Basic

Program Listing: cdj701

List Program

url="http://image.weather.com/web/radar/us_radar_plus_usen.jpg" ' every 10min
' "http://image.weather.com/images/maps/current/cur_ne_720x486.jpg"
' "http://image.weather.com/images/maps/current/curwx_600x405.jpg"
' "http://image.weather.com/images/sat/canadasat_720x486.jpg"
GraphicsWindow.Title=url+" : "+Clock.Time
GraphicsWindow.DrawResizedImage(url,0,0,640,450)
While "true"
Program.Delay(60000) ' wait 1 minute
GraphicsWindow.Title=url+" : "+Clock.Time
GraphicsWindow.DrawResizedImage(url,0,0,640,450)
endwhile