mtic;
  stocks:=getbk('A股');
  setsysparam(PN_Precision(),2);
  ret:=array();
  for i:=0 to length(stocks)-1 do
  begin
   setsysparam(pn_stock(),stocks[i]);
   ret[i,'StockID']:=stocks[i];
   ret[i,'time']:=datetimetostr(rd(-1));
   ret[i,'name']:=rd(1);
   ret[i,'open']:=rd(2);
   ret[i,'yclose']:=rd(3);
   ret[i,'high']:=rd(4);
   ret[i,'low']:=rd(5);
   ret[i,'price']:=rd(6);
   ret[i,'amount']:=rd(9);
  end
  echo mtoc;
  return ret;