14 lines
374 B
Plaintext
14 lines
374 B
Plaintext
PRINT FNurlencode("http://foo bar/")
|
|
END
|
|
|
|
DEF FNurlencode(url$)
|
|
LOCAL c%, i%
|
|
WHILE i% < LEN(url$)
|
|
i% += 1
|
|
c% = ASCMID$(url$, i%)
|
|
IF c%<&30 OR c%>&7A OR c%>&39 AND c%<&41 OR c%>&5A AND c%<&61 THEN
|
|
url$ = LEFT$(url$,i%-1) + "%" + RIGHT$("0"+STR$~c%,2) + MID$(url$,i%+1)
|
|
ENDIF
|
|
ENDWHILE
|
|
= url$
|