如下编程，fund000001中有100个数据，对其做了1000次bootstrap。因为是时间数据，希望做block bootstrap。请教高手，将100个数据分成10组，对这10组做bootstrap，应该怎样修改程序？

data bootsamp000001;
do sampnum=1 to 1000;
do i=1 to nobs;
x=round(ranuni(0)*nobs);
set fund000001
nobs=nobs
point=x;
output;
end;
end;
stop;
run;