program zap
! This is a better program !!!
! JWP 29/10/98

implicit none

integer :: times

do times = 1, 10
   print *, 'ZAP!!'
end do

end program zap