alias urltok {
  var %x 8,%o 1,%c,%u,%p,%h,%q,%a,%k window -ln,%f aline @p,%t $prop,%ÿ ÿÿÿÿdav
  %k @p
  %k @d
  %k @a
  %k @v
  %f :@
  %f @
  %f :/?ÿ#
  %f /?ÿ#
  %f ÿÿÿÿÿ/?ÿ#
  %f &=#
  %f &ÿ#
  while $mid($1,%x,1) != $! {
    var %l $v1,%e = $pos($line(@p,%o),%l)
    if %o = 1 {
      if (%e) var %o = 1 + %e,%u = %c,%c,%l
      elseif ($pos(/?ÿ#,%l)) var %o = 4 + $v1,%h = %c,%c,%l
    }
    elseif %o isin 234 && %e {
      set % $+ [ $mid(ÿphq,%o,1) ] %c
      var %c,%l,%o = %o + %e
    }
    elseif %o isin 567 && %e {
      aline @ $+ $mid(%ÿ,%o,1) $iif(%c != $!,$iif(%o = 7 && $line(@a,$line(@a,0)) = ü,ü,%c),$iif(%o isin 56 || $line(@a,$line(@a,0)) = ü,ü,ÿ))
      if (%o = 6 && %l = &) aline @v $iif(%c != $!,ÿ,ü)
      var %c,%l,%o = %e + $iif(%o = 5,-1,5)
    }
    %c = %c $+ %l
    inc %x
  }
  if (%o isin 567) aline @ $+ $mid(%ÿ,%o,1) $iif(%c != $!,$iif(%o = 7 && $line(@a,$line(@a,0)) = ü,ü,%c),$iif(%o isin 56 || $line(@a,$line(@a,0)),ü,ÿ))
  if (%o = 6) aline @v $iif(%c != $!,ÿ,ü)
  if (%o isin 348) set % $+ [ $mid(ÿÿhqÿÿÿa,%o,1) ] %c
  var %d = @ $+ $left(%t,1),%r = $iif(%a != $! && an isin %t,$(#,0)) $+ $iif(pr isin %t,http,$iif(%t == port,%q,$iif(%t isin dirattrval && $2 isnum 0-,$iif($2 = 0,$line(%d,0) - $fline(%d,ü,0),$line(%d,$fline(%d,[^ÿü],$2,2))),$iif($left(%t,1) isin upha,$(% $+ [ $v1 ],2))))) 
  close -@ *
  return $remove(%r,ÿ,ü)
}