;
; ------------------------------------------------------------
;
;   SpiderBasic - Json example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;


If ParseJSON(0, "[1, 2, 3, 4, 5]")    
  For i = 0 To JSONArraySize(JSONValue(0)) - 1
    Debug GetJSONInteger(GetJSONElement(JSONValue(0), i))
  Next i
Else
  JSONErrorMessage()
EndIf