{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg\r\ndeclare subroutine rlist\r\n$insert logical\r\n$insert rlist_equates\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'COMPANY' to CompanyFile else\r\n   Void = msg( '', 'Unable to open company file...' )\r\n   return 0\r\nend\r\nrlist( 'SELECT COMPANY', target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nTenPercent = iconv( @reccount*.1, 'MD0' )\r\nVoid = msg( '', TenPercent )\r\nloop\r\n   readnext Id else Eof = true$\r\nuntil Eof\r\n   if mod( @rn.counter, TenPercent ) else\r\n\t   NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t   .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t   NewSize<3> = NewWidth\r\n\t   .gasbar->redraw = 0\r\n\t   .gasbar->size = NewSize\r\n\t   .gasbar->redraw = 1\r\n   end\r\nrepeat\r\nNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\nNewSize<3> = NewWidth\r\n.gasbar->redraw = 0\r\n.gasbar->size = NewSize\r\n.gasbar->redraw = 1\r\nvoid = msg( '', 'DONE' )\r\nRETURN 0"
        }
    }
}