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

p = {0, 0};
v = {100, 100};
numTotalSteps = 200;
refreshSteps  =  5
deltaTime  =  1/30;
printStop = 5;

For[
i = 0; refresh = refreshSteps; t = deltaTime; 
      slist = {}, 
i <  
        numTotalSteps, 
i++; 
      t += deltaTime, 
deltaVelocity = 
        gravity*dt; 
vnew = 
        v + deltaVelocity; 
pnew = 
        p + (vnew + v)*dt/2; 
If[
i < 
          printStop, 
Print["v(", t, ")=", 
          v, "+", gravity, "*", dt, "=", 
          vnew]; 
Print["x(", t, ")=", 
          p, "+ (1/2)*(", vnew, "+", v, ")*", dt, "=", 
          pnew];
]; 
v  =  
        vnew; 
p = 
        pnew; 
If[
refresh == 
          0, 
refresh = refreshSteps; 
        slist = Append[slist, 
            Graphics[Point[p]]], 
refresh = 
            refresh - 1;
]
]

Show[slist, PlotRange -> {{0, 600}, {0, 200}}, 
        Axes  -> Automatic];

<< Graphics`Shapes`

refresh  = 10;
startTime  =  0; maxTime  =  5;  
    dt  =  1/30;
  object = {{0, 0, 0}, {10, 0, 50}, 2};

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[Point[1, 10, 10]], p]], 
        ds = ds - 1]]