; Spawn our children types from this Parent 

   Type tPlayer as BasicObject
        CurrentLevel,HighestLevel,LastRestartLevel 
        ; and any other unique fields to the player 
   EndType 

   Type tPlayerBullet as BasicObject
        FiredFromPlayer,DamageLevel 
        ; etc etc
   EndType

   Type tAlien as BasicObject
        BrainType, AnimationMode 
        ; etc etc
   EndType 

   ; Create the arrays to hold our lists of objects
   Dim Players(2) as tPlayer
   Dim PlayerBullets(50) as tPlayerBullet
   Dim Aliens(100) as tAlien