Advertisement
Mysoft

Untitled

Mar 15th, 2024
1,232
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type person
  2.   age as integer
  3.   fname as string
  4. end type
  5. type both extends person
  6.   ID as integer
  7.   location as string
  8. end type
  9.  
  10. dim person1 as Both
  11.  
  12. with person1
  13.   .age = 45
  14.   .fname = "bob"
  15.   .ID = 85792
  16.   .location = "minnesota"
  17. end with
  18.  
  19.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement