Type MyClass
    Global List:TList

    Field name:String
    Field x:Float
    Field y:Float
    Field spd:Float

    Function Add(name:String)
        If Not List List=CreateList()
        Local c:MyClass = New MyClass
        c.x = Rnd(200,800)
        c.y = Rnd(50,500)
        c.spd = 1.0
        c.name = name
        List.AddLast c

    End Function

    Function UpdateAll()
        If Not List Return
        For Local l:MyClass = EachIn List
            l.Update()
        Next
    End Function

    Method Update()
        x:-spd

        If x<0 Then spd=-spd
        If x>800 Then spd=-spd

        Draw()
    End Method

    Method Draw()
        DrawText name,x,y
    End Method

End Type

'
' Main code
'

SeedRnd MilliSecs()
Global seed:Int=RndSeed()

Graphics 800,600

MyClass.Add("Docster1")
MyClass.Add("Docster2")
MyClass.Add("Docster3")
MyClass.Add("Docster4")

Repeat
    Cls
    MyClass.UpdateAll()
    Flip
Until KeyHit(KEY_ESCAPE)