; JsonNumber Example
; ------------------
; Requires Extended mode.

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

; A save-game with a fractional play-time and a whole-number level
save=ParseJson("{"+q+"play_time_hours"+q+":12.75,"+q+"level"+q+":7}")

; JsonNumber returns a JSON_NUMBER as a Double
hours=JsonObjectGet(save,"play_time_hours")
Print "play_time_hours kind is JSON_NUMBER: "+(JsonKind(hours)=JSON_NUMBER)
Print "JsonNumber(hours) = "+JsonNumber(hours)
Print ""

; It also accepts a JSON_INTEGER, converting Long to Double
level=JsonObjectGet(save,"level")
Print "level kind is JSON_INTEGER: "+(JsonKind(level)=JSON_INTEGER)
Print "JsonNumber(level) = "+JsonNumber(level)+" (converted from integer)"

FreeJson level
FreeJson hours
FreeJson save

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

End