json-doc <text> to <json> \
    [ status <status> ] [ length <length> ] [ noencode ] [ no-enum ] \
    [ error-text <error text> ] \
        [ error-position <error position> ] \
        [ error-line <line> ] \
        [ error-char <char> ]

json-doc  delete <json>

// JSON to parse
set-string jd unquoted = {"menu":\
    {"id": "file",\
    "value": 23091,\
    "active": false,\
    "popup":\
        {"menuitem":\
            [{"value": "New", "onclick": "CreateNewDoc with\uD834\uDD1Emusic"},\
            {"value": "Open", "onclick": "OpenDoc() with \uD834\uDD1E\uD834\uDD1E"},\
            {"value": "Close", "onclick": "\uD834\uDD1ECloseDoc()"}\
            ]\
        }\
    }\
}

// Parse JSON
json-doc jd status st error-text et error-position ep to nj

// Check parsing okay, if not display error details
if-true st not-equal GG_OKAY
    @Error [<<print-out et>>] at [<<print-out ep>>]
    exit-handler -1
end-if

// Display all data elements in order from top to bottom
start-loop
    read-json nj key k value v type t next
    if-true t equal GG_JSON_TYPE_NONE
        break-loop
    end-if
    @Key [<<print-out k>>]
    @Value [<<print-out v>>]
    @Type [<<print-out t>>]
    @--------
end-loop
@

// Delete JSON document
json-doc delete nj