Another Example for Global lists in types would be this:
Type Tparticle Global particle_list:TList Field x,y Field Emitter ... Function create() Particle_List.Addlast(Particle) End Function Function Render() For Local p:Tparticle = EachIn particle_list p.Update() Next End Function Method Update() ... End Method End Type While Not KeyHit(Key_Escape) TParticle.Render() Wend