A simulation program for adaptive two stage designs