Data commit

Task/URL-decoding/BBC-BASIC/url-decoding.basic

@@ -0,0 +1,22 @@
+      PRINT FNurldecode("http%3A%2F%2Ffoo%20bar%2F")
+      END
+
+      DEF FNurldecode(url$)
+      LOCAL i%
+      REPEAT
+        i% = INSTR(url$, "%", i%+1)
+        IF i% THEN
+          url$ = LEFT$(url$,i%-1) + \
+          \      CHR$EVAL("&"+FNupper(MID$(url$,i%+1,2))) + \
+          \      MID$(url$,i%+3)
+        ENDIF
+      UNTIL i% = 0
+      = url$
+
+      DEF FNupper(A$)
+      LOCAL A%,C%
+      FOR A% = 1 TO LEN(A$)
+        C% = ASCMID$(A$,A%)
+        IF C% >= 97 IF C% <= 122 MID$(A$,A%,1) = CHR$(C%-32)
+      NEXT
+      = A$