gravity  =  {0, 0, -32};
wind[t_, p_] :=  
        If[p[[3]] > 60, {10, 0, 0}, {0, 0, 0}];

refresh  = 10;
startTime  =  0; maxTime  =  5;  
    dt  =  0.033333;
  object = {{0, 0, 0}, {10, 0, 50}, 2};

<< Graphics`Shapes`

For[t = startTime; p = object[[1]]; v = object[[2]]; 
      m = object[[3]]; ds = refresh; 
slist = {}, 
      t < maxTime, 
      t = t + dt, 
f = 
        gravity + wind[t, p]; 
a = 
        f/m; 
v = v + a*dt; 
p = 
        p + v*dt; 
object  =  {p, v, 
          m}; 
If[ds == 0, ds = refresh; 
        slist = Append[slist, 
            TranslateShape[Graphics3D[Sphere[1, 10, 10]], p]], 
        ds = ds - 1]]

Show[slist, PlotRange -> {{0, 100}, {0, 100}, {0, 100}}, 
        ViewPoint -> {0, -100,  0}, 
        AxesLabel -> {"X", "Y", "Z"}];

<< Graphics`Shapes`