!
!  Add integers
!
      PROGRAM main
      INTEGER a
      DIMENSION a(1000)
      I = 0
      DO 
         READ(*, *, END=10) a(I+1)
         I = I + 1
      ENDDO
 10   WRITE(*,'(I3,A)') I, 'Records DONE'
      END PROGRAM main