{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "Declare Subroutine Set_Property\r\nDeclare Function Get_Property\r\nThisRec = Get_Property(@Window,'ATRECORD')\r\nInitrnd Time()\r\nMyVar = Rnd(200)\r\nThisRec<28, -1> = MyVar\r\nSet_Property(@Window,'ATRECORD', ThisRec)               \r\n\r\nreturn 1"
        }
    }
}