$URL2

alias url2 {
  var %n = $len($1-), %i = 1
  if ($prop == enc) {
    while (%i <= %n) {
      var %c = $mid($1,%i,1)
      if ($asc(%c) <= 32) || ($asc(%c) == 37) var %c = $+($eval(%,0),$base($asc($eval(%c,1)),10,16))
      var %t = %t $+ %c | inc %i 
    }
    return %t
  }
  elseif ($prop == dec) {
    while (%i <= %n) {
      var %c = $mid($1,%i,1)
      if (%c == $eval(%,0)) { var %c = $mid($1,$calc(%i + 1),2), %t = $+(%t,$replace($chr($base(%c,16,10)),$chr(32),$chr(160))) | inc %i 3 }
      else { var %t = $+(%t,%c) | inc %i 1 }
    }
    return %t
  }
}