rem Types and functions: user-defined types - OpenDBC tutorial (DarkBASIC Professional)
#constant BALLS 12

type Ball
   obj as integer
   x as float
   y as float
   speed as float
endtype

dim balls(BALLS) as Ball
balls(1).speed = 4.0

balls(1).x = 10.5
print "Ball 1: x = "; balls(1).x; ", speed = "; balls(1).speed
print "Ball 2: speed = "; balls(2).speed; " (fields start at 0)"
print "Press a key to quit."
wait key