How to keep track of EachIn loop counter?

Squatting - my mistake, I was under the impression that arrays were cleverer or that I was using Blitz3D! :P

This works:

Type mytype
	Field x,y
End Type

Local myarray:mytype[50]

For counter = 0 Until myarray.length
	If Rand(1,5) = 1 Then  	
		myarray[counter] = New mytype
	EndIf
Next 

For counter = 0 Until myarray.length
	If myarray[counter]
		Print counter + " = " + counter 
	EndIf
Next