; JsonArrayGet Example
; --------------------
; Requires Extended mode.

q$=Chr(34)  ; Double-quote character, for building JSON text

; The hero's inventory from a loaded save-game
inventory=ParseJson("["+q+"sword"+q+","+q+"shield"+q+","+q+"potion"+q+"]")

Print "Inventory: "+JsonStringify(inventory,0)
Print ""

; JsonArrayGet returns an OWNED copy of each element
For i=0 To JsonCount(inventory)-1
    item=JsonArrayGet(inventory,i)
    Print "Slot "+i+": "+JsonText(item)
    FreeJson item
Next

; An out-of-range index returns zero instead of a handle
missing=JsonArrayGet(inventory,99)
Print ""
Print "JsonArrayGet(inventory,99) = "+missing+" (0 means no such element)"
FreeJson missing  ; FreeJson 0 is safe

FreeJson inventory

Print ""
Print "Press any key to close the example"
WaitKey

End