basic time for integer counts

I know this is a very basic program but I would like to see what kind of counts some of the power systems get

With program below and I know its not exact
but I figure even my poor old 1GHz AMD Athlon is
getting ~ 30 million integer operations a second.

couple lines of output is:


Below is code I used:
----------------------------------------------------------

Global a:Long = 0,count2:Long = 1000000

Print "Starting count to " + count2 + " " + CurrentTime$()
d