program DADDS

! Print the disk addresses generated by the exercise program.

  integer :: I
  integer :: N1 = 9157
  integer :: N2 = 83

  do i = 1, 100
    n1 = mod(n1*n2,10000)
    if ( mod(i,25) == 0 ) then
      write ( *, '(i3)', advance='yes' ) n1/100
    else
      write ( *, '(i3)', advance='no' ) n1/100
    end if
  end do

end program DADDS
