Type MyClass
    Global List:TList

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


    Function Add(name:String)
        If Not List List=CreateList()
        Local c:MyClass = New MyClass
        c.x = Rnd(200,750)
        c.y = Rnd(50,500)
        c.spd = 1.0
        c.ypd = 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()
        y:-ypd
        x:-spd

        If x<0 Then spd=-spd
        If y<0 Then ypd=-ypd
        If y>600-TextHeight(name) Then ypd=-ypd

        If x>800-TextWidth(name) 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)