home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 June / APC561.ISO / workshop / other / mac / relation.bas < prev    next >
Encoding:
BASIC Source File  |  2000-03-21  |  432 b   |  19 lines
  1. class person
  2.   name as string * 32
  3.   dob as string * 10
  4.   sub age()
  5.     yr=val(field$(date$,4))
  6.     age=yr-val(field$(this.dob,3,"/"))
  7.   end sub
  8. end class
  9.  
  10. class relation extends person
  11.   relationship as string
  12. end class
  13.  
  14. dim someone as new relation
  15. someone.name="Jim"
  16. someone.dob="12/12/1980"
  17. someone.relationship="brother"
  18. print "My ";someone.relationship;" ";someone.name;" is about ";someone.age();"years old"
  19.