{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare subroutine Forward_Event, Set_Property\r\n\r\nequ TRUE$  to 1\r\nequ FALSE$ to 0\r\n\r\n* tab controls must start with \"PAGE_\" and end with \"_TAB\" with a number in\r\n* between representing the page number associated with the tab\r\nequ TAB_PREFIX$    to  \"PAGE_\"\r\nequ TAB_SUFFIX$    to  \"_TAB\"\r\n\r\n\r\n* handle the page event\r\nForward_Event(PageAction)\r\n\r\n* radio buttons do not auto-check on gotfocus so explicitly set the check\r\nSet_Property(@window: \".\": TAB_PREFIX$ : Get_Property(@window, \"VPOSITION\") <1>: TAB_SUFFIX$, \"CHECK\", TRUE$)\r\n\r\nRETURN 0"
        }
    }
}