Initial data commit

Task/Inheritance-Multiple/Forth/inheritance-multiple.fth

@@ -0,0 +1,30 @@
+\ define class camera with method say:
+:class camera
+ :m say: ." camera " ;m
+;class
+
+\ define class phone with method say:
+:class phone
+ :m say: ." phone " ;m
+;class
+
+\ define cameraPhone phone with method say:
+\ class cameraPhone inherits from both class
+\ camera and class phone
+:class cameraPhone super{ camera phone }
+ :m say: self say: \ method conflicts in superclasses
+                   \ are resolved by left-to-right order
+                   \ so self say: will call the say: method
+                   \ from class camera
+    super> phone say: \ super> phone is used to direct
+                      \ this say: method to use the
+                      \ method from class phone
+ ;m
+;class
+
+cameraPhone cp \ instantiate a cameraPhone object named cp
+
+cp say: \ send the say: message to cp
+
+\ output:
+camera phone