do !a from 1 to 2850
MOVE W 37 N DIST 10
refresh 
enddo