16 lines
557 B
Plaintext
16 lines
557 B
Plaintext
100 URL$ = "http://foo bar/"
|
|
110 GOSUB 140"URL ENCODE URL$ RETURNS R$
|
|
120 PRINT R$;
|
|
130 END
|
|
140 LET R$ = ""
|
|
150 LET L = LEN (URL$)
|
|
160 IF NOT L THEN RETURN
|
|
170 LET H$ = "0123456789ABCDEF"
|
|
180 FOR I = 1 TO L
|
|
190 LET C$ = MID$ (URL$,I,1)
|
|
200 LET C = ASC (C$)
|
|
210 IF C < ASC ("0") OR C > ASC ("Z") + 32 OR C > ASC ("9") AND C < ASC ("A") OR C > ASC ("Z") AND C < ASC ("A") + 32 THEN H = INT (C / 16):C$ = "%" + MID$ (H$,H + 1,1) + MID$ (H$,C - H * 16 + 1,1)
|
|
220 LET R$ = R$ + C$
|
|
230 NEXT I
|
|
240 RETURN
|