; Объявляем Тип crafts
Type crafts
Field x
Field y
Field dead
Field graphic
End Type
; Создаём 100 crafts, с уникальными данными
For t = 1 To 100
alien.crafts = New crafts
alien\x = Rnd(0,640)
alien\y = Rnd(0,480)
alien\dead = 0
alien\graphic = 1
Next
; Получаем первый элемент
alien.crafts = First crafts
Print alien\x
Print alien\y
Print alien\dead
Print alien\graphic
; получаем следующий объект
alien = After alien
Print alien\x
Print alien\y
Print alien\dead
Print alien\graphic
; получаем последний объект
alien.crafts = Last crafts
Print alien\x
Print alien\y
Print alien\dead
Print alien\graphic
; получаем предшествующий последнему элемент
alien = Before alien
Print alien\x
Print alien\y
Print alien\dead
Print alien\graphic