sub main()
	dim txt
        	
	txt = hs.GetURL("met-www.cit.cornell.edu","/cgi-bin/fcst?PA071",1,80)
	hs.speak txt

end sub