FOR L=1 TO 400 A=A+RND(240) GPSET L-1,ROUND(A/L) NEXT