; Escapes all non-alphanumeric characters (except underscore which is fine)
alias urlencode return $regsubex($1,/([^\w\d])/g,% $+ $base($asc(\t),10,16))
; or
; As above but converts space to a +
alias urlencode return $replace($regsubex($1,/([^\w\d\x20])/g,% $+ $base($asc(\t),10,16)), $chr(32), +)