! Counting example program

	PROGRAM count

	INTEGER*1 sum
	INTEGER	i

	sum=0
	do 1000 i = 1,64000
  	  sum=sum+1
	  write(*,*) i,sum
	  read(*,*)
1000	continue 

	stop
	end
