Data commit

Task/JSON/FreeBASIC/json-1.basic

@@ -0,0 +1,15 @@
+{
+    "menu": {      "id": "file",
+            "string": "File:",
+       "number": -3,
+ "boolean1":true , "boolean2"     :false,"boolean3":true,
+    "sentence" : "the rain in spain falls mainly on the plain.  This here \" is an escaped quote!",
+           "null": null,
+    "array" : [0,1,2,3]
+            "Thumbnail": {
+            "Url":    "http://www.example.com/image/481989943",
+            "Height": 125,
+            "Width":  "100"
+        },
+    }
+}

Task/JSON/FreeBASIC/json-2.basic

@@ -0,0 +1,17 @@
+#include "inc/fbJSON.bas"
+
+Sub printNodeChildren(Byval n As fbJSON Ptr, Byval level As Integer)
+End Sub
+
+Dim test As fbJSON Ptr = fbJSON_ImportFile("test1.json")
+
+If test = NULL Then
+	Print "Unable to load json file/string!"
+	End 1
+End If
+
+Print fbJSON_ExportString(test, 1)
+
+fbJSON_Delete(test)
+
+Sleep