# Sat Nov 21 11:53:30 GMT 2009
# Commands for weather type 12, 15:
load b 170
:startout
load a 10
:startin
loadrand d 50  100
c 0   255 220 8
delayregticks d
c 50   235 200 3
dec a 1
jumpze a :innerdone
jump :startin
:innerdone
dec b 1
jumpze b :outerdone
jump :startout
:outerdone
# Fetch loop
:fetchstart
load a 10
:fetch
fetch http://ccgi.mm7323.free-online.co.uk/cgi-bin/weather.sh?1
c 4000 50 0 0
delaysec 60
dec a 1
jumpze a :tenfails
jump :fetch
:tenfails
c 10 0 0 0
delaysec 1800
jump :fetchstart