{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare subroutine end_dialog\r\n\r\nControls = get_property( @window, '@Controls' )\r\nRetVal = get_property( Controls, 'INVALUE' )\r\nconvert @rm to @fm in RetVal\r\nend_dialog( @window, RetVal )\r\nRETURN 0"
        }
    }
}