You can still fake it:
Type bomb Field s.sharedfields Field radius End Type Type player Field s.sharedfields Field name$ End Type Type sharedfields Field x#,y#,speedx#,speedy# End Type b.bomb=New bomb b\radius=22 b\s=New sharedfields p.player=New player p\name="joe" p\s=New sharedfields typetype = 2 Select typetype Case 1 this.sharedfields = b\s Case 2 this.sharedfields = p\s End Select this\x=this\x+this\speedx this\y=this\y+this\speedy