Keeping an array/list-length

Type bob
	
	Global list:TList = New TList

	Field bla:Int

	Method New()
		
		list.AddFirst Self
		If list.Count()>8
			list.Remove list.Last()
		EndIf
		
		bla = Rand(0,100000)
		
	EndMethod

EndType


For Local k:Int = 0 Until 100
	Local b:bob = New bob
	Print "bobs: "+bob.list.count()	
Next