{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg, send_message\r\n$insert msg_equates\r\n\r\nequ NumCols to 14\r\n\r\nColMarks = str( @fm, NumCols-1 )\r\nRowData = .spec_info->rowdata\r\nLay = .spec_info->selpos<2>\r\nif RowData = ColMarks then\r\n    MsgInfo = ''\r\n    MsgInfo<micon$> = 'H'\r\n    MsgInfo<mtext$> = 'There is currently no Layer# ':Lay:'...You must add first.'\r\n    Void = msg( '', MsgInfo )\r\n    return 0\r\nend else\r\n\tif Lay then\r\n\t   MsgInfo = ''\r\n\t   MsgInfo<mtext$> = 'Do you wish to completely remove layer ':Lay:'?'\r\n\t   MsgInfo<mtype$> = 'BNY'\r\n\t   MsgInfo<micon$> = '?'\r\n\t   Resp = msg( '', MsgInfo )\r\n\t   if Resp then\r\n\t      Void = send_message( @window:'.SPEC_INFO', \"DELETE\", Lay )\r\n\t      @@window->savewarn = 1      \r\n\t   end\r\n\tend else\r\n\t   MsgInfo = ''\r\n\t   MsgInfo<mtext$> = 'You must have your cursor on the layer that you wish to delete.'\r\n\t   MsgInfo<micon$> = 'H'\r\n\t   Void = msg( '', MsgInfo )\r\n\tend\r\nend\r\nreturn 0"
        }
    }
}