REBOL [
    Title: "Melbourne Weather Update"
    File:  %melb_weather.r
    Date:  "May 2003"
    Purpose: "Retrieve current weather observations from Bureau of Meteorology and display."
] 

; first process the web page
page: read http://www.bom.gov.au/products/IDV65119.shtml
data_list: []
parse page [
	thru "Last updated: "
	copy data_item to "^/" (append data_list data_item)
	thru "Melbourne</a></td>" 
	thru <td nowrap align="center"> 
	copy data_item to </td> (append data_list data_item) 
	10 [thru <td align="center">
	copy data_item to </td> (append data_list data_item)]
]

; second display the information
view layout [
	backdrop effect [gradient 0x0 0.0.0 0.128.128]
	banner "Melbourne Weather Update"
	vh1 reform [skip parse data_list/1 none 2  "at" second parse data_list/2 none ]
	pad 60x20
	vtext rejoin ["Temperature: " data_list/3 #"^(B0)" "C"]
	vtext rejoin ["Relative Humidity: " data_list/5 "%"]
	vtext rejoin ["Wind: " data_list/6 " at " data_list/8 " knots"]
	vtext rejoin ["Rain since 9am: " data_list/12 "mm"]
	pad 180x20
	button " Done " [quit] 
]