Program ex0910
implicit none
character(len = 20), parameter :: input = 'newList'
integer, parameter :: players = 9, rec_length = 6
integer :: player
real :: hit_rate
open(10, file = input, form = 'formatted' , access = 'direct' ,& recl = rec_length)
do while (.true.)
write(*,*) 'Hit Number:'
read(*,*) player
if(player < 1 .or. player > players) exit
read(10, fmt = '(F4.2)' , rec = player) hit_rate
write(*,*) 'Input hit rate:'
read(*,*) hit_rate
write(10, fmt = '(F4.2)' , rec = player) hit_rate
end do
stop
end program ex0910