basic time for integer counts

oops code messed up... how to you attach code to the post ??

anyway here is another try for the program

Global a:Long = 0,count2:Long = 1000000
print "Counting to " + count2 + " " + CurrentTime$()

while(1)
a = a + 1

If a = count2
Print "Count completed @ " + CurrentTime$()
count2 = count2 + 1000000 ' add 1 million to count2
print "Counting to " + count2 + " " + CurrentTime$()
a = 0
EndIf

Wend