FUNCTION URLDecode$(a$) LOCAL INTEGER z LOCAL STRING b$,c$ z=1 DO z=INSTR(z,a$,"%") IF z=0 OR z=LEN(a$) THEN EXIT DO b$=MID$(a$,z,3) c$=CHR$(VAL("&h"+MID$(b$,2))) a$=Replace$(a$,b$,c$) END IF LOOP URLDecode$=a$ END FUNCTION