<br />
Field dead
<br />
Field graphic
<br />
End Type 
<br />

<br />
; Create 100 crafts, with the unique name of alien
<br />
For t = 1 To 100 
<br />
alien.crafts = New crafts
<br />
alien\x = Rnd(0,640)
<br />
alien\y = Rnd(0,480)
<br />
alien\dead = 0
<br />
alien\graphic = 1
<br />
Next 
<br />

<br />
; Move to the first object
<br />
alien.crafts = First crafts 
<br />

<br />
Print alien\x
<br />
Print alien\y
<br />
Print alien\dead
<br />
Print alien\graphic 
<br />

<br />
; move to the next al