#module
;///////////////////////////////////////////////////////////
;//     URLエンコード
;//
;//     urlenc p1,p2
;//
;//     p1      : URLエンコードする文字列
;//     p2=変数 : 格納する変数
;//     
;///////////////////////////////////////////////////////////
#deffunc urlenc str _in, var retval
    in = _in
    sdim retval, strlen(_in)*3+1
    repeat strlen(_in)
        poke retval,cnt*3,strf("%%%02X",peek(in,cnt))
    loop
    poke retval,strlen(_in)*3,0
    return

#global