[NitE]

Graphics 800,600,0,60,0

Global POINT_LIST:TList = New TList

Type TPoint
Field X

Function Create:TPoint(X)
Point:TPoint = New TPoint
Point.X=X
ListAddLast(POINT_LIST,Point)
Return Point
EndFunction

EndType


Global P1:TPoint = TPoint.Create(10)
Global P2:TPoint = TPoint.Create(TPoint(POINT_LIST.Last()).X)

Repeat
Cls()

DrawText(P1.X,10,10)
DrawText(P2.X,10,20)
DrawText(POINT_LIST.Count(),10,30)

Flip()
Until KeyHit(KEY_ESCAPE)
End