type person
  age as integer
  fname as string
end type
type both extends person
  ID as integer
  location as string
end type

dim person1 as Both

with person1
  .age = 45
  .fname = "bob"
  .ID = 85792
  .location = "minnesota"
end with