Type klotz
Field x,y
Field ys
Field r,g,b

Method draw()
SetColor r,g,b
DrawRect x,y,200,200
End Method

Function create:klotz(x,y,ys,r,g,b)
created:klotz=new klotz
created.x=x
created.y=y
created.ys=ys
created.r=r
created.g=g
created.b=b
Return created
End Function
End Type

klotzliste:TList=new TList
klotzranking:TList=new TList

apptitle$="dinge im hintergrund zuerst malen"
Graphics 640,480,0,60
SetClsColor 255,255,255
Cls

klotzliste.addlast(klotz.create(100,0,4,255,60,0))
klotzliste.addlast(klotz.create(200,140,2,100,230,0))
klotzliste.addlast(klotz.create(300,280,-4,0,160,255))

Repeat

For k:klotz=eachin klotzliste
k.y:+k.ys
If k.y<0 Or k.y>280 Then k.ys=-k.ys
Next

klotzranking.clear()
temp=640
For k:klotz=eachin klotzliste
If k.y<temp Then klotzranking.addfirst(k)
If k.y>=temp Then klotzranking.addlast(k)
temp=k.y
Next

Cls
For k:klotz=eachin klotzranking
k.draw()
Next
Flip

Until KeyHit(KEY_ESCAPE)
End