How to write output values to the standard output without carriage return:

program tstNoadv
 integer :: i
 do i = 1, 10
 write(*,"(A1,I6.4,$)") char(13), i
 call system("sleep 1")
 end do
 write(*,*) "Done"
 stop
end program