Add files via upload

netjson/example.bas

@@ -0,0 +1,8 @@
+#include "json.bas"
+
+SUB MAIN
+	DIM IP AS STRING
+	IP = REQUEST("http://ifconfig.me/ip")
+	PRINT IP
+	PRINT REQUEST("http://ipwhois.app/json/" + IP)
+END SUB

netjson/json.bas

@@ -0,0 +1,10 @@
+REM RECEIVE DATA FROM
+REM REMOTE SERVER USING
+REM GET REQUEST
+FUNCTION REQUEST(ADDRESS AS STRING) AS STRING
+	DIM RESPONSE AS STRING
+	OPEN #1,ADDRESS,"r"
+	READLINE #1,RESPONSE
+	CLOSE #1
+	REQUEST = RESPONSE
+END FUNCTION