sazabi:
Ok, it works with speed of 400.
Before I waste time studying the code in Reply #2 tell me whether you still have a problem, what the latest problem is, and post the latest version of your code.
Have you tried the examples in the AccelStepper library?
...R