do 9 pull a b c do j=a+c by c to b-.01 call charout,format(j,,c<1&j<>1)" " end say end