Sub Process_Globals
Type position (x As Int, y As Int)
End Sub
Public Sub Createposition (x As Int, y As Int) As position
Dim t1 As position
t1.Initialize
t1.x = x
t1.y = y
Return t1
End Sub
Sub Example
Dim x, y As Int
Dim locations As List
locations.Initialize
locations.Add(Createposition(1000, 2000))
locations.Add(Createposition(2000,3000))
locations.Add(Createposition(3000,4000))
' ...
For Each p As position In locations
x = p.x
y = p.y
' ...
Next
End Sub