Data commit

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

@@ -0,0 +1,25 @@
+    dim lookUp$( 256)
+
+    for i =0 to 256
+        lookUp$( i) ="%" +dechex$( i)
+    next i
+
+    url$ ="http%3A%2F%2Ffoo%20bar%2F"
+
+    print "Supplied URL '"; url$; "'"
+    print "As string    '"; url2string$( url$); "'"
+
+    end
+
+function url2string$( i$)
+    for j =1 to len( i$)
+        c$ =mid$( i$, j, 1)
+        if c$ ="%" then
+            nc$         =chr$( hexdec( mid$( i$, j +1, 2)))
+            url2string$ =url2string$ +nc$
+            j =j +2
+        else
+            url2string$ =url2string$ +c$
+        end if
+    next j
+end function