Data commit

Task/URL-encoding/Applesoft-BASIC/url-encoding.basic

@@ -0,0 +1,15 @@
+ 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