Data commit

Task/URL-decoding/Yabasic/url-decoding.basic

@@ -0,0 +1,19 @@
+sub decode_url$(s$)
+    local res$, ch$
+	
+    while(s$ <> "")
+        ch$ = left$(s$, 1)
+        if ch$ = "%" then
+            ch$ = chr$(dec(mid$(s$, 2, 2)))
+            s$ = right$(s$, len(s$) - 3)
+        else
+            if ch$ = "+" ch$ = " "
+            s$ = right$(s$, len(s$) - 1)
+	endif
+        res$ = res$ + ch$
+    wend
+    return res$
+end sub
+
+print decode_url$("http%3A%2F%2Ffoo%20bar%2F")
+print decode_url$("google.com/search?q=%60Abdu%27l-Bah%C3%A1")