alias urlencode return $replace($regsubex($1,/([^\w\d\x20])/g,% $+ $base($asc(\t),10,16)), $chr(32), +)
; Socket code starts here
var %message = search= $+ $urlencode($1) $+ &max=10&exact=true&from=English&to=Latin&fname=eng2lat1&back=lat.html
sockwrite -n moo POST /onldict/onldict.php HTTP/1.0
sockwrite -n moo Host: www.freedict.com
sockwrite -n moo User-Agent: Anything
sockwrite -n moo Referer: http://www.freedict.com/onldict/lat.html
sockwrite -n moo Content-Type: application/x-www-form-urlencoded
sockwrite -n moo Content-Length: $len(%message)
sockwrite -n moo
sockwrite -t moo %message