* macro call   bootstr  1000 x.

bootstr1  500 mpg.

DEFINE bootstr1(!positional !TOKENS(1) /!positional !cmdend).

set mxloop = 9999.

matrix.

get x /variable = !2 /file = * /missing = omit.

print x.

compute nr = nrow(x).

print nr.

compute bign = !1*nr.

print bign.

compute bigx = make(bign,2,0).

compute temp = make(nr,1,0).
COMPUTE ID2 = 0.
loop i = 1 to !1.

loop j = 1 to nr.
compute id2 = id2 + 1.
compute id1 = trunc(nr*uniform(1,1)+1).
compute temp(j,1) = x(id1,1).
COMPUTE BIGX(ID2,1) = TEMP(J,1).
compute bigx(id2,2) = i.

end loop.

*print temp.

end loop.

*PRINT BIGX.

save bigx/outfile = 'c:\bigx.sav'.
end matrix.

!enddefine.