; GetTemp
; -------
; Download Weather page from Bureau of Meteorology and
; extract current temperature for Melbourne. Note
; dependency on page layout to find temp.
; Display in message box
;
report on
setfont verdana,8,
banner Retrieving temperature...
delay 15

geturl http://www.bom.gov.au/products/IDV60034.shtml,F
banoff
delay 10
iferror noserver
setvar B,>Melbourne
setvar G,94
setvar H,61
readline %F,A

:scanit
iferror notemp
srchstr %A,%B,J
iferror next
setvar C,%J
incvar C,%G
substr %A,%C,E,D
srchstr %D,<,B
delstr %D,%B,E,I
setvar C,%J
incvar C,%H
substr %A,%C,E,D
srchstr %D,<,B
delstr %D,%B,E,A
goto end

:next
nextline %F,A
goto scanit

:noserver
msgbox Get Temp,Couldn't contact server,0
goto exit

:notemp
msgbox Get Temp,Couldn't read temperature,0
goto exit

:end
msgbox Get Temp,Temperature in Melbourne at %A is %IC,0

:exit